|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Ustinov 2:5020/400 04 Aug 2000 13:06:07
To : All
Subject : Find mistake, plz
--------------------------------------------------------------------------------
Приветствую!
В результате 2-ух дневного поиска ошибки в несложном скрипте (253 строки)
была локализована ошибка со 100% уверенностью. Она находиться в ниже
приведенной подпрограмме.
У меня ActiveState Perl 5.22, Apache, Win98 - на локальной машине скрипт
выполняется правильно и без ошибок.
Hа сервере Unix-платформа, Perl 5.005. - скрипт HЕ работает (2 дня мучаю).
Доступа к логам нет.
use CGI::Carp qw/fatalsToBrowser/; -- не помогает
Hайдите ошибку, пожалуйста. Привожу без изменений, дабы не навредить.
----------------- cut here -------------------------
&send_email_to_me ("Andrey
Ustinov","to\@ustinov.tstu.ru","from\@ustinov.tstu.ru");
sub send_email_to_me {
my ($my_name,$my_email,$fromEmail)=@_;
$| = 1;
open (MAIL, "|pathToSendMail -t") || open (MAIL,">>mail.msg"); # это я когда
а локальной машине тестирую,
^^^^^^ # отправляю это письмо в файл, а не Sendmal'y
print MAIL "To: $my_name <$my_email>\n";
print MAIL "From: Nataly marriage agency <$fromEmail>\n";
print MAIL "Subject: Nataly new member\n\n";
print MAIL "\n";
print MAIL "!!! New member has been registrated on the site !!!\n";
print MAIL "\n";
print MAIL "------------------The filled application form--------------\n";
print MAIL "ID: \t\t$id\n";
print MAIL "Family-name: \t$surname\n";
print MAIL "Name: \t\t$name\n";
print MAIL "Birth date: \t$b_day/$b_month/$b_year\n";
print MAIL "Country: \t$contry\n";
print MAIL "City: \t\t$sity\n";
print MAIL "Address: \t$address\n";
print MAIL "Postal Index: \t$pindex\n";
print MAIL "Contact Phone: \t$conTel\n";
print MAIL "E-mail: \t$email\n";
print MAIL "Pager: \t\t$pager\n";
print MAIL "ICQ: \t\t$icq\n";
print MAIL "USERNAME: \t$username\n";
print MAIL "PASSWORD: \t$psw\n";
print MAIL "\n";
print MAIL "-----------------------------------------------------------\n";
print MAIL "Date of registration: $curTime At $c_hour:$c_min
(GMT+11=Moskow)\n";
print MAIL "Foto attachment: $add_foto\n";
close (MAIL);
}
------------------------ cut here ---------------------------------------
ЗЫ: все встречающиеся переменные существуют в программе и являются общими.
--- ifmail v.2.15dev5
* Origin: Tambov State Technical University (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
