[MRTG] Proxystats.

[theezeefje]

Is het mogelijk om via MRTG de stats van mijn dnetc proxy weer te geven ?
op internet kan ik er weinig tot niets over vinden.

Wie heeft er wat info over ?

tnx.

[Verwijderd]

Op maandag 04 maart 2002 15:26 schreef theezeefje het volgende:
Is het mogelijk om via MRTG de stats van mijn dnetc proxy weer te geven ?
op internet kan ik er weinig tot niets over vinden.

Wie heeft er wat info over ?

tnx.

nee, maar er is toch zo'n ander packetje voor dat utzelfde doet?

[theezeefje]

Het kan idd via pproxy, maar ik ben aant spelen met MRTG, en wil gewoon kijken wat ik nog meer aan gegevent met MRTG kan weergeven.
(beetje dezelfde weergave voor meerdere items gebruiken).

dus niet voor elk ding waar ik stats van heb een verschillend iets gebruiken, maar gewoon een beetje eenheid erin.

[Verwijderd]

welke stats zou je willen zien dan?

[theezeefje]

eigenlijk psies hetgeen dat ppstats weergeeft, alleen dan met MRTG (dus de hoeveelheid blocks er door mijn server gaan)

[Infern0]

je kan erg eenvoudig shell scripies maken voor mrtg, dus die zal je ook wel kunnen maken voor je dnetc stats.

Kijk maar eens in de verschillende voorbeelden voor mrtg.

[Oezie Woezie]

zoiets?
ProxyPer OGR en RC5 rates

(Rood is OGR rate en Oranje is RC5 rate)

Blocks(RC5) aanwezig op de ProxyPer

(Rood is ready to sent en oranje is wat nog gedaan moet worden)

Packets(OGR) aanwezig op de ProxyPer

(Rood is ready to sent en oranje is wat nog gedaan moet worden)

perl scriptje

code:

#!/usr/bin/perl
# met dank aan Ikarus
$file = "/root/proxyper319c-linux-x86/console"; # path van je Logfiles
$rotate = "1";  # zet deze op 1 indien je consolelog rotatie aan heb staan
$rev = 60;  # speciale optie inprincipe hoeft deze NIET gewijzigd te worden
$addchars = 35; # speciale optie inprincipe hoeft deze NIET gewijzigd te worden

if ($rotate == "1") {
    @UTC = gmtime(time);
    if ($UTC[8]) {
      my @UTC = gmtime(time-3600);
    }
    $UTC[4]++;
    for ($i = 0; $i < 5; $i++) {
      while (length($UTC[$i]) < 2) {$UTC[$i] = "0$UTC[$i]";}
    }
    $UTC[5] += 1900;
    $date = "$UTC[5]$UTC[4]$UTC[3]";
    $file = "$file$date";
}
$file = "$file\.log";

open(FILE, "$file") or die;
sub readit {until ($var =~ /.*\n.*\n.*/) { seek(FILE,-$rev,2);
        read(FILE,$var,$rev);
        $rev += $addchars;}
    $var =~ s/^(.*?)\n(.*?)\n.*$/$2/s;
    $back = length($1);
    return $var}

if ($ARGV[0] eq "ogr") {
    until ($ogr =~ /ogr r=\d+\S+ d=\d+\S+ \S+/) {$ogr = readit;}
    $ogr =~ s/.*ogr r=(\d+)\S+ d=(\d+)\S+ (\S+).*/$1\/$2|$3/;
    $rev += $back;
    print "$1\n"; #  Ready to be processed
    print "$2\n"; #  Ready to be sent
}
elsif ($ARGV[0] eq "rc5") {
    until ($rc5 =~ /rc564 r=\d+\S+ d=\d+\S+ \S+/) {$rc5 = readit;}
    $rc5 =~ s/.*rc564 r=(\d+)\S+ d=(\d+)\S+ (\S+).*/$1\/$2|$3/;
    print "$1\n"; #  Ready to be processed
    print "$2\n"; #  Ready to be sent
}
elsif ($ARGV[0] eq "rate") {
    until ($rc5 =~ /rc564 r=\d+\S+ d=\d+\S+ \S+/) {$rc5 = readit;}
    $rc5 =~ s/.*rc564 r=(\d+)\S+ d=(\d+)\S+ (\S+) (\S).*/$1\/$2|/;
    if ($4 eq "M") {
        $data = $3 * 1000000;
    }
    elsif ($4 eq "k") {
        $data = $3 * 1000;
    }
    print "$data\n"; #  Keyrate in Mkeys or Kkeys/sec
    until ($ogr =~ /ogr r=\d+\S+ d=\d+\S+ \S+/) {$ogr = readit;}
    $ogr =~ s/.*ogr r=(\d+)\S+ d=(\d+)\S+ (\S+) (\S).*/$1\/$2|$3/;
    if ($4 eq "M"){
        $data = $3 * 1000000;
    }
    elsif ($4 eq "k") {
        $data = $3 * 1000;
    }
    print "$data\n"; #  Keyrate in Mnodes or Knodes/sec
}
else {
    print "geen geldige waarde\n";
}

mrtg.cfg

code:

Target[proxyper_rc5]: `/opt/proxyper.pl rc5`
Options[proxyper_rc5]: nopercent,gauge,noinfo
Title[proxyper_rc5]: Blocks Done/Ready
PageTop[proxyper_rc5]: <h1>Blocks Done/Ready</h1>
MaxBytes[proxyper_rc5]: 100000
YLegend[proxyper_rc5]: Blocks
ShortLegend[proxyper_rc5]: Block(s)
Colours[proxyper_rc5]: ORANGE#ffa500,ORANGE RED#ff4500,DARK BLUE#000066,VIOLET#ff00ff,GREEN#00ff00
LegendI[proxyper_rc5]: &nbsp;Done:
LegendO[proxyper_rc5]: &nbsp;Ready:
Legend1[proxyper_rc5]: Done
Legend2[proxyper_rc5]: Ready


Target[proxyper_ogr]: `/opt/proxyper.pl ogr`
Options[proxyper_ogr]: nopercent,gauge,noinfo
Title[proxyper_ogr]: Packets Done/Ready
PageTop[proxyper_ogr]: <h1>Packets Done/Ready</h1>
MaxBytes[proxyper_ogr]: 100000
YLegend[proxyper_ogr]: Packets
ShortLegend[proxyper_ogr]: Packet(s)
Colours[proxyper_ogr]: ORANGE#ffa500,ORANGE RED#ff4500,DARK BLUE#000066,VIOLET#ff00ff,GREEN#00ff00
LegendI[proxyper_ogr]: &nbsp;Done:
LegendO[proxyper_ogr]: &nbsp;Ready:
Legend1[proxyper_ogr]: Done
Legend2[proxyper_ogr]: Ready


Target[proxyper_rate]: `/opt/proxyper.pl rate`
Options[proxyper_rate]: nopercent,gauge,noinfo
Title[proxyper_rate]: Mkeys/sec Mnodes/sec
PageTop[proxyper_rate]: <h1>Mkeys/sec Mnodes/sec</h1>
MaxBytes[proxyper_rate]: 1000000000
YLegend[proxyper_rate]: Rate
ShortLegend[proxyper_rate]: /sec
Colours[proxyper_rate]: ORANGE#ffa500,ORANGE RED#ff4500,DARK BLUE#000066,VIOLET#ff00ff,GREEN#00ff00
LegendI[proxyper_rate]: &nbsp;Mkeys:
LegendO[proxyper_rate]: &nbsp;Mnodes:
Legend1[proxyper_rate]: keys
Legend2[proxyper_rate]: nodes

succes ermee

[ Voor 6% gewijzigd door Oezie Woezie op 31-05-2004 00:22 ]

[Spamajor]

Ehla,

dat ziet er lekker uit. Bist du zo vriendelijk
om dat te delen?

in ieder geval bedankt

[Verwijderd]

Oezie Woezie heeft hiermee plusje verdiend

[NightBird]

woei
tnx Oezie, en Ikarus natuurlijk!

[theezeefje]

I love you



gaaf man, bedankt !

[theezeefje]

als ik dat perlscript run, krijg ik de volgende melding:

[root@enterprise opt]# ./proxyper.pl
bash: ./proxyper.pl: bad interpreter: No such file or directory
[root@enterprise opt]#

wat doe ik fout ?

[Tader]

[b]Op woensdag 06 maart 2002 17:18 schreef [root@enterprise opt]# ./proxyper.pl
bash: ./proxyper.pl: bad interpreter: No such file or directory

Staat bij jou perl in /usr/bin/perl?
Check ff met "which perl"...

[theezeefje]

[root@enterprise bin]# which perl
/usr/bin/perl
[root@enterprise bin]#

[Tader]

Ah, waarschijnlijk heb je een bestand met dos regeleinden...
Probeer eens alle \r uit je bestand te halen... Is een proggie voor (fromdos)... Anders gewoon verzenden in ascii mode en niet in binary mode naar je linux bak...

[Niek]

Op woensdag 06 maart 2002 17:25 schreef theezeefje het volgende:
[root@enterprise bin]# which perl
/usr/bin/perl
[root@enterprise bin]#

Probeer eens

code:

chmod +x proxyper.pl

[theezeefje]

Op woensdag 06 maart 2002 17:31 schreef The_Surfer het volgende:

[..]

Probeer eens

code:

chmod +x proxyper.pl

Dat was het eerste wat ik had gedaan

[theezeefje]

[root@enterprise opt]# ./proxyper.pl
Died at ./proxyper.pl line 22.
[root@enterprise opt]#

[Tader]

Op woensdag 06 maart 2002 17:38 schreef theezeefje het volgende:
[root@enterprise opt]# ./proxyper.pl
Died at ./proxyper.pl line 22.
[root@enterprise opt]#

bestaat /root/proxyper319c-linux-x86/console.log ???

[Verwijderd]

Woei! Bedankt!

Dit werkt perfect

[theezeefje]

File heet console.log20020306.log

[Tader]

Op woensdag 06 maart 2002 17:45 schreef theezeefje het volgende:
File heet console.log20020306.log

Dan werkt het dus niet

Verander de regel:
$file = "$file$date";
eens in:
$file = "$file\.log$date";

[theezeefje]

nog steeds dood

[Tader]

Op woensdag 06 maart 2002 17:53 schreef theezeefje het volgende:
nog steeds dood

Kijk dan eens wat er in $file staat wanneer je de file probeert te openen? Bestaat de file? Mag je 'm openen (zal wel wanneer je als root bezig bent)... Etc... (Disk vol? )

[theezeefje]

Op woensdag 06 maart 2002 17:47 schreef Tader het volgende:

[..]

Dan werkt het dus niet

Verander de regel:
$file = "$file$date";
eens in:
$file = "$file\.log$date";

Oeps, had de verkeerde aangepast !
nu loopt het script iig goed !!!!

bedankt !

[stappel_]

Als iemand een perl scriptje wil hebben om oude console logs door rrdtool te halen dan moet hij het even zeggen en dan post ik het hier.

[Oezie Woezie]

graag, beetje weinig data heb ik nu nog

[stappel_]

code:

#!/usr/bin/perl

use Time::Local;

$conlogglob = "/var/local/log/proxyper/console*.log";
@conlogfiles = glob($conlogglob);

@conlogfiles = reverse sort @conlogfiles;
$numconlogs = 500;
if ($#conlogfiles < $numconlogs) {
   $numconlogs = $#conlogfiles;
}

for ($i = $numconlogs; $i >= 0; $i--) {
  unless (open(LOGFILE, "$conlogfiles[$i]")) {
      print "WARNING : Cannot open ConsoleLogFile : " . $conlogfiles[$i] . " ($!)\n";
  } else {
    while (defined($entry = <LOGFILE>)) {
      # Trim off the fat and convert to lowercase
      chomp($entry);
      $entry =~ tr/A-Z/a-z/;
      $entry =~ s/\,/ /;
      ($ldate, $ltime, $project, $ready, $max, $rate, $ratestr, $total) = split(/\ /, $entry);
      if ($project eq "ogr") {
        ($rate1, $rate2) = split(/\./, $rate);
        $rate1 *= 1000000;
        ($mon, $day, $year) = split(/\//, $ldate);
        $year += 2000;
        ($hr, $min, $sec) = split(/:/, $ltime);
        $time = timelocal($sec, $min, $hr, $day, $mon -1, $year);
        print "rrdtool update test.rrd " . $time . ":" . $rate1 . "\n";
     }
    }
    close LOGFILE;
  }
}

a) even het path aanpassen naar de logfiles
b) $numconlogs geeft aan hoeveel dagen hij mag lezen
c) hij pakt nu alleen OGR
c) en hij geeft als output : "rrdtool update test.rrd 12345678:ABC"
waar test.rrd de RRD file is, 12345678 de timestamp, en ABC de waarde.
d) hij gaat er dus van uit dat je RRD file heb met 1 waarde en die waarde is een GAUGE, geen COUNTER

je kan bevoorbeeld hetvolgende commando gebruiken om de RRD file te maken :

code:

rrdtool create test.rrd --start 999999999 DS:ogr:GAUGE:600:U:U RRA:AVERAGE:0.5:1:600 \
RRA:AVERAGE:0.5:6:700 RRA:AVERAGE:0.5:24:775  \
RRA:AVERAGE:0.5:228:797 RRA:MAX:0.5:1:600 \
RRA:MAX:0.5:6:700 RRA:MAX:0.5:24:775

daarna run je het perl script en van je de output af naar een file en run je die file.

En met :

code:

rrdtool graph ogr_rate.gif --start 1009739708 --end 1016427866 DEF:myogr=test.rrd:ogr:AVERAGE LINE1:myogr#FF0000

heb je een leuke gif.


weet iemand hoe hij rrdtool zo gek krijgt dat hij niet met week 0 begint met tellen? mrtg weet ik wel, rrdtool niet.

[Jelmer]

Oezie Woezie, done en ready staan verkeerd om...

[Oezie Woezie]

je hebt gelijk ff aanpassen in de mrtg.cfg of perproxy.pl.

[Jelmer]

Ik heb de mrtg.cfg gedaan, dan wordt je done dus het lijntje, is wel zo overzichtelijk (vind ik)

[Oezie Woezie]

done was al het lijntje, alleen legenda stond verkeerd

[Verwijderd]

Op woensdag 06 maart 2002 17:43 schreef CowMike het volgende:
Woei! Bedankt!

Dit werkt perfect

ey michiel, windhoos matroosje mijn nick is gewijzigd in Pieter

[Verwijderd]

Op vrijdag 08 maart 2002 11:31 schreef Pieter het volgende:

[..]

ey michiel, windhoos matroosje mijn nick is gewijzigd in Pieter

Hou je bek joh! Anders stamp ik em dicht! (Of ik verander je root-password op je server gewoon )

[Verwijderd]

Damned, ik krijg nu:

geen geldige waarde ?

[aKra]

Sorry dat ik dit hele oude topic omhoog haal, maar ik zou erg graag deze stats willen hebben...

Alleen krijg ik de error 'geen geldige waarde'

Terwijl alle log files goed staan etc.