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