===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libtk-pod-perl-0.9943/Pod/Util.pm-95- if ($^O eq 'MSWin32') {
libtk-pod-perl-0.9943/Pod/Util.pm:96: system(qq{start explorer "$url"});
libtk-pod-perl-0.9943/Pod/Util.pm-97- } elsif ($^O eq 'cygwin') {
libtk-pod-perl-0.9943/Pod/Util.pm:98: system(qq{explorer "$url" &});
libtk-pod-perl-0.9943/Pod/Util.pm-99- } elsif (is_in_path("firefox")) {
libtk-pod-perl-0.9943/Pod/Util.pm:100: system(qq{firefox "$url" &});
libtk-pod-perl-0.9943/Pod/Util.pm-101- } else { # last fallback
libtk-pod-perl-0.9943/Pod/Util.pm:102: system(qq{mozilla "$url" &});
libtk-pod-perl-0.9943/Pod/Util.pm-103- }
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-198- my($url, %args) = @_;
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:199: _system("cmd", "/c", "start", $url);
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-200- if ($? == 0) {
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-217- if ($method eq 'rundll') {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:218: _system("rundll32 url.dll,FileProtocolHandler \"$url\"");
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-219- if ($?/256 == 0) {
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-224- # do not work well together (slow startup and such).
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:225: _system("start /b \"$url\"");
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-226- if ($?/256 == 0) {
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-229- } elsif ($method eq 'explorer') {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:230: _system("start explorer \"$url\"");
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:231: # maybe: system("start", "explorer", $url);
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:232: # or: system("start explorer \"$url\"");
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-233- if ($?/256 == 0) {
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-263- if (defined $konq_name) {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:264: _system(qw/dcop konqueror/, $konq_name, qw/openURL/, $url);
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-265- return 1 if ($?/256 == 0);
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-269- # then try to send to running konqueror process:
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:270: _system(qw/dcop konqueror KonquerorIface openBrowserWindow/, $url);
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-271- return 1 if ($?/256 == 0);
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-288- if ($args{-oldwindow}) {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:289: _system("galeon", "-x", $url);
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-290- return 1 if ($?/256 == 0);
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-303- if ($args{-oldwindow}) {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:304: _system($cmd, "-remote", _openurl_cmd($url));
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-305- } else {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-306- # no new-tab support in older Mozillas (e.g. 1.0)!
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:307: _system($cmd, "-remote", _openurl_cmd($url,"new-tab"));
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-308- }
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-364- # XXX use Spawn
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:365: _system(join(" ", @cmd) . ($fork ? "&" : ""));
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-366- }
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-524- if (is_in_path($ttybrowser)) {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:525: _system($ttybrowser, @args); # blocks in tty mode
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-526- last TRY;
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-578- # without X11: not in background!
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:579: _system($browser, $url);
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-580- return 1;
##############################################
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-606- if (-x $check_prog) {
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm:607: my($out) = `$check_prog $processname`;
libtk-pod-perl-0.9943/Pod/WWWBrowser.pm-608- return $out ? 1 : 0;
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-302- {
libtk-pod-perl-0.9943/Pod/Text.pm:303: system(1, $edit, $path);
libtk-pod-perl-0.9943/Pod/Text.pm-304- }
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-306- {
libtk-pod-perl-0.9943/Pod/Text.pm:307: system(1, "ptked", $path);
libtk-pod-perl-0.9943/Pod/Text.pm-308- }
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-357- {
libtk-pod-perl-0.9943/Pod/Text.pm:358: exec("$edit +$linenumber $path");
libtk-pod-perl-0.9943/Pod/Text.pm-359- }
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-361- {
libtk-pod-perl-0.9943/Pod/Text.pm:362: exec("$edit $path");
libtk-pod-perl-0.9943/Pod/Text.pm-363- }
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-802- DEBUG and warn "Use $manbrowser...\n";
libtk-pod-perl-0.9943/Pod/Text.pm:803: exec($manbrowser, $manurl);
libtk-pod-perl-0.9943/Pod/Text.pm-804- die $!;
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-993- if (!-r $path) {
libtk-pod-perl-0.9943/Pod/Text.pm:994: $w->_die_dialog("Cannot find file `$path`");
libtk-pod-perl-0.9943/Pod/Text.pm-995- }
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-1029- my $cmd = "$pod2ps_pipe | /usr/bin/open -a Preview -f";
libtk-pod-perl-0.9943/Pod/Text.pm:1030: system($cmd) == 0
libtk-pod-perl-0.9943/Pod/Text.pm-1031- or $w->_die_dialog("Error while executing <$cmd>. Status code is $?");
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-1043- my($fh,$fname) = File::Temp::tempfile(SUFFIX => "_tkpod.ps");
libtk-pod-perl-0.9943/Pod/Text.pm:1044: system("$pod2ps_pipe > $fname");
libtk-pod-perl-0.9943/Pod/Text.pm-1045- push @tempfiles, $fname;
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-1050- if ($pid == 0) {
libtk-pod-perl-0.9943/Pod/Text.pm:1051: exec($gv, $fname);
libtk-pod-perl-0.9943/Pod/Text.pm-1052- warn "Exec of $gv $fname failed: $!";
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-1095- Pod::Simple::Text->parse_from_file($path, $temp);
libtk-pod-perl-0.9943/Pod/Text.pm:1096: system("notepad.exe", "/p", $temp);
libtk-pod-perl-0.9943/Pod/Text.pm-1097-
##############################################
libtk-pod-perl-0.9943/Pod/Text.pm-1101- Pod::Simple::RTF->parse_from_file($path, $temp);
libtk-pod-perl-0.9943/Pod/Text.pm:1102: system("write.exe", "/p", "\"$temp\"");
libtk-pod-perl-0.9943/Pod/Text.pm-1103- }
##############################################
libtk-pod-perl-0.9943/Pod.pm-752- SUFFIX => "_tkpod.pod");
libtk-pod-perl-0.9943/Pod.pm:753: my $out = `perldoc -u -q $keyword`; # XXX protect keyword
libtk-pod-perl-0.9943/Pod.pm-754- print $fh $out;
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-302- {
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:303: system(1, $edit, $path);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-304- }
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-306- {
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:307: system(1, "ptked", $path);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-308- }
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-357- {
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:358: exec("$edit +$linenumber $path");
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-359- }
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-361- {
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:362: exec("$edit $path");
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-363- }
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-802- DEBUG and warn "Use $manbrowser...\n";
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:803: exec($manbrowser, $manurl);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-804- die $!;
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-993- if (!-r $path) {
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:994: $w->_die_dialog("Cannot find file `$path`");
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-995- }
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1029- my $cmd = "$pod2ps_pipe | /usr/bin/open -a Preview -f";
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:1030: system($cmd) == 0
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1031- or $w->_die_dialog("Error while executing <$cmd>. Status code is $?");
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1043- my($fh,$fname) = File::Temp::tempfile(SUFFIX => "_tkpod.ps");
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:1044: system("$pod2ps_pipe > $fname");
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1045- push @tempfiles, $fname;
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1050- if ($pid == 0) {
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:1051: exec($gv, $fname);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1052- warn "Exec of $gv $fname failed: $!";
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1095- Pod::Simple::Text->parse_from_file($path, $temp);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:1096: system("notepad.exe", "/p", $temp);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1097-
##############################################
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1101- Pod::Simple::RTF->parse_from_file($path, $temp);
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm:1102: system("write.exe", "/p", "\"$temp\"");
libtk-pod-perl-0.9943/.pc/fix-pod/Pod/Text.pm-1103- }