Commit e22945ccc8ac0730db0f5783ed98dcf0a4dd3ad3
1 parent
89b504e6
Sanitized the modes / urls:
list - show contents of a domain (was view) view - show a single entry (was status)
Showing
1 changed file
with
6 additions
and
6 deletions
dyndns.pl
... | ... | @@ -270,7 +270,7 @@ sub handle_expire($$$$$$) { |
270 | 270 | } |
271 | 271 | } |
272 | 272 | |
273 | -sub handle_status($$$$$$) { | |
273 | +sub handle_view($$$$$$) { | |
274 | 274 | my ($cgi, $mode, $host, $dnshost, $dnsdomain, $debug) = @_; |
275 | 275 | my $title = "DynDNS Updater - $host"; |
276 | 276 | print $cgi->header(-status=>200), |
... | ... | @@ -294,7 +294,7 @@ sub handle_status($$$$$$) { |
294 | 294 | print $cgi->end_html(); |
295 | 295 | } |
296 | 296 | |
297 | -sub handle_view($$$$$$) { | |
297 | +sub handle_list($$$$$$) { | |
298 | 298 | my ($cgi, $mode, $host, $dnshost, $dnsdomain, $debug) = @_; |
299 | 299 | my $title = "DynDNS Updater - $dnsdomain"; |
300 | 300 | |
... | ... | @@ -346,7 +346,7 @@ foreach my $rrtype (@ReplaceRR) { |
346 | 346 | |
347 | 347 | ############################## |
348 | 348 | # Determine what to do and fetch the input parameters |
349 | -my $mode = $cgi->path_info || $cgi->param('mode') || '/status'; | |
349 | +my $mode = $cgi->path_info || $cgi->param('mode') || 'view'; | |
350 | 350 | $mode=~s/^\/([^\/]+)(\/(.*))?/$1/; |
351 | 351 | my $host = $cgi->param('host') || $3; |
352 | 352 | my $debug = ($AllowDebugKey eq 'off') ? 0 : ($AllowDebugKey eq ($cgi->param('debug') || '')); |
... | ... | @@ -355,13 +355,13 @@ my $debug = ($AllowDebugKey eq 'off') ? 0 : ($AllowDebugKey eq ($cgi->param('deb |
355 | 355 | ############################## |
356 | 356 | # Dispatch the request to the correct handler |
357 | 357 | my %handlers = ( |
358 | - status => \&handle_status, | |
358 | + view => \&handle_view, | |
359 | 359 | update => \&handle_update, |
360 | 360 | delete => \&handle_update, |
361 | - view => \&handle_view, | |
361 | + list => \&handle_list, | |
362 | 362 | expire => \&handle_expire, |
363 | 363 | ); |
364 | -if($host eq '' and $mode cmp 'view' and $mode cmp 'expire') { | |
364 | +if($host eq '' and $mode cmp 'list' and $mode cmp 'expire') { | |
365 | 365 | print $cgi->header(-status=>400, -type=>'text/plain'), |
366 | 366 | "ERROR - No host name to act on specified\n"; |
367 | 367 | } elsif(my $handler = $handlers{$mode}) { |
... | ... |