Forum Debian Users Gang

# ./kolejka
------------------------------------------------------
             KOLEKLOWANIE ETH0
------------------------------------------------------
iptables: Chain already exists

#!/usr/bin/perl
#
#      Kolejkowanie ver 0.000000000001 beta
#    create by BiExi
#
# $debugowanie = 0;
      $cid = 5;
      $handl = 320;
      $zrodlo = 600;


open (PLIK_SHIT, "/etc/upierdalacz/upierdalacz.list")or die "open $alert_file: $!\n";
{
  sleep 1;
    if (seek(PLIK_SHIT,0,1))
      {
      
          print "--------------------------------------------- \n";
          print "                 KOLEJKOWANIE ETH0 \n";
          print "--------------------------------------------- \n";
        # - -- ---[ ruch przychodzacy ]--- -- -
      system "tc qdisc del dev eth0 root handle 1:0 htb";
      system "tc qdisc add dev eth0 root handle 1:0 htb";
      system "tc class add dev eth0 parent 1:0 classid 1:1 htb rate 100mbit ceil 110mbit quantum 8448";
      system "tc class add dev eth0 parent 1:1 classid 1:2 htb rate 6120kbit ceil 6144kbit quantum 522";
      system "tc class add dev eth0 parent 1:1 classid 1:3 htb rate 99mbit ceil 99mbit quantum 8448";
      system "tc filter add dev eth0 protocol ip preference 1 parent 1:0 u32 match ip src 192.168.1.254 flowid 1:3";
      system "tc qdisc add dev eth0 parent 1:3 handle 299:0 sfq perturb 10";

        # - -- ---[ ruch wychodzacy ]--- -- -
      system "tc qdisc del dev eth1 root handle 1:0 htb";
      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 100mbit ceil 110mbit quantum 768";
      system "tc class add dev eth1 parent 1:1 classid 1:2 htb rate 500kbit ceil 512kbit quantum 43";
      system "tc qdisc add dev eth1 parent 1:2 handle 2:0 sfq perturb 10";
      system "tc filter add dev eth1 protocol ip preference 1 parent 1:0 handle 2000 fw flowid 1:2";

      system "iptables -t mangle -N UPIERDALACZ_ETH1";
      system "iptables -t mangle -D POSTROUTING -o eth1 -j  UPIERDALACZ_ETH1";
      system "iptables -t mangle -I POSTROUTING -o eth1 -j  UPIERDALACZ_ETH1";


    while (<PLIK_SHIT>)
        {
         chop;
      next if (/^\s*$/); # wyjazd z pustymi liniami
      next if (/^#/);    # wyjazd z #
         if (/(\d+\.\d+\.\d+\.\d+) \; (\d+) \; (\d+) \; (\d+) \; (\d+) \; (\S+)/)
            {
              print "| Kolejka na eth0 RUCH PRZYCHODZACY dla IP:$1 rate: $2kbit cail: $3kbit\n";
          system "tc class add dev eth0 parent 1:2 classid 1:$cid htb rate $2kbit ceil $3kbit quantum 3 burst 3k";
          system "tc filter add dev eth0 protocol ip preference 2 parent 1:0 u32 match ip dst $1 flowid 1:$cid";
          system "tc qdisc add dev eth0 parent 1:$cid handle $handl:0 sfq perturb 10";

              print "| Kolejka na eth1 RUCH WYCHODZACY dla IP:$1 rate: $4kbit cail: $5kbit\n";
          system "tc class add dev eth1 parent 1:2 classid 1:$cid htb rate $4kbit ceil $5kbit  quantum 3 burst 3k";
          system "tc qdisc add dev eth1 parent 1:$cid handle $handl:0 sfq perturb 10";
          system "tc filter add dev eth1 protocol ip preference 2 parent 1:0 handle $zrodlo fw flowid 1:$cid";
          system "iptables -t mangle -D  UPIERDALACZ_ETH1 -p tcp -s $1 -j MARK --set-mark $zrodlo >>/dev/null";
          system "iptables -t mangle -A  UPIERDALACZ_ETH1 -p tcp -s $1 -j MARK --set-mark $zrodlo";

          $cid = $cid + 1;
          $handl = $handl + 1;
          $zrodlo = $zrodlo + 1;
        }

    } # end while
     } # end if seek
 } # end for

close PLIK_SHIT;


system "iptables -t mangle -A  UPIERDALACZ_ETH1 -m mark --mark 0 -j MARK --set-mark 2000";

# Configuration uperdalacz.list for eth0
# :::::::::::::::::::::::::::::::::::::::::::::::::
# |  IP     |  GW D  | MAX D  | GW U | MAX U | Opis
# :::::::::::::::::::::::::::::::::::::::::::::::::
192.168.1.1 ; 6 ; 6 ; 5 ; 5 ;  Marek