1# display args for pam_shells.so.pl 2 3# display_args(&service, &module, &args) 4sub display_module_args 5{ 6local $file = "/etc/shells"; 7print &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) 12sub parse_module_args 13{ 14local $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} 23