itsecur-firewall/authdownload.cgi

   1 #!/usr/bin/perl
   2 # authdownload.cgi
   3 # Just dump log security file as text
   4
   5 require './itsecur-lib.pl';
   6 &can_use_error("logs");
   7 $log = $config{'authlog'} || &get_authlog_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