diff -ruN e-smith-base-5.4.0.old/root/sbin/e-smith/console-menu-items/support.pl e-smith-base-5.4.0/root/sbin/e-smith/console-menu-items/support.pl
--- e-smith-base-5.4.0.old/root/sbin/e-smith/console-menu-items/support.pl	2008-03-26 09:49:00.000000000 -0700
+++ e-smith-base-5.4.0/root/sbin/e-smith/console-menu-items/support.pl	1969-12-31 16:00:00.000000000 -0800
@@ -1,53 +0,0 @@
-package esmith::console::support;
-use strict;
-use warnings;
-use esmith::console;
-use Locale::gettext;
-
-sub new
-{
-    my $class = shift;
-    my $self = {
-		    name => gettext("View support and licensing information"),
-		    order => 60,
-		};
-    bless $self, $class;
-    return $self;
-}
-
-sub name
-{
-    return $_[0]->{name};
-}
-
-sub order
-{
-    return $_[0]->{order};
-}
-
-sub doit
-{
-#------------------------------------------------------------
-# SUPPORT:
-#------------------------------------------------------------
-    my ($self, $console, $db) = @_;
-    my $licenses = esmith::util::getLicenses();
-    # Untaint license text before passing to screen
-    ($licenses) = ($licenses =~ /(.*)/s);
-
-    my ($rc, $choice) =
-        $console->whiptail ("--title", gettext("Mitel Networks Corporation support and licensing information"),
-                          "--scrolltext",
-                          "--msgbox",
-                          "**********************************************************************" .
-                          "\n" .
-                          gettext("You can scroll through this document using the up and down arrow keys or the Page Up and Page Down keys.") .
-                          "\n" .
-                          "**********************************************************************" .
-                          "\n\n" .
-                          $licenses,
-                          esmith::console::SCREEN_ROWS, esmith::console::SCREEN_COLUMNS
-                         );
-}
-
-return new esmith::console::support;