A QoS management panel on SME Server
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

84 lines
2.1 KiB

13 years ago
#!/usr/bin/perl -wT
#vim: ft=xml:
#--------------------------------------------------------------------------------------------
# heading : Configuration
# description : QOS
# navigation : 5000 5400
#--------------------------------------------------------------------------------------------
use strict;
use warnings;
use esmith::FormMagick::Panel::qos;
my $f = esmith::FormMagick::Panel::qos->new();
$f->display();
__DATA__
<form title="FORM_TITLE"
header="/etc/e-smith/web/common/head.tmpl"
footer="/etc/e-smith/web/common/foot.tmpl">
<page name="First" pre-event="print_status_message()" post-event="change_settings">
<subroutine src="print_serveronly_msg()" />
<description>DESC_QOS</description>
<field
type="select"
id="status"
options="'enabled' => 'ENABLED', 'disabled' => 'DISABLED'"
value="get_prop('status')">
<label>LABEL_STATUS</label>
<description>DESC_STATUS</description>
</field>
<field
type="text"
id="UpLink"
size="4"
validation="zero_or_positive"
value="get_prop('UpLink')">
<label>LABEL_UPLINK</label>
<description>DESC_BP</description>
</field>
<field
type="text"
id="DownLink"
size="4"
validation="zero_or_positive"
value="get_prop('DownLink')">
<label>LABEL_DOWNLINK</label>
</field>
<field
type="text"
id="UDPPrio"
size="40"
validation="port_range"
value="get_prop('UDPPrio')">
<description>DESC_UDPPrio</description>
<label>LABEL_UDPPrio</label>
</field>
<field
type="text"
id="TCPPrio"
size="40"
validation="port_range"
value="get_prop('TCPPrio')">
<description>DESC_TCPPrio</description>
<label>LABEL_TCPPrio</label>
</field>
<field
type="text"
id="HostsPrio"
size="40"
validation="host_ip"
value="get_prop('HostsPrio')">
<description>DESC_HostsPrio</description>
<label>LABEL_HostsPrio</label>
</field>
<subroutine src="print_button( 'SAVE' )" />
</page>
</form>