wehub-resource-sync
13 lines
226 B
Perl
Executable File
13 lines
226 B
Perl
Executable File
|
|
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;
|
|
}
|