pam/pam_shells.so.pl

   1 # display args for pam_shells.so.pl
   2
   3 # display_args(&service, &module, &args)
   4 sub display_module_args
   5 {
   6 local $file = "/etc/shells";
   7 print &ui_table_row($text{'shells_shells'},
   8         &ui_textarea("shells", &read_file_contents($file), 5, 40), 3);
   9 }
  10
  11 # parse_module_args(&service, &module, &args)
  12 sub parse_module_args
  13 {
  14 local $file = "/etc/shells";
  15 &lock_file($file);
  16 &open_tempfile(FILE, ">$file");
  17 $in{'shells'} =~ s/\r//g;
  18 $in{'shells'} =~ s/\s*$/\n/;
  19 &print_tempfile(FILE, $in{'shells'});
  20 &close_tempfile(FILE);
  21 &unlock_file($file);
  22 }