X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=config%2Fcfgroot%2Fheader.pl;h=39472a85759dfe7d0658b99b2e43ace36a4fa709;hb=4c7bfb1f271bdd0de493772a15209e038344e57c;hp=299d7664599290d5a7a4c828746d58c820d0d633;hpb=349b93f67401d79548620da0bd9f695a36ae2823;p=people%2Fteissler%2Fipfire-2.x.git diff --git a/config/cfgroot/header.pl b/config/cfgroot/header.pl index 299d76645..39472a857 100644 --- a/config/cfgroot/header.pl +++ b/config/cfgroot/header.pl @@ -12,6 +12,7 @@ package Header; use CGI(); +use File::Basename; use HTML::Entities(); use Socket; use Time::Local; @@ -88,9 +89,11 @@ if ( -d "/var/ipfire/langs/${language}/" ) { }; }; +our $THEME_NAME = $settings{'THEME'}; + require "${swroot}/langs/en.pl"; require "${swroot}/langs/${language}.pl"; -eval `/bin/cat /srv/web/ipfire/html/themes/$settings{'THEME'}/include/functions.pl`; +eval `/bin/cat /srv/web/ipfire/html/themes/$THEME_NAME/include/functions.pl`; sub orange_used () { if ($ethsettings{'CONFIG_TYPE'} =~ /^[24]$/) { @@ -155,7 +158,6 @@ sub genmenu { sub showhttpheaders { print "Cache-control: private\n"; - print "Connection: close\n"; print "Content-type: text/html; charset=UTF-8\n\n"; } @@ -364,16 +366,16 @@ sub PrintActualLeases { &openbox('100%', 'left', $tr{'current dynamic leases'}); print < + - - - - - + + + + + END - ; +; open(LEASES,"/var/state/dhcp/dhcpd.leases") or die "Can't open dhcpd.leases"; while ($line = ) { @@ -415,24 +417,27 @@ END close(LEASES); my $id = 0; + my $col=""; foreach my $key (sort leasesort keys %entries) { print "
\n"; my $hostname = &cleanhtml($entries{$key}->{HOSTNAME},"y"); if ($id % 2) { - print "
"; + print ""; + $col="bgcolor='$table1colour'"; } else { - print ""; + print ""; + $col="bgcolor='$table2colour'"; } print <$entries{$key}->{IPADDR} - - - + + + + END - ; +; $id++; }
$tr{'ip address'}$tr{'mac address'}$tr{'hostname'}$tr{'lease expires'} (local time d/m/y)Add to fix leases$tr{'ip address'}$tr{'mac address'}$tr{'hostname'}$tr{'lease expires'} (local time d/m/y)Add to fix leases
$entries{$key}->{ETHER} $hostname +$entries{$key}->{IPADDR}$entries{$key}->{ETHER} $hostname 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); @@ -443,10 +448,10 @@ END print "$enddate"; } print < -
+