Проблема со скриптом sendmail

[alexander70]

Буду благодарен, пришли, если не трудно на
july71@mail.ru
Ты не знаешь случайно ещё бесплатный хостинг с поддержкой perl, кроме netfirms.com ?

[Yaroslav]

alexander70:
загружается форма из 2-х граф: Имя и е-майл, нужно бы ещё поле "Сообщение" и «Город». При нажатии на "Отправить» Загружается слово Test – ok, хотя я не вписал туда ни e-mail, ни имени.

ну ты блин и даешь, тут же уже разобратся с моим скриптом - проще некуда

[alexander70]

Так у меня цель - не подколоть тебя со скриптом, а нормальный рабочий скрипт sendmail, который нужен позарез! Если можешь помочь - буду признателен.

[Yaroslav]

короче напиши какие тебе поля надо и какие из них проверять на наличие

[alexander70]

Мне нужны поля: Имя, Город, E-mail, Сообщение .
Нужно чтобы была проверка обязательности заполнения всех полей и проверка правильности написания e-mail

[Yaroslav]

будет тебе скрипт к 11-12 вечера (а то я тут блин как дед мород сижу весь в пене для бритья уже) типа в гости..))))
если к той поре скрипт не нужен будет - сообщи

[Yaroslav]

получай -
#!/usr/bin/perl
##################### Менять можно только тут ########################
$mailprog = "/usr/sbin/sendmail -t";       #Правильный путь
$mail = \'твое мыло\';          #Твое мыло
########################## Тут уже нельзя ############################
$cgiurl = "http://$ENV{\'SERVER_NAME\'}$ENV{\'SCRIPT_NAME\'}";

if ($ENV{\'QUERY_STRING\'}) {$namevalues = $ENV{\'QUERY_STRING\'};}
else {read(STDIN, $namevalues, $ENV{\'CONTENT_LENGTH\'});}
@pairs = split(/&/, $namevalues);
   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///g;
        $value =~ s/<([^>]|\\n)*>//g;
   $INPUT{$name} = $value;}

if ($INPUT{\'send\'}) { &checkform; &mail; }
else { &form; exit; }

sub form {
print "Content-type: text/html\\n\\n";
print ("\\n");
print "

Имя	\\n"; print "
Город	\\n"; print "
E-Mail	\\n"; print "
Сообщение: \\n"; print "   \\n"; print "