status/cgi_args.pl

   1
   2 do 'status-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_mon.cgi') {
   8         my @serv = &list_services();
   9         return @serv ? 'id='.&urlize($serv[0]->{'id'}) : 'new=1';
  10         }
  11 elsif ($cgi eq 'edit_tmpl.cgi') {
  12         my @tmpls = &list_templates();
  13         return @tmpls ? 'id='.&urlize($tmpls[0]->{'id'}) : 'new=1';
  14         }
  15 return undef;
  16 }