Forum Webscript.Ru

Программирование => Perl => Тема начата: Oleg232 от 15 Июня 2003, 10:11:49

Название: sendmail
Отправлено: Oleg232 от 15 Июня 2003, 10:11:49

Пытаюсь разобраться с cgi. Скажите пожалуйста, такая (см. ниже) штука должна работать?
Я разместил на агаве, вроде выполняется, но письма не приходят. Может у них по умолчанию sendmail заблокирован? А может я что не так делаю? Права доступа поставил 755. Можете посоветовать бесплатный cgi хостинг для отладки скриптов без премодерирования, так же что бы sendmail был?
Олег

#!/usr/local/bin/perl

$subj=\'Subj\';
$mailprog = \'/usr/sbin/sendmail\';

$recipient = \'my@mail.ru\';
print "Content-Type: text/html\\n\\n";

  open (MAIL, "|$mailprog $recipient") || die "Can\'t open $mailprog!\\n";
  print MAIL "To: $recipient\\n";
  print MAIL "From: $recipient\\n";
  print MAIL "Subject: $subj \\n\\n";
  print MAIL "test\\n";
  print MAIL "\\n";
  close (MAIL);

Название: sendmail
Отправлено: Mog. от 15 Июня 2003, 10:44:55

"Штука" работать будет.
Можно даже:
open (MAIL, "|$mailprog -t") || die "Can\'t open $mailprog!\\n";
тогда адрес будет браться из поля "To:" письма.
На агаве (h1 и т.п.) вроде надо просить, что бы включили sendmail. Я вчера на http://www.netfirms.com заимел себе бесплатный хостинг, у них sendmail по умолчанию работает и письма очень шустро ходят. И, что характерно, от начала регистрации до начала работы минут 15 прошло. Подозреваю, что там автомат этим заведует.

Название: sendmail
Отправлено: Oleg232 от 15 Июня 2003, 12:04:41

спасибо за помощь
Олег