Forum Debian Users Gang

#!/usr/bin/perl

print "Podaj interfejs od połączenia z Internetemn";
$net=<STDIN>;
print "Podaj interfejs do swojej sieci LANn";
$lan=<STDIN>;
print "Podaj prędkość łącza(DOWNLOAD)n";
$snet=<STDIN>;
print "Podaj prędkość łącza(UPLOAD)n";
$unet=<STDIN>;
print "Podaj prędkość sieci lokalnejn";
$slan=<STDIN>;

# Czyszczenie
print "tc qdisc del root dev $lan 2>/dev/nulln";
print "tc qdisc del root dev $net 2>/dev/nulln";
print "iptables -t mangle -D POSTROUTING -o $net -j upload 2>/dev/nulln";
print "iptables -t mangle -F upload 2>/dev/nulln";
print "iptables -t mangle -X upload 2>/dev/nulln";

# Główna kolejka
print "tc qdisc add dev $lan root handle 1:0 htbn";
print "tc class add dev $lan parent 1:0 classid 1:1 htb rate " . $slan . "kbit ceil $slan kbitn";
print "tc class add dev $lan parent 1:1 classid 1:2 htb rate " . $snet . "kbit ceil $snet kbitn";
print "tc class add dev $lan parent 1:1 classid 1:3 htb rate " . $slan . "kbit ceil $slan kbitn";