webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 03:07:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Themeable Webinterface mit neuem Style.

Browse Source 
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@364 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
ms
2006-12-16 16:07:45 +00:00
parent d733119b38
commit f8e080ef11
20 changed files with 2181 additions and 1761 deletions
Download Patch File Download Diff File Expand all files Collapse all files

390
config/cfgroot/header.pl
View File

@@ -43,12 +43,11 @@ 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";
print "Location: https://$ENV{'SERVER_ADDR'}:444/$ENV{'PATH_INFO'}\r\n\r\n";
exit 0;
}
@@ -98,6 +97,7 @@ if (open(MYFile, "<${swroot}/firebuild")) {
require "${swroot}/langs/en.pl";
require "${swroot}/langs/${language}.pl";
eval `/bin/cat /srv/web/ipfire/html/themes/$settings{'THEME'}/include/functions.pl`;
sub orange_used () {
if ($ethsettings{'CONFIG_TYPE'} =~ /^[1357]$/) {
@@ -580,382 +580,6 @@ sub gettitle($) {
return '';
}
sub showmenu() {
print <<EOF
<div id="menu-top">
<ul>
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 '<li class="selected">';
} else {
print '<li>';
}
print <<EOF
<div class="rcorner">
<a href="$link">$menu->{$k1}{'caption'}</a>
</div>
</li>
EOF
;
}
print <<EOF
</ul>
</div>
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
<div id="$id">
<ul>
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 '<li class="selected">';
} else {
print '<li>';
}
print <<EOF
<a href="$link">$hash->{'caption'}</a>
</li>
EOF
;
}
print <<EOF
</ul>
</div>
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 <<END
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>$title</title>
$extrahead
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
END
;
if ($settings{'FX'} ne 'off') {
print <<END
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5,Transition=12)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5,Transition=12)">
END
;
}
print <<END
<link rel="shortcut icon" href="/favicon.ico" />
<style type="text/css">\@import url(/include/style.css);</style>
<style type="text/css">\@import url(/include/menu.css);</style>
<style type="text/css">\@import url(/include/content.css);</style>
<script language="javascript" type="text/javascript">
function swapVisibility(id) {
el = document.getElementById(id);
if(el.style.display != 'block') {
el.style.display = 'block'
}
else {
el.style.display = 'none'
}
}
</script>
</head>
<body>
<!-- IPFIRE HEADER -->
<div id="main">
<div id="header">
<img id="logo-product" src="/images/logo_ipfire.gif">
<div id="header-icons">
<a href="http://users.ipfire.eu/" target="_blank"><img border="0" src="/images/help.gif"></a>
</div>
</div>
END
;
&showmenu();
print <<END
<div id="content">
<table width="90%">
<tr>
<td valign="top">
END
;
&showsubsection($menu);
print <<END
<p><center><img src="/images/iptux.png" width='160px' height='160px'></center></p>
</td>
<td width="100%" valign="top">
<div id="page-content">
<h2>$h2</h2>
END
;
&showsubsubsection($menu);
}
sub openpagewithoutmenu {
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 <<END
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>$title</title>
$extrahead
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
END
;
if ($settings{'FX'} eq 'on') {
print <<END
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5,Transition=12)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5,Transition=12)">
END
;
}
print <<END
<link rel="shortcut icon" href="/favicon.ico" />
<style type="text/css">\@import url(/include/style.css);</style>
<style type="text/css">\@import url(/include/menu.css);</style>
<style type="text/css">\@import url(/include/content.css);</style>
<script language="javascript" type="text/javascript">
function swapVisibility(id) {
el = document.getElementById(id);
if(el.style.display != 'block') {
el.style.display = 'block'
}
else {
el.style.display = 'none'
}
}
</script>
</head>
<body>
<!-- IPFIRE HEADER -->
<div id="main">
<div id="header">
<img id="logo-product" src="/images/logo_ipfire.gif">
<div id="header-icons">
<a href="http://users.ipfire.eu/" target="_blank"><img border="0" src="/images/help.gif"></a>
</div>
</div>
END
;
print <<END
<div id="content">
<table width="90%">
<tr>
<td valign="top">
<p><center><img src="/images/iptux.png" width='160px' height='160px'></center></p>
</td>
<td width="100%" valign="top">
<div id="page-content">
<h2>$h2</h2>
END
;
}
sub closepage () {
my $status = &connectionstatus();
$uptime = `/usr/bin/uptime`;
print <<END
<div align="center">
<p>
<div style="font-size: 9px"><b>Status:</b> $status <b>Uptime:</b>$uptime <b>Version:</b> $FIREBUILD</div>
</p>
</div>
</body>
</html>
END
;
}
sub openbigbox
{
my $width = $_[0];
my $align = $_[1];
my $sideimg = $_[2];
if ($errormessage) {
$bgcolor = "style='background-color: $colourerr;'";
} else {
$bgcolor = '';
}
}
sub closebigbox
{
# print "</td></tr></table></td></tr></table>\n"
}
sub openbox
{
$width = $_[0];
$align = $_[1];
$caption = $_[2];
if ($caption) { print "<h3>$caption</h3>\n"; } else { print "&nbsp;"; }
print "<table class=\"list\"><tr><td align=\"$align\">\n";
}
sub closebox
{
print "</td></tr></table><br><br>";
}
sub writehash
{
my $filename = $_[0];
@@ -1457,19 +1081,19 @@ sub connectionstatus
} elsif ($pppsettings{'TYPE'} eq 'eagleusbadsl') {
$speed = `/usr/sbin/eaglestat | /bin/grep Rate`;
}
$connstate = "<span class='ipcop_StatusBig'>$Lang::tr{'connected'} (<span class='ipcop_StatusBigRed'>$timestr</span>) $profileused (\@$speed)</span>";
$connstate = "$Lang::tr{'connected'} ($timestr) $profileused (\@$speed)";
} else {
$connstate = "<span class='ipcop_StatusBig'>$Lang::tr{'connected'} (<span class='ipcop_StatusBigRed'>$timestr</span>) $profileused</span>";
$connstate = "$Lang::tr{'connected'} ($timestr) $profileused";
}
} else {
if (-e "${General::swroot}/red/dial-on-demand") {
$connstate = "<span class='ipcop_StatusBig'>$Lang::tr{'dod waiting'} $profileused</span>";
$connstate = "$Lang::tr{'dod waiting'} $profileused";
} else {
$connstate = "<span class='ipcop_StatusBig'>$Lang::tr{'connecting'} $profileused</span>";
$connstate = "$Lang::tr{'connecting'} $profileused";
}
}
} else {
$connstate = "<span class='ipcop_StatusBig'>$Lang::tr{'idle'} $profileused</span>";
$connstate = "$Lang::tr{'idle'} $profileused";
}
return $connstate;
}

2
config/cfgroot/lang.pl
View File

@@ -13,7 +13,7 @@ require 'CONFIG_ROOT/general-functions.pl';
use strict;
### A cache file to avoid long recalculation
$Lang::CacheLang = '/var/run/cache-lang.pl';
$Lang::CacheLang = '/var/ipfire/langs/cache-lang.pl';
# When you want to add your own language strings/entries to the ipcop language file,
# you should create a file with <PREFIX>.<LANG>.pl into CONFIG_ROOT/addon-lang dir

2
config/rootfiles/common/Compress-Zlib
View File

@@ -5,5 +5,5 @@ usr/lib/perl5/site_perl/5.8.8/i586-linux/Compress/Zlib.pm
#usr/lib/perl5/site_perl/5.8.8/i586-linux/auto/Compress/Zlib/.packlist
#usr/lib/perl5/site_perl/5.8.8/i586-linux/auto/Compress/Zlib/Zlib.bs
usr/lib/perl5/site_perl/5.8.8/i586-linux/auto/Compress/Zlib/Zlib.so
#usr/lib/perl5/site_perl/5.8.8/i586-linux/auto/Compress/Zlib/autosplit.ix
usr/lib/perl5/site_perl/5.8.8/i586-linux/auto/Compress/Zlib/autosplit.ix
#usr/share/man/man3/Compress::Zlib.3

2740
config/rootfiles/common/apache2
View File

File diff suppressed because it is too large Load Diff

2
config/rootfiles/common/coreutils
View File

@@ -1,4 +1,4 @@
bin/[
#bin/[
bin/chgrp
bin/chmod
bin/chown

2
config/rootfiles/common/rrdtool
View File

@@ -1,4 +1,4 @@
#home/httpd/html/graphs
#srv/web/ipfire/html/graphs
#usr/bin/rrdcgi
usr/bin/rrdtool
usr/bin/rrdupdate

6
config/rootfiles/common/stage2
View File

@@ -100,14 +100,14 @@ usr/local/bin/vpn-restart
#usr/share/terminfo
#usr/share/zoneinfo
#var
var/cache
#var/cache
var/empty
#var/lib
#var/lib/locate
#var/lib/misc
#var/local
var/lock
var/log
#var/log
var/log/btmp
var/log/lastlog
var/log/wtmp
@@ -115,5 +115,5 @@ var/mail
#var/opt
var/run
var/run/utmp
var/spool
#var/spool
var/tmp