Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Помгите разобраться с программой

Ответить
Настройки темы
Помгите разобраться с программой

Провизор


Сообщения: 244
Благодарности: 6


Конфигурация

Профиль | Отправить PM | Цитировать


В старых документах нащёл прогу :
#!/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";

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

-------
К важным делам следует относиться легко.
К несущественным делам следует относиться серьезно.
©Ямамото Цунэтомо. Хагакурэ. Сокрытое в листве.


Отправлено: 18:18, 30-08-2002

 

Пользователь


Сообщения: 76
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


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

-------
Так заставим же этот PHP делать то, что ему положенно.


Отправлено: 22:26, 30-08-2002 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Помгите разобраться с программой

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочие БД - Помгите с FoxPro linkwy Программирование и базы данных 1 15-12-2009 01:31
Зависает файл сервер под Windows 2003 R2, SP1, помгите разобраться почему. Lefka Microsoft Windows NT/2000/2003 16 24-09-2008 12:04
Route/Bridge - помгите разобраться в машрутизации Sharik987 Сетевые технологии 31 11-12-2007 16:07
Помгите со скриптами в Windows 2003 DDD2005New Microsoft Windows NT/2000/2003 2 22-05-2006 17:50
Админы, помгите. Guest О сайте и форуме 23 13-08-2004 18:37




 
Переход