=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== daptup-0.12.7/daptup-64- my $binary_name = $self->get_cache_binary_name(); daptup-0.12.7/daptup:65: system(qq/$binary_name search ".*" 2>$errors_file $filter | sort | uniq > $output_file/); daptup-0.12.7/daptup-66-} ############################################## daptup-0.12.7/daptup-73- # shell may reject too long lists of arguments, xargs automatically handles that daptup-0.12.7/daptup:74: my $policy_output = `$get_installed_package_names_command | LC_MESSAGES=C xargs $binary_name policy 2>/dev/null`; daptup-0.12.7/daptup-75- ############################################## daptup-0.12.7/daptup-101- daptup-0.12.7/daptup:102: my @watched_packages = split("\n", `$binary_name search --names-only "$regex" 2>/dev/null`); daptup-0.12.7/daptup-103- s/ .*// foreach @watched_packages; ############################################## daptup-0.12.7/daptup-106- foreach my $package_name (@watched_packages) { daptup-0.12.7/daptup:107: my $policy_output = `LC_MESSAGES=C $binary_name policy $package_name 2>/dev/null`; daptup-0.12.7/daptup-108- my ($version_string) = ($policy_output =~ m/$preferred_version_sub_regex/o); ############################################## daptup-0.12.7/daptup-144- daptup-0.12.7/daptup:145: system($command); daptup-0.12.7/daptup-146-} ############################################## daptup-0.12.7/daptup-156- $command .= qq! $ENV{DAPTUP_EXTRA_APTITUDE_ARGUMENTS} 2>/dev/null > $output_file!; daptup-0.12.7/daptup:157: system($command); daptup-0.12.7/daptup-158- } ############################################## daptup-0.12.7/daptup-244- if (defined $changelog_file) { # if we've found a changelog daptup-0.12.7/daptup:245: my $last_modified_line=`zgrep -e "^ -- " $changelog_file | head -1`; daptup-0.12.7/daptup-246- if ($last_modified_line ne '') { # changelog is correct ############################################## daptup-0.12.7/daptup-254- daptup-0.12.7/daptup:255: my $package_timestamp = `date -d "$date" +%s`; daptup-0.12.7/daptup-256- my $days = int(($current_timestamp - $package_timestamp) / $seconds_in_day); ############################################## daptup-0.12.7/daptup-270- my ($before_file, $after_file, $output_file) = @_; daptup-0.12.7/daptup:271: system(qq/diff --minimal $before_file $after_file | grep -E "^[<>]" | sort --key=2 -V > $output_file/); daptup-0.12.7/daptup-272-} ############################################## daptup-0.12.7/daptup-279- if (-s $errors_file_path and -z $new_before_file) { daptup-0.12.7/daptup:280: if (system("grep '^E:' $errors_file_path") == 0) { daptup-0.12.7/daptup-281- lsay("errors present. Is apt/dpkg running?");