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