mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
fifteen-theme: made tables in dhcp-server themeable
This commit is contained in:
@@ -367,16 +367,16 @@ sub PrintActualLeases
|
||||
{
|
||||
&openbox('100%', 'left', $tr{'current dynamic leases'});
|
||||
print <<END
|
||||
<table width='100%'>
|
||||
<table width='100%' class='tbl'>
|
||||
<tr>
|
||||
<td width='25%' align='center'><a href='$ENV{'SCRIPT_NAME'}?IPADDR'><b>$tr{'ip address'}</b></a></td>
|
||||
<td width='25%' align='center'><a href='$ENV{'SCRIPT_NAME'}?ETHER'><b>$tr{'mac address'}</b></a></td>
|
||||
<td width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?HOSTNAME'><b>$tr{'hostname'}</b></a></td>
|
||||
<td width='25%' align='center'><a href='$ENV{'SCRIPT_NAME'}?ENDTIME'><b>$tr{'lease expires'} (local time d/m/y)</b></a></td>
|
||||
<td width='5%' align='center'><b>Add to fix leases<b></td>
|
||||
<th width='25%' align='center'><a href='$ENV{'SCRIPT_NAME'}?IPADDR'><b>$tr{'ip address'}</b></a></th>
|
||||
<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>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
;
|
||||
|
||||
open(LEASES,"/var/state/dhcp/dhcpd.leases") or die "Can't open dhcpd.leases";
|
||||
while ($line = <LEASES>) {
|
||||
@@ -418,24 +418,27 @@ END
|
||||
close(LEASES);
|
||||
|
||||
my $id = 0;
|
||||
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");
|
||||
|
||||
if ($id % 2) {
|
||||
print "<tr bgcolor='$table1colour'>";
|
||||
print "<tr>";
|
||||
$col="bgcolor='$table1colour'";
|
||||
}
|
||||
else {
|
||||
print "<tr bgcolor='$table2colour'>";
|
||||
print "<tr>";
|
||||
$col="bgcolor='$table2colour'";
|
||||
}
|
||||
|
||||
print <<END
|
||||
<td align='center'><input type='hidden' name='FIX_ADDR' value='$entries{$key}->{IPADDR}' />$entries{$key}->{IPADDR}</td>
|
||||
<td align='center'><input type='hidden' name='FIX_MAC' value='$entries{$key}->{ETHER}' />$entries{$key}->{ETHER}</td>
|
||||
<td align='center'><input type='hidden' name='FIX_REMARK' value='$hostname' /> $hostname</td>
|
||||
<td align='center'><input type='hidden' name='FIX_ENABLED' value='on' />
|
||||
<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' /> $hostname</td>
|
||||
<td align='center' $col><input type='hidden' name='FIX_ENABLED' value='on' />
|
||||
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);
|
||||
@@ -446,10 +449,10 @@ END
|
||||
print "$enddate";
|
||||
}
|
||||
print <<END
|
||||
<td><input type='hidden' name='ACTION' value='$Lang::tr{'add'}2' /><input type='submit' name='SUBMIT' value='$Lang::tr{'add'}' />
|
||||
</td></td></tr></form>
|
||||
</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++;
|
||||
}
|
||||
|
||||
|
||||
@@ -864,15 +864,15 @@ END
|
||||
|
||||
print <<END
|
||||
<hr />
|
||||
<table width='100%'>
|
||||
<table width='100%' class='tbl'>
|
||||
<tr>
|
||||
<td width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?FETHER'><b>$Lang::tr{'mac address'}</b></a></td>
|
||||
<td width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?FIPADDR'><b>$Lang::tr{'ip address'}</b></a></td>
|
||||
<td width='15%' align='center'><b>$Lang::tr{'remark'}</b></td>
|
||||
<td width='15%' class='boldbase' align='center'><b>next-server</b></td>
|
||||
<td width='15%' class='boldbase' align='center'><b>filename</b></td>
|
||||
<td width='15%' class='boldbase' align='center'><b>root path</b></td>
|
||||
<td colspan='3' class='boldbase' align='center'><b>$Lang::tr{'action'}</b></td>
|
||||
<th width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?FETHER'><b>$Lang::tr{'mac address'}</b></a></th>
|
||||
<th width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?FIPADDR'><b>$Lang::tr{'ip address'}</b></a></th>
|
||||
<th width='15%' align='center'><b>$Lang::tr{'remark'}</b></th>
|
||||
<th width='15%' class='boldbase' align='center'><b>next-server</b></th>
|
||||
<th width='15%' class='boldbase' align='center'><b>filename</b></th>
|
||||
<th width='15%' class='boldbase' align='center'><b>root path</b></th>
|
||||
<th colspan='3' class='boldbase' align='center'><b>$Lang::tr{'action'}</b></th>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
@@ -904,6 +904,7 @@ foreach my $line (@current2) {
|
||||
}
|
||||
|
||||
$key = 0;
|
||||
my $col="";
|
||||
foreach my $line (@current2) {
|
||||
my $gif = '';
|
||||
my $gdesc = '';
|
||||
@@ -919,11 +920,14 @@ foreach my $line (@current2) {
|
||||
}
|
||||
|
||||
if ($dhcpsettings{'KEY2'} eq $key) {
|
||||
print "<tr bgcolor='${Header::colouryellow}'>";
|
||||
print "<tr>";
|
||||
$col="bgcolor='${Header::colouryellow}'";
|
||||
} elsif ($key % 2) {
|
||||
print "<tr bgcolor='$color{'color22'}'>";
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color20'}'";
|
||||
} else {
|
||||
print "<tr bgcolor='$color{'color20'}'>";
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color22'}'";
|
||||
}
|
||||
my $TAG0 = '';
|
||||
my $TAG1 = '';
|
||||
@@ -943,14 +947,14 @@ foreach my $line (@current2) {
|
||||
}
|
||||
|
||||
print <<END
|
||||
<td align='center'>$TAG2$temp[0]$TAG3</td>
|
||||
<td align='center' $TAG4>$TAG0$temp[1]$TAG1</td>
|
||||
<td align='center'>$temp[6] </td>
|
||||
<td align='center'>$temp[3] </td>
|
||||
<td align='center'>$temp[4] </td>
|
||||
<td align='center'>$temp[5] </td>
|
||||
<td align='center' $col>$TAG2$temp[0]$TAG3</td>
|
||||
<td align='center' $col $TAG4>$TAG0$temp[1]$TAG1</td>
|
||||
<td align='center' $col>$temp[6] </td>
|
||||
<td align='center' $col>$temp[3] </td>
|
||||
<td align='center' $col>$temp[4] </td>
|
||||
<td align='center' $col>$temp[5] </td>
|
||||
|
||||
<td align='center'>
|
||||
<td align='center' $col>
|
||||
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
||||
<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}2' />
|
||||
<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' alt='$gdesc' title='$gdesc' />
|
||||
@@ -958,7 +962,7 @@ foreach my $line (@current2) {
|
||||
</form>
|
||||
</td>
|
||||
|
||||
<td align='center'>
|
||||
<td align='center' $col>
|
||||
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
||||
<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}2' />
|
||||
<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' />
|
||||
@@ -966,7 +970,7 @@ foreach my $line (@current2) {
|
||||
</form>
|
||||
</td>
|
||||
|
||||
<td align='center'>
|
||||
<td align='center' $col>
|
||||
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
||||
<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}2' />
|
||||
<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' alt='$Lang::tr{'remove'}' title='$Lang::tr{'remove'}' />
|
||||
|
||||
Reference in New Issue
Block a user