Re: tlug: When Perl can't open it can it mail it?

[Scott Stone <sstone@example.com>]

On Fri, 2 Oct 1998, Takeshi Hakamada wrote:

> Yes, you can send mail with Perl script.
> If you want to use sendmail, you need to write some required headers
> like this:
> 
>     open(MAIL,"|/usr/lib/sendmail -t") ||
>         die("Can't open /usr/lib/sendmail");    
>     print MAIL "To: someone\@example.com";
>     print MAIL "From: me\@example.com";
>     print MAIL "Subject: testing testing...\n";
>     print MAIL "\n";
>     print MAIL "$message\n";
>     close(MAIL);
> 
> Or, you can use mail command like this:
> 
>     open(MAIL, "|mail $mailto") || die("Can't open mail");
>     print MAIL "$message\n";
>     close(MAIL);
> 
> Hope it helps.
> 
> Takeshi

keep in mind, however, that usually the sendmail binary isn't in /usr/lib
:) ... at least, it shouldn't be.  Also, if you want to use 'mail' and
include a subjct, try:

open(MAIL, "|mail -s "hello" $mailto") |die("Can't open mail");

> 
> From: Darren Cook <darren@example.com>
> Message-ID: <3.0.6.32.19981002120401.009b2350@example.com>
> > Is it possible to have it write the information to an email when it can't
> > open the file? Eg. something like this:
> > 
> > -----------
> > unless (open(FOUT,">>$file")) {
> > 	open(FOUT,"|sendmail darren");
> > 	print FOUT "Subject: Perl script couldn't open $file \n\n";
> > 	#Fall through
> > 	}
> > #Write here
> > close(FOUT);
> > -----------
> > 
> > Are there any security issues I need to be aware of here?
> > 
> > Darren
> > 
> > ---------------------------------------------------------------
> > Next Meeting: 10 October, 12:30 Tokyo Station Yaesu central gate
> > Featuring the IMASY Eng. Team on "IPv6 - The Next Generation IP"
> > Next Nomikai: 20 November, 19:30  Tengu TokyoEkiMae 03-3275-3691
> > ---------------------------------------------------------------
> > Sponsor: PHT, makers of TurboLinux http://www.pht.co.jp
> ---------------------------------------------------------------
> Next Meeting: 10 October, 12:30 Tokyo Station Yaesu central gate
> Featuring the IMASY Eng. Team on "IPv6 - The Next Generation IP"
> Next Nomikai: 20 November, 19:30  Tengu TokyoEkiMae 03-3275-3691
> ---------------------------------------------------------------
> Sponsor: PHT, makers of TurboLinux http://www.pht.co.jp
> 

--------------------------------------------------
Scott M. Stone <sstone@example.com, sstone@example.com>
               <sstone@example.com>
Head of TurboLinux Development/Systems Administrator
Pacific HiTech, Inc (USA) / Pacific HiTech, KK (Japan)
http://www.pht.com		http://armadillo.pht.co.jp
http://www.pht.co.jp	        http://www.turbolinux.com


---------------------------------------------------------------
Next Meeting: 10 October, 12:30 Tokyo Station Yaesu central gate
Featuring the IMASY Eng. Team on "IPv6 - The Next Generation IP"
Next Nomikai: 20 November, 19:30  Tengu TokyoEkiMae 03-3275-3691
---------------------------------------------------------------
Sponsor: PHT, makers of TurboLinux http://www.pht.co.jp