custom/cgi_args.pl

   1
   2 do 'custom-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @cust = grep { &can_run_command($_) } &list_commands();
   8 if ($cgi eq 'edit_cmd.cgi') {
   9         # Custom command editor
  10         my ($cmd) = grep { !$_->{'edit'} && !$_->{'sql'} } @cust;
  11         return $cmd ? 'id='.&urlize($cmd->{'id'}) :
  12                $access{'edit'} ? 'new=1' : 'none';
  13         }
  14 elsif ($cgi eq 'form.cgi') {
  15         # Custom command form
  16         my ($cmd) = grep { !$_->{'edit'} && !$_->{'sql'} } @cust;
  17         return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
  18         }
  19 elsif ($cgi eq 'edit_file.cgi') {
  20         # File editor editor
  21         my ($cmd) = grep { $_->{'edit'} } @cust;
  22         return $cmd ? 'id='.&urlize($cmd->{'id'}) :
  23                $access{'edit'} ? 'new=1' : 'none';
  24         }
  25 elsif ($cgi eq 'view.cgi') {
  26         # Custom command form
  27         my ($cmd) = grep { $_->{'edit'} } @cust;
  28         return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
  29         }
  30 elsif ($cgi eq 'edit_sql.cgi') {
  31         # SQL query
  32         my ($cmd) = grep { $_->{'sql'} } @cust;
  33         return $cmd ? 'id='.&urlize($cmd->{'id'}) :
  34                $access{'edit'} ? 'new=1' : 'none';
  35         }
  36 elsif ($cgi eq 'sqlform.cgi') {
  37         # SQL query form
  38         my ($cmd) = grep { $_->{'sql'} } @cust;
  39         return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
  40         }
  41 return undef;
  42 }