html/cgi-bin/dhcp.cgi

   1 #!/usr/bin/perl
   2 #
   3 # SmoothWall CGIs
   4 #
   5 # This code is distributed under the terms of the GPL
   6 #
   7 # (c) The SmoothWall Team
   8 #
   9 # Copyright (C) 01-02-2002 Graham Smith <grhm@grhm.co.uk>
  10 #              - Fixed DHCP Leases added
  11 #
  12 # $Id: dhcp.cgi,v 1.14.2.81 2006/01/20 12:05:29 franck78 Exp $
  13 #
  14 #  Franck       -rewrite for two or more interface
  15 #  nov/2004     -check range is in correct subnet
  16 #               -add NTP option
  17 #               -add display sorting of actives leases
  18 #  dec/2004     -add comment field to fixed leases
  19 #
  20 # to do : choose a correct format for displaying dates
  21 #
  22 use strict;
  23
  24 # enable only the following on debugging purpose
  25 #use warnings;
  26 #use CGI::Carp 'fatalsToBrowser';
  27
  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} );
  33 undef (@dummy);
  34
  35 our %dhcpsettings=();
  36 our %netsettings=();
  37 my %mainsettings=();
  38 my %timesettings=();
  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 = '';
  46 my @nosaved=();
  47
  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';
  50
  51 &Header::showhttpheaders();
  52 our @ITFs=('GREEN','BLUE');
  53
  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}"} = '';
  69 }
  70
  71 $dhcpsettings{'SORT_FLEASELIST'} = 'FIPADDR';
  72 $dhcpsettings{'SORT_LEASELIST'} = 'IPADDR';
  73
  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');
  88
  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}");
  96 }
  97
  98 # Read Ipcop settings
  99 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
 100 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
 101 &General::readhash("${General::swroot}/time/settings", \%timesettings);
 102
 103 #Get GUI values
 104 &Header::getcgihash(\%dhcpsettings);
 105
 106 open(FILE, "$filename1") or die 'Unable to open dhcp advanced options file.';
 107 our @current1 = <FILE>;
 108 close(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]);
 114 }
 115
 116 open(FILE, "$filename2") or die 'Unable to open fixed leases file.';
 117 our @current2 = <FILE>;
 118 close(FILE);
 119
 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'};
 128                     goto ERROR;
 129                 }
 130                 if (!$dhcpsettings{"END_ADDR_${itf}"}) {
 131                     $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid end address'};
 132                     goto ERROR;
 133                 }
 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'};
 138                     goto ERROR;
 139                 }
 140             }
 141
 142             if ($dhcpsettings{"END_ADDR_${itf}"}) {
 143                 if (!(&General::validip($dhcpsettings{"END_ADDR_${itf}"}))) {
 144                     $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid end address'};
 145                     goto ERROR;
 146                 }
 147                 if (!$dhcpsettings{"START_ADDR_${itf}"}) {
 148                     $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid start address'};
 149                     goto ERROR;
 150                 }
 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'};
 155                     goto ERROR;
 156                 }
 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}"});
 163                 }
 164             }
 165
 166             if (!($dhcpsettings{"DEFAULT_LEASE_TIME_${itf}"} =~ /^\d+$/)) {
 167                 $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid default lease time'} . $dhcpsettings{'DEFAULT_LEASE_TIME_${itf}'};
 168                 goto ERROR;
 169             }
 170
 171             if (!($dhcpsettings{"MAX_LEASE_TIME_${itf}"} =~ /^\d+$/)) {
 172                 $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid max lease time'} . $dhcpsettings{'MAX_LEASE_TIME_${itf}'};
 173                 goto ERROR;
 174             }
 175
 176             if ($dhcpsettings{"DNS1_${itf}"}) {
 177                 if (!(&General::validip($dhcpsettings{"DNS1_${itf}"}))) {
 178                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid primary dns'};
 179                         goto ERROR;
 180                 }
 181             }
 182             if ($dhcpsettings{"DNS2_${itf}"}) {
 183                 if (!(&General::validip($dhcpsettings{"DNS2_${itf}"}))) {
 184                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid secondary dns'};
 185                         goto ERROR;
 186                 }
 187                 if (! $dhcpsettings{"DNS1_${itf}"}) {
 188                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'cannot specify secondary dns without specifying primary'};
 189                         goto ERROR;
 190                 }
 191             }
 192
 193             if ($dhcpsettings{"WINS1_${itf}"}) {
 194                 if (!(&General::validip($dhcpsettings{"WINS1_${itf}"}))) {
 195                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid wins address'};
 196                         goto ERROR;
 197                 }
 198             }
 199             if ($dhcpsettings{"WINS2_${itf}"}) {
 200                 if (!(&General::validip($dhcpsettings{"WINS2_${itf}"})))        {
 201                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid wins address'};
 202                         goto ERROR;
 203                 }
 204                 if (! $dhcpsettings{"WINS1_${itf}"} ) {
 205                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'cannot specify secondary wins without specifying primary'};
 206                         goto ERROR;
 207                 }
 208             }
 209
 210             if ($dhcpsettings{"NTP1_${itf}"}) {
 211                 if (!(&General::validip($dhcpsettings{"NTP1_${itf}"}))) {
 212                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid primary ntp'};
 213                         goto ERROR;
 214                 }
 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'};
 217                         #goto ERROR;
 218                 }
 219             }
 220             if ($dhcpsettings{"NTP2_${itf}"}) {
 221                 if (!(&General::validip($dhcpsettings{"NTP2_${itf}"}))) {
 222                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'invalid secondary ntp'};
 223                         goto ERROR;
 224                 }
 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'};
 227                         #goto ERROR;
 228                 }
 229                 if (! $dhcpsettings{"NTP1_${itf}"}) {
 230                         $errormessage = "DHCP on ${itf}: " . $Lang::tr{'cannot specify secondary ntp without specifying primary'};
 231                         goto ERROR;
 232                 }
 233             }
 234         } # enabled
 235     }#loop interface verify
 236
 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
 241     &buildconf;
 242     ERROR:                                                      # Leave the faulty field untouched
 243 } else {
 244     &General::readhash($setting, \%dhcpsettings);               # Get saved settings and reset to good if needed
 245 }
 246
 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) {
 253         my $Rev='';
 254         if ($act !~ 'Rev') {
 255             $Rev='Rev';
 256         }
 257         $newsort.=$Rev;
 258     }
 259     $dhcpsettings{'SORT_FLEASELIST'}=$newsort;
 260     map (delete ($dhcpsettings{$_}) ,@nosaved,'ACTION','KEY1','KEY2');  # Must never be saved
 261     &General::writehash($setting, \%dhcpsettings);
 262     &sortcurrent2;
 263     $dhcpsettings{'ACTION'} = 'SORT';                   # create an 'ACTION'
 264     map ($dhcpsettings{$_} = '',@nosaved,'KEY1','KEY2');# and reinit vars to empty
 265 }
 266
 267 #Sorting of allocated leases
 268 &Header::CheckSortOrder;
 269
 270
 271 ## Now manipulate the two multi-line list with Settings2.
 272 #  '1' suffix is for ADVANCED OPTIONS
 273 #  '2' suffix is for FIXED LEASES
 274
 275 # Toggle enable/disable field on specified options.
 276
 277 if ($dhcpsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'}.'1') {
 278     #move out new line
 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;
 287     close(FILE);
 288
 289     #Write changes to dhcpd.conf.
 290     &buildconf;
 291 }
 292
 293
 294
 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 !
 299
 300     if ($dhcpsettings{'ADVOPT_DATA'} eq '') {
 301         $errormessage=$Lang::tr{'dhcp advopt blank value'};
 302     }
 303
 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'})) {
 315         #was a new option
 316     } elsif (! `grep "\$option $dhcpsettings{'ADVOPT_NAME'} " $filename3`) {
 317         $errormessage=$Lang::tr{'dhcp advopt unknown'}.': '.$dhcpsettings{'ADVOPT_NAME'};
 318     }
 319
 320     unless ($errormessage) {
 321
 322         my $scope = '';
 323         foreach my $itf (@ITFs) {  # buils "RED,GREEN,ORANGE,... based on selection
 324             $scope .= $dhcpsettings{"ADVOPT_SCOPE_${itf}"} eq 'on' ? "\t$itf" : "\toff" ;
 325         }
 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'});
 329         } else {
 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'});
 333         }
 334
 335         #Write changes to dhcpd.conf.
 336         &sortcurrent1;    # sort newly added/modified entry
 337         &buildconf;       # before calling buildconf which use fixed lease file !
 338     }
 339 }
 340
 341 if ($dhcpsettings{'ACTION'} eq $Lang::tr{'edit'}.'1') {
 342     #move out new line
 343     my $line = @current1[$dhcpsettings{'KEY1'}];
 344     chomp($line);
 345     my @temp = split(/\t/, $line);
 346     $dhcpsettings{'ADVOPT_ENABLED'}=$temp[0];
 347     $dhcpsettings{'ADVOPT_NAME'}=$temp[1];
 348     $dhcpsettings{'ADVOPT_DATA'}=$temp[2];
 349
 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
 354         {
 355             $dhcpsettings{"ADVOPT_SCOPE_${itf}"} = 'on';
 356         }
 357     }
 358 }
 359
 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;
 364     close(FILE);
 365     $dhcpsettings{'KEY1'} = '';                         # End remove mode
 366     &General::log($Lang::tr{'dhcp advopt removed'});
 367     #Write changes to dhcpd.conf.
 368     &buildconf;
 369 }
 370 #end KEY1
 371
 372
 373 # Toggle enable/disable field on specified lease.
 374 if ($dhcpsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'}.'2') {
 375     #move out new line
 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;
 384     close(FILE);
 385
 386     #Write changes to dhcpd.conf.
 387     &buildconf;
 388 }
 389
 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'}; }
 396     }
 397
 398     my $key = 0;
 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';
 410                 if ( $scoped &&
 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'}";
 416                     last CHECK;
 417                 }
 418             }
 419         }
 420         $key++;
 421     }
 422
 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'});
 431         } else {
 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'});
 435         }
 436
 437         #Write changes to dhcpd.conf.
 438         &sortcurrent2;    # sort newly added/modified entry
 439         &buildconf;       # before calling buildconf which use fixed lease file !
 440     }
 441 }
 442
 443 if ($dhcpsettings{'ACTION_ALL'} eq '+') {
 444     my $news = 0;
 445     foreach (keys %dhcpsettings) {
 446         if (/^(\d+\.\d+\.\d+\.\d+)-([0-9a-fA-F:]+)$/) {     # checked names are index of the line
 447             my $ip=$1;
 448             my $mac=$2;
 449             if (!grep (/$2/,@current2)) {
 450                 unshift (@current2, "$mac,$ip,on,,,,imported\n");
 451                 $news++;
 452             }
 453         }
 454     }
 455     if ($news) {
 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 !
 461     }
 462 }
 463
 464 if ($dhcpsettings{'ACTION'} eq $Lang::tr{'edit'}.'2') {
 465     #move out new line
 466     my $line = @current2[$dhcpsettings{'KEY2'}];
 467     chomp($line);
 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];
 476 }
 477
 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;
 482     close(FILE);
 483     $dhcpsettings{'KEY2'} = '';                         # End remove mode
 484     &General::log($Lang::tr{'fixed ip lease removed'});
 485     #Write changes to dhcpd.conf.
 486     &buildconf;
 487 }
 488 #end KEY2 defined
 489
 490
 491
 492
 493 if ($dhcpsettings{'ACTION'} eq '' ) { # First launch from GUI
 494
 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'};
 502         }
 503     }
 504     $dhcpsettings{'FIX_ENABLED'} = 'on';
 505 }
 506
 507 &Header::openpage($Lang::tr{'dhcp configuration'}, 1, '');
 508 &Header::openbigbox('100%', 'left', '', $errormessage);
 509
 510 if ($errormessage) {
 511     &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 512     print "<font class='base'>$errormessage&nbsp;</font>\n";
 513     &Header::closebox();
 514 }
 515 if ($warnNTPmessage) {
 516     $warnNTPmessage = "<font color=${Header::colourred}><b>$Lang::tr{'capswarning'}</b></font>: $warnNTPmessage";
 517 }
 518
 519 &Header::openbox('100%', 'left', 'DHCP');
 520 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>";
 521
 522 foreach my $itf (@ITFs) {
 523     my %checked=();
 524     $checked{'ENABLE'}{'on'} = ( $dhcpsettings{"ENABLE_${itf}"} ne 'on') ? '' : "checked='checked'";
 525     $checked{'ENABLEBOOTP'}{'on'} = ( $dhcpsettings{"ENABLEBOOTP_${itf}"} ne 'on') ? '' : "checked='checked'";
 526
 527     if ($netsettings{"${itf}_DEV"} ne '' ) { # Show only defined interface
 528         my $lc_itf=lc($itf);
 529 print <<END
 530 <table width='100%'>
 531 <tr>
 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>
 536 </tr><tr>
 537     <td width='25%' class='base'>$Lang::tr{'start address'}&nbsp;<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'}&nbsp;<img src='/blob.gif' alt='*' /></td>
 540     <td width='25%'><input type='text' name='END_ADDR_${itf}' value='$dhcpsettings{"END_ADDR_${itf}"}' /></td>
 541 </tr><tr>
 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>
 546 </tr><tr>
 547     <td class='base'>$Lang::tr{'domain name suffix'}&nbsp;<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>
 551 </tr><tr>
 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'}&nbsp;<img src='/blob.gif' alt='*' /></td>
 555     <td><input type='text' name='DNS2_${itf}' value='$dhcpsettings{"DNS2_${itf}"}' /></td>
 556 </tr><tr>
 557     <td class='base'>$Lang::tr{'primary ntp server'}:&nbsp;<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'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
 560     <td><input type='text' name='NTP2_${itf}' value='$dhcpsettings{"NTP2_${itf}"}' /></td>
 561 </tr><tr>
 562     <td class='base'>$Lang::tr{'primary wins server address'}:&nbsp;<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'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
 565     <td><input type='text' name='WINS2_${itf}' value='$dhcpsettings{"WINS2_${itf}"}' /></td>
 566 </tr>
 567 </table>
 568 <hr />
 569 END
 570 ;
 571     }# Show only defined interface
 572 }#foreach itf
 573 print <<END
 574 <table width='100%'>
 575 <tr>
 576     <td class='base' width='25%'><img src='/blob.gif' align='top' alt='*' />&nbsp;$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>
 582 </tr>
 583 </table>
 584 </form>
 585 END
 586 ;
 587
 588 &Header::closebox();
 589
 590 &Header::openbox('100%', 'left', $Lang::tr{'dhcp advopt list'});
 591 # DHCP Advanced options settings
 592 my %checked=();
 593 $checked{'ADVOPT_ENABLED'}{'on'} = ($dhcpsettings{'ADVOPT_ENABLED'} ne 'on') ? '' : "checked='checked'";
 594
 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>";
 600 } else {
 601     print "<tr><td class='boldbase'><b>$Lang::tr{'dhcp advopt add'}</b></td></tr>"
 602 }
 603
 604 #search if the 'option' is in the list and print the syntax model
 605 my $opt = `grep "\$option $dhcpsettings{'ADVOPT_NAME'} " $filename3`;
 606 if ($opt ne '') {
 607    $opt =~ s/option $dhcpsettings{'ADVOPT_NAME'}/Syntax:/;  # "option xyz abc" => "syntax: abc"
 608    $opt =~ s/;//;
 609    $opt = "<tr><td></td><td></td><td colspan='2'>$opt</td></tr>";
 610 }
 611 print <<END
 612 <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>
 617 </tr>$opt<tr>
 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'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
 620     <td>
 621 END
 622 ;
 623
 624 # Put a checkbox for each interface. Checkbox visible disabled if interface is disabled
 625 foreach my $itf (@ITFs) {
 626     my $lc_itf=lc($itf);
 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 "&nbsp; &nbsp;";
 631 }
 632
 633 print <<END
 634     </td>
 635 </tr>
 636 </table>
 637 <hr />
 638 <table width='100%'>
 639 <tr>
 640     <td class='base' width='50%'><img src='/blob.gif' align='top' alt='*' />&nbsp;$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'}' />
 646     </td>
 647 </tr>
 648 </table>
 649 </form>
 650 END
 651 ;
 652 #Edited line number (KEY1) passed until cleared by 'save' or 'remove' or 'new sort order'
 653
 654 # print help taken from the file describing options
 655 if ($dhcpsettings{'SUBMIT'} eq $Lang::tr{'dhcp advopt help'}) {
 656     print "<hr />";
 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>;
 661     close(FILE);
 662     foreach my $line (@current3) {
 663         $line =~ /option ([a-z0-9-]+) (.*);/;
 664         print "<tr><td>$1</td><td>$2</td></tr>\n";
 665     }
 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>';
 671     print '</table>';
 672     print "<hr />";
 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>';
 680     print '</table>';
 681
 682 }
 683
 684 print <<END
 685 <hr />
 686 <table width='100%'>
 687 <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>
 692 </tr>
 693 END
 694 ;
 695 my $key = 0;
 696 foreach my $line (@current1) {
 697     my $gif = '';
 698     my $gdesc = '';
 699     chomp($line);   # remove newline
 700     my @temp = split(/\t/,$line);
 701
 702     if ($temp[0] eq "on") {
 703         $gif = 'on.gif';
 704         $gdesc = $Lang::tr{'click to disable'};
 705     } else {
 706         $gif = 'off.gif';
 707         $gdesc = $Lang::tr{'click to enable'};
 708     }
 709
 710     if ($dhcpsettings{'KEY1'} eq $key) {
 711         print "<tr bgcolor='${Header::colouryellow}'>";
 712     } elsif ($key % 2) {
 713         print "<tr bgcolor='${Header::table2colour}'>";
 714     } else {
 715         print "<tr bgcolor='${Header::table1colour}'>";
 716     }
 717
 718     print <<END
 719 <td align='center'>$temp[1]</td>
 720 <td align='center'>$temp[2]</td>
 721 <td align='center'>
 722 END
 723 ;
 724     # Prepare a global flag to make easy reading
 725     my $global = '';
 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]));
 733     } else {
 734         $global = $Lang::tr{'dhcp advopt scope global'};
 735     }
 736
 737
 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
 742             print "$itf";
 743             $global='';         # fall to local scope !
 744         }
 745     }
 746     print <<END
 747 $global</td>
 748 <td align='center'>
 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' />
 753 </form>
 754 </td>
 755
 756 <td align='center'>
 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' />
 761 </form>
 762 </td>
 763
 764 <td align='center'>
 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' />
 769 </form>
 770 </td>
 771 </tr>
 772 END
 773 ;
 774     $key++;
 775 }
 776
 777 print "</table>";
 778
 779 # If there are dhcp options, print Key to action icons
 780 if ($key) {
 781 print <<END
 782 <table>
 783 <tr>
 784         <td class='boldbase'>&nbsp;<b>$Lang::tr{'legend'}:&nbsp;</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>&nbsp;&nbsp;</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>&nbsp;&nbsp;</td>
 791         <td><img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
 792         <td class='base'>$Lang::tr{'edit'}</td>
 793         <td>&nbsp;&nbsp;</td>
 794         <td><img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
 795         <td class='base'>$Lang::tr{'remove'}</td>
 796 </tr>
 797 </table>
 798 END
 799 ;
 800 }
 801 &Header::closebox();
 802
 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'";
 806
 807 $buttontext = $Lang::tr{'add'};
 808 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'><table width='100%'>";
 809
 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>";
 813 } else {
 814     print "<tr><td class='boldbase' colspan='3'><b>$Lang::tr{'add new lease'}</b></td></tr>"
 815 }
 816 print <<END
 817 <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'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
 823     <td><input type='text' name='FIX_REMARK' value='$dhcpsettings{'FIX_REMARK'}' size='18' /></td>
 824 </tr><tr>
 825     <td class='base'>$Lang::tr{'enabled'}</td><td><input type='checkbox' name='FIX_ENABLED' $checked{'FIX_ENABLED'}{'on'} /></td>
 826 </tr><tr>
 827     <td colspan = '3'><b>$Lang::tr{'dhcp bootp pxe data'}</b></td>
 828 </tr><tr>
 829     <td class='base'>next-server:&nbsp;<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:&nbsp;<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:&nbsp;<img src='/blob.gif' alt='*' /></td>
 834     <td><input type='text' name='FIX_ROOTPATH' value='$dhcpsettings{'FIX_ROOTPATH'}' size='18' /></td>
 835 </tr>
 836 </table>
 837 <hr />
 838 <table width='100%'>
 839 <tr>
 840     <td class='base' width='50%'><img src='/blob.gif' align='top' alt='*' />&nbsp;$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>
 845 </tr>
 846 </table>
 847 </form>
 848 END
 849 ;
 850 #Edited line number (KEY2) passed until cleared by 'save' or 'remove' or 'new sort order'
 851
 852 print <<END
 853 <hr />
 854 <table width='100%'>
 855 <tr>
 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>
 863 </tr>
 864 END
 865 ;
 866 my $ipdup = 0;
 867 my %ipinuse = ();
 868 my %macdupl = (); # Duplicate MACs have to be on different subnets
 869 my %ipoutside = ();
 870
 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
 877     }
 878     $ipinuse{$temp[1]} += 1;
 879     if ($ipinuse{$temp[1]} > 1) {
 880         $ipdup = 1;     # Flag up duplicates for use later
 881     }
 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;
 889         }
 890     }
 891 }
 892
 893 $key = 0;
 894 foreach my $line (@current2) {
 895     my $gif = '';
 896     my $gdesc = '';
 897     chomp($line);   # remove newline
 898     my @temp = split(/\,/,$line);
 899
 900     if ($temp[2] eq "on") {
 901         $gif = 'on.gif';
 902         $gdesc = $Lang::tr{'click to disable'};
 903     } else {
 904         $gif = 'off.gif';
 905         $gdesc = $Lang::tr{'click to enable'};
 906     }
 907
 908     if ($dhcpsettings{'KEY2'} eq $key) {
 909         print "<tr bgcolor='${Header::colouryellow}'>";
 910     } elsif ($key % 2) {
 911         print "<tr bgcolor='${Header::table2colour}'>";
 912     } else {
 913         print "<tr bgcolor='${Header::table1colour}'>";
 914     }
 915     my $TAG0 = '';
 916     my $TAG1 = '';
 917     my $TAG2 = '';
 918     my $TAG3 = '';
 919     my $TAG4 = '';
 920     if ($ipinuse{$temp[1]} > 1) {
 921         $TAG0 = '<b>';
 922         $TAG1 = '</b>';
 923     }
 924     if ($macdupl{$temp[0]} > 1) {
 925         $TAG2 = '<b>';
 926         $TAG3 = '</b>';
 927     }
 928     if ($ipoutside{$temp[1]} > 0) {
 929         $TAG4 = "bgcolor='orange'" if ($dhcpsettings{'KEY2'} ne $key);
 930     }
 931
 932     print <<END
 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]&nbsp;</td>
 936 <td align='center'>$temp[3]&nbsp;</td>
 937 <td align='center'>$temp[4]&nbsp;</td>
 938 <td align='center'>$temp[5]&nbsp;</td>
 939
 940 <td align='center'>
 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' />
 945 </form>
 946 </td>
 947
 948 <td align='center'>
 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' />
 953 </form>
 954 </td>
 955
 956 <td align='center'>
 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' />
 961 </form>
 962 </td>
 963 </tr>
 964 END
 965 ;
 966     $key++;
 967 }
 968 print "</table>";
 969
 970 # If the fixed lease file contains entries, print Key to action icons
 971 if ($key) {
 972 my $dup = $ipdup ? "<td class='base'>$Lang::tr{'duplicate ip bold'}</td>" :'';
 973 print <<END
 974 <table>
 975 <tr>
 976         <td class='boldbase'>&nbsp;<b>$Lang::tr{'legend'}:&nbsp;</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>&nbsp;&nbsp;</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>&nbsp;&nbsp;</td>
 983         <td><img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
 984         <td class='base'>$Lang::tr{'edit'}</td>
 985         <td>&nbsp;&nbsp;</td>
 986         <td><img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
 987         <td class='base'>$Lang::tr{'remove'}</td>
 988 </tr>
 989 <tr>
 990         <td>&nbsp;</td>
 991         <td bgcolor='orange'>&nbsp;</td>
 992         <td class='base'>$Lang::tr{'ip address outside subnets'}</td>
 993         <td>&nbsp;</td>
 994         <td>&nbsp;</td>
 995         $dup
 996 </tr>
 997 </table>
 998 END
 999 ;
1000 }
1001
1002 &Header::closebox();
1003
1004
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
1010     };
1011 }
1012
1013 &Header::closebigbox();
1014 &Header::closepage();
1015
1016 ## Ouf it's the end !
1017
1018 sub sortcurrent1  # by now, do not sort, just write
1019 {
1020     open(FILE, ">$filename1") or die 'Unable to open dhcp advanced options file.';
1021     print FILE @current1;
1022     close(FILE);
1023 }
1024
1025
1026 # Sort the "current2" array according to choices
1027 sub sortcurrent2
1028 {
1029     our %entries = ();
1030
1031     sub fixedleasesort {
1032         my $qs='';
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});
1038                 ($b[0]<=>$a[0]) ||
1039                 ($b[1]<=>$a[1]) ||
1040                 ($b[2]<=>$a[2]) ||
1041                 ($b[3]<=>$a[3]);
1042             } else {
1043                 $entries{$b}->{$qs} cmp $entries{$a}->{$qs};
1044             }
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});
1050                 ($a[0]<=>$b[0]) ||
1051                 ($a[1]<=>$b[1]) ||
1052                 ($a[2]<=>$b[2]) ||
1053                 ($a[3]<=>$b[3]);
1054             } else {
1055                 $entries{$a}->{$qs} cmp $entries{$b}->{$qs};
1056             }
1057         }
1058     }
1059
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
1069     }
1070
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";
1074     }
1075     close(FILE);
1076
1077     # Reload sorted  @current2
1078     open (FILE, "$filename2");
1079     @current2 = <FILE>;
1080     close (FILE);
1081     undef (%entries);  #This array is reused latter. Clear it.
1082 }
1083
1084 # Build the configuration file mixing  settings, fixed leases and advanced options
1085 sub buildconf {
1086     open(FILE, ">/${General::swroot}/dhcp/dhcpd.conf") or die "Unable to write dhcpd.conf file";
1087     flock(FILE, 2);
1088
1089     # Global settings
1090     print FILE "ddns-update-style none;\n";
1091     print FILE "deny bootp;     #default\n";
1092     print FILE "authoritative;\n";
1093
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";
1100         }
1101     }
1102     # Write other global options
1103     foreach my $line (@current1) {
1104         chomp($line);   # remove newline
1105         my @temp = split(/\t/,$line);
1106
1107         if ($temp[0] eq 'on' && !ExistNewOptionDefinition ($temp[1] . ' ' . $temp[2])){ # active & !definition
1108             my $global=1;
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
1112                 {
1113                     $global=0;
1114                 }
1115             }
1116             if ($global) {
1117                 print FILE "option $temp[1] $temp[2];\n";
1118             }
1119         }# on
1120     }# foreach line
1121
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";
1127             print FILE "{\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');
1144
1145
1146
1147             # Write scoped options
1148             foreach my $line (@current1) {
1149                 chomp($line);   # remove newline
1150                 my @temp = split(/\t/,$line);           # Use TAB separator !
1151
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
1155                         {
1156                             print FILE "\toption $temp[1] $temp[2];\n";
1157                         }
1158                     }
1159                 }# on
1160             }# foreach line
1161             print FILE "} #$itf\n";
1162
1163             system ('/bin/touch', "${General::swroot}/dhcp/enable_${lc_itf}");
1164             &General::log("DHCP on ${itf}: " . $Lang::tr{'dhcp server enabled'})
1165         } else {
1166             unlink "${General::swroot}/dhcp/enable_${lc_itf}";
1167             &General::log("DHCP on ${itf}: " . $Lang::tr{'dhcp server disabled'})
1168         }
1169     }
1170
1171     #write fixed leases if any. Does not handle duplicates to write them elsewhere than the global scope.
1172     my $key = 0;
1173     foreach my $line (@current2) {
1174         chomp($line);
1175         my @temp = split(/\,/,$line);
1176         if ($temp[2] eq "on") {
1177             print FILE "\nhost fix$key # $temp[6]\n";
1178             print FILE "{\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]);
1184             print FILE "}\n";
1185             $key++;
1186         }
1187     }
1188     close FILE;
1189     system '/usr/local/bin/restartdhcp';
1190 }
1191
1192 #
1193 # Receive a string and if it match model for a new option,
1194 # add it to the list %newOptions
1195 #
1196 my %NewOptions = ();
1197
1198 sub AddNewOptionDefinition {
1199     my ($line) = @_;
1200     if ( $line =~ /^([-\w]+)( code \d+=($OptionTypes))/ ) {
1201         $NewOptions{$1} = $2;
1202         #&General::log ("new:<$1><$2>");
1203         return 1;
1204     }
1205     return 0;
1206 }
1207
1208 #
1209 # Check existence of definition for a new option
1210 #
1211 sub ExistNewOptionDefinition {
1212     my ($line) = @_;
1213
1214     if ( $line =~ /^([-\w]+)( code \d+=($OptionTypes))/ ) {
1215         return defined $NewOptions{$1};
1216     }
1217     return 0;
1218 }
1219
1220 #
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 {
1225     my ($line) = @_;
1226     if ($line =~ /^([-\w]+) (.*)/ ) {
1227         return defined ( $NewOptions{$1} ) && $2 !~ /code=/;
1228     }
1229     return 0;
1230 }
1231
1232 #
1233 # Check if the new option $opt is used, except the definition of itself!
1234 #
1235 sub IsUsedNewOptionDefinition {
1236     my ($opt,$val) = @_;
1237
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+=/) );
1243     }
1244     return 0;
1245 }