ddns.cgi: Fix CGI clearing all settings.

diff --git a/html/cgi-bin/ddns.cgi b/html/cgi-bin/ddns.cgi
index 05580289d2991fa85f095160e045a9c072b3a23a..3de8886dd11ccf7e09ca25834ec6e889e9c5676c 100644 (file)
--- a/html/cgi-bin/ddns.cgi
+++ b/html/cgi-bin/ddns.cgi
@@ -103,9 +103,6 @@ if ($settings{'ACTION'} eq $Lang::tr{'save'}) {
        # Close file after writing.
        close(FILE);
 
-       # Unset given CGI parmas.
-       undef %settings;
-
        # Update ddns config file.
        &GenerateDDNSConfigFile();
 }
@@ -145,6 +142,7 @@ if ($settings{'ACTION'} eq $Lang::tr{'toggle enable disable'}) {
                # Increase $id.
                $id++;
        }
+       undef $settings{'ID'};
 
        # Close file after writing.
        close(FILE);
@@ -160,7 +158,6 @@ if ($settings{'ACTION'} eq $Lang::tr{'toggle enable disable'}) {
 # Add new accounts, or edit existing ones.
 #
 if (($settings{'ACTION'} eq $Lang::tr{'add'}) || ($settings{'ACTION'} eq $Lang::tr{'update'})) {
-
        # Check if a hostname has been given.
        if ($settings{'HOSTNAME'} eq '') {
                $errormessage = $Lang::tr{'hostname not set'};
@@ -238,9 +235,7 @@ if (($settings{'ACTION'} eq $Lang::tr{'add'}) || ($settings{'ACTION'} eq $Lang::
                        # Write out notice to logfile.
                        &General::log($Lang::tr{'ddns hostname modified'});
                }
-
-               # Unset given CGI params.
-               undef %settings;
+               undef $settings{'ID'};
 
                # Update ddns config file.
                &GenerateDDNSConfigFile();
@@ -270,13 +265,11 @@ if ($settings{'ACTION'} eq $Lang::tr{'remove'}) {
                # Increase id.
                $id++;
        }
+       undef $settings{'ID'};
 
        # Close file after writing.
        close(FILE);
 
-       # Unset given CGI params.
-       undef %settings;
-
        # Write out notice to logfile.
        &General::log($Lang::tr{'ddns hostname removed'});
 
@@ -326,9 +319,10 @@ if ($settings{'ACTION'} eq $Lang::tr{'instant update'}) {
 #
 # Set default values.
 #
-if (! $settings{'ACTION'}) {
+if (!$settings{'ACTION'}) {
        $settings{'SERVICE'} = 'dyndns.org';
        $settings{'ENABLED'} = 'on';
+       $settings{'ID'} = '';
 }
 
 &Header::openpage($Lang::tr{'dynamic dns'}, 1, '');