From db085d8ac1bcb330a902a65f527415c913d2f66f Mon Sep 17 00:00:00 2001 From: ms Date: Wed, 22 Feb 2006 19:52:10 +0000 Subject: [PATCH] Endlich neues Webinterface git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@69 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8 --- config/cfgroot/header.pl | 2456 +++++++++++++++++++++----------- html/html/include/content.css | 48 + html/html/include/domMenu.js | 1167 --------------- html/html/include/ipcop.css | 122 -- html/html/include/menu.css | 192 +++ html/html/include/selectbox.js | 61 + html/html/include/style.css | 103 ++ 7 files changed, 2037 insertions(+), 2112 deletions(-) create mode 100644 html/html/include/content.css delete mode 100644 html/html/include/domMenu.js delete mode 100644 html/html/include/ipcop.css create mode 100644 html/html/include/menu.css create mode 100644 html/html/include/selectbox.js create mode 100644 html/html/include/style.css diff --git a/config/cfgroot/header.pl b/config/cfgroot/header.pl index b16a98c889..353e8c07b3 100644 --- a/config/cfgroot/header.pl +++ b/config/cfgroot/header.pl @@ -1,823 +1,1633 @@ -# SmoothWall CGIs -# -# This code is distributed under the terms of the GPL -# -# (c) The SmoothWall Team -# Copyright (C) 2002 Alex Hudson - getcgihash() rewrite -# Copyright (C) 2002 Bob Grant - validmac() -# Copyright (c) 2002/04/13 Steve Bootes - add alias section, helper functions -# Copyright (c) 2002/08/23 Mark Wormgoor validfqdn() -# Copyright (c) 2003/09/11 Darren Critchley srtarray() -# -# $Id: header.pl,v 1.34.2.67 2005/10/03 20:01:05 gespinasse Exp $ -# - -package Header; - -use strict; -use CGI(); -use Time::Local; - -# enable only the following on debugging purpose -#use warnings; -#use CGI::Carp 'fatalsToBrowser'; - - -$Header::pagecolour = '#ffffff'; # never used, will be removed -$Header::tablecolour = '#FFFFFF'; # never used, will be removed -$Header::bigboxcolour = '#F6F4F4'; # never used, will be removed -$Header::boxcolour = '#EAE9EE'; # only header.pl, ? move in css ? -$Header::bordercolour = '#000000'; # never used, will be removed -$Header::table1colour = '#C0C0C0'; -$Header::table2colour = '#F2F2F2'; -$Header::colourred = '#993333'; -$Header::colourorange = '#FF9933'; -$Header::colouryellow = '#FFFF00'; -$Header::colourgreen = '#339933'; -$Header::colourblue = '#333399'; -$Header::colourfw = '#000000'; # only connections.cgi -$Header::colourvpn = '#990099'; # only connections.cgi -$Header::colourerr = '#FF0000'; # only header.pl, many scripts use colourred for warnings messages -$Header::viewsize = 150; -my %menu = (); -my $hostnameintitle = 0; -our $javascript = 1; - -### Initialize menu -sub genmenu -{ - ### Initialize environment - my %ethsettings = (); - &General::readhash("${General::swroot}/ethernet/settings", \%ethsettings); - - %{$menu{'1.system'}}=( - 'contents' => $Lang::tr{'alt system'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'alt system'}", - 'subMenu' => [[ $Lang::tr{'alt home'} , '/cgi-bin/index.cgi', "IPCop $Lang::tr{'alt home'}" ], - [ $Lang::tr{'updates'} , '/cgi-bin/updates.cgi', "IPCop $Lang::tr{'updates'}" ], - [ $Lang::tr{'sspasswords'} , '/cgi-bin/changepw.cgi', "IPCop $Lang::tr{'sspasswords'}" ], - [ $Lang::tr{'ssh access'} , '/cgi-bin/remote.cgi', "IPCop $Lang::tr{'ssh access'}" ], - [ $Lang::tr{'gui settings'} , '/cgi-bin/gui.cgi', "IPCop $Lang::tr{'gui settings'}" ], - [ $Lang::tr{'backup'} , '/cgi-bin/backup.cgi', "IPCop $Lang::tr{'backup'} / $Lang::tr{'restore'}" ], - [ $Lang::tr{'shutdown'} , '/cgi-bin/shutdown.cgi', "IPCop $Lang::tr{'shutdown'} / $Lang::tr{'reboot'}" ], - [ $Lang::tr{'credits'} , '/cgi-bin/credits.cgi', "IPCop $Lang::tr{'credits'}" ]] - ); - %{$menu{'2.status'}}=( - 'contents' => $Lang::tr{'status'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'status information'}", - 'subMenu' => [[ $Lang::tr{'sssystem status'} , '/cgi-bin/status.cgi', "IPCop $Lang::tr{'system status information'}" ], - [ $Lang::tr{'ssnetwork status'} , '/cgi-bin/netstatus.cgi', "IPCop $Lang::tr{'network status information'}" ], - [ $Lang::tr{'system graphs'} , '/cgi-bin/graphs.cgi', "IPCop $Lang::tr{'system graphs'}" ], - [ $Lang::tr{'sstraffic graphs'} , '/cgi-bin/graphs.cgi?graph=network', "IPCop $Lang::tr{'network traffic graphs'}" ], - [ $Lang::tr{'ssproxy graphs'} , '/cgi-bin/proxygraphs.cgi', "IPCop $Lang::tr{'proxy access graphs'}" ], - [ $Lang::tr{'connections'} , '/cgi-bin/connections.cgi', "IPCop $Lang::tr{'connections'}" ]] - ); - %{$menu{'3.network'}}=( - 'contents' => $Lang::tr{'network'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'network configuration'}", - 'subMenu' => [[ $Lang::tr{'alt dialup'} , '/cgi-bin/pppsetup.cgi', "IPCop $Lang::tr{'dialup settings'}" ], - [ $Lang::tr{'upload'} , '/cgi-bin/upload.cgi', $Lang::tr{'firmware upload'} ], - [ $Lang::tr{'modem'} , '/cgi-bin/modem.cgi', "IPCop $Lang::tr{'modem configuration'}" ], - [ $Lang::tr{'aliases'} , '/cgi-bin/aliases.cgi', "IPCop $Lang::tr{'external aliases configuration'}" ]] - ); - %{$menu{'4.services'}}=( - 'contents' => $Lang::tr{'alt services'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'alt services'}", - 'subMenu' => [[ $Lang::tr{'proxy'} , '/cgi-bin/proxy.cgi', "IPCop $Lang::tr{'web proxy configuration'}" ], - [ $Lang::tr{'dhcp server'} , '/cgi-bin/dhcp.cgi', "IPCop $Lang::tr{'dhcp configuration'}" ], - [ $Lang::tr{'dynamic dns'} , '/cgi-bin/ddns.cgi', "IPCop $Lang::tr{'dynamic dns client'}" ], - [ $Lang::tr{'edit hosts'} , '/cgi-bin/hosts.cgi', "IPCop $Lang::tr{'host configuration'}" ], - [ $Lang::tr{'time server'} , '/cgi-bin/time.cgi', "IPCop $Lang::tr{'time server'}" ], - [ $Lang::tr{'traffic shaping'} , '/cgi-bin/shaping.cgi', "IPCop $Lang::tr{'traffic shaping settings'}" ], - [ $Lang::tr{'intrusion detection'} , '/cgi-bin/ids.cgi', "IPCop $Lang::tr{'intrusion detection system'} (Snort)" ]] - ); - %{$menu{'5.firewall'}}=( - 'contents' => $Lang::tr{'firewall'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'firewall'}", - 'subMenu' => [[ $Lang::tr{'ssport forwarding'} , '/cgi-bin/portfw.cgi', "IPCop $Lang::tr{'port forwarding configuration'}" ], - [ $Lang::tr{'external access'} , '/cgi-bin/xtaccess.cgi', "IPCop $Lang::tr{'external access configuration'}" ], - [ $Lang::tr{'ssdmz pinholes'} , '/cgi-bin/dmzholes.cgi', "IPCop $Lang::tr{'dmz pinhole configuration'}" ], - [ $Lang::tr{'blue access'} , '/cgi-bin/wireless.cgi', "IPCop $Lang::tr{'blue access'}" ] - ,[ $Lang::tr{'options fw'} , '/cgi-bin/optionsfw.cgi', "IPCop $Lang::tr{'options fw'}" ] - ] - ); - %{$menu{'6.vpns'}}=( - 'contents' => $Lang::tr{'alt vpn'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'virtual private networking'}", - 'subMenu' => [[ $Lang::tr{'alt vpn'} , '/cgi-bin/vpnmain.cgi', "IPCop $Lang::tr{'virtual private networking'}"]] - ); - %{$menu{'7.mainlogs'}}=( - 'contents' => $Lang::tr{'alt logs'}, - 'uri' => '', - 'statusText' => "IPCop $Lang::tr{'alt logs'}", - 'subMenu' => [[ $Lang::tr{'log settings'} , '/cgi-bin/logs.cgi/config.dat', "IPCop $Lang::tr{'log settings'}" ], - [ $Lang::tr{'log summary'} , '/cgi-bin/logs.cgi/summary.dat', "IPCop $Lang::tr{'log summary'}" ], - [ $Lang::tr{'proxy logs'} , '/cgi-bin/logs.cgi/proxylog.dat', "IPCop $Lang::tr{'proxy log viewer'}" ], - [ $Lang::tr{'firewall logs'} , '/cgi-bin/logs.cgi/firewalllog.dat', "IPCop $Lang::tr{'firewall log viewer'}" ], - [ $Lang::tr{'ids logs'} , '/cgi-bin/logs.cgi/ids.dat', "IPCop $Lang::tr{'intrusion detection system log viewer'}" ], - [ $Lang::tr{'system logs'} , '/cgi-bin/logs.cgi/log.dat', "IPCop $Lang::tr{'system log viewer'}" ]] - ); - if (! $ethsettings{'BLUE_DEV'}) { - splice (@{$menu{'5.firewall'}{'subMenu'}}, 3, 1); - } - if (! $ethsettings{'BLUE_DEV'} && ! $ethsettings{'ORANGE_DEV'}) { - splice (@{$menu{'5.firewall'}{'subMenu'}}, 2, 1); - } - unless ( $ethsettings{'CONFIG_TYPE'} =~ /^(2|3|6|7)$/ && $ethsettings{'RED_TYPE'} eq 'STATIC' ) { - splice (@{$menu{'3.network'}{'subMenu'}}, 3, 1); - } - if ( ! -e "${General::swroot}/snort/enable" && ! -e "${General::swroot}/snort/enable_blue" && - ! -e "${General::swroot}/snort/enable_green" && ! -e "${General::swroot}/snort/enable_orange") { - splice (@{$menu{'7.mainlogs'}{'subMenu'}}, 4, 1); - } - if ( ! -e "${General::swroot}/proxy/enable" && ! -e "${General::swroot}/proxy/enable_blue" ) { - splice (@{$menu{'2.status'}{'subMenu'}}, 4, 1); - splice (@{$menu{'7.mainlogs'}{'subMenu'}}, 2, 1); - } -} - -sub showhttpheaders -{ - ### Make sure this is an SSL request - if ($ENV{'SERVER_ADDR'} && $ENV{'HTTPS'} ne 'on') { - print "Status: 302 Moved\r\n"; - print "Location: https://$ENV{'SERVER_ADDR'}:445/$ENV{'PATH_INFO'}\r\n\r\n"; - exit 0; - } else { - print "Pragma: no-cache\n"; - print "Cache-control: no-cache\n"; - print "Connection: close\n"; - print "Content-type: text/html\n\n"; - } -} - -sub showjsmenu -{ - my $c1 = 1; - - print " -EOF - ; -} - -sub showmenu -{ - if ($javascript) {print "";} -} - -sub showsubsection -{ - my $location = $_[0]; - my $c1 = 0; - - if ($javascript) {print "";} -} - -sub openpage -{ - my $title = $_[0]; - my $menu = $_[1]; - my $extrahead = $_[2]; - - ### Initialize environment - my %settings = (); - &General::readhash("${General::swroot}/main/settings", \%settings); - - if ($settings{'JAVASCRIPT'} eq 'off') { - $javascript = 0; - } else { - $javascript = 1; - } - - if ($settings{'WINDOWWITHHOSTNAME'} eq 'on') { - $hostnameintitle = 1; - } else { - $hostnameintitle = 0; - } - - print < - - -END - ; - print " "; - if ($hostnameintitle) { - print "$settings{'HOSTNAME'}.$settings{'DOMAINNAME'} - $title"; - } else { - print "IPCop - $title"; - } - print "\n"; - - print < - - -END - ; - if ($javascript) { - print "\n"; - &genmenu(); - &showjsmenu(); - } else { - &genmenu(); - } - - my $location = ''; - my $sublocation = ''; - my @URI=split ('\?', $ENV{'REQUEST_URI'} ); - foreach my $k1 ( keys %menu ) { - my $temp = $menu{$k1}{'contents'}; - foreach my $k2 ( @{$menu{$k1}{'subMenu'}} ) { - if ( @{$k2}[1] eq $URI[0] ) { - $location = $temp; - $sublocation = @{$k2}[0]; - } - } - } - - my @cgigraphs = split(/graph=/,$ENV{'QUERY_STRING'}); - if (defined ($cgigraphs[1])){ - if ($cgigraphs[1] =~ /(GREEN|BLUE|ORANGE|RED|network)/) { - $location = $Lang::tr{'status'}; - $sublocation = $Lang::tr{'sstraffic graphs'}; - } - if ($cgigraphs[1] =~ /(cpu|memory|swap|disk)/) { - $location = $Lang::tr{'status'}; - $sublocation = $Lang::tr{'system graphs'}; - } - } - if ($ENV{'QUERY_STRING'} =~ /(ip)/) { - $location = $Lang::tr{'alt logs'}; - $sublocation = "WHOIS"; - } - - if ($javascript) { - print < - document.onmouseup = function() - { - domMenu_deactivate('domMenu_main'); - } - - - - -END - ; - } else { - print "\n\n\n"; - } - - print < - - - - - - -
- - - - - - -
$location$sublocation
-
- ${General::version} -END - ; - if ($menu == 1) { - if ($javascript) { - print "
\n"; - } - &showmenu(); - } - print "
\n"; - &showsubsection($location); - print "\n"; -} - -sub closepage -{ - print < - - - -
-END - ; - my $status = &connectionstatus(); - print "$status
\n"; - print `/usr/bin/uptime`; - - print < - 		Sourceforge logo
- -END - ; -} - -sub openbigbox -{ - my $width = $_[0]; - my $align = $_[1]; - my $sideimg = $_[2]; - my $errormessage = $_[3]; - my $bgcolor; - - if ($errormessage) { - $bgcolor = "style='background-color: $Header::colourerr;'"; - } else { - $bgcolor = ''; - } - - print "\n"; - if ($sideimg) { - print "\n"; - } else { - print "\n"; - } - print "
\n"; - print "\n"; - print "
\n"; -} - -sub closebigbox -{ - print "
\n" -} - -sub openbox -{ - my $width = $_[0]; - my $align = $_[1]; - my $caption = $_[2]; - - print < - - - - - - - - - - - - - -END - ; - if ($caption) { print "$caption\n"; } else { print " "; } - print < - - - -
-END - ; -} - -sub closebox -{ - print <
- - - - - -END - ; -} - -sub getcgihash { - my ($hash, $params) = @_; - my $cgi = CGI->new (); - return if ($ENV{'REQUEST_METHOD'} ne 'POST'); - if (!$params->{'wantfile'}) { - $CGI::DISABLE_UPLOADS = 1; - $CGI::POST_MAX = 512 * 1024; - } else { - $CGI::POST_MAX = 10 * 1024 * 1024; - } - - $cgi->referer() =~ m/^https?\:\/\/([^\/]+)/; - my $referer = $1; - $cgi->url() =~ m/^https?\:\/\/([^\/]+)/; - my $servername = $1; - return if ($referer ne $servername); - - ### Modified for getting multi-vars, split by | - my %temp = $cgi->Vars(); - foreach my $key (keys %temp) { - $hash->{$key} = $temp{$key}; - $hash->{$key} =~ s/\0/|/g; - $hash->{$key} =~ s/^\s*(.*?)\s*$/$1/; - } - - if (($params->{'wantfile'})&&($params->{'filevar'})) { - $hash->{$params->{'filevar'}} = $cgi->upload - ($params->{'filevar'}); - } - return; -} - -sub cleanhtml -{ - my $outstring =$_[0]; - $outstring =~ tr/,/ / if not defined $_[1] or $_[1] ne 'y'; - $outstring =~ s/&/&/g; - $outstring =~ s/\'/'/g; - $outstring =~ s/\"/"/g; - $outstring =~ s//>/g; - return $outstring; -} - -sub connectionstatus -{ - my %pppsettings = (); - my %netsettings = (); - my $iface=''; - - $pppsettings{'PROFILENAME'} = 'None'; - &General::readhash("${General::swroot}/ppp/settings", \%pppsettings); - &General::readhash("${General::swroot}/ethernet/settings", \%netsettings); - - my $profileused=''; - if ( ! ( $netsettings{'CONFIG_TYPE'} =~ /^(2|3|6|7)$/ && $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) ) { - $profileused="- $pppsettings{'PROFILENAME'}"; - } - - if ( ( $pppsettings{'METHOD'} eq 'DHCP' && $netsettings{'RED_TYPE'} ne 'PPTP') - || $netsettings{'RED_TYPE'} eq 'DHCP' ) { - if (open(IFACE, "${General::swroot}/red/iface")) { - $iface = ; - close IFACE; - chomp ($iface); - $iface =~ /([a-zA-Z0-9]*)/; $iface = $1; - } - } - - my ($timestr, $connstate); - if ($netsettings{'CONFIG_TYPE'} =~ /^(0|1|4|5)$/ && $pppsettings{'TYPE'} =~ /^isdn/) { - # Count ISDN channels - my ($idmap, $chmap, $drmap, $usage, $flags, $phone); - my @phonenumbers; - my $count=0; - - open (FILE, "/dev/isdninfo"); - - $idmap = ; chop $idmap; - $chmap = ; chop $chmap; - $drmap = ; chop $drmap; - $usage = ; chop $usage; - $flags = ; chop $flags; - $phone = ; chop $phone; - - $phone =~ s/^phone(\s*):(\s*)//; - - @phonenumbers = split / /, $phone; - - foreach (@phonenumbers) { - if ($_ ne '???') { - $count++; - } - } - close (FILE); - - ## Connection status - my $number; - if ($count == 0) { - $number = 'none!'; - } elsif ($count == 1) { - $number = 'single'; - } else { - $number = 'dual'; - } - - if (-e "${General::swroot}/red/active") { - $timestr = &General::age("${General::swroot}/red/active"); - $connstate = "$Lang::tr{'connected'} - $number channel ($timestr) $profileused"; - } else { - if ($count == 0) { - if (-e "${General::swroot}/red/dial-on-demand") { - $connstate = "$Lang::tr{'dod waiting'} $profileused"; - } else { - $connstate = "$Lang::tr{'idle'} $profileused"; - } - } else { - $connstate = "$Lang::tr{'connecting'} $profileused"; - } - } - } elsif ($netsettings{'RED_TYPE'} eq "STATIC" || $pppsettings {'METHOD'} eq 'STATIC') { - if (-e "${General::swroot}/red/active") { - $timestr = &General::age("${General::swroot}/red/active"); - $connstate = "$Lang::tr{'connected'} ($timestr) $profileused"; - } else { - $connstate = "$Lang::tr{'idle'} $profileused"; - } - } elsif ( ( (-e "${General::swroot}/dhcpc/dhcpcd-$iface.pid") && $netsettings{'RED_TYPE'} ne 'PPTP' ) || - !system("/bin/ps -ef | /bin/grep -q '[p]ppd'") || !system("/bin/ps -ef | /bin/grep -q '[c]onnectioncheck'")) { - if (-e "${General::swroot}/red/active") { - $timestr = &General::age("${General::swroot}/red/active"); - if ($pppsettings{'TYPE'} =~ /^(modem|bewanadsl|conexantpciadsl|eagleusbadsl)$/) { - my $speed; - if ($pppsettings{'TYPE'} eq 'modem') { - open(CONNECTLOG, "/var/log/connect.log"); - while () { - if (/CONNECT/) { - $speed = (split / /)[6]; - } - } - close (CONNECTLOG); - } elsif ($pppsettings{'TYPE'} eq 'bewanadsl') { - $speed = `/usr/bin/unicorn_status | /bin/grep Rate | /usr/bin/cut -f2 -d ':'`; - } elsif ($pppsettings{'TYPE'} eq 'conexantpciadsl') { - $speed = `/bin/cat /proc/net/atm/CnxAdsl:* | /bin/grep 'Line Rates' | /bin/sed -e 's+Line Rates: Receive+Rx+' -e 's+Transmit+Tx+'`; - } elsif ($pppsettings{'TYPE'} eq 'eagleusbadsl') { - $speed = `/usr/sbin/eaglestat | /bin/grep Rate`; - } - $connstate = "$Lang::tr{'connected'} ($timestr) $profileused (\@$speed)"; - } else { - $connstate = "$Lang::tr{'connected'} ($timestr) $profileused"; - } - } else { - if (-e "${General::swroot}/red/dial-on-demand") { - $connstate = "$Lang::tr{'dod waiting'} $profileused"; - } else { - $connstate = "$Lang::tr{'connecting'} $profileused"; - } - } - } else { - $connstate = "$Lang::tr{'idle'} $profileused"; - } - return $connstate; -} - -sub speedtouchversion -{ - my $speedtouch; - if (-f "/proc/bus/usb/devices") - { - $speedtouch=`/bin/cat /proc/bus/usb/devices | /bin/grep 'Vendor=06b9 ProdID=4061' | /usr/bin/cut -d ' ' -f6`; - if ($speedtouch eq '') { - $speedtouch= $Lang::tr{'connect the modem'}; - } - } else { - $speedtouch='USB '.$Lang::tr{'not running'}; - } - return $speedtouch -} - -#Sorting of allocated leases -sub CheckSortOrder { - my %dhcpsettings = (); - &General::readhash("${General::swroot}/dhcp/settings", \%dhcpsettings); - - if ($ENV{'QUERY_STRING'} =~ /^IPADDR|^ETHER|^HOSTNAME|^ENDTIME/ ) { - my $newsort=$ENV{'QUERY_STRING'}; - my $act=$dhcpsettings{'SORT_LEASELIST'}; - #Default sort if unspecified - $act='IPADDRRev' if !defined ($act); - #Reverse actual ? - if ($act =~ $newsort) { - my $Rev=''; - if ($act !~ 'Rev') {$Rev='Rev'}; - $newsort.=$Rev - }; - - $dhcpsettings{'SORT_LEASELIST'}=$newsort; - &General::writehash("${General::swroot}/dhcp/settings", \%dhcpsettings); - } -} - -sub PrintActualLeases -{ - our %dhcpsettings = (); - our %entries = (); - - sub leasesort { - my $qs =''; - if (rindex ($dhcpsettings{'SORT_LEASELIST'},'Rev') != -1) - { - $qs=substr ($dhcpsettings{'SORT_LEASELIST'},0,length($dhcpsettings{'SORT_LEASELIST'})-3); - if ($qs eq 'IPADDR') { - my @a = split(/\./,$entries{$a}->{$qs}); - my @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') { - my @a = split(/\./,$entries{$a}->{$qs}); - my @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}; - } - } - } - - &Header::openbox('100%', 'left', $Lang::tr{'current dynamic leases'}); - print < - -$Lang::tr{'ip address'} -$Lang::tr{'mac address'} -$Lang::tr{'hostname'} -$Lang::tr{'lease expires'} (local time d/m/y) - -END - ; - - my ($ip, $endtime, $ether, $hostname, @record, $record); - open(LEASES,"/var/state/dhcp/dhcpd.leases") or die "Can't open dhcpd.leases"; - while (my $line = ) { - next if( $line =~ /^\s*#/ ); - chomp($line); - my @temp = split (' ', $line); - - if ($line =~ /^\s*lease/) { - $ip = $temp[1]; - #All field are not necessarily read. Clear everything - $endtime = 0; - $ether = ""; - $hostname = ""; - } elsif ($line =~ /^\s*ends never;/) { - $endtime = 'never'; - } elsif ($line =~ /^\s*ends/) { - $line =~ /(\d+)\/(\d+)\/(\d+) (\d+):(\d+):(\d+)/; - $endtime = timegm($6, $5, $4, $3, $2 - 1, $1 - 1900); - } elsif ($line =~ /^\s*hardware ethernet/) { - $ether = $temp[2]; - $ether =~ s/;//g; - } elsif ($line =~ /^\s*client-hostname/) { - shift (@temp); - $hostname = join (' ',@temp); - $hostname =~ s/;//g; - $hostname =~ s/\"//g; - } elsif ($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 - } #unknown format line... - } - close(LEASES); - - #Get sort method - $dhcpsettings{'SORT_LEASELIST'}='IPADDR'; #default - &General::readhash("${General::swroot}/dhcp/settings", \%dhcpsettings); #or maybe saved ! - my $id = 0; - foreach my $key (sort leasesort keys %entries) { - - my $hostname = &Header::cleanhtml($entries{$key}->{HOSTNAME},"y"); - - if ($id % 2) { - print ""; - } - else { - print ""; - } - - print <$entries{$key}->{IPADDR} -$entries{$key}->{ETHER} - $hostname - -END - ; - - if ($entries{$key}->{ENDTIME} eq 'never') { - print "$Lang::tr{'no time limit'}"; - } else { - my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $dst); - ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $dst) = localtime ($entries{$key}->{ENDTIME}); - my $enddate = sprintf ("%02d/%02d/%d %02d:%02d:%02d",$mday,$mon+1,$year+1900,$hour,$min,$sec); - - if ($entries{$key}->{ENDTIME} < time() ){ - print "$enddate"; - } else { - print "$enddate"; - } - } - print ""; - $id++; - } - - print ""; - &Header::closebox(); -} - -1; +# SmoothWall CGIs +# +# This code is distributed under the terms of the GPL +# +# (c) The SmoothWall Team +# Copyright (C) 2002 Alex Hudson - getcgihash() rewrite +# Copyright (C) 2002 Bob Grant - validmac() +# Copyright (c) 2002/04/13 Steve Bootes - add alias section, helper functions +# Copyright (c) 2002/08/23 Mark Wormgoor validfqdn() +# Copyright (c) 2003/09/11 Darren Critchley srtarray() +# +# $Id: header.pl,v 1.34.2.39 2004/11/26 15:51:27 alanh Exp $ +# +package Header; + +use CGI(); +use Socket; +use Time::Local; + +$|=1; # line buffering + +sub get_version() { + my $read_ver = `cat /etc/ipfire-release`; + if ($read_ver =~ /^$/) { + return "IPFire (unknown version)"; + } + return $read_ver; +} + +$Header::version = get_version(); +$Header::revision = 'final'; +$Header::swroot = '/var/ipfire'; +$Header::pagecolour = '#ffffff'; +#$Header::tablecolour = '#a0a0a0'; +$Header::tablecolour = '#FFFFFF'; +$Header::bigboxcolour = '#F6F4F4'; +$Header::boxcolour = '#EAE9EE'; +$Header::bordercolour = '#000000'; +$Header::table1colour = '#E0E0E0'; +$Header::table2colour = '#F0F0F0'; +$Header::colourred = '#993333'; +$Header::colourorange = '#FF9933'; +$Header::colouryellow = '#FFFF00'; +$Header::colourgreen = '#339933'; +$Header::colourblue = '#333399'; +$Header::colourfw = '#000000'; +$Header::colourvpn = '#990099'; +$Header::colourerr = '#FF0000'; +$Header::viewsize = 150; +$Header::errormessage = ''; +my %menuhash = (); +my $menu = \%menuhash; +%settings = (); +%ethsettings = (); +@URI = (); +$Header::supported=0; + +### Make sure this is an SSL request +if ($ENV{'SERVER_ADDR'} && $ENV{'HTTPS'} ne 'on') { + print "Status: 302 Moved\r\n"; + print "Location: https://$ENV{'SERVER_ADDR'}:10443/$ENV{'PATH_INFO'}\r\n\r\n"; + exit 0; +} + +### Initialize environment +&readhash("${swroot}/main/settings", \%settings); +&readhash("${swroot}/ethernet/settings", \%ethsettings); +$language = $settings{'LANGUAGE'}; +$hostname = $settings{'HOSTNAME'}; +$hostnameintitle = 0; + +### Initialize language +if ($language =~ /^(\w+)$/) {$language = $1;} + +### Read English Files +if ( -d "/var/ipfire/langs/en/" ) { + opendir(DIR, "/var/ipfire/langs/en/"); + @names = readdir(DIR) or die "Cannot Read Directory: $!\n"; + foreach $name(@names) { + next if ($name eq "."); + next if ($name eq ".."); + next if (!($name =~ /\.pl$/)); + require "${swroot}/langs/en/${name}"; + }; +}; + + +### Enable Language Files +if ( -d "/var/ipfire/langs/${language}/" ) { + opendir(DIR, "/var/ipfire/langs/${language}/"); + @names = readdir(DIR) or die "Cannot Read Directory: $!\n"; + foreach $name(@names) { + next if ($name eq "."); + next if ($name eq ".."); + next if (!($name =~ /\.pl$/)); + require "${swroot}/langs/${language}/${name}"; + }; +}; + + +require "${swroot}/langs/en.pl"; +require "${swroot}/langs/${language}.pl"; + +sub orange_used () { + if ($ethsettings{'CONFIG_TYPE'} =~ /^[1357]$/) { + return 1; + } + return 0; +} + +sub blue_used () { + if ($ethsettings{'CONFIG_TYPE'} =~ /^[4567]$/) { + return 1; + } + return 0; +} + +sub is_modem { + if ($ethsettings{'CONFIG_TYPE'} =~ /^[0145]$/) { + return 1; + } + return 0; +} + +### Initialize menu +sub genmenu { + my %subsystemhash = (); + my $subsystem = \%subsystemhash; + + $subsystem->{'01.home'} = { + 'caption' => $tr{'alt home'}, + 'uri' => '/cgi-bin/index.cgi', + 'title' => "$tr{'alt home'}", + 'enabled' => 1, + }; + $subsystem->{'02.netwizard'} = { + 'caption' => $tr{'network configuration'}, + 'uri' => '/cgi-bin/netwizard.cgi', + 'title' => "$tr{'network configuration'}", + 'enabled' => 1, + }; + $subsystem->{'03.updates'} = { + 'caption' => $tr{'updates'}, + 'uri' => '/cgi-bin/updates.cgi', + 'title' => "$tr{'updates'}", + 'enabled' => 0, + }; + $subsystem->{'04.passwords'} = { + 'caption' => $tr{'sspasswords'}, + 'uri' => '/cgi-bin/changepw.cgi', + 'title' => "$tr{'sspasswords'}", + 'enabled' => 1, + }; + $subsystem->{'05.ssh'} = { + 'caption' => $tr{'ssh access'}, + 'uri' => '/cgi-bin/remote.cgi', + 'title' => "$tr{'ssh access'}", + 'enabled' => 1, + }; + $subsystem->{'06.gui'} = { + 'caption' => $tr{'gui settings'}, + 'uri' => '/cgi-bin/gui.cgi', + 'title' => "$tr{'gui settings'}", + 'enabled' => 1, + }; + $subsystem->{'07.backup'} = { + 'caption' => $tr{'backup'}, + 'uri' => '/cgi-bin/backup.cgi', + 'title' => "$tr{'backup'} / $tr{'restore'}", + 'enabled' => 1, + }; + $subsystem->{'08.shutdown'} = { + 'caption' => $tr{'shutdown'}, + 'uri' => '/cgi-bin/shutdown.cgi', + 'title' => "$tr{'shutdown'} / $tr{'reboot'}", + 'enabled' => 1, + }; + $subsystem->{'09.credits'} = { + 'caption' => $tr{'credits'}, + 'uri' => '/cgi-bin/credits.cgi', + 'title' => "$tr{'credits'}", + 'enabled' => 1, + }; + + my %substatushash = (); + my $substatus = \%substatushash; + $substatus->{'01.systemstatus'} = { + 'caption' => $tr{'sssystem status'}, + 'uri' => '/cgi-bin/status.cgi', + 'title' => "$tr{'system status information'}", + 'enabled' => 1, + }; + $substatus->{'02.networkstatus'} = { + 'caption' => $tr{'ssnetwork status'}, + 'uri' => '/cgi-bin/netstatus.cgi', + 'title' => "$tr{'network status information'}", + 'enabled' => 1, + }; + $substatus->{'03.systemgraphs'} = { + 'caption' => $tr{'system graphs'}, + 'uri' => '/cgi-bin/graphs.cgi', + 'novars' => 1, + 'title' => "$tr{'system graphs'}", + 'enabled' => 1, + }; + $substatus->{'04.trafficgraphs'} = { + 'caption' => $tr{'sstraffic graphs'}, + 'uri' => '/cgi-bin/graphs.cgi', + 'vars' => 'graph=network', + 'title' => "$tr{'network traffic graphs'}", + 'enabled' => 1, + }; + $substatus->{'05.proxygraphs'} = { + 'caption' => $tr{'ssproxy graphs'}, + 'uri' => '/cgi-bin/proxygraphs.cgi', + 'title' => "$tr{'proxy access graphs'}", + 'enabled' => 1, + }; + $substatus->{'06.connections'} = { + 'caption' => $tr{'connections'}, + 'uri' => '/cgi-bin/connections.cgi', + 'title' => "$tr{'connections'}", + 'enabled' => 1, + }; + $substatus->{'99.iptfilters'} = { + 'caption' => $tr{'iptfilters iptable rules'}, + 'uri' => '/cgi-bin/iptfilters.cgi', + 'title' => "$tr{'iptfilters iptable rules'}", + 'enabled' => 1, + }; + + my %subnetworkhash = (); + my $subnetwork = \%subnetworkhash; + + $subnetwork->{'01.dialup'} = { + 'caption' => $tr{'alt dialup'}, + 'uri' => '/cgi-bin/pppsetup.cgi', + 'title' => "$tr{'dialup settings'}", + 'enabled' => 0, + }; + $subnetwork->{'02.hosts'} = { + 'caption' => $tr{'edit hosts'}, + 'uri' => '/cgi-bin/hosts.cgi', + 'title' => "$tr{'host configuration'}", + 'enabled' => 1, + }; + $subnetwork->{'03.upload'} = { + 'caption' => $tr{'upload'}, + 'uri' => '/cgi-bin/upload.cgi', + 'title' => "$tr{'firmware upload'}", + 'enabled' => 0, + }; + $subnetwork->{'04.aliases'} = { + 'caption' => $tr{'aliases'}, + 'uri' => '/cgi-bin/aliases.cgi', + 'title' => "$tr{'external aliases configuration'}", + 'enabled' => 1, + }; + + + my %subserviceshash = (); + my $subservices = \%subserviceshash; + + $subservices->{'01.dhcp'} = { + 'caption' => $tr{'dhcp server'}, + 'uri' => '/cgi-bin/dhcp.cgi', + 'title' => "$tr{'dhcp configuration'}", + 'enabled' => 1, + }; + $subservices->{'02.dyndns'} = { + 'caption' => $tr{'dynamic dns'}, + 'uri' => '/cgi-bin/ddns.cgi', + 'title' => "$tr{'dynamic dns client'}", + 'enabled' => 1, + }; + $subservices->{'03.time'} = { + 'caption' => $tr{'time server'}, + 'uri' => '/cgi-bin/time.cgi', + 'title' => "$tr{'time server'}", + 'enabled' => 1, + }; + $subservices->{'04.shaping'} = { + 'caption' => $tr{'traffic shaping'}, + 'uri' => '/cgi-bin/shaping.cgi', + 'title' => "$tr{'traffic shaping settings'}", + 'enabled' => 1, + }; + $subservices->{'05.ids'} = {'caption' => $tr{'intrusion detection'}, + 'enabled' => 1, + 'uri' => '/cgi-bin/ids.cgi', + 'title' => "$tr{'intrusion detection system'} (Snort)", + }; + + + my %subfirewallhash = (); + my $subfirewall = \%subfirewallhash; + + + $subfirewall->{'01.dnat'} = { + 'caption' => $tr{'ssport forwarding'}, + 'uri' => '/cgi-bin/portfw.cgi', + 'title' => "$tr{'port forwarding configuration'}", + 'enabled' => 1, + }; + $subfirewall->{'02.xtaccess'} = { + 'caption' => $tr{'external access'}, + 'uri' => '/cgi-bin/xtaccess.cgi', + 'title' => "$tr{'external access configuration'}", + 'enabled' => 1, + }; + $subfirewall->{'03.dmz'} = { + 'caption' => $tr{'ssdmz pinholes'}, + 'uri' => '/cgi-bin/dmzholes.cgi', + 'title' => "$tr{'dmz pinhole configuration'}", + 'enabled' => 1, + }; + $subfirewall->{'04.outgoing'} = { + 'caption' => $tr{'outgoing firewall'}, + 'uri' => '/cgi-bin/outgoingfw.cgi', + 'title' => "$tr{'outgoing firewall'}", + 'enabled' => 1, + }; + + + + my %subhttphash = (); + my $subhttp = \%subhttphash; + $subhttp->{'01.proxy'} = { + 'caption' => $tr{'proxy'}, + 'uri' => '/cgi-bin/advproxy.cgi', + 'title' => "HTTP: $tr{'web proxy configuration'}", + 'enabled' => 1, + }; + $subhttp->{'02.contentfilter'} = { + 'caption' => $tr{'content filter'}, + 'uri' => '/cgi-bin/dansguardian.cgi', + 'title' => "HTTP: $tr{'content filter'}", + 'enabled' => 1, + }; + $subhttp->{'03.antivirus'} = { + 'caption' => $tr{'antivirus'}, + 'uri' => '/cgi-bin/httpantivirus.cgi', + 'title' => "HTTP: $tr{'antivirus'}", + 'enabled' => 1, + }; + $subhttp->{'04.proxymanagment'} = { + 'caption' => $tr{'DS Managment'}, + 'uri' => '/cgi-bin/proxygm.cgi', + 'title' => "HTTP: $tr{'DS Managment'}", + 'enabled' => 1, + }; + $subhttp->{'05.activatedgroups'} = { + 'caption' => $tr{'activated Groups'}, + 'uri' => '/cgi-bin/proxyag.cgi', + 'title' => "HTTP: $tr{'activated Groups'}", + 'enabled' => 1, + }; + $subhttp->{'06.advancedproxy'} = { + 'caption' => $tr{'Proxy Advanced'}, + 'uri' => '/cgi-bin/proxyad.cgi', + 'title' => "HTTP: $tr{'Proxy Advanced'}", + 'enabled' => 1, + }; + + + my %subproxyhash = (); + my $subproxy = \%subproxyhash; + + $subproxy->{'01.http'} = {'caption' => $tr{'HTTP'}, + 'enabled' => 1, + 'subMenu' => $subhttp + }; + $subproxy->{'02.ftp'} = {'caption' => 'FTP', + 'enabled' => 1, + 'subMenu' => $subftp + }; + + + + my %subopenvpnhash = (); + my $subopenvpn = \%subopenvpnhash; + $subopenvpn->{'01.server'} = {'caption' => $tr{'openvpn'}, + 'uri' => '/cgi-bin/openvpn.cgi', + 'title' => "$tr{'virtual private networking'}", + 'enabled' => 1, + }; + $subopenvpn->{'02.client'} = {'caption' => $tr{'openvpnclient'}, + 'uri' => '/cgi-bin/openvpnclient.cgi', + 'title' => "$tr{'virtual private networking'}", + 'enabled' => 1, + }; + + my %subvpnhash = (); + my $subvpn = \%subvpnhash; + + $subvpn->{'01.openvpn'} = {'caption' => $tr{'openvpn'}, + 'subMenu' => $subopenvpn, + 'enabled' => 1, + }; + $subvpn->{'02.ipsec'} = {'caption' => $tr{'ipsec'}, + 'uri' => '/cgi-bin/vpnmain.cgi', + 'title' => "$tr{'virtual private networking'}", + 'enabled' => 1, + }; + + my %sublogshash = (); + my $sublogs = \%sublogshash; + + $sublogs->{'01.summary'} = {'caption' => $tr{'log summary'}, + 'uri' => '/cgi-bin/logs.cgi/summary.dat', + 'title' => "$tr{'log summary'}", + 'enabled' => 1 + }; + $sublogs->{'02.settings'} = {'caption' => $tr{'log settings'}, + 'uri' => '/cgi-bin/logs.cgi/config.dat', + 'title' => "$tr{'log settings'}", + 'enabled' => 1 + }; + $sublogs->{'03.proxy'} = {'caption' => $tr{'proxy logs'}, + 'uri' => '/cgi-bin/logs.cgi/proxylog.dat', + 'title' => "$tr{'proxy log viewer'}", + 'enabled' => 1 + }; + $sublogs->{'04.firewall'} = {'caption' => $tr{'firewall logs'}, + 'uri' => '/cgi-bin/logs.cgi/firewalllog.dat', + 'title' => "$tr{'firewall log viewer'}", + 'enabled' => 1 + }; + $sublogs->{'05.ids'} = {'caption' => $tr{'ids logs'}, + 'uri' => '/cgi-bin/logs.cgi/ids.dat', + 'title' => "$tr{'intrusion detection system log viewer'}", + 'enabled' => 1 + }; + $sublogs->{'06.contentfilter'} = {'caption' => $tr{'content filter logs'}, + 'uri' => '/cgi-bin/logs.cgi/dansguardian.dat', + 'title' => "$tr{'content filter log viewer'}", + 'enabled' => 1 + }; + $sublogs->{'07.urlfilter'} = { + 'caption' => $tr{'urlfilter log'}, + 'uri' => '/cgi-bin/logs.cgi/urlfilter.dat', + 'title' => "$tr{'urlfilter log'}", + 'enabled' => 1, + }; + $sublogs->{'08.openvpn'} = {'caption' => $tr{'openvpn log'}, + 'uri' => '/cgi-bin/logs.cgi/openvpn.dat', + 'title' => "$tr{'openvpn log'}", + 'enabled' => 1 + }; + $sublogs->{'09.system'} = {'caption' => $tr{'system logs'}, + 'uri' => '/cgi-bin/logs.cgi/log.dat', + 'title' => "$tr{'system log viewer'}", + 'enabled' => 1 + }; + $sublogs->{'10.userlog'} = {'caption' => $tr{'user proxy logs'}, + 'uri' => '/cgi-bin/logs.cgi/userlog.dat', + 'title' => "$tr{'user log viewer'}", + 'enabled' => 1 + }; + + + $menu->{'01.system'} = {'caption' => $tr{'alt system'}, + 'enabled' => 1, + 'subMenu' => $subsystem + }; + $menu->{'02.status'} = {'caption' => $tr{'status'}, + 'enabled' => 1, + 'subMenu' => $substatus + }; + $menu->{'03.network'} = {'caption' => $tr{'network'}, + 'enabled' => 1, + 'subMenu' => $subnetwork + }; + $menu->{'04.services'} = {'caption' => $tr{'alt services'}, + 'enabled' => 1, + 'subMenu' => $subservices + }; + $menu->{'05.firewall'} = {'caption' => $tr{'firewall'}, + 'enabled' => 1, + 'subMenu' => $subfirewall + }; + $menu->{'06.proxy'} = {'caption' => $tr{'alt proxy'}, + 'enabled' => 1, + 'subMenu' => $subproxy + }; + $menu->{'07.vpn'} = {'caption' => 'VPN', + 'enabled' => 1, + 'subMenu' => $subvpn + }; + $menu->{'08.logs'} = {'caption' => $tr{'alt logs'}, + 'enabled' => 1, + 'subMenu' => $sublogs + }; + + + + if (! blue_used() && ! orange_used()) { + $menu->{'05.firewall'}{'subMenu'}->{'03.dmz'}{'enabled'} = 0; + } + if (-e '/etc/FLASH') { + $menu{'06.proxy'}{'subMenu'}->{'01.http'}{'subMenu'}->{'01.proxy'}{'enabled'} = 0; #disable squid + $menu{'04.services'}{'subMenu'}->{'05.ids'}{'enabled'} = 0; #disable ids + $menu{'08.logs'}{'subMenu'}->{'05.ids'}{'enabled'} = 0; #disable ids + } +} + +sub showhttpheaders +{ + print "Pragma: no-cache\n"; + print "Cache-control: no-cache\n"; + print "Connection: close\n"; + print "Content-type: text/html\n\n"; +} + +sub is_menu_visible($) { + my $link = shift; + $link =~ s#\?.*$##; + return (-e $ENV{'DOCUMENT_ROOT'}."/../$link"); +} + + +sub getlink($) { + my $root = shift; + if (! $root->{'enabled'}) { + return ''; + } + if ($root->{'uri'} !~ /^$/) { + my $vars = ''; + if ($root->{'vars'} !~ /^$/) { + $vars = '?'. $root->{'vars'}; + } + if (! is_menu_visible($root->{'uri'})) { + return ''; + } + return $root->{'uri'}.$vars; + } + my $submenus = $root->{'subMenu'}; + if (! $submenus) { + return ''; + } + foreach my $item (sort keys %$submenus) { + my $link = getlink($submenus->{$item}); + if ($link ne '') { + return $link; + } + } + return ''; +} + + +sub compare_url($) { + my $conf = shift; + + my $uri = $conf->{'uri'}; + my $vars = $conf->{'vars'}; + my $novars = $conf->{'novars'}; + + if ($uri eq '') { + return 0; + } + if ($uri ne $URI[0]) { + return 0; + } + if ($novars) { + if ($URI[1] !~ /^$/) { + return 0; + } + } + if (! $vars) { + return 1; + } + return ($URI[1] eq $vars); +} + + +sub gettitle($) { + my $root = shift; + + if (! $root) { + return ''; + } + foreach my $item (sort keys %$root) { + my $val = $root->{$item}; + if (compare_url($val)) { + $val->{'selected'} = 1; + if ($val->{'title'} !~ /^$/) { + return $val->{'title'}; + } + return 'EMPTY TITLE'; + } + + my $title = gettitle($val->{'subMenu'}); + if ($title ne '') { + $val->{'selected'} = 1; + return $title; + } + } + return ''; +} + + +sub showmenu() { + print < +
    +EOF +; + foreach my $k1 ( sort keys %$menu ) { + if (! $menu->{$k1}{'enabled'}) { + next; + } + + my $link = getlink($menu->{$k1}); + if ($link eq '') { + next; + } + if (! is_menu_visible($link)) { + next; + } + if ($menu->{$k1}->{'selected'}) { + print '
  • '; + } else { + print '
  • '; + } + + print < + $menu->{$k1}{'caption'} + +
    • +EOF +; + } + + print < + +EOF +; +} + +sub getselected($) { + my $root = shift; + if (!$root) { + return 0; + } + + foreach my $item (%$root) { + if ($root->{$item}{'selected'}) { + return $root->{$item}; + } + } +} + +sub showsubsection($$) { + my $root = shift; + my $id = shift; + if ($id eq '') { + $id = 'menu-left'; + } + + if (! $root) { + return; + } + my $selected = getselected($root); + if (! $selected) { + return; + } + my $submenus = $selected->{'subMenu'}; + if (! $submenus) { + return; + } + + print < +
      +EOF +; + foreach my $item (sort keys %$submenus) { + my $hash = $submenus->{$item}; + if (! $hash->{'enabled'}) { + next; + } + + my $link = getlink($hash); + if ($link eq '') { + next; + } + if (! is_menu_visible($link)) { + next; + } + if ($hash->{'selected'}) { + print '
    • '; + } else { + print '
    • '; + } + + print <$hash->{'caption'} +
      • +EOF +; + } + + print < + +EOF +; + +} + + +sub showsubsubsection($) { + my $root = shift; + if (!$root) { + return; + } + my $selected = getselected($root); + if (! $selected) { + return + } + if (! $selected->{'subMenu'}) { + return + } + + showsubsection($selected->{'subMenu'}, 'menu-subtop'); +} + + +sub get_helpuri() { + my $helpfile = ''; + if ($URI[0] =~ /.*\/([^\/]+)\.cgi/) { + $helpfile = $1; + } else { + return ''; + } + $helpfile .= '.help.html'; + + my $helpuri = '/doc/'.$language.'/'.$helpfile; + if (! -e $ENV{'DOCUMENT_ROOT'}.$helpuri) { + return ''; + } + return $helpuri; +} + + +sub openpage { + my $title = shift; + my $boh = shift; + my $extrahead = shift; + + @URI=split ('\?', $ENV{'REQUEST_URI'} ); + &readhash("${swroot}/main/settings", \%settings); + &genmenu(); + + my $h2 = gettitle($menu); + my $helpuri = get_helpuri(); + + $title = "IPFire - $title"; + if ($settings{'WINDOWWITHHOSTNAME'} eq 'on') { + $title = "$settings{'HOSTNAME'}.$settings{'DOMAINNAME'} - $title"; + } + + print < + + + + $title + + $extrahead + + + + + + + + + + + + +
      + +