36 lines
815 B
Plaintext
36 lines
815 B
Plaintext
|
|
{
|
|
$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";
|
|
}
|
|
|
|
}
|
|
|
|
|