mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
17 lines
321 B
Perl
Executable File
17 lines
321 B
Perl
Executable File
|
|
do 'status-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi eq 'edit_mon.cgi') {
|
|
my @serv = &list_services();
|
|
return @serv ? 'id='.&urlize($serv[0]->{'id'}) : 'new=1';
|
|
}
|
|
elsif ($cgi eq 'edit_tmpl.cgi') {
|
|
my @tmpls = &list_templates();
|
|
return @tmpls ? 'id='.&urlize($tmpls[0]->{'id'}) : 'new=1';
|
|
}
|
|
return undef;
|
|
}
|