Привет!
У меня возникла следующая проблема: мне нужно отослать содержание формы на любой адрес, для этого я использовала CGI-Script, пример которого находится на странице:
http://selfaktuell.teamone.de/artikel/cgiperl/form-mail/index.htm:#!С:/Perl/bin/perl
# -------> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "С:/Perl/lib/sendmail";
use CGI;
$query = new CGI;
@names = $query->param;
# -------> считать текст с hidden-полей:
$delimiter = $query->param(\'delimiter\');
$mailto = $query->param(\'mailto\'); # ---> Получатель
$returnhtml = $query->param(\'return\'); # ---> URL für Dankeseite
$subject = $query->param(\'subject\'); # ---> E-Mail-Subject
# -------> Считать текст из формы:
$mailtext = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
if($name ne "mailto" && $name ne "return" && $name ne "subject" && $name ne "delimiter") {
foreach $value (@values) {
$mailtext = $mailtext.$name;
$mailtext = $mailtext.$delimiter;
$mailtext = $mailtext.$value."\\n";
}
}
}
# -------> E-Mail послать:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Ошибка в sendmail\\n";
print MAIL "To: $mailto\\n";
print MAIL "Subject: $subject\\n\\n";
print MAIL "$mailtext\\n";
close(MAIL);
print "Location: $returnhtml\\n\\n";
Программа обрабатывает мою форму и потом открывает RETURN-страничку с сообщением, что сообщение успешно отправлено, но я ничего потом не получаю.
У меня Windows 98 и я ввожу вместо $Sendmail_Prog = "/usr/lib/sendmail"; полный путь "С:/Perl/lib/sendmail"
Может в этом моя ошибка?