Hi Michael,
thank you for reviewing & merging my patch!

I agree, this was an interesting read. I think the web interface code could be improved. Feel free to point me to other issues, maybe I can contribute more.

Best regards,
Leo

Am 23.10.2020 um 12:07 schrieb Michael Tremer:
> Hey Leo-Andres,
>
> Thank you for splitting the patch. This was easier to review.
>
> It is still interesting code and it is very interesting too that all the DHCP stuff is in header.pl.
>
> But that is outside the scope of this patch.
>
> I will merge it. Thank you!
>
> Best,
> -Michael
>
>> On 21 Oct 2020, at 11:48, Leo-Andres Hofmann <hofmann(a)leo-andres.de> wrote:
>>
>> Signed-off-by: Leo-Andres Hofmann <hofmann(a)leo-andres.de>
>> ---
>> config/cfgroot/header.pl | 159 +++++++++++++++++++--------------------
>> 1 file changed, 79 insertions(+), 80 deletions(-)
>>
>> diff --git a/config/cfgroot/header.pl b/config/cfgroot/header.pl
>> index 1046f5992..6322cfebe 100644
>> --- a/config/cfgroot/header.pl
>> +++ b/config/cfgroot/header.pl
>> @@ -403,66 +403,65 @@ sub PrintActualLeases
>> <th width='25%' align='center'><a href='$ENV{'SCRIPT_NAME'}?ETHER'><b>$tr{'mac address'}</b></a></th>
>> <th width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?HOSTNAME'><b>$tr{'hostname'}</b></a></th>
>> <th width='25%' align='center'><a href='$ENV{'SCRIPT_NAME'}?ENDTIME'><b>$tr{'lease expires'} (local time d/m/y)</b></a></th>
>> -<th width='5%' align='center'><b>Add to fix leases<b></th>
>> +<th width='5%' align='center'><b>Add to fix leases</b></th>
>> </tr>
>> END
>> ;
>>
>>      open(LEASES,"/var/state/dhcp/dhcpd.leases") or die "Can't open dhcpd.leases";
>> -    while ($line = <LEASES>) {
>> -	next if( $line =~ /^\s*#/ );
>> -	chomp($line);
>> -	@temp = split (' ', $line);
>> -
>> -	if ($line =~ /^\s*lease/) {
>> -	    $ip = $temp[1];
>> -	    #All field are not necessarily read. Clear everything
>> -	    $endtime = 0;
>> -	    $ether = "";
>> -	    $hostname = "";
>> -	}
>> +	while (my $line = <LEASES>) {
>> +		next if( $line =~ /^\s*#/ );
>> +		chomp($line);
>> +		@temp = split (' ', $line);
>> +
>> +		if ($line =~ /^\s*lease/) {
>> +			$ip = $temp[1];
>> +			#All field are not necessarily read. Clear everything
>> +			$endtime = 0;
>> +			$ether = "";
>> +			$hostname = "";
>> +		}
>>
>> -	if ($line =~ /^\s*ends/) {
>> -	    $line =~ /(\d+)\/(\d+)\/(\d+) (\d+):(\d+):(\d+)/;
>> -	    $endtime = timegm($6, $5, $4, $3, $2 - 1, $1 - 1900);
>> -	}
>> +		if ($line =~ /^\s*ends/) {
>> +			$line =~ /(\d+)\/(\d+)\/(\d+) (\d+):(\d+):(\d+)/;
>> +			$endtime = timegm($6, $5, $4, $3, $2 - 1, $1 - 1900);
>> +		}
>>
>> -	if ($line =~ /^\s*hardware ethernet/) {
>> -	    $ether = $temp[2];
>> -	    $ether =~ s/;//g;
>> -	}
>> +		if ($line =~ /^\s*hardware ethernet/) {
>> +			$ether = $temp[2];
>> +			$ether =~ s/;//g;
>> +		}
>>
>> -	if ($line =~ /^\s*client-hostname/) {
>> -	    $hostname = "$temp[1] $temp[2] $temp[3]";
>> -	    $hostname =~ s/;//g;
>> -	    $hostname =~ s/\"//g;
>> -	}
>> +		if ($line =~ /^\s*client-hostname/) {
>> +			$hostname = "$temp[1] $temp[2] $temp[3]";
>> +			$hostname =~ s/;//g;
>> +			$hostname =~ s/\"//g;
>> +		}
>>
>> -	if ($line eq "}") {
>> -	    @record = ('IPADDR',$ip,'ENDTIME',$endtime,'ETHER',$ether,'HOSTNAME',$hostname);
>> -    	    $record = {};                        		# create a reference to empty hash
>> -	    %{$record} = @record;                		# populate that hash with @record
>> -	    $entries{$record->{'IPADDR'}} = $record;   	# add this to a hash of hashes
>> -	}
>> +		if ($line eq "}") {
>> +			@record = ('IPADDR',$ip,'ENDTIME',$endtime,'ETHER',$ether,'HOSTNAME',$hostname);
>> +			$record = {};								# create a reference to empty hash
>> +			%{$record} = @record;						# populate that hash with @record
>> +			$entries{$record->{'IPADDR'}} = $record;	# add this to a hash of hashes
>> +		}
>>      }
>>      close(LEASES);
>>
>>      my $id = 0;
>> -    my $col="";
>> +    my $col = "";
>>      foreach my $key (sort leasesort keys %entries) {
>> -	print "<form method='post' action='/cgi-bin/dhcp.cgi'>\n";
>> -	my $hostname = &cleanhtml($entries{$key}->{HOSTNAME},"y");
>> +		print "<form method='post' action='/cgi-bin/dhcp.cgi'>\n";
>> +		my $hostname = &cleanhtml($entries{$key}->{HOSTNAME},"y");
>>
>> -	if ($id % 2) {
>> -	    print "<tr>";
>> -	    $col="bgcolor='$table1colour'";
>> -	}
>> -	else {
>> -	    print "<tr>";
>> -	    $col="bgcolor='$table2colour'";
>> -	}
>> +		if ($id % 2) {
>> +			print "<tr>";
>> +			$col="bgcolor='$table1colour'";
>> +		} else {
>> +			print "<tr>";
>> +			$col="bgcolor='$table2colour'";
>> +		}
>>
>> -	print <<END
>> +		print <<END
>> <td align='center' $col><input type='hidden' name='FIX_ADDR' value='$entries{$key}->{IPADDR}' />$entries{$key}->{IPADDR}</td>
>> <td align='center' $col><input type='hidden' name='FIX_MAC' value='$entries{$key}->{ETHER}' />$entries{$key}->{ETHER}</td>
>> <td align='center' $col><input type='hidden' name='FIX_REMARK' value='$hostname' />&nbsp;$hostname</td>
>> @@ -470,20 +469,20 @@ END
>> END
>> ;
>>
>> -	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $dst) = localtime ($entries{$key}->{ENDTIME});
>> -	$enddate = sprintf ("%02d/%02d/%d %02d:%02d:%02d",$mday,$mon+1,$year+1900,$hour,$min,$sec);
>> +		($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $dst) = localtime ($entries{$key}->{ENDTIME});
>> +		$enddate = sprintf ("%02d/%02d/%d %02d:%02d:%02d",$mday,$mon+1,$year+1900,$hour,$min,$sec);
>>
>> -	if ($entries{$key}->{ENDTIME} < time() ){
>> -	    print "<strike>$enddate</strike>";
>> -	} else {
>> -	    print "$enddate";
>> -	}
>> -	print <<END
>> +		if ($entries{$key}->{ENDTIME} < time() ){
>> +			print "<strike>$enddate</strike>";
>> +		} else {
>> +			print "$enddate";
>> +		}
>> +		print <<END
>> </td><td $col><input type='hidden' name='ACTION' value='$Lang::tr{'add'}2' /><input type='submit' name='SUBMIT' value='$Lang::tr{'add'}' />
>> </td></tr></form>
>> END
>> ;
>> -	$id++;
>> +		$id++;
>>      }
>>
>>      print "</table>";
>> @@ -493,34 +492,34 @@ END
>>
>> # This sub is used during display of actives leases
>> sub leasesort {
>> -    if (rindex ($dhcpsettings{'SORT_LEASELIST'},'Rev') != -1)
>> -    {
>> -        $qs=substr ($dhcpsettings{'SORT_LEASELIST'},0,length($dhcpsettings{'SORT_LEASELIST'})-3);
>> -        if ($qs eq 'IPADDR') {
>> -            @a = split(/\./,$entries{$a}->{$qs});
>> -            @b = split(/\./,$entries{$b}->{$qs});
>> -            ($b[0]<=>$a[0]) ||
>> -            ($b[1]<=>$a[1]) ||
>> -            ($b[2]<=>$a[2]) ||
>> -            ($b[3]<=>$a[3]);
>> -        }else {
>> -            $entries{$b}->{$qs} cmp $entries{$a}->{$qs};
>> -        }
>> -    }
>> -    else #not reverse
>> -    {
>> -        $qs=$dhcpsettings{'SORT_LEASELIST'};
>> -        if ($qs eq 'IPADDR') {
>> -	    @a = split(/\./,$entries{$a}->{$qs});
>> -    	    @b = split(/\./,$entries{$b}->{$qs});
>> -    	    ($a[0]<=>$b[0]) ||
>> -	    ($a[1]<=>$b[1]) ||
>> -	    ($a[2]<=>$b[2]) ||
>> -    	    ($a[3]<=>$b[3]);
>> -	}else {
>> -    	    $entries{$a}->{$qs} cmp $entries{$b}->{$qs};
>> +	if (rindex ($dhcpsettings{'SORT_LEASELIST'},'Rev') != -1)
>> +	{
>> +		$qs=substr ($dhcpsettings{'SORT_LEASELIST'},0,length($dhcpsettings{'SORT_LEASELIST'})-3);
>> +		if ($qs eq 'IPADDR') {
>> +			@a = split(/\./,$entries{$a}->{$qs});
>> +			@b = split(/\./,$entries{$b}->{$qs});
>> +			($b[0]<=>$a[0]) ||
>> +			($b[1]<=>$a[1]) ||
>> +			($b[2]<=>$a[2]) ||
>> +			($b[3]<=>$a[3]);
>> +		} else {
>> +			$entries{$b}->{$qs} cmp $entries{$a}->{$qs};
>> +		}
>> +	}
>> +	else #not reverse
>> +	{
>> +		$qs=$dhcpsettings{'SORT_LEASELIST'};
>> +		if ($qs eq 'IPADDR') {
>> +			@a = split(/\./,$entries{$a}->{$qs});
>> +			@b = split(/\./,$entries{$b}->{$qs});
>> +			($a[0]<=>$b[0]) ||
>> +			($a[1]<=>$b[1]) ||
>> +			($a[2]<=>$b[2]) ||
>> +			($a[3]<=>$b[3]);
>> +		} else {
>> +			$entries{$a}->{$qs} cmp $entries{$b}->{$qs};
>> +		}
>> 	}
>> -    }
>> }
>>
>> sub colorize {
>> -- 
>> 2.27.0.windows.1
>>
>>