itsecur-firewall/download.cgi

   1 #!/usr/bin/perl
   2 # download.cgi
   3 # Just dump log file as text
   4
   5 require './itsecur-lib.pl';
   6 &can_use_error("logs");
   7 $log = $config{'log'} || &get_log_file();
   8 print "Content-type: text/plain\n\n";
   9 open(LOG, $log);
  10 while(<LOG>) {
  11         print $_ if (&is_log_line($_));
  12         }
  13 close(LOG);
  14