#!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); use CGI; my $query = new CGI; # write the log BEGIN { use CGI::Carp qw(carpout); my $errorlog = "/var/tmp/errorlog.txt"; open(LOG, ">$errorlog") or die("Unable to open $errorlog: $!\n"); print LOG "Errors:\n"; carpout(*LOG); } print $query->header; print "\n"; print "
\n"; print "##
# perl ntop4.cgi
Content-Type: text/html; charset=ISO-8859-1
ntop startup script
Software error:
cannot stop ntop: No such file or directory at ntop4.cgi line 32.
For help, please send mail to this site's webmaster, giving this error message
and the time and date of the error.