webmin--webmin
13 行
189 B
Perl
可执行文件
13 行
189 B
Perl
可执行文件
|
|
do 'spam-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi =~ /^edit_/) {
|
|
# First allowed file, if any
|
|
return $access{'file'} ? 'file='.&urlize($access{'file'}) : '';
|
|
}
|
|
return undef;
|
|
}
|