=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== gprename-20140325/bin/gprename-75-my $log_file = "$ENV{'HOME'}/.config/gprename/gprename_log"; gprename-20140325/bin/gprename:76:if ( ! -e "$ENV{'HOME'}/.config" ) { `mkdir "$ENV{'HOME'}/.config"`; } gprename-20140325/bin/gprename:77:if ( ! -e "$ENV{'HOME'}/.config/gprename" ) { `mkdir "$ENV{'HOME'}/.config/gprename"`; } gprename-20140325/bin/gprename:78:if ( ! -e $log_file ) { `touch $log_file`; } gprename-20140325/bin/gprename-79-our %langs; # Hash of all the different languages ############################################## gprename-20140325/bin/gprename-1274- my $content = ''; gprename-20140325/bin/gprename:1275: if ( -e $log_file ) { $content = `cat $log_file`; } gprename-20140325/bin/gprename-1276- $textview->get_buffer()->set_text( $content ); ############################################## gprename-20140325/bin/gprename-1289- if ( $_[1] =~ m/accept/ ) { gprename-20140325/bin/gprename:1290: if ( -e $log_file ) { `rm -f $log_file`; `touch $log_file`; } gprename-20140325/bin/gprename-1291- $textview->get_buffer()->set_text( '' ); ############################################## gprename-20140325/bin/gprename-1490- $path =~ s/\/^//g; # remove last trailing slash gprename-20140325/bin/gprename:1491: if ( -f $path ) { $path = `dirname "$path"`; } # remove the filename at the end of the path if there is one gprename-20140325/bin/gprename-1492- $path =~ s/\n//g; # dirname adds a newline (i.e. \n), so remove it ############################################## gprename-20140325/build/gprename-75-my $log_file = "$ENV{'HOME'}/.config/gprename/gprename_log"; gprename-20140325/build/gprename:76:if ( ! -e "$ENV{'HOME'}/.config" ) { `mkdir "$ENV{'HOME'}/.config"`; } gprename-20140325/build/gprename:77:if ( ! -e "$ENV{'HOME'}/.config/gprename" ) { `mkdir "$ENV{'HOME'}/.config/gprename"`; } gprename-20140325/build/gprename:78:if ( ! -e $log_file ) { `touch $log_file`; } gprename-20140325/build/gprename-79-our %langs; # Hash of all the different languages ############################################## gprename-20140325/build/gprename-1274- my $content = ''; gprename-20140325/build/gprename:1275: if ( -e $log_file ) { $content = `cat $log_file`; } gprename-20140325/build/gprename-1276- $textview->get_buffer()->set_text( $content ); ############################################## gprename-20140325/build/gprename-1289- if ( $_[1] =~ m/accept/ ) { gprename-20140325/build/gprename:1290: if ( -e $log_file ) { `rm -f $log_file`; `touch $log_file`; } gprename-20140325/build/gprename-1291- $textview->get_buffer()->set_text( '' ); ############################################## gprename-20140325/build/gprename-1490- $path =~ s/\/^//g; # remove last trailing slash gprename-20140325/build/gprename:1491: if ( -f $path ) { $path = `dirname "$path"`; } # remove the filename at the end of the path if there is one gprename-20140325/build/gprename-1492- $path =~ s/\n//g; # dirname adds a newline (i.e. \n), so remove it ############################################## gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-75-my $log_file = "$ENV{'HOME'}/.config/gprename/gprename_log"; gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename:76:if ( ! -e "$ENV{'HOME'}/.config" ) { `mkdir "$ENV{'HOME'}/.config"`; } gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename:77:if ( ! -e "$ENV{'HOME'}/.config/gprename" ) { `mkdir "$ENV{'HOME'}/.config/gprename"`; } gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename:78:if ( ! -e $log_file ) { `touch $log_file`; } gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-79-our %langs; # Hash of all the different languages ############################################## gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-1274- my $content = ''; gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename:1275: if ( -e $log_file ) { $content = `cat $log_file`; } gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-1276- $textview->get_buffer()->set_text( $content ); ############################################## gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-1289- if ( $_[1] =~ m/accept/ ) { gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename:1290: if ( -e $log_file ) { `rm -f $log_file`; `touch $log_file`; } gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-1291- $textview->get_buffer()->set_text( '' ); ############################################## gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-1490- $path =~ s/\/^//g; # remove last trailing slash gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename:1491: if ( -f $path ) { $path = `dirname "$path"`; } # remove the filename at the end of the path if there is one gprename-20140325/.pc/002-gprename-path-corrections/bin/gprename-1492- $path =~ s/\n//g; # dirname adds a newline (i.e. \n), so remove it