[ipfire-2.x.git] / html / cgi-bin / shaping.cgi

#!/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 'CONFIG_ROOT/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;
Commit	Line	Data
ac1cfefa MT	1	#!/usr/bin/perl
	2	#
	3	# Traffic shaping CGI
	4	#
	5	# Copyright 2003-04-06 David Kilpatrick <dave@thunder.com.au>
	6	#
	7	# $Id: shaping.cgi,v 1.3.2.15 2005/02/27 13:42:05 eoberlander Exp $
	8	#
	9
	10	use strict;
	11
	12	# enable only the following on debugging purpose
	13	#use warnings;
	14	#use CGI::Carp 'fatalsToBrowser';
	15
	16	require 'CONFIG_ROOT/general-functions.pl';
	17	require "${General::swroot}/lang.pl";
	18	require "${General::swroot}/header.pl";
	19
	20	#workaround to suppress a warning when a variable is used only once
	21	my @dummy = ( ${Header::table2colour}, ${Header::colouryellow} );
	22	undef (@dummy);
	23
	24	my %shapingsettings=();
	25	my $configfile = "${General::swroot}/shaping/config";
	26	my $settingsfile = "${General::swroot}/shaping/settings";
	27	my $errormessage = '';
	28
	29	&Header::showhttpheaders();
	30
	31	$shapingsettings{'ACTION'} = '';
	32	$shapingsettings{'ENABLE'} = 'off';
	33	$shapingsettings{'VALID'} = '';
	34	$shapingsettings{'UPLINK'} = '';
	35	$shapingsettings{'DOWNLINK'} = '';
	36	$shapingsettings{'SERVICE_ENABLED'} = '';
	37	$shapingsettings{'SERVICE_PROT'} = '';
	38	$shapingsettings{'SERVICE_PRIO'} = '';
	39	$shapingsettings{'SERVICE_PORT'} = '';
	40
	41	&Header::getcgihash(\%shapingsettings);
	42
	43	open(FILE, "$configfile") or die 'Unable to open shaping config file.';
	44	my @current = <FILE>;
	45	close(FILE);
	46
	47	if ($shapingsettings{'ACTION'} eq $Lang::tr{'save'})
	48	{
	49	if (!($shapingsettings{'UPLINK'} =~ /^\d+$/) \|\|
	50	($shapingsettings{'UPLINK'} < 2))
	51	{
	52	$errormessage = $Lang::tr{'invalid uplink speed'};
	53	goto ERROR;
	54	}
	55
	56	if (!($shapingsettings{'DOWNLINK'} =~ /^\d+$/) \|\|
	57	($shapingsettings{'DOWNLINK'} < 2))
	58	{
	59	$errormessage = $Lang::tr{'invalid downlink speed'};
	60	goto ERROR;
	61	}
	62
	63	ERROR:
	64	if ($errormessage) {
65	$shapingsettings{'VALID'} = 'no'; }
66	else {
67	$shapingsettings{'VALID'} = 'yes'; }
68
69	open(FILE,">$settingsfile") or die 'Unable to open shaping settings file.';
70	flock FILE, 2;
71	print FILE "VALID=$shapingsettings{'VALID'}\n";
72	print FILE "ENABLE=$shapingsettings{'ENABLE'}\n";
73	print FILE "UPLINK=$shapingsettings{'UPLINK'}\n";
74	print FILE "DOWNLINK=$shapingsettings{'DOWNLINK'}\n";
75	close FILE;
76
77	if ($shapingsettings{'VALID'} eq 'yes') {
78	system('/usr/local/bin/restartshaping');
79	}
80	}
81	if ($shapingsettings{'ACTION'} eq $Lang::tr{'add'})
82	{
83	unless($shapingsettings{'SERVICE_PROT'} =~ /^(tcp\|udp)$/) { $errormessage = $Lang::tr{'invalid input'}; }
84	unless($shapingsettings{'SERVICE_PRIO'} =~ /^(10\|20\|30)$/) { $errormessage = $Lang::tr{'invalid input'}; }
85	unless(&General::validport($shapingsettings{'SERVICE_PORT'})) { $errormessage = $Lang::tr{'invalid port'}; }
86
87	if ( ! $errormessage)
88	{
89	if ($shapingsettings{'EDITING'} eq 'no')
90	{
91	open(FILE,">>$configfile") or die 'Unable to open shaping config file';
92	flock FILE, 2;
93	print FILE "$shapingsettings{'SERVICE_PROT'},$shapingsettings{'SERVICE_PORT'},$shapingsettings{'SERVICE_PRIO'},$shapingsettings{'SERVICE_ENABLED'}\n";
94	} else {
95	open(FILE,">$configfile") or die 'Unable to open shaping config file';
96	flock FILE, 2;
97	my $id = 0;
98	foreach my $line (@current)
99	{
100	$id++;
101	chomp($line);
102	my @temp = split(/\,/,$line);
103	if ($shapingsettings{'EDITING'} eq $id) {
104	print FILE "$shapingsettings{'SERVICE_PROT'},$shapingsettings{'SERVICE_PORT'},$shapingsettings{'SERVICE_PRIO'},$shapingsettings{'SERVICE_ENABLED'}\n";
105	} else {
106	print FILE "$line\n";
107	}
108	}
109	}
110	close FILE;
111	undef %shapingsettings;
112	system ('/usr/local/bin/restartshaping');
113	} else {
114	# stay on edit mode if an error occur
115	if ($shapingsettings{'EDITING'} ne 'no')
116	{
117	$shapingsettings{'ACTION'} = $Lang::tr{'edit'};
118	$shapingsettings{'ID'} = $shapingsettings{'EDITING'};
119	}
120	}
121	}
122
123	if ($shapingsettings{'ACTION'} eq $Lang::tr{'edit'})
124	{
125	my $id = 0;
126	foreach my $line (@current)
127	{
128	$id++;
129	if ($shapingsettings{"ID"} eq $id)
130	{
131	chomp($line);
132	my @temp = split(/\,/,$line);
133	$shapingsettings{'SERVICE_PROT'} = $temp[0];
134	$shapingsettings{'SERVICE_PORT'} = $temp[1];
135	$shapingsettings{'SERVICE_PRIO'} = $temp[2];
136	$shapingsettings{'SERVICE_ENABLED'} = $temp[3];
137	}
138	}
139	}
140
141	if ($shapingsettings{'ACTION'} eq $Lang::tr{'remove'} \|\| $shapingsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'})
142	{
143	open(FILE, ">$configfile") or die 'Unable to open config file.';
144	flock FILE, 2;
145	my $id = 0;
146	foreach my $line (@current)
147	{
148	$id++;
149	unless ($shapingsettings{"ID"} eq $id) { print FILE "$line"; }
150	elsif ($shapingsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'})
151	{
152	chomp($line);
153	my @temp = split(/\,/,$line);
154	if ($temp[3] eq "on") {
155	print FILE "$temp[0],$temp[1],$temp[2],off\n";
156	} else {
157	print FILE "$temp[0],$temp[1],$temp[2],on\n";
158	}
159	}
160	}
161	close(FILE);
162	system ('/usr/local/bin/restartshaping');
163	}
164
165	&General::readhash("${General::swroot}/shaping/settings", \%shapingsettings);
166
167	if ($shapingsettings{'ACTION'} eq '')
168	{
169	$shapingsettings{'SERVICE_ENABLED'} = 'on';
170	$shapingsettings{'SERVICE_PROT'} = 'tcp';
171	$shapingsettings{'SERVICE_PRIO'} = '20';
172	$shapingsettings{'SERVICE_PORT'} = '';
173	}
174
175	my %checked=();
176	$checked{'ENABLE'}{'off'} = '';
177	$checked{'ENABLE'}{'on'} = '';
178	$checked{'ENABLE'}{$shapingsettings{'ENABLE'}} = "checked='checked'";
179
180	my %service_checked=();
181	$service_checked{'SERVICE_ENABLED'}{'off'} = '';
182	$service_checked{'SERVICE_ENABLED'}{'on'} = '';
183	$service_checked{'SERVICE_ENABLED'}{$shapingsettings{'SERVICE_ENABLED'}} = "checked='checked'";
184
185	my %service_selected=();
186	$service_selected{'SERVICE_PROT'}{'udp'} = '';
187	$service_selected{'SERVICE_PROT'}{'tcp'} = '';
188	$service_selected{'SERVICE_PROT'}{$shapingsettings{'SERVICE_PROT'}} = "selected='selected'";
189
190	$service_selected{'SERVICE_PRIO'}{'10'} = '';
191	$service_selected{'SERVICE_PRIO'}{'20'} = '';
192	$service_selected{'SERVICE_PRIO'}{'30'} = '';
193	$service_selected{'SERVICE_PRIO'}{$shapingsettings{'SERVICE_PRIO'}} = "selected='selected'";
194
195	&Header::openpage($Lang::tr{'traffic shaping settings'}, 1, '');
196
197	&Header::openbigbox('100%', 'left', '', $errormessage);
198
199	if ($errormessage) {
200	&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
201	print "<font class='base'>$errormessage </font>\n";
202	&Header::closebox();
203	}
204
205	print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
206
207	&Header::openbox('100%', 'left', "$Lang::tr{'settings'}:");
208	print <<END
209	<table width='100%'>
210	<tr>
211	<td><input type='checkbox' name='ENABLE' $checked{'ENABLE'}{'on'} /></td>
212	<td class='base' colspan='2'>$Lang::tr{'traffic shaping'}</td>
213	</tr>
214	<tr>
215	<td> </td>
216	<td width='30%' class='base'>$Lang::tr{'downlink speed'}: </td>
217	<td width='70%'><input type='text' name='DOWNLINK' value='$shapingsettings{'DOWNLINK'}' size='5' /></td>
218	</tr>
219	<tr>
220	<td> </td>
221	<td class='base'>$Lang::tr{'uplink speed'}: </td>
222	<td><input type='text' name='UPLINK' value='$shapingsettings{'UPLINK'}' size='5' /></td>
223	</tr>
224	</table>
225	<table width='100%'>
226	<hr />
227	<tr>
228	<td width='50%'>   </td>
229	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
230	</tr>
231	</table>
232	END
233	;
234	&Header::closebox;
235
236	print "</form>\n";
237	print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
238
239	my $buttontext = $Lang::tr{'add'};
240	if($shapingsettings{'ACTION'} eq $Lang::tr{'edit'}) {
241	$buttontext = $Lang::tr{'update'};
242	&Header::openbox('100%', 'left', $Lang::tr{'edit service'});
243	} else {
244	&Header::openbox('100%', 'left', $Lang::tr{'add service'});
245	}
246
247	print <<END
248
249	<table width='100%'>
250	<tr>
251	<td class='base'>$Lang::tr{'priority'}: </td>
252	<td><select name='SERVICE_PRIO'>
253	<option value='10' $service_selected{'SERVICE_PRIO'}{'10'}>$Lang::tr{'high'}</option>
254	<option value='20' $service_selected{'SERVICE_PRIO'}{'20'}>$Lang::tr{'medium'}</option>
255	<option value='30' $service_selected{'SERVICE_PRIO'}{'30'}>$Lang::tr{'low'}</option>
256	</select></td>
257	<td width='20%' class='base' align='right'>$Lang::tr{'port'}: </td>
258	<td><input type='text' name='SERVICE_PORT' value='$shapingsettings{'SERVICE_PORT'}' size='5' /></td>
259	<td width='20%' class='base' align='right'>$Lang::tr{'protocol'}: </td>
260	<td><select name='SERVICE_PROT'>
261	<option value='tcp' $service_selected{'SERVICE_PROT'}{'tcp'}>TCP</option>
262	<option value='udp' $service_selected{'SERVICE_PROT'}{'udp'}>UDP</option>
263	</select></td>
264	<td width='20%' class='base' align='right'>$Lang::tr{'enabled'} </td>
265	<td width='20%'><input type='checkbox' name='SERVICE_ENABLED' $service_checked{'SERVICE_ENABLED'}{'on'} /></td>
266	</tr>
267	</table>
268	<table width='100%'>
269	<hr />
270	<tr>
271	<td width='50%'> </td>
272	<td width='50%' align='center'><input type='submit' name='SUBMIT' value='$buttontext' /><input type='hidden' name='ACTION' value='$Lang::tr{'add'}' /></td>
273	</tr>
274	</table>
275	END
276	;
277	&Header::closebox;
278
279	if ($shapingsettings{'ACTION'} eq $Lang::tr{'edit'}) {
280	print "<input type='hidden' name='EDITING' value='$shapingsettings{'ID'}' />\n";
281	} else {
282	print "<input type='hidden' name='EDITING' value='no' />\n";
283	}
284
285	print "</form>\n";
286
287	&Header::openbox('100%', 'left', $Lang::tr{'shaping list options'});
288	print <<END
289	<table width='100%' align='center'>
290	<tr>
291	<td width='33%' align='center' class='boldbase'><b>$Lang::tr{'priority'}</b></td>
292	<td width='33%' align='center' class='boldbase'><b>$Lang::tr{'port'}</b></td>
293	<td width='33%' align='center' class='boldbase'><b>$Lang::tr{'protocol'}</b></td>
294	<td align='center' class='boldbase' colspan='3'><b>$Lang::tr{'action'}</b></td>
295	</tr>
296	END
297	;
298
299	my $id = 0;
300	open(SERVICES, "$configfile") or die 'Unable to open shaping config file.';
301	while (<SERVICES>)
302	{
303	my $gif = '';
304	my $prio = '';
305	my $gdesc = '';
306	$id++;
307	chomp($_);
308	my @temp = split(/\,/,$_);
309	if ($temp[3] eq "on") {
310	$gif = 'on.gif'; $gdesc=$Lang::tr{'click to disable'}; }
311	else {
312	$gif = 'off.gif'; $gdesc=$Lang::tr{'click to enable'}; }
313	if ($shapingsettings{'ACTION'} eq $Lang::tr{'edit'} && $shapingsettings{'ID'} eq $id) {
314	print "<tr bgcolor='${Header::colouryellow}'>\n"; }
315	elsif ($id % 2) {
316	print "<tr bgcolor='${Header::table1colour}'>\n"; }
317	else {
318	print "<tr bgcolor='${Header::table2colour}'>\n"; }
319	if ($temp[2] eq "10") { $prio = $Lang::tr{'high'}; }
320	if ($temp[2] eq "20") { $prio = $Lang::tr{'medium'}; }
321	if ($temp[2] eq "30") { $prio = $Lang::tr{'low'}; }
322
323	print <<END
324	<td align='center'>$prio</td>
325	<td align='center'>$temp[1]</td>
326	<td align='center'>$temp[0]</td>
327
328	<td align='center'>
329	<form method='post' action='$ENV{'SCRIPT_NAME'}' name='frma$id'>
330	<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' alt='$gdesc' title='$gdesc' />
331	<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
332	<input type='hidden' name='ID' value='$id' />
333	</form>
334	</td>
335
336	<td align='center'>
337	<form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
338	<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
339	<input type='hidden' name='ID' value='$id' />
340	<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
341	</form>
342	</td>
343
344	<td align='center'>
345	<form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
346	<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
347	<input type='hidden' name='ID' value='$id' />
348	<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
349	</form>
350	</td>
351
352	</tr>
353	END
354	;
355	}
356	close(SERVICES);
357
358	print <<END
359	</table>
360	END
361	;
362	&Header::closebox;
363
364
365	&Header::closebigbox();
366
367	&Header::closepage;