/[smeserver]/rpms/smeserver-support/sme9/smeserver-support-2.4.0-consoleSupport.patch
ViewVC logotype

Annotation of /rpms/smeserver-support/sme9/smeserver-support-2.4.0-consoleSupport.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Mon Mar 17 00:46:58 2014 UTC (10 years, 7 months ago) by wellsi
Branch: MAIN
CVS Tags: smeserver-support-2_4_0-21_el6_sme
* Sun Mar 16 2014 Ian Wells <esmith@wellsi.com> 2.4.0-21.sme
- Move support.pl from e-smith-base to smeserver-support [SME: 8264]
- This console license page now uses dialog's textbox.

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     +

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed