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	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;