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