diff -Nur e-smith-base-5.8.0.old/createlinks e-smith-base-5.8.0/createlinks
--- e-smith-base-5.8.0.old/createlinks	2021-03-03 10:42:03.767000000 -0500
+++ e-smith-base-5.8.0/createlinks	2021-03-03 10:55:00.945000000 -0500
@@ -416,7 +416,7 @@
 $event = "ip-change";
 
 event_link("set-external-ip", $event, "03");
-event_link("update-dns", $event, "85");
+#event_link("update-dns", $event, "85");
 
 #--------------------------------------------------
 # actions for network-create event
diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/status e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/status
--- e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/status	2005-11-20 23:28:03.000000000 -0500
+++ e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/status	1969-12-31 19:00:00.000000000 -0500
@@ -1 +0,0 @@
-disabled
diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/type e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/type
--- e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/type	2005-11-20 23:28:03.000000000 -0500
+++ e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/type	1969-12-31 19:00:00.000000000 -0500
@@ -1 +0,0 @@
-service
diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/update-dns e-smith-base-5.8.0/root/etc/e-smith/events/actions/update-dns
--- e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/update-dns	2005-11-20 23:28:05.000000000 -0500
+++ e-smith-base-5.8.0/root/etc/e-smith/events/actions/update-dns	1969-12-31 19:00:00.000000000 -0500
@@ -1,52 +0,0 @@
-#!/usr/bin/perl -w
-
-#----------------------------------------------------------------------
-# copyright (C) 1999-2005 Mitel Networks Corporation
-# 
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-# 		
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 		
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
-# 
-# Technical support for this program is available from Mitel Networks 
-# Please visit our web site www.mitel.com/sme/ for details.
-#----------------------------------------------------------------------
-
-package esmith;
-
-use strict;
-use Errno;
-use esmith::ConfigDB;
-
-my $c = esmith::ConfigDB->open_ro or die "Couldn't open config db";
-
-#------------------------------------------------------------
-# If using Dynamic DNS service, notify them of new IP address.
-#------------------------------------------------------------
-
-my $event = $ARGV [0];
-
-my $DynDNS = $c->get('DynDNS');
-exit 0 unless $DynDNS;
-
-my $status = $DynDNS->prop('status') || "disabled";
-my $service  = $DynDNS->prop('Service') || 'off';
-my $account  = $DynDNS->prop('Account');
-my $password  = $DynDNS->prop('Password');
-
-my $domain  = $c->get('DomainName')->value;
-
-exit 0 unless ($status eq "enabled" && $service ne "off");
-
-my $ipaddress = $c->get('ExternalIP') or die "Can't get External IP address";
-
-exec ("/sbin/e-smith/dynamic-dns/$service", $ipaddress->value, $account, $password, $domain)
diff -Nur e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm
--- e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm	2021-03-03 10:42:03.689000000 -0500
+++ e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm	2021-03-03 10:58:51.475000000 -0500
@@ -654,13 +654,13 @@
             $db->delete('GatewayIP');
             $db->set_value('ExternalDHCP', 'on');
             $db->set_value('DHCPClient', 'd');
-            goto DYNAMIC_DNS_SERVICE;
+            goto OTHER_PARAMETERS;#was DYNAMIC_DNS_SERVICE;
         }
 
         if ($choice eq  "4.")
         {
             $db->set_value('ExternalDHCP', 'off');
-            $db->set_prop('DynDNS', 'status', 'disabled');
+            #$db->set_prop('DynDNS', 'status', 'disabled');#dropped
             goto STATIC_IP;
         }
     }
@@ -682,7 +682,7 @@
 
     $db->set_value('DialupUserAccount', $choice || '');
 
-    goto DYNAMIC_DNS_SERVICE;
+    goto OTHER_PARAMETERS;# was DYNAMIC_DNS_SERVICE;
 }
 
 #------------------------------------------------------------
@@ -721,181 +721,7 @@
 
     $db->set_value('DialupUserPassword', $choice || '');
 
-    goto DYNAMIC_DNS_SERVICE;
-}
-
-#------------------------------------------------------------
-DYNAMIC_DNS_SERVICE:
-#------------------------------------------------------------
-goto OTHER_PARAMETERS unless (-d "/sbin/e-smith/dynamic-dns");
-
-{
-    unless (opendir (DIR, "/sbin/e-smith/dynamic-dns"))
-    {
-        warn gettext("Cannot read directory"),
-            " /sbin/e-smith/dynamic-dns", "\n";
-        $db->set_prop('DynDNS', 'status', 'disabled');
-        goto OTHER_PARAMETERS;
-
-    }
-    my @scripts = grep (!/^(\.\.?|custom)$/, readdir (DIR));
-    closedir (DIR);
-
-    foreach my $script (@scripts)
-    {
-        # Grab description from script contents
-    }
-
-    my $currentnumber;
-
-    my $status = $db->get_prop('DynDNS', 'status') || "disabled";
-    my $service = $db->get_prop('DynDNS', 'Service');
-    if ($status eq "disabled")
-    {
-        $service = "off";
-        $currentnumber = "1.";
-    }
-    else
-    {
-        if ($service eq 'yi')
-        {
-            $currentnumber = "2.";
-        }
-
-        if ($service eq 'dyndns')
-        {
-            $currentnumber = "3.";
-        }
-
-        if ($service eq 'dyndns.org')
-        {
-            $currentnumber = "4.";
-        }
-
-        if ($service eq 'tzo')
-        {
-            $currentnumber = "5.";
-        }
-
-        if ($service eq 'custom')
-        {
-            $currentnumber = "6.";
-        }
-    }
-
-    my @args = (
-                "1.", gettext("Do not use a dynamic DNS service"),
-                "2.", "www.yi.org"     . " - " . gettext("free service"),
-                "3.", "www.dyndns.com" . " - " . gettext("commercial service"),
-                "4.", "www.dyndns.org" . " - " . gettext("free service"),
-                "5.", "www.tzo.com"    . " - " . gettext("commercial service"),
-                "6.", gettext("custom DynDNS service"),
-               );
-
-    ($rc, $choice) = $console->menu_page
-        (
-         title   => gettext("Select dynamic DNS service"),
-	 default => $currentnumber,
-         text    =>
-         gettext("Please specify whether you wish to subscribe to a dynamic DNS service. Such services allow you to have a domain name without a static IP address, and are available from various organizations for free or for a reasonable charge. A notification must be sent to the dynamic DNS service whenever your IP address changes. Your server can automatically do this for some dynamic DNS services.") .
-         "\n\n" .
-         gettext("Choose which dynamic DNS service you would like to use."),
-         argsref => \@args
-        );
-
-    goto SERVER_GATEWAY_DEDICATED unless ($rc == 0);
-
-    if ($choice eq  "1.")
-    {
-        $db->set_prop('DynDNS', 'status', 'disabled');
-        goto OTHER_PARAMETERS;
-    }
-    $db->set_prop('DynDNS', 'status', 'enabled');
-    if ($choice eq  "2.")
-    {
-        $db->set_prop('DynDNS', 'Service', 'yi');
-        goto DYNAMIC_DNS_ACCOUNT;
-    }
-
-    if ($choice eq  "3.")
-    {
-        $db->set_prop('DynDNS', 'Service', 'dyndns');
-        goto DYNAMIC_DNS_ACCOUNT;
-    }
-
-    if ($choice eq  "4.")
-    {
-        $db->set_prop('DynDNS', 'Service', 'dyndns.org');
-        goto DYNAMIC_DNS_ACCOUNT;
-    }
-
-    if ($choice eq  "5.")
-    {
-        $db->set_prop('DynDNS', 'Service', 'tzo');
-        goto DYNAMIC_DNS_ACCOUNT;
-    }
-
-    if ($choice eq  "6.")
-    {
-        $db->set_prop('DynDNS', 'Service', 'custom');
-        goto DYNAMIC_DNS_ACCOUNT;
-    }
-}
-
-#------------------------------------------------------------
-DYNAMIC_DNS_ACCOUNT:
-#------------------------------------------------------------
-
-{
-    my $account = $db->get_prop('DynDNS', 'Account') || '';
-    my $service = $db->get_prop('DynDNS', 'Service');
-    ($rc, $choice) = $console->input_page
-        (
-         title => gettext("Select dynamic DNS account"),
-         text  => gettext("Please enter the account name for your dynamic DNS service"),
-         value   => $account
-        );
-
-    goto DYNAMIC_DNS_SERVICE unless ($rc == 0);
-
-    if ($choice)
-    {
-        $db->set_prop('DynDNS', 'Account', $choice);
-    }
-    else
-    {
-        $db->set_prop('DynDNS', 'Account', '');
-    }
-
-    goto DYNAMIC_DNS_PASSWORD;
-}
-
-#------------------------------------------------------------
-DYNAMIC_DNS_PASSWORD:
-#------------------------------------------------------------
-
-{
-    my $account = $db->get_prop('DynDNS', 'Account');
-    my $password = $db->get_prop('DynDNS', 'Password') || '';
-    ($rc, $choice) = $console->input_page
-        (
-         title => gettext("Select dynamic DNS password"),
-         text  => gettext("Please enter the password for your dynamic DNS service"),
-         value   => $password
-        );
-
-    goto DYNAMIC_DNS_ACCOUNT unless ($rc == 0);
-
-    if ($choice)
-    {
-        $db->set_prop('DynDNS', 'Password', $choice);
-    }
-    else
-    {
-        $db->set_prop('DynDNS', 'Password', '');
-    }
-
-    goto OTHER_PARAMETERS;
+    goto OTHER_PARAMETERS;# was DYNAMIC_DNS_SERVICE;
 }
 
 #------------------------------------------------------------
@@ -1566,7 +1392,7 @@
 
     $db->set_value('DialupConnWeekend', $gettext2policy{$choice});
 
-    goto DYNAMIC_DNS_SERVICE;
+    goto OTHER_PARAMETERS;# was DYNAMIC_DNS_SERVICE;
 }