=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XOSD.pm-273-# my $tail_cmnd = $self->{'_opts'}->{'tail'}.' -f '.$args->{'file'}; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XOSD.pm:274:# system($tail_cmnd." | ".$self->{'_opts'}->{'bin'}.$opts." -"); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XOSD.pm-275-# } else { ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XOSD.pm-286-# my $xosd_cmnd = $self->{'_opts'}->{'bin'}.$opts." -"; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XOSD.pm:287:# # system($tail_cmnd." | ".$self->{'_opts'}->{'bin'}.$opts." - &"); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XOSD.pm-288-# # $self->{'forkpid'} = $self->command_forked($tail_cmnd." | ".$self->{'_opts'}->{'bin'}.$opts." -"); ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/CDialog.pm-129- my $self = $_[0]; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/CDialog.pm:130: my $str = `$self->{'_opts'}->{'bin'} --help 2>&1`; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/CDialog.pm-131- if ($str =~ /version\s0\.[34]/m) { ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XDialog.pm-171- my $command = $self->{'_opts'}->{'bin'}." --print-maxsize"; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XDialog.pm:172: my $raw = `$command 2>&1`; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/XDialog.pm-173- my ($w,$h) = (0,0); ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/ASCII.pm-679- if ($ENV{'PAGER'} && -x $ENV{'PAGER'}) { libui-dialog-perl-1.21/lib/UI/Dialog/Backend/ASCII.pm:680: system($ENV{'PAGER'}." ".$args->{'path'}); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/ASCII.pm-681- $rv = $? >> 8; ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/ASCII.pm-683- elsif (-x $args->{'pager'}) { libui-dialog-perl-1.21/lib/UI/Dialog/Backend/ASCII.pm:684: system($args->{'pager'}." ".$args->{'path'}); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/ASCII.pm-685- $rv = $? >> 8; ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Zenity.pm-93- my $command = $self->{'_opts'}->{'bin'}." --version"; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Zenity.pm:94: my $version = `$command 2>&1`; libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Zenity.pm-95- chomp( $version ); ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Zenity.pm-170- my $tmp_stderr = $self->gen_tempfile_name(); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Zenity.pm:171: system($cmnd." 2> $null_dev > ".$tmp_stderr); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Zenity.pm-172- my $rv = $? >> 8; ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Nautilus.pm-162- if (-d $xdg_config_home && -f $xdg_config_home.'/user-dirs.dirs') { libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Nautilus.pm:163: foreach (`. "${xdg_config_home}/user-dirs.dirs"; env`) { libui-dialog-perl-1.21/lib/UI/Dialog/Backend/Nautilus.pm-164- chomp; ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend/NotifySend.pm-142- $self->_debug("".$cmnd); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/NotifySend.pm:143: system($cmnd." 2> /dev/null"); libui-dialog-perl-1.21/lib/UI/Dialog/Backend/NotifySend.pm-144- return; ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm-377- my $tmp_stderr = $self->gen_tempfile_name(); libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm:378: system($cmnd." 2> ".$tmp_stderr); libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm-379- my $rv = $? >> 8; ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm-493- if ($mktemp && -x $mktemp) { libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm:494: chomp(my $tempfile = `$mktemp "$template"`); libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm-495- return($tempfile); ############################################## libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm-909- if (-x $self->{'_opts'}->{'beepbin'}) { libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm:910: return(eval { system($self->{'_opts'}->{'beepbin'}); 1; }); libui-dialog-perl-1.21/lib/UI/Dialog/Backend.pm-911- } ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-99- libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t:100: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t:101: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-102- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-104- is( $obj->get_unit_test_result(), libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t:105: $bin.q| --title 'TITLE: `head -1 |.$0.q|`' --msgbox 'TEXT: $(head -1 |.$0.q|)'| libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-106- ); libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-107- libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t:108: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t:109: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-110- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-113- is( $obj->get_unit_test_result(), libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t:114: $bin.' --title "TITLE: `head -1 '.$0.'`" --msgbox "TEXT: $(head -1 '.$0.')"' libui-dialog-perl-1.21/t/UI-Dialog-Backend-KDialog.t-115- ); ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t-149- libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t:150: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t:151: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t-152- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t-157- libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t:158: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t:159: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-XDialog.t-160- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t-185- libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t:186: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t:187: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t-188- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t-193- libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t:194: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t:195: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-CDialog.t-196- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t-97- libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t:98: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t:99: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t-100- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t-105- libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t:106: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t:107: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-Whiptail.t-108- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-93- libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t:94: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t:95: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-96- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-98- is( $obj->get_unit_test_result(), libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t:99: $bin.q| --title 'TITLE: `head -1 |.$0.q|`' --scrolltext --msgbox 'TEXT: $(head -1 |.$0.q|)' 16 64| libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-100- ); libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-101- libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t:102: $obj->msgbox( title=>'TITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t:103: backtitle => 'BACKTITLE: `head -1 '.$0.'`', libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-104- text => 'TEXT: $(head -1 '.$0.')', ############################################## libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-107- is( $obj->get_unit_test_result(), libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t:108: $bin.' --title "TITLE: `head -1 '.$0.'`" --scrolltext --msgbox "TEXT: $(head -1 '.$0.')" "16" "64"' libui-dialog-perl-1.21/t/UI-Dialog-Backend-GDialog.t-109- );