|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Daniil Uspensky 2:5030/1551.7 25 Feb 2003 23:55:00
To : All
Subject : Вопросы чайника
--------------------------------------------------------------------------------
Свою первую программу на Перле я написал только вчера, так что не пинайте сильно
по почкам :-)
Есть два простых скрипта. Оба они запускаются на сервере.
Вопрос первый. После их запуска в логе вижу следующее:
=== Begin of "error.log" ===
[Tue Feb 25 00:34:31 2003] [error] [client 195.177.120.98] Premature end of
script headers: /home/spbpo/public_html/cgi-bin/db.cgi
[Tue Feb 25 00:37:38 2003] [error] [client 195.177.120.98] Premature end of
script headers: /home/spbpo/public_html/cgi-bin/mail.cgi
=== End of "error.log" ===
Вопрос второй. Скрипт mail.cgi должен отправлять почту по SMTP, но когда его
запускаю, сервер говорит "500 Internal server error". Письмо же на самом деле
отправляется. Сам скрипт я нашел в SMTP.pm.
Вот сами скрипты:
=== Begin of "db.cgi" ===
#!/usr/bin/perl -w -I/home/spbpo/perl_lib
use XBase;
my $table = new XBase "../BUKINIST.DBF" or die XBase->errstr;
print "Content-type:text/html\n\n";
print "<HTML><HEAD><TITLE>Test</TITLE></HEAD>\n<BODY>\n<TABLE>\n";
for (0 .. $table->last_record) {
my ($deleted, $autor, $name, $publish, $pages, $price) =
$table->get_record($_, "AUTOR", "NAME", "PUBLISH", "PAGES", "PRICE");
print
"<TR>\n<TD>$autor</TD><TD>$name</TD><TD>$publish</TD><TD>$pages</TD><TD>$price<
/TD>\n</TR>\n";
}
print "</TABLE></BODY></HTML>\n";
$table->close;
=== End of "db.cgi" ===
=== Begin of "mail.cgi" ===
#!/usr/bin/perl -w
use Net::SMTP;
$smtp = Net::SMTP->new('mailhost');
$smtp->mail('udaniil@yandex.ru');
$smtp->to('udaniil@mail.ru');
$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;
=== End of "mail.cgi" ===
Хотелось бы избавиться от ошибок в логах и найти ошибку в mail.cgi.
Daniil
--- GoldED+ 1.1.4.7 (Linux 2.4.20 i486) [Windows Registered User #9267340986]
* Origin: Powered by Linux (2:5030/1551.7)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
