===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
inxi-3.1.09-1/inxi.1-1875-who all really have to be considered to be co\-developers because of their
inxi-3.1.09-1/inxi.1:1876:non\-stop enthusiasm and willingness to provide real\-time testing and debugging
inxi-3.1.09-1/inxi.1-1877-of inxi development.
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-268- $pci_tool = $_ if $_ =~ /pci/;
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:269: $action = 'permissions' if system("$program $commands{$_} >/dev/null 2>&1");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-270- }
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1469- #rmdir "$user_data_dir$debug_gz" or main::error_handler('remove', "$user_data_dir/$debug_gz", "$!");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1470: print "Failed removing leftover directory:\n$user_data_dir$debug_gz error: $?" if system('rm','-rf',"$user_data_dir$debug_gz");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1471- }
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1476- print "File: $debug_gz\n";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1477: system("cd $user_data_dir; tar -czf $debug_gz $debug_dir");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1478- print "Removing $data_dir...\n";
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1480- return 1 if !$b_delete_dir;
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1481: if (system('rm','-rf',$data_dir) ){
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1482- print "Failed removing: $data_dir\nError: $?\n";
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1757- # @(#)MIRBSD KSH R56 2018/03/09: ksh and mksh
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1758: 'ksh-version' => system('ksh -c \'printf %s "$KSH_VERSION"\''), # shell, not env, variable
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1759- 'manpath' => $ENV{'MANPATH'},
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1911- my $cmd = "$self_path/$self_name -FRfJrploudmaxxx$i$z --slots --debug 10 -y 120 > $data_dir/$self_name-FRfJrploudmaxxx$iz-slots-y120.txt 2>&1";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1912: system($cmd);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1913- copy($log_file, "$data_dir") or main::error_handler('copy-failed', "$log_file", "$!");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1914: system("$self_path/$self_name --recommends -y 120 > $data_dir/$self_name-recommends-120.txt 2>&1");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1915-}
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1966- $cmd = "$program $rows[1] >$name 2>&1";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:1967: system($cmd);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-1968- }
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2009- my $cmd;
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:2010: system("tree -a -L 10 /sys > $data_dir/sys-data-tree-full-10.txt");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2011- opendir my($dh), $dirname or main::error_handler('open-dir',"$dirname", "$!");
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2017- #print "$cmd\n";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:2018: system($cmd);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2019- }
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2290- $cmd = "$dl{'dl'} $dl{'no-ssl-opt'} $ua $timeout $args $file \"$url\" $dl{'null'}";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:2291: system($cmd);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2292- $result = ($?) ? 0 : 1; # reverse these into Perl t/f
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2296- $cmd = "$dl{'dl'} $dl{'no-ssl-opt'} $ua $timeout $dl{'spider'} \"$url\"";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:2297: system($cmd);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-2298- $result = ($?) ? 0 : 1; # reverse these into Perl t/f
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-3919- print "Download successful. Compressing file...\n";
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:3920: system("$program -9 -f $man_file_path > $man_file_path.gz");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-3921- my $err = $?;
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-6243- #qx('dcop "$client{'dport'}" "$client{'dobject'}" say "$client{'dserver'}" "$client{'dtarget'}" "$line 1");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:6244: system('dcop', $client{'dport'}, $client{'dobject'}, 'say', $client{'dserver'}, $client{'dtarget'}, "$line 1");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-6245- }
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-6249- #qx(qdbus org.kde.konversation /irc say "$client{'dserver'}" "$client{'dtarget'}" "$line");
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:6250: system('qdbus', 'org.kde.konversation', '/irc', 'say', $client{'dserver'}, $client{'dtarget'}, $line);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-6251- }
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-17080- $size ||= $working[2];
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:17081: $fs = unmounted_filesystem($working[-1]) if !$fs;
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-17082- $label = PartitionData::get_label("/dev/$working[-1]") if !$label;
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-20359- $subsystem = main::pci_cleaner($subsystem,'pci');
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:20360: $subsystem = main::pci_cleaner_subsystem($subsystem);
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-20361- #print "ss:$subsystem\n";
##############################################
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-20937- if ($alerts{'ip'}{'action'} eq 'use' ){
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi:20938: set_ip_addr();
inxi-3.1.09-1/.pc/001-Fix-shebang.patch/inxi-20939- }
##############################################
inxi-3.1.09-1/inxi-268- $pci_tool = $_ if $_ =~ /pci/;
inxi-3.1.09-1/inxi:269: $action = 'permissions' if system("$program $commands{$_} >/dev/null 2>&1");
inxi-3.1.09-1/inxi-270- }
##############################################
inxi-3.1.09-1/inxi-1469- #rmdir "$user_data_dir$debug_gz" or main::error_handler('remove', "$user_data_dir/$debug_gz", "$!");
inxi-3.1.09-1/inxi:1470: print "Failed removing leftover directory:\n$user_data_dir$debug_gz error: $?" if system('rm','-rf',"$user_data_dir$debug_gz");
inxi-3.1.09-1/inxi-1471- }
##############################################
inxi-3.1.09-1/inxi-1476- print "File: $debug_gz\n";
inxi-3.1.09-1/inxi:1477: system("cd $user_data_dir; tar -czf $debug_gz $debug_dir");
inxi-3.1.09-1/inxi-1478- print "Removing $data_dir...\n";
##############################################
inxi-3.1.09-1/inxi-1480- return 1 if !$b_delete_dir;
inxi-3.1.09-1/inxi:1481: if (system('rm','-rf',$data_dir) ){
inxi-3.1.09-1/inxi-1482- print "Failed removing: $data_dir\nError: $?\n";
##############################################
inxi-3.1.09-1/inxi-1757- # @(#)MIRBSD KSH R56 2018/03/09: ksh and mksh
inxi-3.1.09-1/inxi:1758: 'ksh-version' => system('ksh -c \'printf %s "$KSH_VERSION"\''), # shell, not env, variable
inxi-3.1.09-1/inxi-1759- 'manpath' => $ENV{'MANPATH'},
##############################################
inxi-3.1.09-1/inxi-1911- my $cmd = "$self_path/$self_name -FRfJrploudmaxxx$i$z --slots --debug 10 -y 120 > $data_dir/$self_name-FRfJrploudmaxxx$iz-slots-y120.txt 2>&1";
inxi-3.1.09-1/inxi:1912: system($cmd);
inxi-3.1.09-1/inxi-1913- copy($log_file, "$data_dir") or main::error_handler('copy-failed', "$log_file", "$!");
inxi-3.1.09-1/inxi:1914: system("$self_path/$self_name --recommends -y 120 > $data_dir/$self_name-recommends-120.txt 2>&1");
inxi-3.1.09-1/inxi-1915-}
##############################################
inxi-3.1.09-1/inxi-1966- $cmd = "$program $rows[1] >$name 2>&1";
inxi-3.1.09-1/inxi:1967: system($cmd);
inxi-3.1.09-1/inxi-1968- }
##############################################
inxi-3.1.09-1/inxi-2009- my $cmd;
inxi-3.1.09-1/inxi:2010: system("tree -a -L 10 /sys > $data_dir/sys-data-tree-full-10.txt");
inxi-3.1.09-1/inxi-2011- opendir my($dh), $dirname or main::error_handler('open-dir',"$dirname", "$!");
##############################################
inxi-3.1.09-1/inxi-2017- #print "$cmd\n";
inxi-3.1.09-1/inxi:2018: system($cmd);
inxi-3.1.09-1/inxi-2019- }
##############################################
inxi-3.1.09-1/inxi-2290- $cmd = "$dl{'dl'} $dl{'no-ssl-opt'} $ua $timeout $args $file \"$url\" $dl{'null'}";
inxi-3.1.09-1/inxi:2291: system($cmd);
inxi-3.1.09-1/inxi-2292- $result = ($?) ? 0 : 1; # reverse these into Perl t/f
##############################################
inxi-3.1.09-1/inxi-2296- $cmd = "$dl{'dl'} $dl{'no-ssl-opt'} $ua $timeout $dl{'spider'} \"$url\"";
inxi-3.1.09-1/inxi:2297: system($cmd);
inxi-3.1.09-1/inxi-2298- $result = ($?) ? 0 : 1; # reverse these into Perl t/f
##############################################
inxi-3.1.09-1/inxi-3919- print "Download successful. Compressing file...\n";
inxi-3.1.09-1/inxi:3920: system("$program -9 -f $man_file_path > $man_file_path.gz");
inxi-3.1.09-1/inxi-3921- my $err = $?;
##############################################
inxi-3.1.09-1/inxi-6243- #qx('dcop "$client{'dport'}" "$client{'dobject'}" say "$client{'dserver'}" "$client{'dtarget'}" "$line 1");
inxi-3.1.09-1/inxi:6244: system('dcop', $client{'dport'}, $client{'dobject'}, 'say', $client{'dserver'}, $client{'dtarget'}, "$line 1");
inxi-3.1.09-1/inxi-6245- }
##############################################
inxi-3.1.09-1/inxi-6249- #qx(qdbus org.kde.konversation /irc say "$client{'dserver'}" "$client{'dtarget'}" "$line");
inxi-3.1.09-1/inxi:6250: system('qdbus', 'org.kde.konversation', '/irc', 'say', $client{'dserver'}, $client{'dtarget'}, $line);
inxi-3.1.09-1/inxi-6251- }
##############################################
inxi-3.1.09-1/inxi-17080- $size ||= $working[2];
inxi-3.1.09-1/inxi:17081: $fs = unmounted_filesystem($working[-1]) if !$fs;
inxi-3.1.09-1/inxi-17082- $label = PartitionData::get_label("/dev/$working[-1]") if !$label;
##############################################
inxi-3.1.09-1/inxi-20359- $subsystem = main::pci_cleaner($subsystem,'pci');
inxi-3.1.09-1/inxi:20360: $subsystem = main::pci_cleaner_subsystem($subsystem);
inxi-3.1.09-1/inxi-20361- #print "ss:$subsystem\n";
##############################################
inxi-3.1.09-1/inxi-20937- if ($alerts{'ip'}{'action'} eq 'use' ){
inxi-3.1.09-1/inxi:20938: set_ip_addr();
inxi-3.1.09-1/inxi-20939- }