Forum Debian Users Gang

    system "tc qdisc add dev eth1 root handle 1:0 htb";
    system "tc class add dev eth1 parent 1:0 classid 1:1 htb rate 4000kbps ceil 4800kbps quantum 80000";

    
        system "tc class add dev eth1 parent 1:1 classid 1:10 htb rate 1000kbps ceil 1200kbps quantum 3 burst 20k prio 1";
        system "tc class add dev eth1 parent 1:1 classid 1:20 htb rate 1000kbps ceil 1200kbps quantum 3 burst 20k prio 3";
        system "tc class add dev eth1 parent 1:1 classid 1:30 htb rate 1000kbps ceil 1200kbps quantum 3 burst 10k prio 1";
        system "tc class add dev eth1 parent 1:1 classid 1:40 htb rate 1000kbps ceil 1200kbps quantum 3 burst 10k prio 2";

    
    for(my $i = 2; $i < 255; $i++) {
    #HTTP
        system "tc filter add dev eth1 protocol ip preference 2 parent 1:0 u32 match ip dst 192.168.0.$i/32 match ip sport 80 0xffff flowid 1:10";

    # UDP 
        system "tc filter add dev eth1 protocol ip preference 2 parent 1:0 u32 match ip protocol 17 0xff match ip dst 192.168.0.$i/32 flowid 1:20";

    # ftp-data only port 20
        system "tc filter add dev eth1 protocol ip preference 2 parent 1:0 u32 match ip dst 192.168.0.$i/32 match ip sport 20 0xffff flowid 1:30";

    # FTP
        system "tc filter add dev eth1 protocol ip preference 2 parent 1:0 u32 match ip dst 192.168.0.$i/32 flowid 1:40";
    }
}