5 # This code is distributed under the terms of the GPL
7 # (c) The SmoothWall Team
9 # Copyright (C) 01-02-2002 Graham Smith <grhm@grhm.co.uk>
10 # - Fixed DHCP Leases added
12 # $Id: dhcp.cgi,v 1.14.2.81 2006/01/20 12:05:29 franck78 Exp $
14 # Franck -rewrite for two or more interface
15 # nov/2004 -check range is in correct subnet
17 # -add display sorting of actives leases
18 # dec/2004 -add comment field to fixed leases
20 # to do : choose a correct format for displaying dates
24 # enable only the following on debugging purpose
26 #use CGI::Carp 'fatalsToBrowser';
28 require 'CONFIG_ROOT/general-functions.pl';
29 require "${General::swroot}/lang.pl";
30 require "${General::swroot}/header.pl";
31 #workaround to suppress a warning when a variable is used only once
32 my @dummy = ( ${Header
::colouryellow
} );
39 my $setting = "${General::swroot}/dhcp/settings";
40 our $filename1 = "${General::swroot}/dhcp/advoptions"; # Field separator is TAB in this file (comma is standart)
41 # because we need commas in the some data
42 our $filename2 = "${General::swroot}/dhcp/fixleases";
43 our $filename3 = "${General::swroot}/dhcp/advoptions-list"; # Describe the allowed syntax for dhcp options
44 my $errormessage = '';
45 my $warnNTPmessage = '';
48 #Basic syntax allowed for new Option definition. Not implemented: RECORDS & array of RECORDS
49 our $OptionTypes = 'boolean|((un)?signed )?integer (8|16|32)|ip-address|text|string|encapsulate \w+|array of ip-address';
51 &Header
::showhttpheaders
();
52 our @ITFs=('GREEN','BLUE');
54 #Settings1 for the first screen box
55 foreach my $itf (@ITFs) {
56 $dhcpsettings{"ENABLE_${itf}"} = 'off';
57 $dhcpsettings{"ENABLEBOOTP_${itf}"} = 'off';
58 $dhcpsettings{"START_ADDR_${itf}"} = '';
59 $dhcpsettings{"END_ADDR_${itf}"} = '';
60 $dhcpsettings{"DOMAIN_NAME_${itf}"} = '';
61 $dhcpsettings{"DEFAULT_LEASE_TIME_${itf}"} = '';
62 $dhcpsettings{"MAX_LEASE_TIME_${itf}"} = '';
63 $dhcpsettings{"WINS1_${itf}"} = '';
64 $dhcpsettings{"WINS2_${itf}"} = '';
65 $dhcpsettings{"DNS1_${itf}"} = '';
66 $dhcpsettings{"DNS2_${itf}"} = '';
67 $dhcpsettings{"NTP1_${itf}"} = '';
68 $dhcpsettings{"NTP2_${itf}"} = '';
71 $dhcpsettings{'SORT_FLEASELIST'} = 'FIPADDR';
72 $dhcpsettings{'SORT_LEASELIST'} = 'IPADDR';
74 #Settings2 for editing the multi-line list
75 #Must not be saved with writehash !
76 $dhcpsettings{'FIX_MAC'} = '';
77 $dhcpsettings{'FIX_ADDR'} = '';
78 $dhcpsettings{'FIX_ENABLED'} = 'off';
79 $dhcpsettings{'FIX_NEXTADDR'} = '';
80 $dhcpsettings{'FIX_FILENAME'} = '';
81 $dhcpsettings{'FIX_ROOTPATH'} = '';
82 $dhcpsettings{'FIX_REMARK'} = '';
83 $dhcpsettings{'ACTION'} = '';
84 $dhcpsettings{'KEY1'} = '';
85 $dhcpsettings{'KEY2'} = '';
86 @nosaved=('FIX_MAC','FIX_ADDR','FIX_ENABLED','FIX_NEXTADDR',
87 'FIX_FILENAME','FIX_ROOTPATH','FIX_REMARK');
89 $dhcpsettings{'ADVOPT_ENABLED'} = '';
90 $dhcpsettings{'ADVOPT_NAME'} = '';
91 $dhcpsettings{'ADVOPT_DATA'} = '';
92 unshift (@nosaved,'ADVOPT_ENABLED','ADVOPT_NAME','ADVOPT_DATA');
93 foreach my $itf (@ITFs) {
94 $dhcpsettings{"ADVOPT_SCOPE_${itf}"} = 'off';
95 unshift (@nosaved, "ADVOPT_SCOPE_${itf}");
99 &General
::readhash
("${General::swroot}/ethernet/settings", \
%netsettings);
100 &General
::readhash
("${General::swroot}/main/settings", \
%mainsettings);
101 &General
::readhash
("${General::swroot}/time/settings", \
%timesettings);
104 &Header
::getcgihash
(\
%dhcpsettings);
106 open(FILE
, "$filename1") or die 'Unable to open dhcp advanced options file.';
107 our @current1 = <FILE
>;
109 # Extract OptionDefinition
110 foreach my $line (@current1) {
111 #chomp($line); # remove newline #don't know why, but this remove newline in @current1 .... !
112 my @temp = split(/\t/,$line);
113 AddNewOptionDefinition
($temp[1] . ' ' . $temp[2]);
116 open(FILE
, "$filename2") or die 'Unable to open fixed leases file.';
117 our @current2 = <FILE
>;
120 # Check Settings1 first because they are needed by &buildconf
121 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'save'}) {
122 foreach my $itf (@ITFs) {
123 if ($dhcpsettings{"ENABLE_${itf}"} eq 'on' ) {
124 # "Start" is defined, need "End" and vice versa
125 if ($dhcpsettings{"START_ADDR_${itf}"}) {
126 if (!(&General
::validip
($dhcpsettings{"START_ADDR_${itf}"}))) {
127 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid start address'};
130 if (!$dhcpsettings{"END_ADDR_${itf}"}) {
131 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid end address'};
134 if (! &General
::IpInSubnet
( $dhcpsettings{"START_ADDR_${itf}"},
135 $netsettings{"${itf}_NETADDRESS"},
136 $netsettings{"${itf}_NETMASK"})) {
137 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid start address'};
142 if ($dhcpsettings{"END_ADDR_${itf}"}) {
143 if (!(&General
::validip
($dhcpsettings{"END_ADDR_${itf}"}))) {
144 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid end address'};
147 if (!$dhcpsettings{"START_ADDR_${itf}"}) {
148 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid start address'};
151 if (! &General
::IpInSubnet
( $dhcpsettings{"END_ADDR_${itf}"},
152 $netsettings{"${itf}_NETADDRESS"},
153 $netsettings{"${itf}_NETMASK"})) {
154 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid end address'};
157 #swap if necessary! (support 255.255.0.0 range, I doubt we need more) GE
158 my @startoct = split (/\./, $dhcpsettings{"START_ADDR_${itf}"});
159 my @endoct = split (/\./, $dhcpsettings{"END_ADDR_${itf}"});
160 if ( $endoct[2]*256+$endoct[3] < $startoct[2]*256+$startoct[3] ) {
161 ($dhcpsettings{"START_ADDR_${itf}"},$dhcpsettings{"END_ADDR_${itf}"}) =
162 ($dhcpsettings{"END_ADDR_${itf}"},$dhcpsettings{"START_ADDR_${itf}"});
166 if (!($dhcpsettings{"DEFAULT_LEASE_TIME_${itf}"} =~ /^\d+$/)) {
167 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid default lease time'} . $dhcpsettings{'DEFAULT_LEASE_TIME_${itf}'};
171 if (!($dhcpsettings{"MAX_LEASE_TIME_${itf}"} =~ /^\d+$/)) {
172 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid max lease time'} . $dhcpsettings{'MAX_LEASE_TIME_${itf}'};
176 if ($dhcpsettings{"DNS1_${itf}"}) {
177 if (!(&General
::validip
($dhcpsettings{"DNS1_${itf}"}))) {
178 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid primary dns'};
182 if ($dhcpsettings{"DNS2_${itf}"}) {
183 if (!(&General
::validip
($dhcpsettings{"DNS2_${itf}"}))) {
184 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid secondary dns'};
187 if (! $dhcpsettings{"DNS1_${itf}"}) {
188 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'cannot specify secondary dns without specifying primary'};
193 if ($dhcpsettings{"WINS1_${itf}"}) {
194 if (!(&General
::validip
($dhcpsettings{"WINS1_${itf}"}))) {
195 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid wins address'};
199 if ($dhcpsettings{"WINS2_${itf}"}) {
200 if (!(&General
::validip
($dhcpsettings{"WINS2_${itf}"}))) {
201 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid wins address'};
204 if (! $dhcpsettings{"WINS1_${itf}"} ) {
205 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'cannot specify secondary wins without specifying primary'};
210 if ($dhcpsettings{"NTP1_${itf}"}) {
211 if (!(&General
::validip
($dhcpsettings{"NTP1_${itf}"}))) {
212 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid primary ntp'};
215 if ($dhcpsettings{"NTP1_${itf}"} eq $netsettings{"${itf}_ADDRESS"} && ($timesettings{'ENABLECLNTP'} ne 'on')) {
216 $warnNTPmessage = "DHCP on ${itf}: " . $Lang::tr
{'local ntp server specified but not enabled'};
220 if ($dhcpsettings{"NTP2_${itf}"}) {
221 if (!(&General
::validip
($dhcpsettings{"NTP2_${itf}"}))) {
222 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'invalid secondary ntp'};
225 if ($dhcpsettings{"NTP2_${itf}"} eq $netsettings{"${itf}_ADDRESS"} && ($timesettings{'ENABLECLNTP'} ne 'on')) {
226 $warnNTPmessage = "DHCP on ${itf}: " . $Lang::tr
{'local ntp server specified but not enabled'};
229 if (! $dhcpsettings{"NTP1_${itf}"}) {
230 $errormessage = "DHCP on ${itf}: " . $Lang::tr
{'cannot specify secondary ntp without specifying primary'};
235 }#loop interface verify
237 map (delete ($dhcpsettings{$_}) ,@nosaved,'ACTION','KEY1','KEY2'); # Must not be saved
238 &General
::writehash
($setting, \
%dhcpsettings); # Save good settings
239 $dhcpsettings{'ACTION'} = $Lang::tr
{'save'}; # create an 'ACTION'
240 map ($dhcpsettings{$_} = '',@nosaved,'KEY1','KEY2'); # and reinit vars to empty
242 ERROR
: # Leave the faulty field untouched
244 &General
::readhash
($setting, \
%dhcpsettings); # Get saved settings and reset to good if needed
247 ## Sorting of fixed leases
248 if ($ENV{'QUERY_STRING'} =~ /^FETHER|^FIPADDR/ ) {
249 my $newsort=$ENV{'QUERY_STRING'};
250 my $act=$dhcpsettings{'SORT_FLEASELIST'};
251 #Reverse actual sort ?
252 if ($act =~ $newsort) {
259 $dhcpsettings{'SORT_FLEASELIST'}=$newsort;
260 map (delete ($dhcpsettings{$_}) ,@nosaved,'ACTION','KEY1','KEY2'); # Must never be saved
261 &General
::writehash
($setting, \
%dhcpsettings);
263 $dhcpsettings{'ACTION'} = 'SORT'; # create an 'ACTION'
264 map ($dhcpsettings{$_} = '',@nosaved,'KEY1','KEY2');# and reinit vars to empty
267 #Sorting of allocated leases
268 &Header
::CheckSortOrder
;
271 ## Now manipulate the two multi-line list with Settings2.
272 # '1' suffix is for ADVANCED OPTIONS
273 # '2' suffix is for FIXED LEASES
275 # Toggle enable/disable field on specified options.
277 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'toggle enable disable'}.'1') {
279 chomp(@current1[$dhcpsettings{'KEY1'}]);
280 my @temp = split(/\t/,@current1[$dhcpsettings{'KEY1'}]); #use TAB separator !
281 $temp[0] = $temp[0] eq 'on' ?
'' : 'on'; # Toggle the field
282 @current1[$dhcpsettings{'KEY1'}] = join ("\t",@temp)."\n";
283 $dhcpsettings{'KEY1'} = ''; # End edit mode
284 &General
::log($Lang::tr
{'dhcp advopt modified'});
285 open(FILE
, ">$filename1") or die 'Unable to open dhcp advanced options file.';
286 print FILE
@current1;
289 #Write changes to dhcpd.conf.
295 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'add'}.'1' &&
296 $dhcpsettings{'SUBMIT'} ne $Lang::tr
{'dhcp advopt help'}) {
297 $dhcpsettings{'ADVOPT_NAME'} =~ s/[^ \w-]//g; # prevent execution of code by removing everything except letters/space
298 $dhcpsettings{'ADVOPT_DATA'} =~ s/`//g; # back tik ` ? not allowed !
300 if ($dhcpsettings{'ADVOPT_DATA'} eq '') {
301 $errormessage=$Lang::tr
{'dhcp advopt blank value'};
304 # Test for a new option definition string (join field name & data)
305 if (ExistNewOptionDefinition
($dhcpsettings{'ADVOPT_NAME'} . ' ' . $dhcpsettings{'ADVOPT_DATA'})) {
306 #only edit permitted if option definition exists
307 $errormessage = $Lang::tr
{'dhcp advopt definition exists'} if ($dhcpsettings{'KEY1'} eq '');
308 $dhcpsettings{'ADVOPT_ENABLED'} = 'on'; # force active
309 map ($dhcpsettings{"ADVOPT_SCOPE_$_"} = 'off', @ITFs); # force global
310 } elsif (AddNewOptionDefinition
($dhcpsettings{'ADVOPT_NAME'} . ' ' . $dhcpsettings{'ADVOPT_DATA'})) {
311 #was a new option definition
312 $dhcpsettings{'ADVOPT_ENABLED'} = 'on'; # force active
313 map ($dhcpsettings{"ADVOPT_SCOPE_$_"} = 'off', @ITFs); # force global
314 } elsif (ValidNewOption
($dhcpsettings{'ADVOPT_NAME'} . ' ' . $dhcpsettings{'ADVOPT_DATA'})) {
316 } elsif (! `grep "\$option $dhcpsettings{'ADVOPT_NAME'} " $filename3`) {
317 $errormessage=$Lang::tr
{'dhcp advopt unknown'}.': '.$dhcpsettings{'ADVOPT_NAME'};
320 unless ($errormessage) {
323 foreach my $itf (@ITFs) { # buils "RED,GREEN,ORANGE,... based on selection
324 $scope .= $dhcpsettings{"ADVOPT_SCOPE_${itf}"} eq 'on' ?
"\t$itf" : "\toff" ;
326 if ($dhcpsettings{'KEY1'} eq '') { #add or edit ? TAB separator !
327 unshift (@current1, "$dhcpsettings{'ADVOPT_ENABLED'}\t$dhcpsettings{'ADVOPT_NAME'}\t$dhcpsettings{'ADVOPT_DATA'}$scope\n");
328 &General
::log($Lang::tr
{'dhcp advopt added'});
330 @current1[$dhcpsettings{'KEY1'}] = "$dhcpsettings{'ADVOPT_ENABLED'}\t$dhcpsettings{'ADVOPT_NAME'}\t$dhcpsettings{'ADVOPT_DATA'}$scope\n";
331 $dhcpsettings{'KEY1'} = ''; # End edit mode
332 &General
::log($Lang::tr
{'dhcp advopt modified'});
335 #Write changes to dhcpd.conf.
336 &sortcurrent1
; # sort newly added/modified entry
337 &buildconf
; # before calling buildconf which use fixed lease file !
341 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'edit'}.'1') {
343 my $line = @current1[$dhcpsettings{'KEY1'}];
345 my @temp = split(/\t/, $line);
346 $dhcpsettings{'ADVOPT_ENABLED'}=$temp[0];
347 $dhcpsettings{'ADVOPT_NAME'}=$temp[1];
348 $dhcpsettings{'ADVOPT_DATA'}=$temp[2];
350 # read next fields which are the name (color) of an interface if this interface is scoped
351 for (my $key=0; $key<@ITFs; $key++) {
352 my $itf = $temp[3+$key];
353 if ($itf ne 'off') # Only is an interface name is read
355 $dhcpsettings{"ADVOPT_SCOPE_${itf}"} = 'on';
360 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'remove'}.'1') {
361 splice (@current1,$dhcpsettings{'KEY1'},1);
362 open(FILE
, ">$filename1") or die 'Unable to open dhcp advanced options file.';
363 print FILE
@current1;
365 $dhcpsettings{'KEY1'} = ''; # End remove mode
366 &General
::log($Lang::tr
{'dhcp advopt removed'});
367 #Write changes to dhcpd.conf.
373 # Toggle enable/disable field on specified lease.
374 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'toggle enable disable'}.'2') {
376 chomp(@current2[$dhcpsettings{'KEY2'}]);
377 my @temp = split(/\,/,@current2[$dhcpsettings{'KEY2'}]);
378 $temp[2] = $temp[2] eq 'on' ?
'' : 'on'; # Toggle the field
379 @current2[$dhcpsettings{'KEY2'}] = join (',',@temp)."\n";
380 $dhcpsettings{'KEY2'} = ''; # End edit mode
381 &General
::log($Lang::tr
{'fixed ip lease modified'});
382 open(FILE
, ">$filename2") or die 'Unable to open fixed leases file.';
383 print FILE
@current2;
386 #Write changes to dhcpd.conf.
390 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'add'}.'2') {
391 $dhcpsettings{'FIX_MAC'} =~ tr/-/:/;
392 unless(&General
::validip
($dhcpsettings{'FIX_ADDR'})) { $errormessage = $Lang::tr
{'invalid fixed ip address'}; }
393 unless(&General
::validmac
($dhcpsettings{'FIX_MAC'})) { $errormessage = $Lang::tr
{'invalid fixed mac address'}; }
394 if ($dhcpsettings{'FIX_NEXTADDR'}) {
395 unless(&General
::validip
($dhcpsettings{'FIX_NEXTADDR'})) { $errormessage = $Lang::tr
{'invalid fixed ip address'}; }
399 CHECK:foreach my $line (@current2) {
400 my @temp = split(/\,/,$line);
401 if($dhcpsettings{'KEY2'} ne $key) {
402 # same MAC is OK on different subnets. This test is not complete because
403 # if ip are not inside a known subnet, I don't warn.
404 # Also it may be needed to put duplicate fixed lease in their right subnet definition..
405 foreach my $itf (@ITFs) {
406 my $scoped = &General
::IpInSubnet
($dhcpsettings{'FIX_ADDR'},
407 $netsettings{"${itf}_NETADDRESS"},
408 $netsettings{"${itf}_NETMASK"}) &&
409 $dhcpsettings{"ENABLE_${itf}"} eq 'on';
411 (lc($dhcpsettings{'FIX_MAC'}) eq lc($temp[0])) &&
412 &General
::IpInSubnet
($temp[1],
413 $netsettings{"${itf}_NETADDRESS"},
414 $netsettings{"${itf}_NETMASK"})) {
415 $errormessage = "$Lang::tr{'mac address in use'} $dhcpsettings{'FIX_MAC'}";
423 unless ($errormessage) {
424 $dhcpsettings{'FIX_REMARK'} = &Header
::cleanhtml
($dhcpsettings{'FIX_REMARK'});
425 $dhcpsettings{'FIX_NEXTADDR'} = &Header
::cleanhtml
($dhcpsettings{'FIX_NEXTADDR'});
426 $dhcpsettings{'FIX_FILENAME'} = &Header
::cleanhtml
($dhcpsettings{'FIX_FILENAME'});
427 $dhcpsettings{'FIX_ROOTPATH'} = &Header
::cleanhtml
($dhcpsettings{'FIX_ROOTPATH'});
428 if ($dhcpsettings{'KEY2'} eq '') { #add or edit ?
429 unshift (@current2, "$dhcpsettings{'FIX_MAC'},$dhcpsettings{'FIX_ADDR'},$dhcpsettings{'FIX_ENABLED'},$dhcpsettings{'FIX_NEXTADDR'},$dhcpsettings{'FIX_FILENAME'},$dhcpsettings{'FIX_ROOTPATH'},$dhcpsettings{'FIX_REMARK'}\n");
430 &General
::log($Lang::tr
{'fixed ip lease added'});
432 @current2[$dhcpsettings{'KEY2'}] = "$dhcpsettings{'FIX_MAC'},$dhcpsettings{'FIX_ADDR'},$dhcpsettings{'FIX_ENABLED'},$dhcpsettings{'FIX_NEXTADDR'},$dhcpsettings{'FIX_FILENAME'},$dhcpsettings{'FIX_ROOTPATH'},$dhcpsettings{'FIX_REMARK'}\n";
433 $dhcpsettings{'KEY2'} = ''; # End edit mode
434 &General
::log($Lang::tr
{'fixed ip lease modified'});
437 #Write changes to dhcpd.conf.
438 &sortcurrent2
; # sort newly added/modified entry
439 &buildconf
; # before calling buildconf which use fixed lease file !
443 if ($dhcpsettings{'ACTION_ALL'} eq '+') {
445 foreach (keys %dhcpsettings) {
446 if (/^(\d+\.\d+\.\d+\.\d+)-([0-9a-fA-F:]+)$/) { # checked names are index of the line
449 if (!grep (/$2/,@current2)) {
450 unshift (@current2, "$mac,$ip,on,,,,imported\n");
456 #Write changes to dhcpd.conf.
457 $warnNTPmessage = $Lang::tr
{'fixed ip lease added'}."($news)";
458 &General
::log($warnNTPmessage);
459 &sortcurrent2
; # sort newly added/modified entry
460 &buildconf
; # before calling buildconf which use fixed lease file !
464 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'edit'}.'2') {
466 my $line = @current2[$dhcpsettings{'KEY2'}];
468 my @temp = split(/\,/, $line);
469 $dhcpsettings{'FIX_MAC'}=$temp[0];
470 $dhcpsettings{'FIX_ADDR'}=$temp[1];
471 $dhcpsettings{'FIX_ENABLED'}=$temp[2];
472 $dhcpsettings{'FIX_NEXTADDR'}=$temp[3];
473 $dhcpsettings{'FIX_FILENAME'}=$temp[4];
474 $dhcpsettings{'FIX_ROOTPATH'}=$temp[5];
475 $dhcpsettings{'FIX_REMARK'}=$temp[6];
478 if ($dhcpsettings{'ACTION'} eq $Lang::tr
{'remove'}.'2') {
479 splice (@current2,$dhcpsettings{'KEY2'},1);
480 open(FILE
, ">$filename2") or die 'Unable to open fixed lease file.';
481 print FILE
@current2;
483 $dhcpsettings{'KEY2'} = ''; # End remove mode
484 &General
::log($Lang::tr
{'fixed ip lease removed'});
485 #Write changes to dhcpd.conf.
493 if ($dhcpsettings{'ACTION'} eq '' ) { # First launch from GUI
495 # Set default DHCP values only if blank and disabled
496 foreach my $itf (@ITFs) {
497 if ($dhcpsettings{"ENABLE_${itf}"} ne 'on' ) {
498 $dhcpsettings{"DNS1_${itf}"} = $netsettings{"${itf}_ADDRESS"};
499 $dhcpsettings{"DEFAULT_LEASE_TIME_${itf}"} = '60';
500 $dhcpsettings{"MAX_LEASE_TIME_${itf}"} = '120';
501 $dhcpsettings{"DOMAIN_NAME_${itf}"} = $mainsettings{'DOMAINNAME'};
504 $dhcpsettings{'FIX_ENABLED'} = 'on';
507 &Header
::openpage
($Lang::tr
{'dhcp configuration'}, 1, '');
508 &Header
::openbigbox
('100%', 'left', '', $errormessage);
511 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
512 print "<font class='base'>$errormessage </font>\n";
515 if ($warnNTPmessage) {
516 $warnNTPmessage = "<font color=${Header::colourred}><b>$Lang::tr{'capswarning'}</b></font>: $warnNTPmessage";
519 &Header
::openbox
('100%', 'left', 'DHCP');
520 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>";
522 foreach my $itf (@ITFs) {
524 $checked{'ENABLE'}{'on'} = ( $dhcpsettings{"ENABLE_${itf}"} ne 'on') ?
'' : "checked='checked'";
525 $checked{'ENABLEBOOTP'}{'on'} = ( $dhcpsettings{"ENABLEBOOTP_${itf}"} ne 'on') ?
'' : "checked='checked'";
527 if ($netsettings{"${itf}_DEV"} ne '' ) { # Show only defined interface
532 <td width='25%' class='boldbase'><b><font color='${lc_itf}'>$Lang::tr{"$lc_itf interface"}</font></b></td>
533 <td class='base'>$Lang::tr{'enabled'}
534 <input type='checkbox' name='ENABLE_${itf}' $checked{'ENABLE'}{'on'} /></td>
535 <td width='25%' class='base'>$Lang::tr{'ip address'}/$Lang::tr{'netmask'}:</td><td><b>$netsettings{"${itf}_ADDRESS"}/$netsettings{"${itf}_NETMASK"}</b></td>
537 <td width='25%' class='base'>$Lang::tr{'start address'} <img src='/blob.gif' alt='*' /></td>
538 <td width='25%'><input type='text' name='START_ADDR_${itf}' value='$dhcpsettings{"START_ADDR_${itf}"}' /></td>
539 <td width='25%' class='base'>$Lang::tr{'end address'} <img src='/blob.gif' alt='*' /></td>
540 <td width='25%'><input type='text' name='END_ADDR_${itf}' value='$dhcpsettings{"END_ADDR_${itf}"}' /></td>
542 <td class='base'>$Lang::tr{'default lease time'}</td>
543 <td><input type='text' name='DEFAULT_LEASE_TIME_${itf}' value='$dhcpsettings{"DEFAULT_LEASE_TIME_${itf}"}' /></td>
544 <td class='base'>$Lang::tr{'max lease time'}</td>
545 <td><input type='text' name='MAX_LEASE_TIME_${itf}' value='$dhcpsettings{"MAX_LEASE_TIME_${itf}"}' /></td>
547 <td class='base'>$Lang::tr{'domain name suffix'} <img src='/blob.gif' alt='*' /></td>
548 <td><input type='text' name='DOMAIN_NAME_${itf}' value='$dhcpsettings{"DOMAIN_NAME_${itf}"}' /></td>
549 <td>$Lang::tr{'dhcp allow bootp'}:</td>
550 <td><input type='checkbox' name='ENABLEBOOTP_${itf}' $checked{'ENABLEBOOTP'}{'on'} /></td>
552 <td class='base'>$Lang::tr{'primary dns'}</td>
553 <td><input type='text' name='DNS1_${itf}' value='$dhcpsettings{"DNS1_${itf}"}' /></td>
554 <td class='base'>$Lang::tr{'secondary dns'} <img src='/blob.gif' alt='*' /></td>
555 <td><input type='text' name='DNS2_${itf}' value='$dhcpsettings{"DNS2_${itf}"}' /></td>
557 <td class='base'>$Lang::tr{'primary ntp server'}: <img src='/blob.gif' alt='*' /></td>
558 <td><input type='text' name='NTP1_${itf}' value='$dhcpsettings{"NTP1_${itf}"}' /></td>
559 <td class='base'>$Lang::tr{'secondary ntp server'}: <img src='/blob.gif' alt='*' /></td>
560 <td><input type='text' name='NTP2_${itf}' value='$dhcpsettings{"NTP2_${itf}"}' /></td>
562 <td class='base'>$Lang::tr{'primary wins server address'}: <img src='/blob.gif' alt='*' /></td>
563 <td><input type='text' name='WINS1_${itf}' value='$dhcpsettings{"WINS1_${itf}"}' /></td>
564 <td class='base'>$Lang::tr{'secondary wins server address'}: <img src='/blob.gif' alt='*' /></td>
565 <td><input type='text' name='WINS2_${itf}' value='$dhcpsettings{"WINS2_${itf}"}' /></td>
571 }# Show only defined interface
576 <td class='base' width='25%'><img src='/blob.gif' align='top' alt='*' /> $Lang::tr{'this field may be blank'}</td>
577 <td class='base' width='30%'>$warnNTPmessage</td>
578 <td width='40%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
579 <td width='5%' align='right'>
580 <a href='${General::adminmanualurl}/services.html#services_dhcp' target='_blank'>
581 <img src='/images/web-support.png' alt='$Lang::tr{'online help en'}' title='$Lang::tr{'online help en'}' /></a></td>
590 &Header
::openbox
('100%', 'left', $Lang::tr
{'dhcp advopt list'});
591 # DHCP Advanced options settings
593 $checked{'ADVOPT_ENABLED'}{'on'} = ($dhcpsettings{'ADVOPT_ENABLED'} ne 'on') ?
'' : "checked='checked'";
595 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'><table width='100%'>";
596 my $buttontext = $Lang::tr
{'add'};
597 if ($dhcpsettings{'KEY1'} ne '') {
598 $buttontext = $Lang::tr
{'update'};
599 print "<tr><td class='boldbase'><b>$Lang::tr{'dhcp advopt edit'}</b></td></tr>";
601 print "<tr><td class='boldbase'><b>$Lang::tr{'dhcp advopt add'}</b></td></tr>"
604 #search if the 'option' is in the list and print the syntax model
605 my $opt = `grep "\$option $dhcpsettings{'ADVOPT_NAME'} " $filename3`;
607 $opt =~ s/option $dhcpsettings{'ADVOPT_NAME'}/Syntax:/; # "option xyz abc" => "syntax: abc"
609 $opt = "<tr><td></td><td></td><td colspan='2'>$opt</td></tr>";
613 <td class='base'>$Lang::tr{'dhcp advopt name'}:</td>
614 <td><input type='text' name='ADVOPT_NAME' value='$dhcpsettings{'ADVOPT_NAME'}' size='18' /></td>
615 <td class='base'>$Lang::tr{'dhcp advopt value'}:</td>
616 <td><input type='text' name='ADVOPT_DATA' value='$dhcpsettings{'ADVOPT_DATA'}' size='40' /></td>
618 <td class='base'>$Lang::tr{'enabled'}</td><td><input type='checkbox' name='ADVOPT_ENABLED' $checked{'ADVOPT_ENABLED'}{'on'} /></td>
619 <td class='base'>$Lang::tr{'dhcp advopt scope'}: <img src='/blob.gif' alt='*' /></td>
624 # Put a checkbox for each interface. Checkbox visible disabled if interface is disabled
625 foreach my $itf (@ITFs) {
627 $checked{'ADVOPT_SCOPE_${itf}'}{'on'} = $dhcpsettings{"ADVOPT_SCOPE_${itf}"} ne 'on' ?
'' : "checked='checked'";
628 print "$Lang::tr{\"${lc_itf}\"} <input type='checkbox' name='ADVOPT_SCOPE_${itf}' $checked{'ADVOPT_SCOPE_${itf}'}{'on'} ";
629 print $dhcpsettings{"ENABLE_${itf}"} eq 'on' ?
"/>" : "disabled='disabled' />";
630 print " ";
640 <td class='base' width='50%'><img src='/blob.gif' align='top' alt='*' /> $Lang::tr{'dhcp advopt scope help'}</td>
641 <td width='50%' align='center'>
642 <input type='hidden' name='ACTION' value='$Lang::tr{'add'}1' />
643 <input type='submit' name='SUBMIT' value='$buttontext' />
644 <input type='submit' name='SUBMIT' value='$Lang::tr{'dhcp advopt help'}' />
645 <input type='hidden' name='KEY1' value='$dhcpsettings{'KEY1'}' />
652 #Edited line number (KEY1) passed until cleared by 'save' or 'remove' or 'new sort order'
654 # print help taken from the file describing options
655 if ($dhcpsettings{'SUBMIT'} eq $Lang::tr
{'dhcp advopt help'}) {
657 print "<table width='100%'>";
658 print "<tr><td width='30%'><b>$Lang::tr{'dhcp advopt name'}</b></td><td width='70%'><b>$Lang::tr{'dhcp advopt value'}</b></td>";
659 open(FILE
, "$filename3");
660 my @current3 = <FILE
>;
662 foreach my $line (@current3) {
663 $line =~ /option ([a-z0-9-]+) (.*);/;
664 print "<tr><td>$1</td><td>$2</td></tr>\n";
666 print "<tr><td colspan='2'><hr /></td></tr>\n";
667 print '<tr><td>string type</td><td>"quoted string" or 00:01:FF...</td></tr>';
668 print '<tr><td>ip-address type </td><td>10.0.0.1 | www.dot.com</td></tr>';
669 print '<tr><td>int,uint types</td><td>numbers</td></tr>';
670 print '<tr><td>flag type</td><td>on | off</td></tr>';
673 print "<table width='100%'>";
674 print "<tr><td width='30%'><b>$Lang::tr{'dhcp advopt custom definition'}</b></td><td width='70%'><b>$Lang::tr{'dhcp advopt value'}</b></td>";
675 print "<tr><td>any-name </td><td> code NNN=$OptionTypes</td></tr>";
676 print '<tr><td>a-string</td><td>code 100=string</td></tr>';
677 print '<tr><td>a-number</td><td>code 101=signed integer 8</td></tr>';
678 print '<tr><td>wpad</td><td>code 252=text</td></tr>';
679 print '<tr><td>wpad</td><td>"http://www.server.fr/path-to/proxy.pac"</td></tr>';
688 <td width='30%' class='boldbase' align='center'><b>$Lang::tr{'dhcp advopt name'}</b></td>
689 <td width='50%' class='boldbase' align='center'><b>$Lang::tr{'dhcp advopt value'}</b></td>
690 <td width='20%' class='boldbase' align='center'><b>$Lang::tr{'dhcp advopt scope'}</b></td>
691 <td colspan='3' class='boldbase' align='center'><b>$Lang::tr{'action'}</b></td>
696 foreach my $line (@current1) {
699 chomp($line); # remove newline
700 my @temp = split(/\t/,$line);
702 if ($temp[0] eq "on") {
704 $gdesc = $Lang::tr
{'click to disable'};
707 $gdesc = $Lang::tr
{'click to enable'};
710 if ($dhcpsettings{'KEY1'} eq $key) {
711 print "<tr bgcolor='${Header::colouryellow}'>";
713 print "<tr bgcolor='${Header::table2colour}'>";
715 print "<tr bgcolor='${Header::table1colour}'>";
719 <td align='center'>$temp[1]</td>
720 <td align='center'>$temp[2]</td>
724 # Prepare a global flag to make easy reading
726 my $disabledTogle = '';
727 my $disabledEditRemove = '';
728 if ( ExistNewOptionDefinition
($temp[1] . ' ' . $temp[2]) ) {
729 $global = $Lang::tr
{'dhcp advopt definition'};
730 $disabledTogle = "disabled='disabled'";
731 # Search if it is a used NewOptionDefinition to also disable edit & delete
732 $disabledEditRemove = "disabled='disabled'" if (IsUsedNewOptionDefinition
($temp[1], $temp[2]));
734 $global = $Lang::tr
{'dhcp advopt scope global'};
738 # Print each checked interface
739 for (my $key=0; $key<@ITFs; $key++) {
740 my $itf = $temp[3+$key];
741 if ($itf ne 'off') { # Only if an interface name is read
743 $global=''; # fall to local scope !
749 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
750 <input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}1' />
751 <input $disabledTogle type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' alt='$gdesc' title='$gdesc' />
752 <input type='hidden' name='KEY1' value='$key' />
757 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
758 <input type='hidden' name='ACTION' value='$Lang::tr{'edit'}1' />
759 <input $disabledEditRemove type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' />
760 <input type='hidden' name='KEY1' value='$key' />
765 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
766 <input type='hidden' name='ACTION' value='$Lang::tr{'remove'}1' />
767 <input $disabledEditRemove type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' alt='$Lang::tr{'remove'}' title='$Lang::tr{'remove'}' />
768 <input type='hidden' name='KEY1' value='$key' />
779 # If there are dhcp options, print Key to action icons
784 <td class='boldbase'> <b>$Lang::tr{'legend'}: </b></td>
785 <td><img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
786 <td class='base'>$Lang::tr{'click to disable'}</td>
787 <td> </td>
788 <td><img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
789 <td class='base'>$Lang::tr{'click to enable'}</td>
790 <td> </td>
791 <td><img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
792 <td class='base'>$Lang::tr{'edit'}</td>
793 <td> </td>
794 <td><img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
795 <td class='base'>$Lang::tr{'remove'}</td>
803 &Header
::openbox
('100%', 'left', $Lang::tr
{'current fixed leases'});
804 # Fixed leases screens
805 $checked{'FIX_ENABLED'}{'on'} = ($dhcpsettings{'FIX_ENABLED'} ne 'on') ?
'' : "checked='checked'";
807 $buttontext = $Lang::tr
{'add'};
808 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'><table width='100%'>";
810 if ($dhcpsettings{'KEY2'} ne '') {
811 $buttontext = $Lang::tr
{'update'};
812 print "<tr><td class='boldbase' colspan='3'><b>$Lang::tr{'edit an existing lease'}</b></td></tr>";
814 print "<tr><td class='boldbase' colspan='3'><b>$Lang::tr{'add new lease'}</b></td></tr>"
818 <td class='base'>$Lang::tr{'mac address'}:</td>
819 <td><input type='text' name='FIX_MAC' value='$dhcpsettings{'FIX_MAC'}' size='18' /></td>
820 <td class='base'>$Lang::tr{'ip address'}:</td>
821 <td><input type='text' name='FIX_ADDR' value='$dhcpsettings{'FIX_ADDR'}' size='18' /></td>
822 <td class='base'>$Lang::tr{'remark'}: <img src='/blob.gif' alt='*' /></td>
823 <td><input type='text' name='FIX_REMARK' value='$dhcpsettings{'FIX_REMARK'}' size='18' /></td>
825 <td class='base'>$Lang::tr{'enabled'}</td><td><input type='checkbox' name='FIX_ENABLED' $checked{'FIX_ENABLED'}{'on'} /></td>
827 <td colspan = '3'><b>$Lang::tr{'dhcp bootp pxe data'}</b></td>
829 <td class='base'>next-server: <img src='/blob.gif' alt='*' /></td>
830 <td><input type='text' name='FIX_NEXTADDR' value='$dhcpsettings{'FIX_NEXTADDR'}' size='18' /></td>
831 <td class='base'>filename: <img src='/blob.gif' alt='*' /></td>
832 <td><input type='text' name='FIX_FILENAME' value='$dhcpsettings{'FIX_FILENAME'}' size='18' /></td>
833 <td class='base'>root path: <img src='/blob.gif' alt='*' /></td>
834 <td><input type='text' name='FIX_ROOTPATH' value='$dhcpsettings{'FIX_ROOTPATH'}' size='18' /></td>
840 <td class='base' width='50%'><img src='/blob.gif' align='top' alt='*' /> $Lang::tr{'this field may be blank'}</td>
841 <td width='50%' align='center'>
842 <input type='hidden' name='ACTION' value='$Lang::tr{'add'}2' />
843 <input type='submit' name='SUBMIT' value='$buttontext' />
844 <input type='hidden' name='KEY2' value='$dhcpsettings{'KEY2'}' /></td>
850 #Edited line number (KEY2) passed until cleared by 'save' or 'remove' or 'new sort order'
856 <td width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?FETHER'><b>$Lang::tr{'mac address'}</b></a></td>
857 <td width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?FIPADDR'><b>$Lang::tr{'ip address'}</b></a></td>
858 <td width='15%' align='center'><b>$Lang::tr{'remark'}</b></td>
859 <td width='15%' class='boldbase' align='center'><b>next-server</b></td>
860 <td width='15%' class='boldbase' align='center'><b>filename</b></td>
861 <td width='15%' class='boldbase' align='center'><b>root path</b></td>
862 <td colspan='3' class='boldbase' align='center'><b>$Lang::tr{'action'}</b></td>
868 my %macdupl = (); # Duplicate MACs have to be on different subnets
871 # mark duplicate ip or duplicate MAC
872 foreach my $line (@current2) {
873 my @temp = split(/\,/,$line);
874 $macdupl{$temp[0]} += 1;
875 if ($macdupl{$temp[0]} > 1) {
876 $ipdup = 1; # Flag up duplicates for use later
878 $ipinuse{$temp[1]} += 1;
879 if ($ipinuse{$temp[1]} > 1) {
880 $ipdup = 1; # Flag up duplicates for use later
882 # Mark IP addresses outwith known subnets
883 $ipoutside{$temp[1]} = 1;
884 foreach my $itf (@ITFs) {
885 if ( &General
::IpInSubnet
($temp[1],
886 $netsettings{"${itf}_NETADDRESS"},
887 $netsettings{"${itf}_NETMASK"})) {
888 $ipoutside{$temp[1]} = 0;
894 foreach my $line (@current2) {
897 chomp($line); # remove newline
898 my @temp = split(/\,/,$line);
900 if ($temp[2] eq "on") {
902 $gdesc = $Lang::tr
{'click to disable'};
905 $gdesc = $Lang::tr
{'click to enable'};
908 if ($dhcpsettings{'KEY2'} eq $key) {
909 print "<tr bgcolor='${Header::colouryellow}'>";
911 print "<tr bgcolor='${Header::table2colour}'>";
913 print "<tr bgcolor='${Header::table1colour}'>";
920 if ($ipinuse{$temp[1]} > 1) {
924 if ($macdupl{$temp[0]} > 1) {
928 if ($ipoutside{$temp[1]} > 0) {
929 $TAG4 = "bgcolor='orange'" if ($dhcpsettings{'KEY2'} ne $key);
933 <td align='center'>$TAG2$temp[0]$TAG3</td>
934 <td align='center' $TAG4>$TAG0$temp[1]$TAG1</td>
935 <td align='center'>$temp[6] </td>
936 <td align='center'>$temp[3] </td>
937 <td align='center'>$temp[4] </td>
938 <td align='center'>$temp[5] </td>
941 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
942 <input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}2' />
943 <input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' alt='$gdesc' title='$gdesc' />
944 <input type='hidden' name='KEY2' value='$key' />
949 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
950 <input type='hidden' name='ACTION' value='$Lang::tr{'edit'}2' />
951 <input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' />
952 <input type='hidden' name='KEY2' value='$key' />
957 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
958 <input type='hidden' name='ACTION' value='$Lang::tr{'remove'}2' />
959 <input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' alt='$Lang::tr{'remove'}' title='$Lang::tr{'remove'}' />
960 <input type='hidden' name='KEY2' value='$key' />
970 # If the fixed lease file contains entries, print Key to action icons
972 my $dup = $ipdup ?
"<td class='base'>$Lang::tr{'duplicate ip bold'}</td>" :'';
976 <td class='boldbase'> <b>$Lang::tr{'legend'}: </b></td>
977 <td><img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
978 <td class='base'>$Lang::tr{'click to disable'}</td>
979 <td> </td>
980 <td><img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
981 <td class='base'>$Lang::tr{'click to enable'}</td>
982 <td> </td>
983 <td><img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
984 <td class='base'>$Lang::tr{'edit'}</td>
985 <td> </td>
986 <td><img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
987 <td class='base'>$Lang::tr{'remove'}</td>
991 <td bgcolor='orange'> </td>
992 <td class='base'>$Lang::tr{'ip address outside subnets'}</td>
1002 &Header
::closebox
();
1005 foreach my $itf (@ITFs) {
1006 if ($dhcpsettings{"ENABLE_${itf}"} eq 'on') {
1007 # display leases with a list of actions to do with the global select checkbox.
1008 &Header
::PrintActualLeases
("+"); # "+" => create fixed leases from nodeaddress
1009 last; #Print one time only for all interfaces
1013 &Header
::closebigbox
();
1014 &Header
::closepage
();
1016 ## Ouf it's the end !
1018 sub sortcurrent1
# by now, do not sort, just write
1020 open(FILE
, ">$filename1") or die 'Unable to open dhcp advanced options file.';
1021 print FILE
@current1;
1026 # Sort the "current2" array according to choices
1031 sub fixedleasesort
{
1033 if (rindex ($dhcpsettings{'SORT_FLEASELIST'},'Rev') != -1) {
1034 $qs=substr ($dhcpsettings{'SORT_FLEASELIST'},0,length($dhcpsettings{'SORT_FLEASELIST'})-3);
1035 if ($qs eq 'FIPADDR') {
1036 my @a = split(/\./,$entries{$a}->{$qs});
1037 my @b = split(/\./,$entries{$b}->{$qs});
1043 $entries{$b}->{$qs} cmp $entries{$a}->{$qs};
1045 } else { #not reverse
1046 $qs=$dhcpsettings{'SORT_FLEASELIST'};
1047 if ($qs eq 'FIPADDR') {
1048 my @a = split(/\./,$entries{$a}->{$qs});
1049 my @b = split(/\./,$entries{$b}->{$qs});
1055 $entries{$a}->{$qs} cmp $entries{$b}->{$qs};
1060 #Use an associative array (%entries)
1061 foreach my $line (@current2) {
1062 chomp( $line); #remove newline because can be on field 5 or 6 (addition of REMARK)
1063 my @temp = split (',',$line);
1064 my @record = ('FETHER',$temp[0],'FIPADDR',$temp[1],'DATA',join(',',@temp[2..6]));
1065 my $record = {}; # create a reference to empty hash
1066 %{$record} = @record; # populate that hash with @record
1067 # use combination of ether & IP as key to allow duplicates in either but not both
1068 $entries{$record->{FETHER
} . $record->{FIPADDR
}} = $record; # add this to a hash of hashes
1071 open(FILE
, ">$filename2") or die 'Unable to open fixed lease file.';
1072 foreach my $entry ( sort fixedleasesort
keys %entries) {
1073 print FILE
"$entries{$entry}->{FETHER},$entries{$entry}->{FIPADDR},$entries{$entry}->{DATA}\n";
1077 # Reload sorted @current2
1078 open (FILE
, "$filename2");
1081 undef (%entries); #This array is reused latter. Clear it.
1084 # Build the configuration file mixing settings, fixed leases and advanced options
1086 open(FILE
, ">/${General::swroot}/dhcp/dhcpd.conf") or die "Unable to write dhcpd.conf file";
1090 print FILE
"ddns-update-style none;\n";
1091 print FILE
"deny bootp; #default\n";
1092 print FILE
"authoritative;\n";
1094 # Write first new option definition
1095 foreach my $line (@current1) {
1096 chomp($line); # remove newline
1097 my @temp = split(/\t/,$line);
1098 if (ExistNewOptionDefinition
($temp[1] . ' ' . $temp[2])) {
1099 print FILE
"option $temp[1] $temp[2];\n";
1102 # Write other global options
1103 foreach my $line (@current1) {
1104 chomp($line); # remove newline
1105 my @temp = split(/\t/,$line);
1107 if ($temp[0] eq 'on' && !ExistNewOptionDefinition
($temp[1] . ' ' . $temp[2])){ # active & !definition
1109 for (my $key=0; $key<@ITFs; $key++) {
1110 my $itf = $temp[3+$key];
1111 if ($itf ne 'off') # Only if an interface name is read
1117 print FILE
"option $temp[1] $temp[2];\n";
1122 #Subnet range definition
1123 foreach my $itf (@ITFs) {
1124 my $lc_itf=lc($itf);
1125 if ($dhcpsettings{"ENABLE_${itf}"} eq 'on' ){
1126 print FILE
"\nsubnet " . $netsettings{"${itf}_NETADDRESS"} . " netmask ". $netsettings{"${itf}_NETMASK"} . " #$itf\n";
1128 print FILE
"\trange " . $dhcpsettings{"START_ADDR_${itf}"} . ' ' . $dhcpsettings{"END_ADDR_${itf}"}.";\n" if ($dhcpsettings{"START_ADDR_${itf}"});
1129 print FILE
"\toption subnet-mask " . $netsettings{"${itf}_NETMASK"} . ";\n";
1130 print FILE
"\toption domain-name \"" . $dhcpsettings{"DOMAIN_NAME_${itf}"} . "\";\n";
1131 print FILE
"\toption routers " . $netsettings{"${itf}_ADDRESS"} . ";\n";
1132 print FILE
"\toption domain-name-servers " . $dhcpsettings{"DNS1_${itf}"} if ($dhcpsettings{"DNS1_${itf}"});
1133 print FILE
", " . $dhcpsettings{"DNS2_${itf}"} if ($dhcpsettings{"DNS2_${itf}"});
1134 print FILE
";\n" if ($dhcpsettings{"DNS1_${itf}"});
1135 print FILE
"\toption ntp-servers " . $dhcpsettings{"NTP1_${itf}"} if ($dhcpsettings{"NTP1_${itf}"});
1136 print FILE
", " . $dhcpsettings{"NTP2_${itf}"} if ($dhcpsettings{"NTP2_${itf}"});
1137 print FILE
";\n" if ($dhcpsettings{"NTP1_${itf}"});
1138 print FILE
"\toption netbios-name-servers " . $dhcpsettings{"WINS1_${itf}"} if ($dhcpsettings{"WINS1_${itf}"});
1139 print FILE
", " . $dhcpsettings{"WINS2_${itf}"} if ($dhcpsettings{"WINS2_${itf}"});
1140 print FILE
";\n" if ($dhcpsettings{"WINS1_${itf}"});
1141 print FILE
"\tdefault-lease-time " . ($dhcpsettings{"DEFAULT_LEASE_TIME_${itf}"} * 60). ";\n";
1142 print FILE
"\tmax-lease-time " . ($dhcpsettings{"MAX_LEASE_TIME_${itf}"} * 60) . ";\n";
1143 print FILE
"\tallow bootp;\n" if ($dhcpsettings{"ENABLEBOOTP_${itf}"} eq 'on');
1147 # Write scoped options
1148 foreach my $line (@current1) {
1149 chomp($line); # remove newline
1150 my @temp = split(/\t/,$line); # Use TAB separator !
1152 if ($temp[0] eq 'on'){
1153 for (my $key=0; $key<@ITFs; $key++) {
1154 if ($itf eq $temp[3+$key]) # Only is an interface name is read
1156 print FILE
"\toption $temp[1] $temp[2];\n";
1161 print FILE
"} #$itf\n";
1163 system ('/bin/touch', "${General::swroot}/dhcp/enable_${lc_itf}");
1164 &General
::log("DHCP on ${itf}: " . $Lang::tr
{'dhcp server enabled'})
1166 unlink "${General::swroot}/dhcp/enable_${lc_itf}";
1167 &General
::log("DHCP on ${itf}: " . $Lang::tr
{'dhcp server disabled'})
1171 #write fixed leases if any. Does not handle duplicates to write them elsewhere than the global scope.
1173 foreach my $line (@current2) {
1175 my @temp = split(/\,/,$line);
1176 if ($temp[2] eq "on") {
1177 print FILE
"\nhost fix$key # $temp[6]\n";
1179 print FILE
"\thardware ethernet $temp[0];\n";
1180 print FILE
"\tfixed-address $temp[1];\n";
1181 print FILE
"\tnext-server $temp[3];\n" if ($temp[3]);
1182 print FILE
"\tfilename \"$temp[4]\";\n" if ($temp[4]);
1183 print FILE
"\toption root-path \"$temp[5]\";\n" if ($temp[5]);
1189 system '/usr/local/bin/restartdhcp';
1193 # Receive a string and if it match model for a new option,
1194 # add it to the list %newOptions
1196 my %NewOptions = ();
1198 sub AddNewOptionDefinition
{
1200 if ( $line =~ /^([-\w]+)( code \d+=($OptionTypes))/ ) {
1201 $NewOptions{$1} = $2;
1202 #&General::log ("new:<$1><$2>");
1209 # Check existence of definition for a new option
1211 sub ExistNewOptionDefinition
{
1214 if ( $line =~ /^([-\w]+)( code \d+=($OptionTypes))/ ) {
1215 return defined $NewOptions{$1};
1221 # Check if it is a new option (definition must exist)
1222 # "code=" test eliminate a false response when definition exists
1223 # but this string is a definition with bad $OptionTypes.
1224 sub ValidNewOption
{
1226 if ($line =~ /^([-\w]+) (.*)/ ) {
1227 return defined ( $NewOptions{$1} ) && $2 !~ /code=/;
1233 # Check if the new option $opt is used, except the definition of itself!
1235 sub IsUsedNewOptionDefinition
{
1236 my ($opt,$val) = @_;
1238 foreach my $line (@current1) {
1239 #chomp($line); # remove newline #don't know why, but this remove newline in @current1 .... !
1240 my @temp = split(/\t/,$line);
1241 # if we find something "opt value" & value != "code nnn=" it's ok.
1242 return 1 if ( ($opt eq $temp[1]) && ($temp[2] !~ /code \d+=/) );