URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 4182
[ Назад ]
Исходное сообщение
"отправка почты из perl скрипта"
Отправлено 999 , 16-Апр-05 02:49 
Пользуясь советом, отправляю почту так.
$cmd_mail="/usr/sbin/sendmail -t";
open (SENDMAIL, "|$cmd_mail") || die "ERROR: Can not run sendmail";
print SENDMAIL "MIME-Version: 1.0\n";
print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";
print SENDMAIL "Content-Transfer-Encoding: 8bit\n";
print SENDMAIL "To: $to_email\n";
print SENDMAIL "From: Nobody <nobody\@$localhost>\n";
print SENDMAIL "Subject: $subject\n\n";
print SENDMAIL $message . "\n";
close (SENDMAIL);
Но в ответ вижу
can not chdir(/var/spool/clientmqueue/): Permission denied
какие пермишены должны быть???
Содержание
Сообщения в этом обсуждении
"отправка почты из perl скрипта"
Отправлено mthawk , 16-Апр-05 11:05 
Посмотри возможности модуля MIME::Lite.
Пользуюсь только им, и очень доволен.
"отправка почты из perl скрипта"
Отправлено 999 , 18-Апр-05 10:52 
>Посмотри возможности модуля MIME::Lite.
>Пользуюсь только им, и очень доволен.
Так он вроде тотже sendmail использует...
"отправка почты из perl скрипта"
Отправлено reyman , 21-Апр-05 09:04 
use Net::SMTP;
open(ML, "e:\\sev_sys_conf\\mail.log");
@all=<ML>;
#============================================================================================
$smtp = Net::SMTP->new('oberon.com');      
  
$smtp->mail('andrey@babilon');          
$smtp->to('andrey@babilon');                      
$smtp->to('sharov@babilon');

#$smtp->datasend('Content-Type: text/html; charset=koi8-r');

  
$smtp->data();                                    
$smtp->datasend("To: andrey\n");                    
$smtp->datasend('Content-Type: text/html; charset=windows-1251');
$smtp->datasend("\n");                          

for($i=0;$i<@all;$i++){
$smtp->datasend("<br><b>$i</b>  <font color='green'>$all[$i]</font>");                 # TЧЧЯ∙УЩЬУ
}
#------------------------------------
$smtp->dataend();                                   ТПЩv©
  
$smtp->quit;                      


"отправка почты из perl скрипта"
Отправлено mthawk , 23-Апр-05 23:23 
>>Посмотри возможности модуля MIME::Lite.
>>Пользуюсь только им, и очень доволен.
>Так он вроде тотже sendmail использует...

Да, но еще может и сторонний SMTP сервер использовать.
Зато очень просто композить сообщения... plain/html, с аттачами и все такое.

"отправка почты из perl скрипта"
Отправлено Azazelo , 30-Апр-05 18:53 
>Пользуясь советом, отправляю почту так.
>$cmd_mail="/usr/sbin/sendmail -t";
>open (SENDMAIL, "|$cmd_mail") || die "ERROR: Can not run sendmail";
>print SENDMAIL "MIME-Version: 1.0\n";
>print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";
>print SENDMAIL "Content-Transfer-Encoding: 8bit\n";
>print SENDMAIL "To: $to_email\n";
>print SENDMAIL "From: Nobody <nobody\@$localhost>\n";
>print SENDMAIL "Subject: $subject\n\n";
>print SENDMAIL $message . "\n";
>close (SENDMAIL);
>Но в ответ вижу
>can not chdir(/var/spool/clientmqueue/): Permission denied
>какие пермишены должны быть???
почитай
http://linuxportal.ru/print.php/86_0_3_0_M/
может что полезное найдешь ...

>какие пермишены должны быть???

%uname -sr
FreeBSD 4.10-RELEASE
drwxrwx---  2 smmsp  smmsp   24576 Apr 30 04:20 clientmqueue


"отправка почты из perl скрипта"
Отправлено swan , 13-Мрт-08 14:29 
это ошибка компиляции sendmail обратитесь к своему хостингеру