
{
$OUT .= "# High prio UDP Ports;\n";


my $TCPPrio = ${qos}{'TCPPrio'} || '';
my $UDPPrio = ${qos}{'UDPPrio'} || '';
my $HostsPrio = ${qos}{'HostsPrio'} || '';

$UDPPrio =~ s/-/:/g;
$TCPPrio =~ s/-/:/g;

foreach (split(/[;,]/,$UDPPrio)){
    $OUT .= "\$IPT -t mangle -A QOS -p udp --dport $_ -j DSCP --set-dscp 1\n";
    $OUT .= "\$IPT -t mangle -A QOS -p udp --dport $_ -j RETURN\n";
}


$OUT .= "\n# High prio TCP Ports:\n";

foreach (split(/[;,]/,$TCPPrio)){
    $OUT .= "\$IPT -t mangle -A QOS -p tcp --dport $_ -j DSCP --set-dscp 1\n";
    $OUT .= "\$IPT -t mangle -A QOS -p tcp --dport $_ -j RETURN\n";
}

$OUT .= "\n# High prio Hosts:\n";

foreach (split(/[;,]/,$HostsPrio)){
    $OUT .= "\$IPT -t mangle -A QOS -d $_ -j DSCP --set-dscp 1\n";
    $OUT .= "\$IPT -t mangle -A QOS -d $_ -j RETURN\n";
}

}


