mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
19 lines
280 B
Perl
Executable File
19 lines
280 B
Perl
Executable File
|
|
do 'proc-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi eq 'edit_proc.cgi') {
|
|
return '1'; # First process
|
|
}
|
|
elsif ($cgi eq 'open_files.cgi' || $cgi eq 'trace.cgi') {
|
|
return 'pid=1';
|
|
}
|
|
elsif ($cgi =~ /^index_/) {
|
|
# All index pages are valid
|
|
return '';
|
|
}
|
|
return undef;
|
|
}
|