Select Code to Download

1;30Nov2001;17:08:25;192.148.14.2;log;accept;;hme0;outbound;udp;192.14
+8.84.4;24.248.34.99;domain-udp;1103;43;85;;;;;;;;;;;;;;;
2;30Nov2001;17:08:25;192.148.14.2;log;drop;;hme0;inbound;tcp;43.228.94
+.254;192.148.11.47;netbios-ssn;18803;48;89;;;;;;;;;;;;;;;
...
10;30Nov2001;17:08:26;192.148.14.2;log;accept;;hme0;outbound;tcp;192.1
+48.27.154;205.188.145.185;http;4394;44;85;;;;;;;;;;;;;;;
11;30Nov2001;17:08:26;192.148.14.2;log;accept;;qfe2;inbound;tcp;192.14
+8.27.154;205.188.145.185;http;4397;44;85;;;;;;;;;;;;;;;
12;30Nov2001;17:08:26;192.148.14.2;log;accept;;hme0;outbound;tcp;192.1
+48.27.154;205.188.145.185;http;4397;44;85;;;;;;;;;;;;;;;

#!/usr/bin/perl -w 
use strict;
...
foreach my $key1 (keys %count){ 
 print "There are at least 5 occurences of $key1 and $ip.\n" if ($coun
+t{$key1} >= 5 && $count1 >= 5);
}

Use of uninitialized value in pattern match (m//) at ./misconfig.pl li
+ne 13, <LOG> line 36.
Use of uninitialized value in hash element at ./misconfig.pl line 17, 
+<LOG> line 36.
There are at least 5 occurences of http and 24.248.36.97.