|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 05 Aug 2000 16:32:56
To : All
Subject : Re: Find mistake, plz
--------------------------------------------------------------------------------
On 4 Aug 2000, Andrey Ustinov wrote:
> From: Andrey Ustinov <perl@ustinov.tstu.ru>
> Newsgroups: fido7.ru.cgi.perl
> Subject: Find mistake, plz
> Date: 4 Aug 2000 13:06:07 +0400
> Organization: Tambov State Technical University
>
> Приветствую!
> В результате 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
>
open (MAIL, "|pathToSendMail -t") || open (MAIL,">>mail.msg")
or die "can't open mail.msg: $!";
> 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);
close(MAIL) or die "can't sendm e-mail: $!";
> }
>
> ------------------------ cut here ---------------------------------------
> ЗЫ: все встречающиеся переменные существуют в программе и являются общими.
WBW, Artur
--
Hе даром я ее запомнил, даром не получилось...
--- ifmail v.2.15dev5
* Origin: Gamma NNTP server Moscow Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Find mistake, plz 