michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-04 22:30:33 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Add cgi args parser

Browse Source
This commit is contained in:
Jamie Cameron
2009-06-07 20:09:53 +00:00
parent 409cdd27b3
commit 7487504d54
1 changed files with 42 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
custom/cgi_args.pl Normal file
View File

@@ -0,0 +1,42 @@
do 'custom-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
my @cust = grep { &can_run_command($_) } &list_commands();
if ($cgi eq 'edit_cmd.cgi') {
# Custom command editor
my ($cmd) = grep { !$_->{'edit'} && !$_->{'sql'} } @cust;
return $cmd ? 'id='.&urlize($cmd->{'id'}) :
$access{'edit'} ? 'new=1' : 'none';
}
elsif ($cgi eq 'form.cgi') {
# Custom command form
my ($cmd) = grep { !$_->{'edit'} && !$_->{'sql'} } @cust;
return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
}
elsif ($cgi eq 'edit_file.cgi') {
# File editor editor
my ($cmd) = grep { $_->{'edit'} } @cust;
return $cmd ? 'id='.&urlize($cmd->{'id'}) :
$access{'edit'} ? 'new=1' : 'none';
}
elsif ($cgi eq 'view.cgi') {
# Custom command form
my ($cmd) = grep { $_->{'edit'} } @cust;
return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
}
elsif ($cgi eq 'edit_sql.cgi') {
# SQL query
my ($cmd) = grep { $_->{'sql'} } @cust;
return $cmd ? 'id='.&urlize($cmd->{'id'}) :
$access{'edit'} ? 'new=1' : 'none';
}
elsif ($cgi eq 'sqlform.cgi') {
# SQL query form
my ($cmd) = grep { $_->{'sql'} } @cust;
return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
}
return undef;
}