=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== fwsnort-1.6.7/test/test-fwsnort.pl-632- fwsnort-1.6.7/test/test-fwsnort.pl:633: my $rv = &generic_exec($test_hr); fwsnort-1.6.7/test/test-fwsnort.pl-634- ############################################## fwsnort-1.6.7/fwsnort-1300- ### match src/dst IP/network fwsnort-1.6.7/fwsnort:1301: unless (&match_addr($hdr_hr->{'src'}, $rule_hr->{'src'})) { fwsnort-1.6.7/fwsnort-1302- print "[-] Skipping $chain rule $rule_ctr: src $hdr_hr->{'src'} ", ############################################## fwsnort-1.6.7/fwsnort-1305- } fwsnort-1.6.7/fwsnort:1306: unless (&match_addr($hdr_hr->{'dst'}, $rule_hr->{'dst'})) { fwsnort-1.6.7/fwsnort-1307- print "[-] Skipping $chain rule $rule_ctr: dst $hdr_hr->{'dst'} ", ############################################## fwsnort-1.6.7/fwsnort-1409- fwsnort-1.6.7/fwsnort:1410:sub match_addr() { fwsnort-1.6.7/fwsnort-1411- my ($hdr_src, $rule_src) = @_; ############################################## fwsnort-1.6.7/fwsnort-1446- fwsnort-1.6.7/fwsnort:1447: for my $addr (@{&expand_addresses($hdr_src)}) { fwsnort-1.6.7/fwsnort-1448- my $src_ip = ''; ############################################## fwsnort-1.6.7/fwsnort-2714- for my $whitelist_line (@{$config{'WHITELIST'}}) { fwsnort-1.6.7/fwsnort:2715: for my $addr (@{&expand_addresses($whitelist_line)}) { fwsnort-1.6.7/fwsnort-2716- push @whitelist_addrs, $addr; ############################################## fwsnort-1.6.7/fwsnort-2724- fwsnort-1.6.7/fwsnort:2725: for my $addr (@whitelist_addrs) { fwsnort-1.6.7/fwsnort-2726- for my $chain (keys %process_chains) { ############################################## fwsnort-1.6.7/fwsnort-2762- fwsnort-1.6.7/fwsnort:2763: for my $addr (@{&expand_addresses($blacklist_line)}) { fwsnort-1.6.7/fwsnort-2764- push @blacklist_addrs, $addr; ############################################## fwsnort-1.6.7/fwsnort-2774- fwsnort-1.6.7/fwsnort:2775: for my $addr (@blacklist_addrs) { fwsnort-1.6.7/fwsnort-2776- for my $chain (keys %process_chains) { ############################################## fwsnort-1.6.7/fwsnort-4527- my @addrstmp = split /\s*,\s*/, $addr_string; fwsnort-1.6.7/fwsnort:4528: for my $addr (@addrstmp) { fwsnort-1.6.7/fwsnort-4529- if ($addr =~ m|($ip_re/$ip_re)|) { ############################################## fwsnort-1.6.7/packaging/fwsnort-require-makemaker.spec-8-### This may be 'i386-linux', or 'i686-linux-thread-multi', etc. fwsnort-1.6.7/packaging/fwsnort-require-makemaker.spec:9:%define fwsnortmoddir `perl -e '$path=q|i386-linux|; for (@INC) { if($_ =~ m|.*/(.*linux.*)|) {$path = $1; last; }} print $path'` fwsnort-1.6.7/packaging/fwsnort-require-makemaker.spec-10- ############################################## fwsnort-1.6.7/packaging/fwsnort.spec-8-### This may be 'i386-linux', or 'i686-linux-thread-multi', etc. fwsnort-1.6.7/packaging/fwsnort.spec:9:%define fwsnortmoddir `perl -e '$path=q|i386-linux|; for (@INC) { if($_ =~ m|.*/(.*linux.*)|) {$path = $1; last; }} print $path'` fwsnort-1.6.7/packaging/fwsnort.spec-10-