xinetd/cgi_args.pl

   1
   2 do 'xinetd-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_serv.cgi') {
   8         my @conf = grep { $_->{'name'} eq 'service' } &get_xinetd_config();
   9         return @conf ? 'idx='.$conf[0]->{'index'} : 'new=1';
  10         }
  11 return undef;
  12 }