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

Add webinterface frontend for fireinfo.

Browse Source
This commit is contained in:
Michael Tremer
2010-12-27 15:44:24 +01:00
parent e07587fc59
commit 579a39d0ba
18 changed files with 312 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
html/cgi-bin/credits.cgi
View File

@@ -35,13 +35,6 @@ require "${General::swroot}/header.pl";
&Header::openbigbox('100%', 'center');
&Header::openbox('100%', 'left', 'Version');
print "This is ".`cat /etc/system-release`;
print " - Pakfire ".`cat /opt/pakfire/etc/pakfire.conf | grep "version =" | cut -d\\" -f2`;
print "<br />".`uname -a`;
print "<br /><br /><br /><br />";
&Header::closebox();
&Header::openbox('100%', 'left', $Lang::tr{'donation'});
print <<END

168
html/cgi-bin/fireinfo.cgi Normal file
View File

@@ -0,0 +1,168 @@
#!/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 <http://www.gnu.org/licenses/>. #
# #
###############################################################################
use strict;
# enable only the following on debugging purpose
use warnings;
use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
my $configfile = "/var/ipfire/main/send_profile";
my %fireinfosettings=();
my $errormessage='';
&Header::showhttpheaders();
$fireinfosettings{'ENABLE_FIREINFO'} = 'off';
$fireinfosettings{'ACTION'} = '';
&Header::getcgihash(\%fireinfosettings);
if ( -e "$configfile" ) {
$fireinfosettings{'ENABLE_FIREINFO'} = 'on';
}
if ("$fireinfosettings{'ACTION'}" eq "trigger") {
if ($fireinfosettings{'ENABLE_FIREINFO'} eq 'off') {
&General::log($Lang::tr{'fireinfo is enabled'});
system ('/usr/bin/touch', $configfile);
$fireinfosettings{'ENABLE_FIREINFO'} = 'on';
} else {
&General::log($Lang::tr{'fireinfo is disabled'});
unlink "$configfile";
$fireinfosettings{'ENABLE_FIREINFO'} = 'off';
}
}
&Header::openpage('Fireinfo', 1, '');
if ($fireinfosettings{'ENABLE_FIREINFO'} ne "on") {
&Header::openbox("100%", "left", "Why should I enable fireinfo?");
print <<END;
<font color="$Header::colourred">
<p>
It is very important for the development of IPFire that you enable this
service. <a href="http://fireinfo.ipfire.org" target="_blank">Read more about the reasons.</a>
</p>
</font>
END
&Header::closebox();
}
&Header::openbigbox('100%', 'left', '', $errormessage);
if ($errormessage) {
&Header::openbox('100%', 'left', "$Lang::tr{'error messages'}");
print "<FONT CLASS='base'>$errormessage&nbsp;</FONT>\n";
&Header::closebox();
}
my $ipfire_version = `cat /etc/system-release`;
my $pakfire_version = `cat /opt/pakfire/etc/pakfire.conf | grep "version =" | cut -d\\" -f2`;
my $kernel_version = `uname -a`;
&Header::openbox('100%', 'left', $Lang::tr{'fireinfo system version'});
print <<END;
<table width="100%">
<tr>
<td>$Lang::tr{'fireinfo ipfire version'}:</td>
<td>$ipfire_version</td>
</tr>
<tr>
<td>$Lang::tr{'fireinfo pakfire version'}:</td>
<td>$pakfire_version</td>
</tr>
<tr>
<td>$Lang::tr{'fireinfo kernel version'}:</td>
<td>$kernel_version</td>
</tr>
</table>
END
&Header::closebox();
# Read pregenerated profile data
my $profile = `cat /var/ipfire/fireinfo/profile`;
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
# Read profile ID from file
my $profile_id = `cat /var/ipfire/fireinfo/public_id`;
chomp($profile_id);
&Header::openbox('100%', 'left', $Lang::tr{'fireinfo settings'});
print <<END;
<input type='hidden' name='ACTION' value='trigger' />
<table width='100%'>
<tr>
<td>$Lang::tr{'fireinfo your profile id'}:</td>
<td>
<a href="http://fireinfo.ipfire.org/profile/$profile_id" target="_blank">$profile_id</a>
</td>
</tr>
<tr>
<!-- spacer -->
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td class='base'>
END
if ($fireinfosettings{'ENABLE_FIREINFO'} eq "on") {
print "<font color='$Header::colourgreen'>$Lang::tr{'fireinfo is submitted'}</font>";
} else {
print "<font color='$Header::colourred'>$Lang::tr{'fireinfo not submitted'}</font>";
}
print "</td><td>";
if ($fireinfosettings{'ENABLE_FIREINFO'} eq "on") {
print "<input type='submit' name='submit' value=\"$Lang::tr{'fireinfo is submitted button'}\" />";
} else {
print "<input type='submit' name='submit' value=\"$Lang::tr{'fireinfo not submitted button'}\" />";
}
print <<END;
</td>
</tr>
<tr>
<!-- spacer -->
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td colspan='2'>
<textarea rows="25" cols="75" readonly="true">$profile</textarea>
</td>
</tr>
</table>
END
;
&Header::closebox();
print "</form>\n";
&Header::closebigbox();
&Header::closepage();

6
html/cgi-bin/index.cgi
View File

@@ -388,6 +388,11 @@ END
END
}
# Fireinfo
if ( ! -e "/var/ipfire/main/send_profile") {
$warnmessage .= "<li><a style='color: white;' href='fireinfo.cgi'>$Lang::tr{'fireinfo please enable'}</a></li>";
}
# Memory usage warning
my @free = `/usr/bin/free`;
$free[1] =~ m/(\d+)/;
@@ -436,7 +441,6 @@ foreach my $file (@files) {
}
}
if ($warnmessage) {
print "<tr><td align='center' bgcolor=$Header::colourred colspan='3'><font color='white'>$warnmessage</font></table>";
}