/[smeserver]/rpms/e-smith-base/sme10/e-smith-base-5.8.0-bz11415-dropDyndns.patch
ViewVC logotype

Contents of /rpms/e-smith-base/sme10/e-smith-base-5.8.0-bz11415-dropDyndns.patch

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


Revision 1.2 - (show annotations) (download)
Sun Jun 6 20:38:36 2021 UTC (3 years, 4 months ago) by jpp
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
Error occurred while calculating annotation data.
FILE REMOVED
5.8.1

1 diff -Nur e-smith-base-5.8.0.old/createlinks e-smith-base-5.8.0/createlinks
2 --- e-smith-base-5.8.0.old/createlinks 2021-03-03 10:42:03.767000000 -0500
3 +++ e-smith-base-5.8.0/createlinks 2021-03-03 10:55:00.945000000 -0500
4 @@ -416,7 +416,7 @@
5 $event = "ip-change";
6
7 event_link("set-external-ip", $event, "03");
8 -event_link("update-dns", $event, "85");
9 +#event_link("update-dns", $event, "85");
10
11 #--------------------------------------------------
12 # actions for network-create event
13 diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/status e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/status
14 --- e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/status 2005-11-20 23:28:03.000000000 -0500
15 +++ e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/status 1969-12-31 19:00:00.000000000 -0500
16 @@ -1 +0,0 @@
17 -disabled
18 diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/type e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/type
19 --- e-smith-base-5.8.0.old/root/etc/e-smith/db/configuration/defaults/DynDNS/type 2005-11-20 23:28:03.000000000 -0500
20 +++ e-smith-base-5.8.0/root/etc/e-smith/db/configuration/defaults/DynDNS/type 1969-12-31 19:00:00.000000000 -0500
21 @@ -1 +0,0 @@
22 -service
23 diff -Nur e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/update-dns e-smith-base-5.8.0/root/etc/e-smith/events/actions/update-dns
24 --- e-smith-base-5.8.0.old/root/etc/e-smith/events/actions/update-dns 2005-11-20 23:28:05.000000000 -0500
25 +++ e-smith-base-5.8.0/root/etc/e-smith/events/actions/update-dns 1969-12-31 19:00:00.000000000 -0500
26 @@ -1,52 +0,0 @@
27 -#!/usr/bin/perl -w
28 -
29 -#----------------------------------------------------------------------
30 -# copyright (C) 1999-2005 Mitel Networks Corporation
31 -#
32 -# This program is free software; you can redistribute it and/or modify
33 -# it under the terms of the GNU General Public License as published by
34 -# the Free Software Foundation; either version 2 of the License, or
35 -# (at your option) any later version.
36 -#
37 -# This program is distributed in the hope that it will be useful,
38 -# but WITHOUT ANY WARRANTY; without even the implied warranty of
39 -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
40 -# GNU General Public License for more details.
41 -#
42 -# You should have received a copy of the GNU General Public License
43 -# along with this program; if not, write to the Free Software
44 -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
45 -#
46 -# Technical support for this program is available from Mitel Networks
47 -# Please visit our web site www.mitel.com/sme/ for details.
48 -#----------------------------------------------------------------------
49 -
50 -package esmith;
51 -
52 -use strict;
53 -use Errno;
54 -use esmith::ConfigDB;
55 -
56 -my $c = esmith::ConfigDB->open_ro or die "Couldn't open config db";
57 -
58 -#------------------------------------------------------------
59 -# If using Dynamic DNS service, notify them of new IP address.
60 -#------------------------------------------------------------
61 -
62 -my $event = $ARGV [0];
63 -
64 -my $DynDNS = $c->get('DynDNS');
65 -exit 0 unless $DynDNS;
66 -
67 -my $status = $DynDNS->prop('status') || "disabled";
68 -my $service = $DynDNS->prop('Service') || 'off';
69 -my $account = $DynDNS->prop('Account');
70 -my $password = $DynDNS->prop('Password');
71 -
72 -my $domain = $c->get('DomainName')->value;
73 -
74 -exit 0 unless ($status eq "enabled" && $service ne "off");
75 -
76 -my $ipaddress = $c->get('ExternalIP') or die "Can't get External IP address";
77 -
78 -exec ("/sbin/e-smith/dynamic-dns/$service", $ipaddress->value, $account, $password, $domain)
79 diff -Nur e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm
80 --- e-smith-base-5.8.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2021-03-03 10:42:03.689000000 -0500
81 +++ e-smith-base-5.8.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2021-03-03 10:58:51.475000000 -0500
82 @@ -654,13 +654,13 @@
83 $db->delete('GatewayIP');
84 $db->set_value('ExternalDHCP', 'on');
85 $db->set_value('DHCPClient', 'd');
86 - goto DYNAMIC_DNS_SERVICE;
87 + goto OTHER_PARAMETERS;#was DYNAMIC_DNS_SERVICE;
88 }
89
90 if ($choice eq "4.")
91 {
92 $db->set_value('ExternalDHCP', 'off');
93 - $db->set_prop('DynDNS', 'status', 'disabled');
94 + #$db->set_prop('DynDNS', 'status', 'disabled');#dropped
95 goto STATIC_IP;
96 }
97 }
98 @@ -682,7 +682,7 @@
99
100 $db->set_value('DialupUserAccount', $choice || '');
101
102 - goto DYNAMIC_DNS_SERVICE;
103 + goto OTHER_PARAMETERS;# was DYNAMIC_DNS_SERVICE;
104 }
105
106 #------------------------------------------------------------
107 @@ -721,181 +721,7 @@
108
109 $db->set_value('DialupUserPassword', $choice || '');
110
111 - goto DYNAMIC_DNS_SERVICE;
112 -}
113 -
114 -#------------------------------------------------------------
115 -DYNAMIC_DNS_SERVICE:
116 -#------------------------------------------------------------
117 -goto OTHER_PARAMETERS unless (-d "/sbin/e-smith/dynamic-dns");
118 -
119 -{
120 - unless (opendir (DIR, "/sbin/e-smith/dynamic-dns"))
121 - {
122 - warn gettext("Cannot read directory"),
123 - " /sbin/e-smith/dynamic-dns", "\n";
124 - $db->set_prop('DynDNS', 'status', 'disabled');
125 - goto OTHER_PARAMETERS;
126 -
127 - }
128 - my @scripts = grep (!/^(\.\.?|custom)$/, readdir (DIR));
129 - closedir (DIR);
130 -
131 - foreach my $script (@scripts)
132 - {
133 - # Grab description from script contents
134 - }
135 -
136 - my $currentnumber;
137 -
138 - my $status = $db->get_prop('DynDNS', 'status') || "disabled";
139 - my $service = $db->get_prop('DynDNS', 'Service');
140 - if ($status eq "disabled")
141 - {
142 - $service = "off";
143 - $currentnumber = "1.";
144 - }
145 - else
146 - {
147 - if ($service eq 'yi')
148 - {
149 - $currentnumber = "2.";
150 - }
151 -
152 - if ($service eq 'dyndns')
153 - {
154 - $currentnumber = "3.";
155 - }
156 -
157 - if ($service eq 'dyndns.org')
158 - {
159 - $currentnumber = "4.";
160 - }
161 -
162 - if ($service eq 'tzo')
163 - {
164 - $currentnumber = "5.";
165 - }
166 -
167 - if ($service eq 'custom')
168 - {
169 - $currentnumber = "6.";
170 - }
171 - }
172 -
173 - my @args = (
174 - "1.", gettext("Do not use a dynamic DNS service"),
175 - "2.", "www.yi.org" . " - " . gettext("free service"),
176 - "3.", "www.dyndns.com" . " - " . gettext("commercial service"),
177 - "4.", "www.dyndns.org" . " - " . gettext("free service"),
178 - "5.", "www.tzo.com" . " - " . gettext("commercial service"),
179 - "6.", gettext("custom DynDNS service"),
180 - );
181 -
182 - ($rc, $choice) = $console->menu_page
183 - (
184 - title => gettext("Select dynamic DNS service"),
185 - default => $currentnumber,
186 - text =>
187 - gettext("Please specify whether you wish to subscribe to a dynamic DNS service. Such services allow you to have a domain name without a static IP address, and are available from various organizations for free or for a reasonable charge. A notification must be sent to the dynamic DNS service whenever your IP address changes. Your server can automatically do this for some dynamic DNS services.") .
188 - "\n\n" .
189 - gettext("Choose which dynamic DNS service you would like to use."),
190 - argsref => \@args
191 - );
192 -
193 - goto SERVER_GATEWAY_DEDICATED unless ($rc == 0);
194 -
195 - if ($choice eq "1.")
196 - {
197 - $db->set_prop('DynDNS', 'status', 'disabled');
198 - goto OTHER_PARAMETERS;
199 - }
200 - $db->set_prop('DynDNS', 'status', 'enabled');
201 - if ($choice eq "2.")
202 - {
203 - $db->set_prop('DynDNS', 'Service', 'yi');
204 - goto DYNAMIC_DNS_ACCOUNT;
205 - }
206 -
207 - if ($choice eq "3.")
208 - {
209 - $db->set_prop('DynDNS', 'Service', 'dyndns');
210 - goto DYNAMIC_DNS_ACCOUNT;
211 - }
212 -
213 - if ($choice eq "4.")
214 - {
215 - $db->set_prop('DynDNS', 'Service', 'dyndns.org');
216 - goto DYNAMIC_DNS_ACCOUNT;
217 - }
218 -
219 - if ($choice eq "5.")
220 - {
221 - $db->set_prop('DynDNS', 'Service', 'tzo');
222 - goto DYNAMIC_DNS_ACCOUNT;
223 - }
224 -
225 - if ($choice eq "6.")
226 - {
227 - $db->set_prop('DynDNS', 'Service', 'custom');
228 - goto DYNAMIC_DNS_ACCOUNT;
229 - }
230 -}
231 -
232 -#------------------------------------------------------------
233 -DYNAMIC_DNS_ACCOUNT:
234 -#------------------------------------------------------------
235 -
236 -{
237 - my $account = $db->get_prop('DynDNS', 'Account') || '';
238 - my $service = $db->get_prop('DynDNS', 'Service');
239 - ($rc, $choice) = $console->input_page
240 - (
241 - title => gettext("Select dynamic DNS account"),
242 - text => gettext("Please enter the account name for your dynamic DNS service"),
243 - value => $account
244 - );
245 -
246 - goto DYNAMIC_DNS_SERVICE unless ($rc == 0);
247 -
248 - if ($choice)
249 - {
250 - $db->set_prop('DynDNS', 'Account', $choice);
251 - }
252 - else
253 - {
254 - $db->set_prop('DynDNS', 'Account', '');
255 - }
256 -
257 - goto DYNAMIC_DNS_PASSWORD;
258 -}
259 -
260 -#------------------------------------------------------------
261 -DYNAMIC_DNS_PASSWORD:
262 -#------------------------------------------------------------
263 -
264 -{
265 - my $account = $db->get_prop('DynDNS', 'Account');
266 - my $password = $db->get_prop('DynDNS', 'Password') || '';
267 - ($rc, $choice) = $console->input_page
268 - (
269 - title => gettext("Select dynamic DNS password"),
270 - text => gettext("Please enter the password for your dynamic DNS service"),
271 - value => $password
272 - );
273 -
274 - goto DYNAMIC_DNS_ACCOUNT unless ($rc == 0);
275 -
276 - if ($choice)
277 - {
278 - $db->set_prop('DynDNS', 'Password', $choice);
279 - }
280 - else
281 - {
282 - $db->set_prop('DynDNS', 'Password', '');
283 - }
284 -
285 - goto OTHER_PARAMETERS;
286 + goto OTHER_PARAMETERS;# was DYNAMIC_DNS_SERVICE;
287 }
288
289 #------------------------------------------------------------
290 @@ -1566,7 +1392,7 @@
291
292 $db->set_value('DialupConnWeekend', $gettext2policy{$choice});
293
294 - goto DYNAMIC_DNS_SERVICE;
295 + goto OTHER_PARAMETERS;# was DYNAMIC_DNS_SERVICE;
296 }
297
298

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