/[smeserver]/rpms/e-smith-base/sme8/e-smith-base-4.18.0-remoteaccess.pmfm2self.patch
ViewVC logotype

Annotation of /rpms/e-smith-base/sme8/e-smith-base-4.18.0-remoteaccess.pmfm2self.patch

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


Revision 1.1 - (hide annotations) (download)
Tue Jun 12 18:30:35 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: e-smith-base-4_18_0-58_el5_sme, e-smith-base-4_18_0-89_el5_sme, e-smith-base-4_18_0-82_el5_sme, e-smith-base-4_18_0-67_el5_sme, e-smith-base-4_18_0-88_el5_sme, e-smith-base-4_18_0-87_el5_sme, e-smith-base-4_18_0-77_el5_sme, e-smith-base-4_18_0-69_el5_sme, e-smith-base-4_18_0-81_el5_sme, e-smith-base-4_18_0-100_el5_sme, e-smith-base-4_18_0-72_el5_sme, e-smith-base-4_18_0-62_el5_sme, e-smith-base-4_18_0-61_el5_sme, e-smith-base-4_18_0-78_el5_sme, e-smith-base-4_18_0-60_el5_sme, e-smith-base-4_18_0-94_el5_sme, e-smith-base-4_18_0-66_el5_sme, e-smith-base-4_18_0-83_el5_sme, e-smith-base-4_18_0-59_el5_sme, e-smith-base-4_18_0-63_el5_sme, e-smith-base-4_18_0-92_el5_sme, e-smith-base-4_18_0-64_el5_sme, e-smith-base-4_18_0-101_el5_sme, e-smith-base-4_18_0-98_el5_sme, e-smith-base-4_18_0-102_el5_sme, e-smith-base-4_18_0-90_el5_sme, e-smith-base-4_18_0-104_el5_sme, e-smith-base-4_18_0-71_el5_sme, e-smith-base-4_18_0-103_el5_sme, e-smith-base-4_18_0-99_el5_sme, e-smith-base-4_18_0-73_el5_sme, e-smith-base-4_18_0-79_el5_sme, e-smith-base-4_18_0-75_el5_sme, e-smith-base-4_18_0-76_el5_sme
Import on branch sme8 of package e-smith-base-4.18.0-58.el5.sme.src.rpm

1 slords 1.1 diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/remoteaccess.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/remoteaccess.pm
2     --- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/remoteaccess.pm 2007-01-19 14:33:22.000000000 -0700
3     +++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/remoteaccess.pm 2007-04-14 05:14:39.000000000 -0600
4     @@ -19,9 +19,6 @@
5     # You should have received a copy of the GNU General Public License
6     # along with this program; if not, write to the Free Software
7     # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
8     -#
9     -# Technical support for this program is available from Mitel Networks
10     -# Please visit our web site www.mitel.com/sme/ for details.
11     #----------------------------------------------------------------------
12    
13     package esmith::FormMagick::Panel::remoteaccess;
14     @@ -109,7 +106,7 @@
15     =cut
16    
17     sub get_prop {
18     - my ($fm, $item, $prop) = @_;
19     + my ($self, $item, $prop) = @_;
20     warn "You must specify a record key" unless $item;
21     warn "You must specify a property name" unless $prop;
22     my $record = $db->get($item) or warn "Couldn't get record for $item";
23     @@ -123,7 +120,7 @@
24     =cut
25    
26     sub get_value {
27     - my $fm = shift;
28     + my $self = shift;
29     my $item = shift;
30     return ($db->get($item)->value());
31     }
32     @@ -252,17 +249,17 @@
33    
34     sub show_telnet_section
35     {
36     - my $fm = shift;
37     - my $q = $fm->cgi;
38     + my $self = shift;
39     + my $q = $self->cgi;
40     my $mode = get_telnet_mode();
41    
42     # Don't show telnet setting if it is off
43     return '' if $mode eq 'off';
44    
45     my %options = (
46     - public => $fm->localise('PUBLIC'),
47     - private => $fm->localise('PRIVATE'),
48     - off => $fm->localise('NO_ACCESS'),
49     + public => $self->localise('PUBLIC'),
50     + private => $self->localise('PRIVATE'),
51     + off => $self->localise('NO_ACCESS'),
52     );
53    
54     print $q->Tr(
55     @@ -272,10 +269,10 @@
56     $q->Tr(
57     $q->td({-colspan => 2},
58     $q->span({-class => "error-noborders"},
59     - $fm->localise('DESC_TELNET_ACCESS')))),
60     + $self->localise('DESC_TELNET_ACCESS')))),
61     $q->Tr(
62     $q->td({-class => "sme-noborders-label"},
63     - $fm->localise('LABEL_TELNET_ACCESS')),
64     + $self->localise('LABEL_TELNET_ACCESS')),
65     $q->td({-class => "sme-noborders-content"},
66     $q->popup_menu(-name => 'TelnetAccess',
67     -values => [ keys %options ],
68     @@ -291,21 +288,21 @@
69    
70     sub show_ftp_section
71     {
72     - my $fm = shift;
73     - my $q = $fm->{cgi};
74     + my $self = shift;
75     + my $q = $self->{cgi};
76    
77     # Don't show ftp setting unless the property exists
78     return '' unless $db->get('ftp');
79    
80     my %options = (
81     - normal => $fm->localise('PUBLIC'),
82     - private => $fm->localise('PRIVATE'),
83     - off => $fm->localise('NO_ACCESS'),
84     + normal => $self->localise('PUBLIC'),
85     + private => $self->localise('PRIVATE'),
86     + off => $self->localise('NO_ACCESS'),
87     );
88    
89     my %loginOptions = (
90     - private => $fm->localise('PASSWORD_LOGIN_PRIVATE'),
91     - public => $fm->localise('PASSWORD_LOGIN_PUBLIC'),
92     + private => $self->localise('PASSWORD_LOGIN_PRIVATE'),
93     + public => $self->localise('PASSWORD_LOGIN_PUBLIC'),
94     );
95    
96     print $q->Tr(
97     @@ -315,10 +312,10 @@
98     $q->Tr(
99     $q->td({-colspan => 2},
100     $q->span({-class => "sme-noborders"},
101     - $fm->localise('DESC_FTP_ACCESS')))),
102     + $self->localise('DESC_FTP_ACCESS')))),
103     $q->Tr(
104     $q->td({-class => "sme-noborders-label"},
105     - $fm->localise('LABEL_FTP_ACCESS')),
106     + $self->localise('LABEL_FTP_ACCESS')),
107     $q->td({-class => "sme-noborders-content"},
108     $q->popup_menu(-name => 'FTPAccess',
109     -values => [ keys %options ],
110     @@ -327,10 +324,10 @@
111     $q->Tr(
112     $q->td({-colspan => 2},
113     $q->span({-class => "sme-noborders"},
114     - $fm->localise('DESC_FTP_LOGIN')))),
115     + $self->localise('DESC_FTP_LOGIN')))),
116     $q->Tr(
117     $q->td({-class => "sme-noborders-label"},
118     - $fm->localise('LABEL_FTP_LOGIN')),
119     + $self->localise('LABEL_FTP_LOGIN')),
120     $q->td({-class => "sme-noborders-content"},
121     $q->popup_menu(-name => 'FTPPasswordLogin',
122     -values => [ keys %loginOptions ],
123     @@ -595,15 +592,15 @@
124    
125    
126     sub change_settings {
127     - my ($fm) = @_;
128     + my ($self) = @_;
129    
130     my %conf;
131    
132     - my $q = $fm->{'cgi'};
133     + my $q = $self->{'cgi'};
134    
135     # Don't process the form unless we clicked the Save button. The event is
136     # called even if we chose the Remove link or the Add link.
137     - return unless($q->param('Next') eq $fm->localise('SAVE'));
138     + return unless($q->param('Next') eq $self->localise('SAVE'));
139    
140     my $access = ($q->param ('TelnetAccess') || 'off');
141     my $sshaccess = ($q->param ('sshAccess') || 'off');
142     @@ -690,14 +687,14 @@
143     # $rec->set_prop('Device', $serialConsole);
144     # }
145    
146     - $fm->cgi->param(-name=>'wherenext', -value=>'First');
147     + $self->cgi->param(-name=>'wherenext', -value=>'First');
148    
149     - unless ($fm->add_new_valid_from)
150     + unless ($self->add_new_valid_from)
151     {
152     return '';
153     }
154    
155     - unless ($fm->remove_valid_from)
156     + unless ($self->remove_valid_from)
157     {
158     return '';
159     }
160     @@ -708,15 +705,15 @@
161     or die "Error occurred while resetting ipsec certificates.\n";
162     $q->param(-name=>'ipsecrwReset', -value=>'');
163     }
164     - $fm->set_ipsecrw_sessions;
165     + $self->set_ipsecrw_sessions;
166    
167     unless ( system( "/sbin/e-smith/signal-event", "remoteaccess-update" ) == 0 )
168     {
169     - $fm->error('ERROR_UPDATING');
170     + $self->error('ERROR_UPDATING');
171     return undef;
172     }
173    
174     - $fm->success('SUCCESS');
175     + $self->success('SUCCESS');
176     }
177    
178     sub get_ipsecrw_sessions
179     @@ -732,8 +729,8 @@
180    
181     sub show_ipsecrw_section
182     {
183     - my $fm = shift;
184     - my $q = $fm->cgi;
185     + my $self = shift;
186     + my $q = $self->cgi;
187    
188     # Don't show ipsecrw setting unless the status property exists
189     return '' unless ($db->get('ipsec')
190     @@ -745,20 +742,20 @@
191     $q->table(
192     $q->Tr(
193     $q->td({-colspan => 2, -class => "sme-noborders"},
194     - $fm->localise('DESC_IPSECRW'))),
195     + $self->localise('DESC_IPSECRW'))),
196     $q->Tr(
197     $q->td({-class => "sme-noborders-label"},
198     - $fm->localise('LABEL_IPSECRW_SESS')),
199     + $self->localise('LABEL_IPSECRW_SESS')),
200     $q->td({-class => "sme-noborders-content"},
201     $q->textfield(-name => 'ipsecrwSessions',
202     -value => get_ipsecrw_sessions(),
203     -size => '3'))),
204     $q->Tr(
205     $q->td({-colspan => 2, -class => "sme-noborders"},
206     - $fm->localise('DESC_IPSECRW_RESET'))),
207     + $self->localise('DESC_IPSECRW_RESET'))),
208     $q->Tr(
209     $q->td({-class => "sme-noborders-label"},
210     - $fm->localise('LABEL_IPSECRW_RESET')),
211     + $self->localise('LABEL_IPSECRW_RESET')),
212     $q->td({-class => "sme-noborders-content"},
213     $q->checkbox(-name => 'ipsecrwReset', -label => ''))),
214     )
215     @@ -771,8 +768,8 @@
216    
217     sub set_ipsecrw_sessions
218     {
219     - my $fm = shift;
220     - my $q = $fm->cgi;
221     + my $self = shift;
222     + my $q = $self->cgi;
223     my $sessions = $q->param('ipsecrwSessions');
224     if (defined $sessions)
225     {

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