#include "fields.tc"
#include "ports.tc"


#define webcir 40 kbps
#define webcbs 50 kB
#define webebs 30 kB
$web = srTCM( cir webcir, cbs webcbs, ebs webebs );

dev eth0 {
    egress {
        class ( <$ok> ) \
            if tcp_sport == 22 && ip_tos_delay == 1 && srTCM_green( $web ) ;
        class ( <$high> ) \
            if tcp_sport == 22 || tcp_dport == 80 && srTCM_yellow( $web ) ;
        drop if srTCM_red( $web ) ;
        htb {
            class ( rate 600kbps, ceil 600kbps ) {
                $ok    = class ( rate 512kbps, ceil  512kbps ) ;
                $high  = class ( rate 128kbps, ceil  128kbps ) ;
            }
        }
    }
}