#!/usr/bin/perl
###############################################################################
# #
# IPFire.org - A linux based firewall #
# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
# #
# This program is free software: you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation, either version 3 of the License, or #
# (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program. If not, see . #
# #
###############################################################################
# #
# Theme file for IPfire (based on ipfire theme) #
# Author kay-michael köhler kmk #
# #
# Version 1.0 March, 6th 2013 #
###############################################################################
# #
# Modyfied theme by a.marx@ipfire.org January 2014 #
# #
# Cleanup code, deleted unused code and rewrote the rest to get a new working #
# IPFire default theme. #
###############################################################################
require "${General::swroot}/lang.pl";
###############################################################################
#
# print menu html elements for submenu entries
# @param submenu entries
sub showsubmenu() {
my $submenus = shift;
print "
";
foreach my $item (sort keys %$submenus) {
$link = getlink($submenus->{$item});
next if (!is_menu_visible($link) or $link eq '');
my $subsubmenus = $submenus->{$item}->{'subMenu'};
if ($subsubmenus) {
print '
"
}
###############################################################################
#
# print menu html elements
sub showmenu() {
print '
';
if ($settings{'SPEED'} ne 'off') {
print <Traffic:
In --.-- Bit/s
Out --.-- Bit/s
EOF
}
print "
";
foreach my $k1 ( sort keys %$menu ) {
$link = getlink($menu->{$k1});
next if (!is_menu_visible($link) or $link eq '');
print '
'.$menu->{$k1}->{'caption'}.'';
my $submenus = $menu->{$k1}->{'subMenu'};
&showsubmenu($submenus) if ($submenus);
print "
";
}
print "
";
}
###############################################################################
#
# print page opening html layout
# @param page title
# @param boh
# @param extra html code for html head section
# @param suppress menu option, can be numeric 1 or nothing.
# menu will be suppressed if param is 1
sub openpage {
my $title = shift;
my $boh = shift;
my $extrahead = shift;
my $suppressMenu = shift;
my @tmp = split(/\./, basename($0));
my $scriptName = @tmp[0];
@URI=split ('\?', $ENV{'REQUEST_URI'} );
&General::readhash("${swroot}/main/settings", \%settings);
&genmenu();
my $headline = "IPFire";
if ($settings{'WINDOWWITHHOSTNAME'} eq 'on') {
$headline = "$settings{'HOSTNAME'}.$settings{'DOMAINNAME'}";
}
my @stylesheets = ("style.css");
if ($THEME_NAME eq "ipfire-rounded") {
push(@stylesheets, "style-rounded.css");
}
print <$headline - $title
$extrahead
END
foreach my $stylesheet (@stylesheets) {
print "\n";
}
if ($settings{'SPEED'} ne 'off') {
print <
END
;
}
print <
END
;
if ($settings{'WINDOWWITHHOSTNAME'} ne 'off') {
print "
$settings{'HOSTNAME'}.$settings{'DOMAINNAME'}
";
} else {
print "
IPFire
";
}
print <
END
;
&showmenu() if ($suppressMenu != 1);
print <
$title
END
;
}
###############################################################################
#
# print page opening html layout without menu
# @param page title
# @param boh
# @param extra html code for html head section
sub openpagewithoutmenu {
openpage(shift,shift,shift,1);
return;
}
###############################################################################
#
# print page closing html layout
sub closepage () {
open(FILE, ";
$system_release =~ s/core/Core Update/;
close(FILE);
print <
END
;
}
###############################################################################
#
# print big box opening html layout
sub openbigbox {
}
###############################################################################
#
# print big box closing html layout
sub closebigbox {
}
###############################################################################
#
# print box opening html layout
# @param page width
# @param page align
# @param page caption
sub openbox {
$width = $_[0];
$align = $_[1];
$caption = $_[2];
print "
\n";
if ($caption) {
print "
$caption
\n";
}
}
###############################################################################
#
# print box closing html layout
sub closebox {
print "