Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Помгите разобраться с программой (http://forum.oszone.net/showthread.php?t=30833)

TarasBulba 30-08-2002 18:18 210341

В старых документах нащёл прогу :
#!/usr/bin/perl

$mailprog = '/usr/sbin/sendmail';
$digits_basedir = "http://www.твоя_пага.ru/digits/";
$count_file = "count.txt";
$classica = "classics.txt";
$targets = "targets.txt";
$emails = "emails.txt";
$results = "results.txt";

($place, $Write) = split(/\&/,$ENV{QUERY_STRING});
open (COUNT,"$count_file") || die "Can't Open Count File $count_file, Error : $!\n";
($count) = <COUNT>;
chomp($count);
close(COUNT);
$count++;
open (COUNT,">$count_file") || die "Can't Open Count File $count_file, Error : $!\n";
print COUNT "$count";
close(COUNT);
$count = "0000000000".$count;
@chiffres = split(//, $count);
@chiffres = reverse(@chiffres);
print "Location: ".$digits_basedir.$chiffres[$place].".gif\n\n";
open (COUNT,">$count_file") || die "Can't Write Count File $count_file, Error : $!\n";
($count2) = <COUNT>;
chomp($count);
close(COUNT);
open (CLASSICS, "$classica") || die "Can't open CLASSICS File $classica, Error : $!\n";
(@classics) = <CLASSICS>;
$total = @classics;
while (($count2) > ($total)){
$count2 = $count2 - $total;
}
$subject = $classics[$count2];
chomp ($subject);
close CLASSICS;
open (EMAILS, "$emails") || die "Can't open EMAILS File $emails, Error : $!\n";
(@emails) = <EMAILS>;
$total2 = @emails;
while (($count2) > ($total2)){
$count2 = $count2 - $total2;
}
$from = $emails[$count2];
chomp ($from);
close EMAILS;
open (RESULTS, "$results") || die "Can't Open RESULTS File $results, Error : $!\n";
($count3) = <RESULTS>;
chomp($count3);
close(RESULTS);
open (TARGETS, "$targets") || die "Can't Open TARGETS File $targets, Error : $!\n";
while (<TARGETS>){
($target) = <TARGETS>;
chomp ($target);
open (MAIL, "|$mailprog -t");
print MAIL "Content-Type: text/plain\n";
print MAIL "Subject: $subject\n";
print MAIL "To: $target\n";
print MAIL "From: $from\n\n";
print MAIL "На козел, покушай классики!!!\n\n";
print MAIL "@classics\n";
close MAIL;
$count3++;
}
open (RESULTS,">$results") || die "Can't Write RESULTS File $results, Error : $!\n";
print RESULTS "$count3";
close RESULTS;


<img src="http://www.твоя_пага.ru/cgi-bin/counter.cgi?2">
<img src="http://wwww.твоя_пага.ru/cgi-bin/cou...gi?1">
<img src="http://wwww.твоя_пага.ru/cgi-bin/cou...mp;w">
#!/usr/bin/perl

$file = "results.txt";
$digits_basedir = "http://www.твоя_пага.ru/digits/";

($place, $Write) = split(/\&/,$ENV{QUERY_STRING});

open (COUNT, "$file") || die "Can't Open Count File $file, Error : $!\n";
($count) = <COUNT>;
chomp($count);
close(COUNT);

$count = "0000000000".$count;
@chiffres = split(//, $count);
@chiffres = reverse(@chiffres);
print "Location: ".$digits_basedir.$chiffres[$place].".gif\n\n";

И не знаю что с ней делать :help:

Stek 30-08-2002 22:26 210342

Да очередной чей то бред. Выкинь.


Время: 00:23.

Время: 00:23.
© OSzone.net 2001-