e-smith-base/sme9/e-smith-base-5.4.0-removeConsoleSupport.patch

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;
1	wellsi	1.1	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
2			--- e-smith-base-5.4.0.old/root/sbin/e-smith/console-menu-items/support.pl 2008-03-26 09:49:00.000000000 -0700
3			+++ e-smith-base-5.4.0/root/sbin/e-smith/console-menu-items/support.pl 1969-12-31 16:00:00.000000000 -0800
4			@@ -1,53 +0,0 @@
5			-package esmith::console::support;
6			-use strict;
7			-use warnings;
8			-use esmith::console;
9			-use Locale::gettext;
10			-
11			-sub new
12			-{
13			- my $class = shift;
14			- my $self = {
15			- name => gettext("View support and licensing information"),
16			- order => 60,
17			- };
18			- bless $self, $class;
19			- return $self;
20			-}
21			-
22			-sub name
23			-{
24			- return $_[0]->{name};
25			-}
26			-
27			-sub order
28			-{
29			- return $_[0]->{order};
30			-}
31			-
32			-sub doit
33			-{
34			-#------------------------------------------------------------
35			-# SUPPORT:
36			-#------------------------------------------------------------
37			- my ($self, $console, $db) = @_;
38			- my $licenses = esmith::util::getLicenses();
39			- # Untaint license text before passing to screen
40			- ($licenses) = ($licenses =~ /(.*)/s);
41			-
42			- my ($rc, $choice) =
43			- $console->whiptail ("--title", gettext("Mitel Networks Corporation support and licensing information"),
44			- "--scrolltext",
45			- "--msgbox",
46			- "**********************************************************************" .
47			- "\n" .
48			- gettext("You can scroll through this document using the up and down arrow keys or the Page Up and Page Down keys.") .
49			- "\n" .
50			- "**********************************************************************" .
51			- "\n\n" .
52			- $licenses,
53			- esmith::console::SCREEN_ROWS, esmith::console::SCREEN_COLUMNS
54			- );
55			-}
56			-
57			-return new esmith::console::support;