perlquestion
Anonymous Monk
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.
<BR><BR>The following is the more detailed info:
<BR>I'm running perl 5.00503
<BR><BR>
This is my test script:
<PRE>
#!/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";
</PRE>
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.
<BR><BR>Thanks in advance,
<BR>Shane Corgatelli
<BR><A HREF="mailto:shane@icserv.net">shane@icserv.net</A>
1