servers/cgi_args.pl

   1
   2 use strict;
   3 use warnings;
   4 do 'servers-lib.pl';
   5 our (%access);
   6
   7 sub cgi_args
   8 {
   9 my ($cgi) = @_;
  10 if ($cgi eq 'edit_serv.cgi' && $access{'edit'}) {
  11         my @servers = &list_servers();
  12         return @servers ? 'id='.&urlize($servers[0]->{'id'}) : 'none';
  13         }
  14 return undef;
  15 }