do 'pam-lib.pl';

sub cgi_args
{
my ($cgi) = @_;
my @pams = &get_pam_config();
if ($cgi eq 'edit_pam.cgi') {
	return @pams ? 'idx='.$pams[0]->{'index'} : 'new=1';
	}
elsif ($cgi eq 'edit_mod.cgi') {
	return @pams ? 'idx='.$pams[0]->{'index'}.'&midx=0' : 'new=1';
	}
return undef;
}