PAL.C.T MINI SHELL
# display args for pam_mail.so.pl
# display_args(&service, &module, &args)
sub display_module_args
{
print &ui_table_row($text{'mail_nopen'},
&ui_radio("noopen", defined($_[2]->{'nopen'}) ? 1 : 0,
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
print &ui_table_row($text{'mail_close'},
&ui_radio("noopen", defined($_[2]->{'close'}) ? 1 : 0,
[ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));
print &ui_table_row($text{'mail_empty'},
&ui_radio("noopen", defined($_[2]->{'empty'}) ? 1 : 0,
[ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));
print &ui_table_row($text{'mail_noenv'},
&ui_radio("noopen", defined($_[2]->{'noenv'}) ? 1 : 0,
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
print &ui_table_row($text{'mail_dir'},
&ui_opt_textbox("dir", $_[2]->{'dir'}, 50, $text{'default'})." ".
&file_chooser_button("dir"), 3);
}
# parse_module_args(&service, &module, &args)
sub parse_module_args
{
if ($in{'nopen'}) { $_[2]->{'nopen'} = ''; }
else { delete($_[2]->{'nopen'}); }
if ($in{'close'}) { $_[2]->{'close'} = ''; }
else { delete($_[2]->{'close'}); }
if ($in{'empty'}) { $_[2]->{'empty'} = ''; }
else { delete($_[2]->{'empty'}); }
if ($in{'noenv'}) { $_[2]->{'noenv'} = ''; }
else { delete($_[2]->{'noenv'}); }
if ($in{'dir_def'}) { delete($_[2]->{'dir'}); }
else {
-d $in{'dir'} || &error($text{'mail_edir'});
$_[2]->{'dir'} = $in{'dir'};
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`