Handle hostnames with upper-case letters
[webmin.git] / dhcpd / cgi_args.pl
1
2 do 'dhcpd-lib.pl';
3
4 sub cgi_args
5 {
6 my ($cgi) = @_;
7 if ($cgi eq 'edit_group.cgi' || $cgi eq 'edit_host.cgi' ||
8     $cgi eq 'edit_subnet.cgi' || $cgi eq 'edit_shared.cgi' ||
9     $cgi eq 'edit_keys.cgi' || $cgi eq 'edit_zones.cgi') {
10         # Creating new one
11         return 'new=1';
12         }
13 elsif ($cgi eq 'edit_options.cgi') {
14         # Global options
15         return '';
16         }
17 return undef;
18 }