===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
shorewall-5.2.3.4/configure.pl-181-if ( $ENV{SOURCE_DATE_EPOCH} ) {
shorewall-5.2.3.4/configure.pl:182: printf $outfile "#\n# Created by Shorewall Core version %s configure.pl - %s\n", VERSION, `date --utc --date=\"\@$ENV{SOURCE_DATE_EPOCH}\"`;
shorewall-5.2.3.4/configure.pl-183-} else {
##############################################
shorewall-5.2.3.4/configure-197-echo '#' > shorewallrc
shorewall-5.2.3.4/configure:198:echo "# Created by Shorewall Core version $VERSION configure - " `date --utc --date="@${SOURCE_DATE_EPOCH:-$(date +%s)}"` >> shorewallrc
shorewall-5.2.3.4/configure-199-echo "# rc file: $rcfile" >> shorewallrc
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Zones.pm-1103-sub is_a_bridge( $ ) {
shorewall-5.2.3.4/Perl/Shorewall/Zones.pm:1104: which 'brctl' && system( "brctl show < /dev/null | tail -n+2 | grep -q '^$_[0]\[\[:space:\]\]' > /dev/null" ) == 0;
shorewall-5.2.3.4/Perl/Shorewall/Zones.pm-1105-}
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-178-
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:179:sub decodeaddr( $ ) {
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-180- my $address = $_[0];
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-192-
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:193:sub encodeaddr( $ ) {
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-194- my $addr = $_[0];
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-236- assert( ! $allow_name );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:237: ( decodeaddr( $net ) , $vlsm );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-238- } elsif ( valid_4address $net ) {
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-289- while ( ++$first <= $last ) {
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:290: push @result, encodeaddr( $first );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-291- }
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-300- ( $net, my $vlsm ) = validate_net( $net , 0 );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:301: ( ( $family == F_IPV4 ? encodeaddr( $net) : normalize_6addr( $net ) ) , $vlsm );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-302-
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-322- #
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:323: my @addr = split( ':', normalize_6addr( $net ) );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-324- #
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-593-#
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:594:sub normalize_6addr( $ ) {
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-595- my $addr = shift;
##############################################
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-637-
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:638: my @low = split ":", normalize_6addr( $low );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm:639: my @high = split ":", normalize_6addr( $high );
shorewall-5.2.3.4/Perl/Shorewall/IPAddrs.pm-640-
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-2008-sub generate_sha1() {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:2009: my $data = `cat $tempfile`;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-2010- sha1_hex $data;
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4477- if ( $moduleloader =~ /modprobe$/ ) {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4478: system( "modprobe -q $module $arguments" );
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4479- $loadedmodules{ $module } = 1;
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4482- for my $modulefile ( <$directory/$module.*> ) {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4483: system ("insmod $modulefile $arguments" );
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4484- $loadedmodules{ $module } = 1;
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4588- if ( qt1( "$iptables $iptablesw -t mangle -L -n" ) ) {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4589: system( "$iptables $iptablesw -t mangle -N $sillyname" ) == 0 || fatal_error "Cannot Create Mangle chain $sillyname";
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4590- }
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4981-sub Flow_Filter() {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4982: $tc && system( "$tc filter add flow help 2>&1 | grep -q ^Usage" ) == 0;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4983-}
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4985-sub Basic_Filter() {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4986: $tc && system( "$tc filter add basic help 2>&1 | grep -q ^Usage" ) == 0;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4987-}
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4989-sub Basic_Ematch() {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4990: $tc && have_capability( 'BASIC_FILTER' ) && system( "$tc filter add basic help 2>&1 | egrep -q match" ) == 0;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4991-}
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4993-sub Fwmark_Rt_Mask() {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:4994: $ip && system( "$ip rule add help 2>&1 | grep -q /MASK" ) == 0;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-4995-}
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-5100-sub Restore_Wait_Option() {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:5101: length( `${iptables}-restore --wait < /dev/null 2>&1` ) == 0;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-5102-}
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-5577-
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:5578: if ( system( "diff -q $configfile $configfile.bak > /dev/null" ) ) {
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-5579- progress_message3 "Configuration file $configfile updated - old file renamed $configfile.bak";
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-5801- #
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:5802: my @params = `$command`;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-5803-
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-7100-
shorewall-5.2.3.4/Perl/Shorewall/Config.pm:7101: my $command = qq(package Shorewall::User;\n# line 1 "$file"\n) . `cat $file`;
shorewall-5.2.3.4/Perl/Shorewall/Config.pm-7102-
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Chains.pm-6273-
shorewall-5.2.3.4/Perl/Shorewall/Chains.pm:6274: my @codes = `ls $isodir/*$family 2>/dev/null`;
shorewall-5.2.3.4/Perl/Shorewall/Chains.pm-6275-
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Providers.pm-1812- } else {
shorewall-5.2.3.4/Perl/Shorewall/Providers.pm:1813: emit ( " if [ -z \"`\$IP -$family route ls table $providerref->{number}`\" ]; then",
shorewall-5.2.3.4/Perl/Shorewall/Providers.pm-1814- " start_provider_$provider" );
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Providers.pm-1861- } else {
shorewall-5.2.3.4/Perl/Shorewall/Providers.pm:1862: emit( " if [ -n \"`\$IP -$family route ls table $providerref->{number}`\" ]; then" );
shorewall-5.2.3.4/Perl/Shorewall/Providers.pm-1863- }
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Rules.pm-5697-
shorewall-5.2.3.4/Perl/Shorewall/Rules.pm:5698: for my $addr ( @addrs ) {
shorewall-5.2.3.4/Perl/Shorewall/Rules.pm-5699- if ( $addr =~ /^([&%])(.+)$/ ) {
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Rules.pm-5910- next if $addrs eq 'detect';
shorewall-5.2.3.4/Perl/Shorewall/Rules.pm:5911: for my $addr ( ip_range_explicit $addrs ) {
shorewall-5.2.3.4/Perl/Shorewall/Rules.pm-5912- unless ( $addresses_to_add{$addr} ) {
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Nat.pm-236-
shorewall-5.2.3.4/Perl/Shorewall/Nat.pm:237: for my $addr ( @addrs ) {
shorewall-5.2.3.4/Perl/Shorewall/Nat.pm-238- if ( $addr =~ /^([&%])(.+)$/ ) {
##############################################
shorewall-5.2.3.4/Perl/Shorewall/Nat.pm-385- next if $addrs eq 'detect';
shorewall-5.2.3.4/Perl/Shorewall/Nat.pm:386: for my $addr ( ip_range_explicit $addrs ) {
shorewall-5.2.3.4/Perl/Shorewall/Nat.pm-387- unless ( $addresses_to_add{$addr} ) {
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-178-{
shorewall-5.2.3.4/Perl/lib.runtime:179: echo $(find_gateway `$IP -$g_family route list | grep "[[:space:]]nexthop.* $1"`)
shorewall-5.2.3.4/Perl/lib.runtime-180-}
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-793-#
shorewall-5.2.3.4/Perl/lib.runtime:794:del_ip_addr() # $1 = address, $2 = interface
shorewall-5.2.3.4/Perl/lib.runtime-795-{
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-973-
shorewall-5.2.3.4/Perl/lib.runtime:974: route=`$IP -4 -o route ls table $2 | grep ^default | sed 's/default //; s/linkdown//g; s/[\]//g'`
shorewall-5.2.3.4/Perl/lib.runtime-975-
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-982- if echo $route | grep -qF via; then
shorewall-5.2.3.4/Perl/lib.runtime:983: route=`echo $route | sed 's/via/nexthop via/'`
shorewall-5.2.3.4/Perl/lib.runtime-984- else
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-989- if [ -f ${VARDIR}/${dev}_weight ]; then
shorewall-5.2.3.4/Perl/lib.runtime:990: weight=`cat ${VARDIR}/${dev}_weight`
shorewall-5.2.3.4/Perl/lib.runtime-991- route="$route weight $weight"
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-1007-
shorewall-5.2.3.4/Perl/lib.runtime:1008: route=`$IP -4 -o route ls table $2 | grep ^default | sed 's/linkdown//g; s/[\]//g'`
shorewall-5.2.3.4/Perl/lib.runtime-1009- gateway=$1
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-1019- if eval echo $route \| fgrep -q \'$gateway\'; then
shorewall-5.2.3.4/Perl/lib.runtime:1020: eval route=\`echo $route \| sed \'s/$gateway/ /\'\`
shorewall-5.2.3.4/Perl/lib.runtime-1021- run_ip route replace table $2 $route
##############################################
shorewall-5.2.3.4/Perl/lib.runtime-1351-
shorewall-5.2.3.4/Perl/lib.runtime:1352: route=`$IP -6 -o route ls table $2 | grep ^default | sed 's/[\]//g'`
shorewall-5.2.3.4/Perl/lib.runtime-1353- gateway=$1
##############################################
shorewall-5.2.3.4/Contrib/tunnel-85-
shorewall-5.2.3.4/Contrib/tunnel:86: if [ -n "`ip link show $tunnel 2>/dev/null`" ]; then
shorewall-5.2.3.4/Contrib/tunnel-87- echo "Stopping $tunnel"
##############################################
shorewall-5.2.3.4/Contrib/tunnel-90-
shorewall-5.2.3.4/Contrib/tunnel:91: if [ -n "`ip addr show $tunnel 2>/dev/null`" ]; then
shorewall-5.2.3.4/Contrib/tunnel-92- echo "Deleting $tunnel"
##############################################
shorewall-5.2.3.4/Contrib/tunnel-102-
shorewall-5.2.3.4/Contrib/tunnel:103: if [ -n "`ip link show $tunnel 2>/dev/null`" ]; then
shorewall-5.2.3.4/Contrib/tunnel-104- do_stop
##############################################
shorewall-5.2.3.4/debian/rules-12-VPATCH:=$(shell echo $(V) |cut -f 3 -d .)
shorewall-5.2.3.4/debian/rules:13:NEXTPATCH:=$(shell expr $(VPATCH) + 1 2>/dev/null || expr `echo $(VPATCH) | cut -f 1 -d - ` + 1)
shorewall-5.2.3.4/debian/rules-14-