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

qos.cgi: Add control to change link-layer encapsulation

Browse Source 
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
Signed-off-by: Arne Fitzenreiter <arne_f@ipfire.org>
This commit is contained in:
Michael Tremer
2021-12-02 12:37:46 +00:00
committed by Arne Fitzenreiter
parent 2d42f1df3b
commit ca26f73220
12 changed files with 348 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
html/cgi-bin/qos.cgi
View File

@@ -98,7 +98,25 @@ $qossettings{'CLASS'} = '';
$qossettings{'CLASSPRFX'} = '';
$qossettings{'DEV'} = '';
$qossettings{'TOS'} = '';
$qossettings{'CAKE_PROFILE'} = 'conservative';
my %CAKE_PROFILES = (
"ethernet" => $Lang::tr{'cake profile ethernet 38'},
"ethernet ether-vlan" => $Lang::tr{'cake profile ethernet vlan 42'},
"raw" => $Lang::tr{'cake profile raw 0'},
"conservative" => $Lang::tr{'cake profile conservative 48'},
"docsis" => $Lang::tr{'cake profile docsis 18'},
"bridged-ptm" => $Lang::tr{'cake profile bridged-ptm 19'},
"pppoe-ptm" => $Lang::tr{'cake profile pppoe-ptm 27'},
"pppoe-llcsnap" => $Lang::tr{'cake profile pppoe-llcsnap 40'},
"pppoe-vcmux" => $Lang::tr{'cake profile pppoe-vcmux 32'},
"pppoa-llc" => $Lang::tr{'cake profile pppoa-llc 14'},
"pppoa-vcmux" => $Lang::tr{'cake profile pppoa-vcmux 10'},
"bridged-llcsnap" => $Lang::tr{'cake profile bridged-llcsnap 32'},
"bridged-vcmux" => $Lang::tr{'cake profile bridged-vcmux 24'},
"ipoa-llcsnap" => $Lang::tr{'cake profile ipoa-llcsnap 16'},
"ipoa-vcmux" => $Lang::tr{'cake profile ipoa-vcmux 8'},
);
&General::readhash("${General::swroot}/qos/settings", \%qossettings);
&Header::getcgihash(\%qossettings);
@@ -110,6 +128,12 @@ my %mainsettings = ();
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);
$selected{'CAKE_PROFILE'} = ();
foreach my $key (keys %CAKE_PROFILES) {
$selected{'CAKE_PROFILE'}{$key} = '';
}
$selected{'CAKE_PROFILE'}{$qossettings{'CAKE_PROFILE'}} = 'selected';
&Header::showhttpheaders();
&Header::openpage('QoS', 1, '');
@@ -759,27 +783,53 @@ sub changebandwidth {
<input type='hidden' name='DEF_OUT_SPD' value='' /><input type='hidden' name='DEF_INC_SPD' value='' />
<table width='66%'>
<tr>
<td width='100%' colspan='3'>$Lang::tr{'down and up speed'}</td>
<td width='100%' colspan='2'>$Lang::tr{'down and up speed'}</td>
</tr>
<tr>
<td width='50%' align='right'>$Lang::tr{'downlink speed'}:</td>
<td width='30%' align='left'>
<td width='50%' align='left'>
<input type='text' name='INC_SPD' maxlength='8' value="$qossettings{'INC_SPD'}" />
</td>
<td width='20%' align='center' rowspan='2'>
<input type='submit' name='ACTION' value="$Lang::tr{'template'}" />
<br />
<input type='submit' name='ACTION' value="$Lang::tr{'save'}" />
<br />
<input type='reset' name='ACTION' value="$Lang::tr{'reset'}" />
</td>
</tr>
<tr>
<td width='50%' align='right'>$Lang::tr{'uplink speed'}:</td>
<td width='30%' align='left'>
<td width='50%' align='left'>
<input type='text' name='OUT_SPD' maxlength='8' value="$qossettings{'OUT_SPD'}" />
</td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td width='50%' align='right'>$Lang::tr{'link-layer encapsulation'}:</td>
<td width='50%' align='left'>
<select name="CAKE_PROFILE">
END
foreach my $key (sort { $CAKE_PROFILES{$a} cmp $CAKE_PROFILES{$b} } keys %CAKE_PROFILES) {
print <<END;
<option value="$key" $selected{'CAKE_PROFILE'}{$key}>$CAKE_PROFILES{$key}</option>
END
}
print <<END;
</select>
</td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td width='100%' align='center' colspan="2">
<input type='submit' name='ACTION' value="$Lang::tr{'template'}" />
<input type='submit' name='ACTION' value="$Lang::tr{'save'}" />
<input type='reset' name='ACTION' value="$Lang::tr{'reset'}" />
</td>
</tr>
</table>
</form>
<font color='red'>$Lang::tr{'template warning'}</font>