proc/cgi_args.pl

   1
   2 do 'proc-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_proc.cgi') {
   8         return '1';     # First process
   9         }
  10 elsif ($cgi eq 'open_files.cgi' || $cgi eq 'trace.cgi') {
  11         return 'pid=1';
  12         }
  13 elsif ($cgi =~ /^index_/) {
  14         # All index pages are valid
  15         return '';
  16         }
  17 return undef;
  18 }