#!/usr/bin/perl # Show last few log entries, nicely parsed, with search form require './itsecur-lib.pl'; &can_use_error("report"); use POSIX; &ReadParse(); print "Refresh: $config{'refresh'}\r\n" if ($config{'refresh'}); &header($text{'report_title'}, ""); print "
$text{'report_action'} | ", "$text{'report_rule2'} | ", "$text{'report_date'} | ", "$text{'report_time'} | ", "$text{'report_src'} | ", "$text{'report_dst'} | ", "$text{'report_dst_iface'} | ", "$text{'report_proto'} | ", "$text{'report_src_port'} | ", "$text{'report_dst_port'} | ", "
",$text{'rule_'.$l->{'action'}}," | \n"; print "",$l->{'rule'} || " "," | \n";
local @tm = localtime($l->{'time'});
print "",strftime("%d/%m/%Y", @tm)," | \n"; print "",strftime("%H:%M:%S", @tm)," | \n"; print "",$l->{'src'}," | \n"; print "",$l->{'dst'}," | \n"; print "",$l->{'dst_iface'} || " "," | \n";
print "",$l->{'proto'} || " "," | \n";
print "",$l->{'src_port'} || " "," | \n";
print "",$l->{'dst_port'} || " "," | \n";
print "
\n"; } else { print "$text{'report_none2'}
\n"; } print "