Re: Perl: problem

Autor: Gregory BRZESKI (gregory_at_webcorp.co.uk)
Data: Thu 14 Nov 1996 - 04:42:46 MET


Jaroslaw Rafa wrote:
>
> Mam skrypt w Perlu (nie moj niestety), w ktorym jest taki kawalek:
>
> `/usr/lib/sendmail $mailreceiver < $filename`;
> $mailstatus = $?;
> if ($mailstatus) { &try_othermailers; }

hmm... ja bym to napisal nastepujaco:

------------<mail.pl>--------------------

open(MAIL, "|/usr/bin/sendmail -t");

print "To: $mailreceiver\n";
print "Subject: $subject\n\n";

open (FILE, $filename);
        while(<FILE>) { print MAIL; }
close FILE;

close MAIL;
------------------------------------------

Zakladam ze $filename to sam text a nie plik binarny jesli plik binarny
to wpierw nalezy go przepuscic przez 'uuencode'.

Z pozdrowieniami,

Grzegorz BRZESKI

-- 
++++++++++++>>> WEB Corporation <<<============
Gregory BRZESKI           gregory_at_webcorp.co.uk
	
           http://www.webcorp.co.uk/
=============Your Internet Partner+++++++++++++


To archiwum zostało wygenerowane przez hypermail 2.1.7 : Wed 19 May 2004 - 16:00:53 MET DST