pam/pam_wheel.so.pl

   1 # display args for pam_wheel.so.pl
   2
   3 # display_args(&service, &module, &args)
   4 sub display_module_args
   5 {
   6 print &ui_table_row($text{'wheel_group'},
   7         &ui_opt_textbox("group", $_[2]->{'group'}, 8, $text{'wheel_group_def'}).
   8         " ".&group_chooser_button("group"), 3);
   9
  10 print &ui_table_row($text{'wheel_trust'},
  11         &ui_yesno_radio("trust", defined($_[2]->{'trust'}) ? 1 : 0));
  12
  13 print &ui_table_row($text{'wheel_deny'},
  14         &ui_yesno_radio("deny", defined($_[2]->{'deny'}) ? 1 : 0));
  15 }
  16
  17 # parse_module_args(&service, &module, &args)
  18 sub parse_module_args
  19 {
  20 if ($in{'trust'}) { $_[2]->{'trust'} = ''; }
  21 else { delete($_[2]->{'trust'}); }
  22
  23 if ($in{'deny'}) { $_[2]->{'deny'} = ''; }
  24 else { delete($_[2]->{'deny'}); }
  25
  26 if ($in{'group_def'}) { delete($_[2]->{'group'}); }
  27 else {
  28         defined(getgrnam($in{'group'})) || &error($text{'wheel_egroup'});
  29         $_[2]->{'group'} = $in{'group'};
  30         }
  31 }