#!/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>