1# display args for pam_tally.so.pl
2
3# display_args(&service, &module, &args)
4sub display_module_args
5{
6print &ui_table_row($text{'tally_deny'},
7	&ui_opt_textbox("deny", $_[2]->{'deny'}, 5, $text{'default'}));
8
9print &ui_table_row($text{'tally_reset'},
10	&ui_radio("reset", defined($_[2]->{'reset'}) ? 1 :
11			   defined($_[2]->{'no_reset'}) ? 2 : 0,
12		  [ [ 0, $text{'default'} ],
13		    [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ]));
14
15print &ui_table_row($text{'tally_magic'},
16	&ui_yesno_radio("magic", defined($_[2]->{'no_magic_root'}) ? 1 : 0));
17
18print &ui_table_row($text{'tally_root'},
19	&ui_yesno_radio("root",
20		defined($_[2]->{'even_deny_root_account'}) ? 1 : 0));
21}
22
23# parse_module_args(&service, &module, &args)
24sub parse_module_args
25{
26if ($in{'deny_def'}) { delete($_[2]->{'deny'}); }
27else {
28	$in{'deny'} =~ /^\d+$/ || &error($text{'tally_edeny'});
29	$_[2]->{'deny'} = $in{'deny'};
30	}
31
32delete($_[2]->{'reset'});
33delete($_[2]->{'no_reset'});
34if ($in{'reset'} == 1) { $_[2]->{'reset'} = ''; }
35elsif ($in{'reset'} == 2) { $_[2]->{'no_reset'} = ''; }
36
37if ($in{'magic'}) { $_[2]->{'no_magic_root'} = ''; }
38else { delete($_[2]->{'no_magic_root'}); }
39
40if ($in{'root'}) { $_[2]->{'even_deny_root_account'} = ''; }
41else { delete($_[2]->{'even_deny_root_account'}); }
42}
43