Added cgi args parser

This commit is contained in:
Jamie Cameron
2009-06-05 20:43:15 +00:00
parent e8afe40227
commit 202613c5ef

12
xinetd/cgi_args.pl Normal file
View File

@@ -0,0 +1,12 @@
do 'xinetd-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_serv.cgi') {
my @conf = grep { $_->{'name'} eq 'service' } &get_xinetd_config();
return @conf ? 'idx='.$conf[0]->{'index'} : 'new=1';
}
return undef;
}