PAL.C.T MINI SHELL
# exec-monitor.pl
# Check if some command exits with non-zero status
sub get_exec_status
{
my $re = $_[0]->{'regexp'};
if ($re ne '') {
# Get output and compare
my $out = &backquote_logged("($_[0]->{'cmd'}) 2>&1 </dev/null");
my $match = eval { $out =~ /$re/ };
if ($@) {
return { 'up' => -1, 'desc' => $@ };
}
elsif ($_[0]->{'remode'} == 0 && !$match) {
return { 'up' => 0 };
}
elsif ($_[0]->{'remode'} == 1 && $match) {
return { 'up' => 0 };
}
}
else {
# Just get exit status
&system_logged("($_[0]->{'cmd'}) >/dev/null 2>&1 </dev/null");
}
if ($_[0]->{'mode'} == 0) {
return { 'up' => $? == 0 ? 1 : 0 };
}
elsif ($_[0]->{'mode'} == 1) {
return { 'up' => $? == 0 ? 0 : 1 };
}
else {
return { 'up' => 1 };
}
}
sub show_exec_dialog
{
print &ui_table_row($text{'exec_cmd'},
&ui_textbox("cmd", $_[0]->{'cmd'}, 70), 3);
print &ui_table_row($text{'exec_mode'},
&ui_radio("mode", $_[0]->{'mode'} || 0,
[ [ 0, $text{'exec_mode0'} ],
[ 1, $text{'exec_mode1'} ],
[ 2, $text{'exec_mode2'} ] ]), 3);
print &ui_table_row($text{'exec_regexp'},
&ui_opt_textbox("regexp", $_[0]->{'regexp'}, 60, $text{'exec_noregexp'}), 3);
print &ui_table_row($text{'exec_remode'},
&ui_radio("remode", $_[0]->{'remode'} || 0,
[ [ 0, $text{'exec_remode0'} ],
[ 1, $text{'exec_remode1'} ] ]), 3);
}
sub parse_exec_dialog
{
$in{'cmd'} || &error($text{'exec_ecmd'});
$_[0]->{'cmd'} = $in{'cmd'};
$_[0]->{'mode'} = $in{'mode'};
$_[0]->{'regexp'} = $in{'regexp_def'} ? undef : $in{'regexp'};
$_[0]->{'remode'} = $in{'remode'};
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`