А просто выложить сюда исходники через copy/paste? Качать как правило ломает, еще и rar-ом упакованный 
Вот так надо задавать вопрос (это твой код):| Код |
#!/usr/bin/perl
&get_form_data();
&send_email;
&print_thankyou_page;
sub get_form_data
{
read(STDIN, $buffer, $ENV{ 'CONTENT_LENGHT' });
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9]{a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$FORM{$name} = $value;
}
}
sub send_email
{
$to = "user\@host.com";
open(MAIL, "|/usr/sbin/sendmail -t $to") || die ("can't open sendmail");
print MAIL "From: $FORM{'email'}\n";
print MAIL "To: $to\n";
print MAIL "Subject: Form submission\n\n";
print MAIL "Name: $FORM{'name'}\n";
print MAIL "Comany: $FORM{'company'}\n";
print MAIL "Addres: $FORM{'address1'}\n";
print MAIL "City: $FORM{'city'}\n";
print MAIL "State: $FORM{'state'}\n";
print MAIL "Country: $FORM{'country'}\n";
print MAIL "Telephone: $FORM{'telephone'}\n";
print MAIL "Fax: $FORM{'fax'}\n";
print MAIL "E-mail: $FORM{'email'}\n";
print MAIL "Services interested in: $FORM{'service'}\n";
print MAIL "Notified when pages updated: $FORM{'notify'}\n";
print MAIL "Comments: $FORM{'comments'}\n";
close(MAIL);
}
sub print_thankyou_page {
print "Content-type: text/html\n\n";
print "<html>\n<head>\n<body bgcolor=\"#ffffff\">\n</head>";
print "<h3>Thank you</h3>\n\n";
print "<p>\n";
print "Thank you for your submission\n";
print "<p>\n";
print "<a href=\"some_page.html\">Return</a> to the home page\n";
}
print "</body\n</html>\n";
|
Теперь можно посмотреть что к чему
Во первых, всем, а особенно начинающим, рекомендуется в начале кода (срауз под #!/usr/bin/perl) включать| Код |
use strict;
use warnings;
|
Это тебе поможет сразу увидеть все грубые ошибки. Грубая ошибка у тебя в том, что не заданы области видимости переменных. Получается что первая подрограмма заполняет хэш %FORM, но send_email о нем понятия не имеет. Значит вначале нужно указать что хэш %FORM должен быть виден из всех подпрограмм, либо передать send_email ссылку на этот хэш. Но и в этом случае переменные нужно обьявлять.
| Код |
#!/usr/bin/perl
use strict;
use warnings;
my %FORM;
get_form_data();
send_email();
print_thankyou_page();
sub get_form_data {
my ($buffer, @pairs);
read(STDIN, $buffer, $ENV{ 'CONTENT_LENGTH' }); # LENGTH!!!
@pairs = split(/&/, $buffer);
for my $pair (@pairs) {
my ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9]{a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$FORM{$name} = $value;
}
}
sub send_email {
my $to = "user\@host.com";
open(MAIL, "|/usr/sbin/sendmail -t $to") || die ("can't open sendmail");
print MAIL "From: $FORM{'email'}\n";
print MAIL "To: $to\n";
print MAIL "Subject: Form submission\n\n";
print MAIL "Name: $FORM{'name'}\n";
print MAIL "Comany: $FORM{'company'}\n";
print MAIL "Addres: $FORM{'address1'}\n";
print MAIL "City: $FORM{'city'}\n";
print MAIL "State: $FORM{'state'}\n";
print MAIL "Country: $FORM{'country'}\n";
print MAIL "Telephone: $FORM{'telephone'}\n";
print MAIL "Fax: $FORM{'fax'}\n";
print MAIL "E-mail: $FORM{'email'}\n";
print MAIL "Services interested in: $FORM{'service'}\n";
print MAIL "Notified when pages updated: $FORM{'notify'}\n";
print MAIL "Comments: $FORM{'comments'}\n";
close(MAIL);
}
sub print_thankyou_page {
print "Content-type: text/html\n\n";
print "<html>\n<head>\n<body bgcolor=\"#ffffff\">\n</head>";
print "<h3>Thank you</h3>\n\n";
print "<p>\n";
print "Thank you for your submission\n";
print "<p>\n";
print "<a href=\"some_page.html\">Return</a> to the home page\n";
print "</body\n</html>\n";
} |
И еще, для обучения и опытов может и стоит самому принимать и обрабатывать параметры переданные скрипту, но правильнее и безопаснее использовать модуль CGI| Код |
use CGI;
print header();
|
Ну и в твоем html файле нужно поправить methoh на method
| Код |
<form action="email.cgi" method="post">
|
Если не секрет, по какой книжке ты учишь perl? Почитай на форуме о рекомендуемой литературе и пользуйся ей. Так ты сэкономишь себе кучу времени и нервов, а кроме того научишься писать правильный и красивый код.
|
