pam/cgi_args.pl

   1
   2 do 'pam-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @pams = &get_pam_config();
   8 if ($cgi eq 'edit_pam.cgi') {
   9         return @pams ? 'idx='.$pams[0]->{'index'} : 'new=1';
  10         }
  11 elsif ($cgi eq 'edit_mod.cgi') {
  12         return @pams ? 'idx='.$pams[0]->{'index'}.'&midx=0' : 'new=1';
  13         }
  14 return undef;
  15 }