Added cgi args parser

This commit is contained in:
Jamie Cameron
2009-06-05 20:45:23 +00:00
parent 202613c5ef
commit 2a9900c7df

14
proc/cgi_args.pl Normal file
View File

@@ -0,0 +1,14 @@
do 'proc-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_proc.cgi') {
return '1'; # First process
}
elsif ($cgi eq 'open_files.cgi' || $cgi eq 'trace.cgi') {
return 'pid=1';
}
return undef;
}