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

Transform geoip-block.cgi into location-block.cgi

Browse Source 
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-06-12 17:44:48 +02:00
parent 48152fae62
commit 273618daf9
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
html/cgi-bin/geoip-block.cgi → html/cgi-bin/location-block.cgi
View File

@@ -2,7 +2,7 @@
############################################################################### ###############################################################################
# # # #
# IPFire.org - A linux based firewall # # IPFire.org - A linux based firewall #
# Copyright (C) 2014 IPFire Developemnt Team <info@ipfire.org> # # Copyright (C) 2014 - 2020 IPFire Developemnt Team <info@ipfire.org> #
# # # #
# This program is free software: you can redistribute it and/or modify # # 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 # # it under the terms of the GNU General Public License as published by #
@@ -25,13 +25,13 @@ use strict;
#use CGI::Carp 'fatalsToBrowser'; #use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl'; require '/var/ipfire/general-functions.pl';
require "${General::swroot}/geoip-functions.pl"; require "${General::swroot}/location-functions.pl";
require "${General::swroot}/lang.pl"; require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl"; require "${General::swroot}/header.pl";
require "/usr/lib/firewall/firewall-lib.pl"; require "/usr/lib/firewall/firewall-lib.pl";
my $notice; my $notice;
my $settingsfile = "${General::swroot}/firewall/geoipblock"; my $settingsfile = "${General::swroot}/firewall/locationblock";
my %color = (); my %color = ();
my %mainsettings = (); my %mainsettings = ();
@@ -50,14 +50,14 @@ my %cgiparams = ();
&Header::getcgihash(\%cgiparams); &Header::getcgihash(\%cgiparams);
# Call subfunction to get all available locations. # Call subfunction to get all available locations.
my @locations = &fwlib::get_geoip_locations(); my @locations = &Location::Functions::get_locations();
if ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) { if ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) {
# Check if we want to disable geoipblock. # Check if we want to disable locationblock.
if (exists $cgiparams{'GEOIPBLOCK_ENABLED'}) { if (exists $cgiparams{'LOCATIONBLOCK_ENABLED'}) {
$settings{'GEOIPBLOCK_ENABLED'} = "on"; $settings{'LOCATIONBLOCK_ENABLED'} = "on";
} else { } else {
$settings{'GEOIPBLOCK_ENABLED'} = "off"; $settings{'LOCATIONBLOCK_ENABLED'} = "off";
} }
# Loop through our locations array to prevent from # Loop through our locations array to prevent from
@@ -81,7 +81,7 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) {
$notice = $Lang::tr{'p2p block save notice'}; $notice = $Lang::tr{'p2p block save notice'};
} }
&Header::openpage($Lang::tr{'geoipblock configuration'}, 1, ''); &Header::openpage($Lang::tr{'locationblock configuration'}, 1, '');
# Print notice that a firewall reload is required. # Print notice that a firewall reload is required.
if ($notice) { if ($notice) {
@@ -92,19 +92,19 @@ if ($notice) {
# Checkbox pre-selection. # Checkbox pre-selection.
my $checked; my $checked;
if ($settings{'GEOIPBLOCK_ENABLED'} eq "on") { if ($settings{'LOCATIONBLOCK_ENABLED'} eq "on") {
$checked = "checked='checked'"; $checked = "checked='checked'";
} }
# Print box to enable/disable geoipblock. # Print box to enable/disable locationblock.
print"<form method='POST' action='$ENV{'SCRIPT_NAME'}'>\n"; print"<form method='POST' action='$ENV{'SCRIPT_NAME'}'>\n";
&Header::openbox('100%', 'center', $Lang::tr{'geoipblock'}); &Header::openbox('100%', 'center', $Lang::tr{'locationblock'});
print <<END; print <<END;
<table width='95%'> <table width='95%'>
<tr> <tr>
<td width='25%' class='base'>$Lang::tr{'geoipblock enable feature'} <td width='25%' class='base'>$Lang::tr{'locationblock enable feature'}
<td><input type='checkbox' name='GEOIPBLOCK_ENABLED' $checked></td> <td><input type='checkbox' name='LOCATIONBLOCK_ENABLED' $checked></td>
</tr> </tr>
<tr> <tr>
<td colspan='2'><br></td> <td colspan='2'><br></td>
@@ -122,7 +122,7 @@ END
&Header::closebox(); &Header::closebox();
&Header::openbox('100%', 'center', $Lang::tr{'geoipblock block countries'}); &Header::openbox('100%', 'center', $Lang::tr{'locationblock block countries'});
### JAVA SCRIPT ### ### JAVA SCRIPT ###
print <<END; print <<END;
<script> <script>
@@ -175,10 +175,10 @@ foreach my $location (@locations) {
my $ccode_lc = lc($location); my $ccode_lc = lc($location);
# Full name of the country based on the country code. # Full name of the country based on the country code.
my $cname = &GeoIP::get_full_country_name($ccode_lc); my $cname = &Location::Functions::get_full_country_name($ccode_lc);
# Get flag icon for of the country. # Get flag icon for of the country.
my $flag_icon = &GeoIP::get_flag_icon($ccode_uc); my $flag_icon = &Location::Functions::get_flag_icon($ccode_uc);
my $flag; my $flag;
# Check if a flag for the country is available. # Check if a flag for the country is available.
@@ -258,9 +258,9 @@ print <<END;
<table width='70%'> <table width='70%'>
<tr> <tr>
<td width='5%'><img src='/images/on.gif'></td> <td width='5%'><img src='/images/on.gif'></td>
<td>$Lang::tr{'geoipblock country is blocked'}</td> <td>$Lang::tr{'locationblock country is blocked'}</td>
<td width='5%'><img src='/images/off.gif'></td> <td width='5%'><img src='/images/off.gif'></td>
<td>$Lang::tr{'geoipblock country is allowed'}</td> <td>$Lang::tr{'locationblock country is allowed'}</td>
</tr> </tr>
</table> </table>
END END