webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity
Files
fa7be6597cdea9f028ca09c875eec3ecd193953a
bpfire/html/cgi-bin/shaping.cgi
ms 986e08d996 Hinzugefügt: 
* Morningreconnect Script
Geändert:
  * Neue Spamassassin Version. 3.1.3
  * Interface umfangreich bearbeitet in Layout und angezeigten Texten.
  * DHCP-Leases-Error gefixt
  * lq-Graph pingt nun nach www.heise.de
  * IP-Anzeige für PPPoE/DSL gefixt.
  * Connectionstate vom IPCop übernommen.


git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@164 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
2006-06-06 19:12:22 +00:00

368 lines
11 KiB
Perl
Raw Blame History

#!/usr/bin/perl
#
# Traffic shaping CGI
#
# Copyright 2003-04-06 David Kilpatrick <dave@thunder.com.au>
#
# $Id: shaping.cgi,v 1.3.2.15 2005/02/27 13:42:05 eoberlander Exp $
#
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";
#workaround to suppress a warning when a variable is used only once
my @dummy = ( ${Header::table2colour}, ${Header::colouryellow} );
undef (@dummy);
my %shapingsettings=();
my $configfile = "${General::swroot}/shaping/config";
my $settingsfile = "${General::swroot}/shaping/settings";
my $errormessage = '';
&Header::showhttpheaders();
$shapingsettings{'ACTION'} = '';
$shapingsettings{'ENABLE'} = 'off';
$shapingsettings{'VALID'} = '';
$shapingsettings{'UPLINK'} = '';
$shapingsettings{'DOWNLINK'} = '';
$shapingsettings{'SERVICE_ENABLED'} = '';
$shapingsettings{'SERVICE_PROT'} = '';
$shapingsettings{'SERVICE_PRIO'} = '';
$shapingsettings{'SERVICE_PORT'} = '';
&Header::getcgihash(\%shapingsettings);
open(FILE, "$configfile") or die 'Unable to open shaping config file.';
my @current = <FILE>;
close(FILE);
if ($shapingsettings{'ACTION'} eq $Lang::tr{'save'})
{
if (!($shapingsettings{'UPLINK'} =~ /^\d+$/) ||
($shapingsettings{'UPLINK'} < 2))
{
$errormessage = $Lang::tr{'invalid uplink speed'};
goto ERROR;
}
if (!($shapingsettings{'DOWNLINK'} =~ /^\d+$/) ||
($shapingsettings{'DOWNLINK'} < 2))
{
$errormessage = $Lang::tr{'invalid downlink speed'};
goto ERROR;
}
ERROR:
if ($errormessage) {
$shapingsettings{'VALID'} = 'no'; }
else {
$shapingsettings{'VALID'} = 'yes'; }
open(FILE,">$settingsfile") or die 'Unable to open shaping settings file.';
flock FILE, 2;
print FILE "VALID=$shapingsettings{'VALID'}\n";
print FILE "ENABLE=$shapingsettings{'ENABLE'}\n";
print FILE "UPLINK=$shapingsettings{'UPLINK'}\n";
print FILE "DOWNLINK=$shapingsettings{'DOWNLINK'}\n";
close FILE;
if ($shapingsettings{'VALID'} eq 'yes') {
system('/usr/local/bin/restartshaping');
}
}
if ($shapingsettings{'ACTION'} eq $Lang::tr{'add'})
{
unless($shapingsettings{'SERVICE_PROT'} =~ /^(tcp|udp)$/) { $errormessage = $Lang::tr{'invalid input'}; }
unless($shapingsettings{'SERVICE_PRIO'} =~ /^(10|20|30)$/) { $errormessage = $Lang::tr{'invalid input'}; }
unless(&General::validport($shapingsettings{'SERVICE_PORT'})) { $errormessage = $Lang::tr{'invalid port'}; }
if ( ! $errormessage)
{
if ($shapingsettings{'EDITING'} eq 'no')
{
open(FILE,">>$configfile") or die 'Unable to open shaping config file';
flock FILE, 2;
print FILE "$shapingsettings{'SERVICE_PROT'},$shapingsettings{'SERVICE_PORT'},$shapingsettings{'SERVICE_PRIO'},$shapingsettings{'SERVICE_ENABLED'}\n";
} else {
open(FILE,">$configfile") or die 'Unable to open shaping config file';
flock FILE, 2;
my $id = 0;
foreach my $line (@current)
{
$id++;
chomp($line);
my @temp = split(/\,/,$line);
if ($shapingsettings{'EDITING'} eq $id) {
print FILE "$shapingsettings{'SERVICE_PROT'},$shapingsettings{'SERVICE_PORT'},$shapingsettings{'SERVICE_PRIO'},$shapingsettings{'SERVICE_ENABLED'}\n";
} else {
print FILE "$line\n";
}
}
}
close FILE;
undef %shapingsettings;
system ('/usr/local/bin/restartshaping');
} else {
# stay on edit mode if an error occur
if ($shapingsettings{'EDITING'} ne 'no')
{
$shapingsettings{'ACTION'} = $Lang::tr{'edit'};
$shapingsettings{'ID'} = $shapingsettings{'EDITING'};
}
}
}
if ($shapingsettings{'ACTION'} eq $Lang::tr{'edit'})
{
my $id = 0;
foreach my $line (@current)
{
$id++;
if ($shapingsettings{"ID"} eq $id)
{
chomp($line);
my @temp = split(/\,/,$line);
$shapingsettings{'SERVICE_PROT'} = $temp[0];
$shapingsettings{'SERVICE_PORT'} = $temp[1];
$shapingsettings{'SERVICE_PRIO'} = $temp[2];
$shapingsettings{'SERVICE_ENABLED'} = $temp[3];
}
}
}
if ($shapingsettings{'ACTION'} eq $Lang::tr{'remove'} || $shapingsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'})
{
open(FILE, ">$configfile") or die 'Unable to open config file.';
flock FILE, 2;
my $id = 0;
foreach my $line (@current)
{
$id++;
unless ($shapingsettings{"ID"} eq $id) { print FILE "$line"; }
elsif ($shapingsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'})
{
chomp($line);
my @temp = split(/\,/,$line);
if ($temp[3] eq "on") {
print FILE "$temp[0],$temp[1],$temp[2],off\n";
} else {
print FILE "$temp[0],$temp[1],$temp[2],on\n";
}
}
}
close(FILE);
system ('/usr/local/bin/restartshaping');
}
&General::readhash("${General::swroot}/shaping/settings", \%shapingsettings);
if ($shapingsettings{'ACTION'} eq '')
{
$shapingsettings{'SERVICE_ENABLED'} = 'on';
$shapingsettings{'SERVICE_PROT'} = 'tcp';
$shapingsettings{'SERVICE_PRIO'} = '20';
$shapingsettings{'SERVICE_PORT'} = '';
}
my %checked=();
$checked{'ENABLE'}{'off'} = '';
$checked{'ENABLE'}{'on'} = '';
$checked{'ENABLE'}{$shapingsettings{'ENABLE'}} = "checked='checked'";
my %service_checked=();
$service_checked{'SERVICE_ENABLED'}{'off'} = '';
$service_checked{'SERVICE_ENABLED'}{'on'} = '';
$service_checked{'SERVICE_ENABLED'}{$shapingsettings{'SERVICE_ENABLED'}} = "checked='checked'";
my %service_selected=();
$service_selected{'SERVICE_PROT'}{'udp'} = '';
$service_selected{'SERVICE_PROT'}{'tcp'} = '';
$service_selected{'SERVICE_PROT'}{$shapingsettings{'SERVICE_PROT'}} = "selected='selected'";
$service_selected{'SERVICE_PRIO'}{'10'} = '';
$service_selected{'SERVICE_PRIO'}{'20'} = '';
$service_selected{'SERVICE_PRIO'}{'30'} = '';
$service_selected{'SERVICE_PRIO'}{$shapingsettings{'SERVICE_PRIO'}} = "selected='selected'";
&Header::openpage($Lang::tr{'traffic shaping settings'}, 1, '');
&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();
}
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
&Header::openbox('100%', 'left', "$Lang::tr{'settings'}:");
print <<END
<table width='100%'>
<tr>
<td><input type='checkbox' name='ENABLE' $checked{'ENABLE'}{'on'} /></td>
<td class='base' colspan='2'>$Lang::tr{'traffic shaping'}</td>
</tr>
<tr>
<td>&nbsp;</td>
<td width='30%' class='base'>$Lang::tr{'downlink speed'}:&nbsp;</td>
<td width='70%'><input type='text' name='DOWNLINK' value='$shapingsettings{'DOWNLINK'}' size='5' /></td>
</tr>
<tr>
<td>&nbsp;</td>
<td class='base'>$Lang::tr{'uplink speed'}:&nbsp;</td>
<td><input type='text' name='UPLINK' value='$shapingsettings{'UPLINK'}' size='5' /></td>
</tr>
</table>
<table width='100%'>
<hr />
<tr>
<td width='50%'> &nbsp; </td>
<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
</tr>
</table>
END
;
&Header::closebox;
print "</form>\n";
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
my $buttontext = $Lang::tr{'add'};
if($shapingsettings{'ACTION'} eq $Lang::tr{'edit'}) {
$buttontext = $Lang::tr{'update'};
&Header::openbox('100%', 'left', $Lang::tr{'edit service'});
} else {
&Header::openbox('100%', 'left', $Lang::tr{'add service'});
}
print <<END
<table width='100%'>
<tr>
<td class='base'>$Lang::tr{'priority'}:&nbsp;</td>
<td><select name='SERVICE_PRIO'>
<option value='10' $service_selected{'SERVICE_PRIO'}{'10'}>$Lang::tr{'high'}</option>
<option value='20' $service_selected{'SERVICE_PRIO'}{'20'}>$Lang::tr{'medium'}</option>
<option value='30' $service_selected{'SERVICE_PRIO'}{'30'}>$Lang::tr{'low'}</option>
</select></td>
<td width='20%' class='base' align='right'>$Lang::tr{'port'}:&nbsp;</td>
<td><input type='text' name='SERVICE_PORT' value='$shapingsettings{'SERVICE_PORT'}' size='5' /></td>
<td width='20%' class='base' align='right'>$Lang::tr{'protocol'}:&nbsp;</td>
<td><select name='SERVICE_PROT'>
<option value='tcp' $service_selected{'SERVICE_PROT'}{'tcp'}>TCP</option>
<option value='udp' $service_selected{'SERVICE_PROT'}{'udp'}>UDP</option>
</select></td>
<td width='20%' class='base' align='right'>$Lang::tr{'enabled'}&nbsp;</td>
<td width='20%'><input type='checkbox' name='SERVICE_ENABLED' $service_checked{'SERVICE_ENABLED'}{'on'} /></td>
</tr>
</table>
<table width='100%'>
<hr />
<tr>
<td width='50%'>&nbsp;</td>
<td width='50%' align='center'><input type='submit' name='SUBMIT' value='$buttontext' /><input type='hidden' name='ACTION' value='$Lang::tr{'add'}' /></td>
</tr>
</table>
END
;
&Header::closebox;
if ($shapingsettings{'ACTION'} eq $Lang::tr{'edit'}) {
print "<input type='hidden' name='EDITING' value='$shapingsettings{'ID'}' />\n";
} else {
print "<input type='hidden' name='EDITING' value='no' />\n";
}
print "</form>\n";
&Header::openbox('100%', 'left', $Lang::tr{'shaping list options'});
print <<END
<table width='100%' align='center'>
<tr>
<td width='33%' align='center' class='boldbase'><b>$Lang::tr{'priority'}</b></td>
<td width='33%' align='center' class='boldbase'><b>$Lang::tr{'port'}</b></td>
<td width='33%' align='center' class='boldbase'><b>$Lang::tr{'protocol'}</b></td>
<td align='center' class='boldbase' colspan='3'><b>$Lang::tr{'action'}</b></td>
</tr>
END
;
my $id = 0;
open(SERVICES, "$configfile") or die 'Unable to open shaping config file.';
while (<SERVICES>)
{
my $gif = '';
my $prio = '';
my $gdesc = '';
$id++;
chomp($_);
my @temp = split(/\,/,$_);
if ($temp[3] eq "on") {
$gif = 'on.gif'; $gdesc=$Lang::tr{'click to disable'}; }
else {
$gif = 'off.gif'; $gdesc=$Lang::tr{'click to enable'}; }
if ($shapingsettings{'ACTION'} eq $Lang::tr{'edit'} && $shapingsettings{'ID'} eq $id) {
print "<tr bgcolor='${Header::colouryellow}'>\n"; }
elsif ($id % 2) {
print "<tr bgcolor='${Header::table1colour}'>\n"; }
else {
print "<tr bgcolor='${Header::table2colour}'>\n"; }
if ($temp[2] eq "10") { $prio = $Lang::tr{'high'}; }
if ($temp[2] eq "20") { $prio = $Lang::tr{'medium'}; }
if ($temp[2] eq "30") { $prio = $Lang::tr{'low'}; }
print <<END
<td align='center'>$prio</td>
<td align='center'>$temp[1]</td>
<td align='center'>$temp[0]</td>
<td align='center'>
<form method='post' action='$ENV{'SCRIPT_NAME'}' name='frma$id'>
<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' alt='$gdesc' title='$gdesc' />
<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
<input type='hidden' name='ID' value='$id' />
</form>
</td>
<td align='center'>
<form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
<input type='hidden' name='ID' value='$id' />
<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
</form>
</td>
<td align='center'>
<form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
<input type='hidden' name='ID' value='$id' />
<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
</form>
</td>
</tr>
END
;
}
close(SERVICES);
print <<END
</table>
END
;
&Header::closebox;
&Header::closebigbox();
&Header::closepage;
Reference in New Issue View Git Blame Copy Permalink