spam/cgi_args.pl

   1
   2 do 'spam-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi =~ /^edit_/) {
   8         # First allowed file, if any
   9         return $access{'file'} ? 'file='.&urlize($access{'file'}) : '';
  10         }
  11 return undef;
  12 }