]>
git.ipfire.org Git - people/ms/ipfire-2.x.git/blob - html/html/themes/maniac/include/functions.pl
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007 Michael Tremer & Christian Schmidt #
7 # This program is free software: you can redistribute it and/or modify #
8 # it under the terms of the GNU General Public License as published by #
9 # the Free Software Foundation, either version 3 of the License, or #
10 # (at your option) any later version. #
12 # This program is distributed in the hope that it will be useful, #
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15 # GNU General Public License for more details. #
17 # You should have received a copy of the GNU General Public License #
18 # along with this program. If not, see <http://www.gnu.org/licenses/>. #
20 ###############################################################################
28 foreach my $k1 ( sort keys %$menu ) {
29 if (! $menu->{$k1}{'enabled'}) {
32 my $link = getlink
($menu->{$k1});
36 if (! is_menu_visible
($link)) {
39 if ($menu->{$k1}->{'selected'}) {
40 print "<li><a href=\"$link\" class=\"active\">$menu->{$k1}{'caption'}</a></li>";
42 print "<li><a href=\"$link\">$menu->{$k1}{'caption'}</a></li>";
58 foreach my $item (%$root) {
59 if ($root->{$item}{'selected'}) {
60 return $root->{$item};
65 sub showsubsection
($$) {
71 my $selected = getselected
($root);
75 my $submenus = $selected->{'subMenu'};
81 <h4><span>Side</span>menu</h4>
85 foreach my $item (sort keys %$submenus) {
86 my $hash = $submenus->{$item};
87 if (! $hash->{'enabled'}) {
90 my $link = getlink
($hash);
94 if (! is_menu_visible
($link)) {
97 if ($hash->{'selected'}) {
98 print '<li class="selected">';
103 print "<a href=\"$link\">$hash->{'caption'}</a></li>";
113 sub showsubsubsection
($) {
118 my $selected = getselected
($root);
122 if (! $selected->{'subMenu'}) {
126 showsubsection
($selected->{'subMenu'}, 'menu-subtop');
132 my $extrahead = shift;
134 @URI=split ('\?', $ENV{'REQUEST_URI'} );
135 &General
::readhash
("${swroot}/main/settings", \
%settings);
138 my $h2 = gettitle
($menu);
140 $title = "-= IPFire - $title =-";
141 if ($settings{'WINDOWWITHHOSTNAME'} eq 'on') {
142 $title = "$settings{'HOSTNAME'}.$settings{'DOMAINNAME'} - $title";
146 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
150 <title>$title</title>
153 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
156 if ($settings{'FX'} ne 'off') {
158 <meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5,Transition=12)" />
159 <meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5,Transition=12)" />
164 <link rel="shortcut icon" href="/favicon.ico" />
165 <link rel="stylesheet" type="text/css" href="/themes/maniac/include/style.css" />
166 <script language="javascript" type="text/javascript">
168 function swapVisibility(id) {
169 el = document.getElementById(id);
170 if(el.style.display != 'block') {
171 el.style.display = 'block'
174 el.style.display = 'none'
180 if ($settings{'SPEED'} ne 'off') {
182 <script type="text/javascript" src="/include/jquery-1.9.1.min.js"></script>
183 <script type="text/javascript">
190 function refreshInetInfo() {
192 url: '/cgi-bin/speed.cgi',
193 success: function(xml){
194 t_current = new Date();
195 var t_diff = t_current - t_last;
198 rxb_current = \$("rxb",xml).text();
199 var rxb_diff = rxb_current - rxb_last;
200 rxb_last = rxb_current;
202 var rx_kbs = rxb_diff/t_diff;
203 rx_kbs = Math.round(rx_kbs*10)/10;
205 txb_current = \$("txb",xml).text();
206 var txb_diff = txb_current - txb_last;
207 txb_last = txb_current;
209 var tx_kbs = txb_diff/t_diff;
210 tx_kbs = Math.round(tx_kbs*10)/10;
212 \$("#rx_kbs").text(rx_kbs + ' kb/s');
213 \$("#tx_kbs").text(tx_kbs + ' kb/s');
216 window.setTimeout("refreshInetInfo()", 3000);
218 \$(document).ready(function(){
228 print "</head>\n<body>";}
230 <!-- IPFIRE HEADER -->
234 <div id="header_inner" class="fixed">
239 if ($settings{'WINDOWWITHHOSTNAME'} eq 'on') {
240 print "<h1><span>$settings{'HOSTNAME'}.$settings{'DOMAINNAME'}</span></h1><br />";
242 print "<h1><span>-= IPFire =-</span></h1><br />";
257 <div id="main_inner" class="fixed">
258 <div id="primaryContent_2columns">
259 <div id="columnA_2columns">
264 sub openpagewithoutmenu
{
267 my $extrahead = shift;
269 @URI=split ('\?', $ENV{'REQUEST_URI'} );
270 &General
::readhash
("${swroot}/main/settings", \
%settings);
273 my $h2 = gettitle
($menu);
275 $title = "-= IPFire - $title =-";
276 if ($settings{'WINDOWWITHHOSTNAME'} eq 'on') {
277 $title = "$settings{'HOSTNAME'}.$settings{'DOMAINNAME'} - $title";
281 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
285 <title>$title</title>
288 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
291 if ($settings{'FX'} ne 'off') {
293 <meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5,Transition=12)" />
294 <meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5,Transition=12)" />
299 <link rel="shortcut icon" href="/favicon.ico" />
300 <link rel="stylesheet" type="text/css" href="/include/style.css" />
301 <script language="javascript" type="text/javascript">
303 function swapVisibility(id) {
304 el = document.getElementById(id);
305 if(el.style.display != 'block') {
306 el.style.display = 'block'
309 el.style.display = 'none'
316 <!-- IPFIRE HEADER -->
320 <div id="header_inner" class="fixed">
323 <h1><span>-= IPFire =-</span></h1>
330 <div id="main_inner" class="fixed">
331 <div id="primaryContent_2columns">
332 <div id="columnA_2columns">
338 my $status = &connectionstatus
();
339 my $uptime = `/usr/bin/uptime|cut -d \" \" -f 4-`;
340 $uptime =~ s/year(s|)/$Lang::tr{'year'}/;
341 $uptime =~ s/month(s|)/$Lang::tr{'month'}/;
342 $uptime =~ s/day(s|)/$Lang::tr{'day'}/;
343 $uptime =~ s/user(s|)/$Lang::tr{'user'}/;
344 $uptime =~ s/load average/$Lang::tr{'uptime load average'}/;
350 <div id="secondaryContent_2columns">
352 <div id="columnC_2columns">
355 &showsubsection
($menu);
356 &showsubsubsection
($menu);
363 <div id="footer" class="fixed">
364 <b>Status:</b> $status <b>Uptime:</b>$uptime
367 if ($settings{'SPEED'} ne 'off') {
370 <b>$Lang::tr{'bandwidth usage'}:</b>
371 $Lang::tr{'incoming'}: <span id="rx_kbs"></span> $Lang::tr{'outgoing'}: <span id="tx_kbs"></span>
402 <div class="post" align="$align">
406 if ($caption) { print "<h3>$caption</h3>\n"; } else { print " "; }