Re: [syslog-ng]program() destination

1 Mar 2001


      Przemyslaw Bak pressed following keys:
...
/etc>cat /usr/local/sbin/syslog-ng.sh
while read DATA
do
 echo $DATA | /usr/ucb/mail -s ">>>> charlie: $DATA <<<<" root
done
/etc>
It worked basically.
Hm.  For me it also works.  So why equivalent script in Perl doesn't? Or maybe
it is my mistake?

:r .bin/loglogs.pl
#!/usr/bin/perl

open FOO, ">/tmp/loglog.log";
while ( <STDIN> ) {
	print FOO $_;
}
close FOO;
...
przemol
       --Maciek
-- 
__ Maciek Pasternacki <maciekp@japhy.fnord.org> [ http://japhy.fnord.org/ ]
`| _   |_\  / *CENSORED* ( full version at http://japhy.fnord.org/sig.txt )
,|{-}|}| }\/  
\/   |____/