Files
webmin/itsecur-firewall/authdownload.cgi
2011-03-25 17:11:27 -07:00

15 lines
296 B
Perl
Executable File

#!/usr/bin/perl
# authdownload.cgi
# Just dump log security file as text
require './itsecur-lib.pl';
&can_use_error("logs");
$log = $config{'authlog'} || &get_authlog_file();
print "Content-type: text/plain\n\n";
open(LOG, $log);
while(<LOG>) {
print $_ if (!&is_log_line($_));
}
close(LOG);