ДНЕВНИКИ
Назад >>
Сергей ШИБКА
>>
Perl
24.04.2014 Perl-овые заметки
Отправка почты используя локальный сервис системы sendmail:
#!/usr/bin/perl
##############################################################
open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
print SENDMAIL "From: User Test \n";
print SENDMAIL "To: User Pets \n";
print SENDMAIL "Reply-To: User Hets \n";
print SENDMAIL "Subject: Test message from Admin\n\n";
print SENDMAIL "Hi. Good Test";
close (SENDMAIL) or warn "sendmail didn't close nicely";
##############################################################
• комментарии (0)
[ Назад ]
|
