=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-303- $down_host = "10.255.255.$last_octet"; libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD:304: } until $got_down_host = system( "ping -c 1 -t 1 $down_host 2>&1 > /dev/null" ) libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-305- or $last_octet == 0; libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-306- libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD:307: ok( $got_down_host ,"Found IP addr ($down_host) for missing system test\n" ); libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-308- ############################################## libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-328- my $tmp_tns = cwd() . '/tmp_tns_admin' ; libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD:329: system( "rm -rf $tmp_tns" ) if -d $tmp_tns; libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-330- mkdir $tmp_tns; libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD:331: system( "cp $save_TNS_ADMIN/*.* $tmp_tns/" ); libsys-sigaction-perl-0.23/dbd-oracle-timeout.POD-332-