From f0388cf1ad272643142e8f1db0cdfe0787e9365c Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Tue, 9 Jun 2009 00:26:18 +0000
Subject: [PATCH] Add CGI args parser

---
 pam/cgi_args.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 pam/cgi_args.pl

diff --git a/pam/cgi_args.pl b/pam/cgi_args.pl
new file mode 100644
index 000000000..2ca9a5281
--- /dev/null
+++ b/pam/cgi_args.pl
@@ -0,0 +1,15 @@
+
+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;
+}