smeserver-support/sme9/smeserver-support-2.4.0-consoleSupport.patch

diff -ruN smeserver-support-2.4.0.old/root/sbin/e-smith/console-menu-items/support.pl smeserver-support-2.4.0/root/sbin/e-smith/console-menu-items/support.pl
--- smeserver-support-2.4.0.old/root/sbin/e-smith/console-menu-items/support.pl 1969-12-31 16:00:00.000000000 -0800
+++ smeserver-support-2.4.0/root/sbin/e-smith/console-menu-items/support.pl     2014-03-16 16:45:43.000000000 -0700
@@ -0,0 +1,44 @@
+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 $licenseFile = esmith::util::getLicenseFile();
+    my ($rc, $choice) = $console->textbox
+    (
+        title => gettext('Support and licensing information'),
+        file => $licenseFile,
+    );
+    return;
+}
+
+return esmith::console::support->new;
+
1	wellsi	1.1	diff -ruN smeserver-support-2.4.0.old/root/sbin/e-smith/console-menu-items/support.pl smeserver-support-2.4.0/root/sbin/e-smith/console-menu-items/support.pl
2			--- smeserver-support-2.4.0.old/root/sbin/e-smith/console-menu-items/support.pl 1969-12-31 16:00:00.000000000 -0800
3			+++ smeserver-support-2.4.0/root/sbin/e-smith/console-menu-items/support.pl 2014-03-16 16:45:43.000000000 -0700
4			@@ -0,0 +1,44 @@
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 $licenseFile = esmith::util::getLicenseFile();
39			+ my ($rc, $choice) = $console->textbox
40			+ (
41			+ title => gettext('Support and licensing information'),
42			+ file => $licenseFile,
43			+ );
44			+ return;
45			+}
46			+
47			+return esmith::console::support->new;
48			+