From: ms Date: Wed, 22 Mar 2006 19:11:17 +0000 (+0000) Subject: Webinterface gefixt. X-Git-Tag: v2.3-beta1~1170 X-Git-Url: http://git.ipfire.org/?p=ipfire-2.x.git;a=commitdiff_plain;h=3ea75603a6009dcc159b63f1e6945801e2ce9b56 Webinterface gefixt. Ohne Anmeldung kommt man im Webinterface nichtmehr auf die Index-Seite. Berkeley-DB neu implementiert. Postfix geht jetzt. Graphs gefixt. IPCop-Updates gelöscht. git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@82 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8 --- diff --git a/config/cfgroot/header.pl b/config/cfgroot/header.pl index 353e8c07b3..552bb20ec4 100644 --- a/config/cfgroot/header.pl +++ b/config/cfgroot/header.pl @@ -1,1633 +1,1650 @@ -# 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 - - - - - - - - - - - - -
      - - + +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 + + + + + + + + + + + + +
        + +