1# display args for pam_mail.so.pl
2
3# display_args(&service, &module, &args)
4sub display_module_args
5{
6print &ui_table_row($text{'mail_nopen'},
7	&ui_radio("noopen", defined($_[2]->{'nopen'}) ? 1 : 0,
8		  [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
9
10print &ui_table_row($text{'mail_close'},
11	&ui_radio("noopen", defined($_[2]->{'close'}) ? 1 : 0,
12		  [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));
13
14print &ui_table_row($text{'mail_empty'},
15	&ui_radio("noopen", defined($_[2]->{'empty'}) ? 1 : 0,
16		  [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));
17
18print &ui_table_row($text{'mail_noenv'},
19	&ui_radio("noopen", defined($_[2]->{'noenv'}) ? 1 : 0,
20		  [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
21
22print &ui_table_row($text{'mail_dir'},
23	&ui_opt_textbox("dir", $_[2]->{'dir'}, 50, $text{'default'})." ".
24	&file_chooser_button("dir"), 3);
25}
26
27# parse_module_args(&service, &module, &args)
28sub parse_module_args
29{
30if ($in{'nopen'}) { $_[2]->{'nopen'} = ''; }
31else { delete($_[2]->{'nopen'}); }
32
33if ($in{'close'}) { $_[2]->{'close'} = ''; }
34else { delete($_[2]->{'close'}); }
35
36if ($in{'empty'}) { $_[2]->{'empty'} = ''; }
37else { delete($_[2]->{'empty'}); }
38
39if ($in{'noenv'}) { $_[2]->{'noenv'} = ''; }
40else { delete($_[2]->{'noenv'}); }
41
42if ($in{'dir_def'}) { delete($_[2]->{'dir'}); }
43else {
44	-d $in{'dir'} || &error($text{'mail_edir'});
45	$_[2]->{'dir'} = $in{'dir'};
46	}
47}
48
49