MRTG

[ZyTeK]

Dnia Fri, 30 Aug 2002 16:39:15 +0200
ZyTeK napisał(a):

Jeszcze coś, te początkowe linie z danymi są podwójne:



zytek.abomb.lan          masq in: 833    masq out:2550
zytek.abomb.lan          masq in: 833    masq out:2550
robert.abomb.lan                 masq in: 0      masq out:0
robert.abomb.lan                 masq in: 0      masq out:0
martyna.abomb.lan                masq in: 0      masq out:0
martyna.abomb.lan                masq in: 0      masq out:0
bigvip.abomb.lan                 masq in: 66376  masq out:11502
bigvip.abomb.lan                 masq in: 66376  masq out:11502
sebtech.abomb.lan                masq in: 0      masq out:0
sebtech.abomb.lan                masq in: 0      masq out:0
damian.abomb.lan                 masq in: 0      masq out:0
damian.abomb.lan                 masq in: 0      masq out:0
marta.abomb.lan          masq in: 0      masq out:0
marta.abomb.lan          masq in: 0      masq out:0
headp.abomb.lan          masq in: 0      masq out:0
headp.abomb.lan          masq in: 0      masq out:0
marcin-p.abomb.lan               masq in: 0      masq out:0
marcin-p.abomb.lan               masq in: 0      masq out:0
donbolano.abomb.lan              masq in: 274386         masq out:77312
donbolano.abomb.lan              masq in: 274386         masq out:77312
karol.abomb.lan          masq in: 648    masq out:1145
karol.abomb.lan          masq in: 648    masq out:1145
                 masq in:        masq out:
                 masq in:        masq out:
                 masq in:        masq out:
                 masq in:        masq out:
                 masq in:        masq out:
                 masq in:        masq out:
(tutaj powtarzają się te linijki).

Mój "skrócony" skrypt wygląda tak

#!/usr/bin/perl
        use strict;
        my @a;
        my @b;
        open A, "iptables -L in_counter -vx| grep any|";
        open B, "iptables -L out_counter -vx| grep any|";
        while () {
        @a = split " ", <A>, 9;
        @b = split " ", <B>, 9;
        print @a[7]."\t masq in: ". w a[1]."\t masq out:". w b[1]." \n";
        }

Help please. ;>

Gdyby tak jeszcze jen skrypt pokazywał dane w mega lub kilobajtach.. ;)
Ale to już jakiś perlowiec by musiał mi pomóc. :)

-- 
.: Kuba Głazik - ZyTeK - zytek w pld-linux.org
.: Pingwiny? eee.... Bociany?  TAK!
.: PLD Linux freaks :)
.: Black Jesus     White Devil