Lines Matching refs:filename
41 ($proto, $identifier, $filename) = m/(\S+)\s+(\S+)\s+(\S+)/;
43 if ($proto =~ m/^icmp$/) { $icmp{$identifier} = $filename; last SWITCH; };
44 if ($proto =~ m/^udp$/) { $udp{$identifier} = $filename; last SWITCH; };
45 if ($proto =~ m/^tcp$/) { $tcp{$identifier} = $filename; last SWITCH; };
50 $filename = shift;
51 unless (defined($filename)) { die "Usage: logfilter.pl <log file>\n"; }
52 open(LOGFILE, $filename) || die "Could not open the firewall log file.\n";
53 $openfiles{$filename} = "LOGFILE";
76 $filename = $TIDBITSFILE;
77 $filename = $icmp{$icmptype} if (defined($icmp{$icmptype}));
95 $filename = $TIDBITSFILE;
96 $filename = $tcp{$sport} if (defined($tcp{$sport}));
97 $filename = $tcp{$dport} if (defined($tcp{$dport}));
110 $filename = $TIDBITSFILE;
111 $filename = $udp{$sport} if (defined($udp{$sport}));
112 $filename = $udp{$dport} if (defined($udp{$dport}));
120 $filename = $TIDBITSFILE;
126 # check for filename in the openfiles hash. if it exists then write
130 if (defined($openfiles{$filename})) {
131 $handle = $openfiles{$filename};
134 open ($handle, ">>".$filename) || die "Couldn't open|create the file $filename";
135 $openfiles{$filename} = $handle;