Simpel perl code makes kernel panic

[Carl Boberg]

No,
No bugzilla yet since I thought it would be nice to verify the problem
properly first.
I would like to mess around with it a bit more but at the moment I do
not have a test box to do so. The code can be downloaded at:
 http://www.while.homeunix.net/mailstats/Vispan-2.0.2.tar.gz

I will try to find a box and set it up to reproduce the problem as soon
as possible.

Any help is appreciated but there is no rush :-)

At the moment I run the perl script as intended but with the PrintEnd
part commented out.
It runs perfectly without the PrintEnd part...

/ Carl

> -----Original Message-----
> From: redhat-sysadmin-list-bounces at redhat.com 
> [mailto:redhat-sysadmin-list-bounces at redhat.com] On Behalf Of 
> Matthew Galgoci
> Sent: den 31 januari 2005 17:13
> To: redhat-sysadmin-list at redhat.com
> Subject: Re: Simpel perl code makes kernel panic
> 
> > Hi,
> > This is a confusing/weird problem.
> > Following is a simple piece of perl code that causes my 
> system (RHAS 3.0) kernel panic everytime it is run with cron!
> > When I run it manually as root everything runs as it should 
> and no panic....
> > The system is running MailScanner and acts as a mail 
> gateway and this code is part of a stats program called Vispan.
> > Ive told this to the guy developing it but he seems to hav 
> no idea why this happens and may others run it whitout this problem.
> > The system is U4 and has only rpms installed except for 
> these two programs and ClamAV.
> > Just wonderng if anyone on this list is a perlguru and have 
> intimate 
> > knowledge of RH systems and might have a look:-) Here is 
> the code which only task is to print the footer of the html 
> pages for the Vispan stats:
> > 
> > #sub PrintEnd {
> > #   local($handle) = @_;
> > #   my $line;
> > #   my $Footer = Config::Value(Footer);
> > #
> > #   if(open(FOOTER,$Footer)) {
> > #      @footer=<FOOTER>;
> > #      close(FOOTER);
> > #      foreach $line (@footer) {
> > #         print $handle $line;
> > #         }
> > #      }
> > #
> > #   print $handle "<hr/><p>";
> > #
> > #   if( $Footer eq "" ) {
> > #      print $handle <<"(END VAL)";
> > #         <a href="http://validator.w3.org/check?uri=referer"><img
> > #          src="http://www.w3.org/Icons/valid-xhtml10"
> > #          alt="Valid XHTML 1.0!" height="31" width="88" /></a>
> > #(END VAL)
> > #      }
> > #
> > #   print $handle <<"(END HTML)";
> > #Produced by <a class="footer" 
> > href="http://www.while.homeunix.net/mailstats/">
> > #Vispan V$main::VERSION</a> \© 2002-2004</p> #</body> #</html> 
> > #(END HTML) #}
> 
> Yikes! I'm gonna try and reproduce this on one of my test 
> rhel3U4 boxen. Also, have you filed a bugzilla for this panic?
> 
> 
> --
> Matthew Galgoci
> System Administrator
> Red Hat, Inc
> 919.754.3700 x44155
> 
> --
> redhat-sysadmin-list mailing list
> redhat-sysadmin-list at redhat.com
> http://www.redhat.com/mailman/listinfo/redhat-sysadmin-list
>