perl doesnt print to browser

[richardko]

hi,
this is a simple script which works fine from CLI but when I access in browser(firefox) doesnt print anything to screen. this must be simple to fix..

#!/usr/bin/perl

print "Content-type: text/html\n\n";

open(CHECKBOOK,"/var/log/maillog");

while ($line = <CHECKBOOK>)
{
if($line=~/host name lookup failure/)
{
$line=~/to=<(.*)>,/;
print $1;
print "\n";
}
}
close(CHECKBOOK);

any idea?

 

[KevinADC]

try this:

open(CHECKBOOK,"/var/log/maillog") [b]or die "Can't open /var/log/mailog: $!"[/b];

- Kevin, perl coder unexceptional!

 

[mbrooks]

If you are trying to view the /var/log/maillog file you will experience permission issues.

M. Brooks

http://mbrooks.info

 

[richardko]

Thanks
it was permissions issue. I gave "others" the read option and it worked.