|Welcome to the Monastery|
Problems with Sys::Syslog and taintby Anonymous Monk
|on May 15, 2000 at 23:55 UTC||Need Help??|
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Hi, I'm using Sys::Syslog for program logging and I have just started using the taint flag (we are trying to tighten up our code). With this combination Syslog will not work. I'm thinking that it's a perl bug, but I wanted to check before I sent off a bug report. I'm also wondering if there is a way around the problem.
The following is the more detailed info:
I'm running perl 5.00503
This is my test script:
#!/usr/bin/perl -wT use Sys::Syslog; $SCRIPT_ID = "testMod.cgi(000)"; print "Content-Type: text/html\n\n"; &openlog($ProcName,"pid,cons,nowait", "local0"); &syslog('local3.info', "$SCRIPT_ID-1 Execution begun."); &closelog(); print "HELLO";When I run this script I get the 'document contained no data error' and the following message in the error log: 'Cannot get host name of local machine at /usr/lib/perl5/5.00503/Sys/Syslog.pm line 248' I tracked this down and found that the error is actually being generated from Sys::Hostname. Everything works fine if I remove the -T flag.
Thanks in advance,