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

Added cgi args parser

Browse Source
This commit is contained in:
Jamie Cameron
2009-06-05 20:10:17 +00:00
parent b9580fae80
commit 374269ff08
1 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
net/cgi_args.pl Normal file
View File

@@ -0,0 +1,30 @@
do 'net-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_host.cgi') {
# Link to first host
my @hosts = &list_hosts();
return @hosts ? 'idx='.$hosts[0]->{'index'} : 'new=1';
}
elsif ($cgi eq 'edit_ipnode.cgi' && $config{'ipnodes_file'}) {
# Link to first ipnode
my @ipnodes = &list_ipnodes();
return @ipnodes ? 'idx='.$ipnodes[0]->{'index'} : 'new=1';
}
elsif ($cgi eq 'list_routes.cgi' || $cgi eq 'list_ifcs.cgi') {
# Works, even though it calls ReadParse
return '';
}
elsif ($cgi eq 'edit_aifc.cgi') {
my @act = &active_interfaces();
return @act ? 'idx='.$act[0]->{'index'} : 'new=1';
}
elsif ($cgi eq 'edit_bifc.cgi') {
my @boot = &boot_interfaces();
return @boot ? 'idx='.$boot[0]->{'index'} : 'new=1';
}
return undef;
}