[syslog-ng]program() destination

[Maciek Pasternacki]

--11Y7aswkeuHtSBEs
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

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 ma=
ybe
it is my mistake?

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

open FOO, ">/tmp/loglog.log";
while ( <STDIN> ) {
	print FOO $_;
}
close FOO;

>przemol
		--Maciek

--=20
__ Maciek Pasternacki <maciekp@japhy.fnord.org> [ http://japhy.fnord.org/ ]
`| _   |_\  / *CENSORED* ( full version at http://japhy.fnord.org/sig.txt )
,|{-}|}| }\/ =20
\/   |____/  =20

--11Y7aswkeuHtSBEs
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.4 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE6nk7fLgOvtpksmBURAm4xAKCJcb6aWFoC6qbSPQSji2XuOem8sQCeO78u
XX0My3x/5BBiNpvF86geVlo=
=3glr
-----END PGP SIGNATURE-----

--11Y7aswkeuHtSBEs--