/[smeserver]/rpms/e-smith-base/sme9/e-smith-base-5.4.0-removeConsoleSupport.patch
ViewVC logotype

Annotation of /rpms/e-smith-base/sme9/e-smith-base-5.4.0-removeConsoleSupport.patch

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


Revision 1.1 - (hide annotations) (download)
Mon Mar 17 00:29:32 2014 UTC (10 years, 7 months ago) by wellsi
Branch: MAIN
CVS Tags: e-smith-base-5_4_0-62_el6_sme, e-smith-base-5_4_0-61_el6_sme
* Sun Mar 16 2014 Ian Wells <esmith@wellsi.com> 5.4.0-61.sme
- Remove support.pl from e-smith-base and move to smeserver-support [SME: 8264]

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;

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