Видях си 1 грешчица в перл скрипта:
$comm = iptables(" -t mangle -A mark-out -s 192.168.2.$ip -j MARK --set-mark 100");
$comm = iptables(" -t mangle -A mark-out -s 192.168.2.$ip -j MARK --set-mark 200");
$comm = iptables(" -t mangle -A mark-out -s 192.168.3.$ip -j MARK --set-mark 300");
$comm = iptables(" -t mangle -A mark-out -s 192.168.3.$ip -j MARK --set-mark 400");
Промених и htb_eth0, но абсолютно нищо не стана

'>((
Примерен код |
#!/bin/bash
# htb_eth0.sh Script for upload traffic shaping divided to International & Peering classes
/sbin/insmod sch_htb 2>/dev/null /sbin/insmod cls_fw 2>/dev/null
/sbin/ip link set dev eth0 qlen 30
/sbin/tc qdisc del dev eth0 root /sbin/tc qdisc add dev eth0 root handle 1: htb default 30 /sbin/tc class add dev eth0 parent 1: classid 1:1 htb rate 1mbit burst 20k /sbin/tc class add dev eth0 parent 1:1 classid 1:10 htb rate 1mbit burst 20k /sbin/tc class add dev eth0 parent 1:1 classid 1:20 htb rate 1mbit burst 20k /sbin/tc class add dev eth0 parent 1:1 classid 1:30 htb rate 512kbit burst 5k /sbin/tc class add dev eth0 parent 1:10 classid 1:100 htb rate 256kbit ceil 1mbit burst 15k /sbin/tc class add dev eth0 parent 1:20 classid 1:200 htb rate 256kbit ceil 1mbit burst 15k /sbin/tc qdisc add dev eth0 parent 1:100 handle 100: sfq perturb 10 /sbin/tc qdisc add dev eth0 parent 1:200 handle 200: sfq perturb 10 /sbin/tc filter add dev eth0 protocol ip parent 1: prio 10 handle 100 fw flowid 1:100 /sbin/tc filter add dev eth0 protocol ip parent 1: prio 10 handle 200 fw flowid 1:200
/sbin/tc class add dev eth0 parent 1:10 classid 1:300 htb rate 64kbit ceil 128kbit burst 10k /sbin/tc class add dev eth0 parent 1:20 classid 1:400 htb rate 64kbit ceil 128kbit burst 10k /sbin/tc qdisc add dev eth0 parent 1:300 handle 300: sfq perturb 10 /sbin/tc qdisc add dev eth0 parent 1:400 handle 400: sfq perturb 10 /sbin/tc filter add dev eth0 protocol ip parent 1: prio 20 handle 300 fw flowid 1:300 /sbin/tc filter add dev eth0 protocol ip parent 1: prio 20 handle 400 fw flowid 1:400
|