Added CGI args parser

diff --git a/spam/cgi_args.pl b/spam/cgi_args.pl
new file mode 100644 (file)
index 0000000..795fb3c
--- /dev/null
+++ b/spam/cgi_args.pl
@@ -0,0 +1,12 @@
+
+do 'spam-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi =~ /^edit_/) {
+       # First allowed file, if any
+       return $access{'file'} ? 'file='.&urlize($access{'file'}) : '';
+       }
+return undef;
+}