/
Forside
/
Teknologi
/
Udvikling
/
Perl
/
Nyhedsindlæg
Login
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Stil et spørgsmål
Skriv et tip
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Perl
#
Navn
Point
1
bjarneA
141
2
poul_from
50
3
soccer
30
4
Nicknack
14
5
Tmpj
0
RRDtool og NNTPclient problemer
Fra :
Brian Ipsen
Dato :
29-07-01 22:04
Hej!
Jeg sidder og fumler rundt med RRDtool og NNTPclient for at følge
antallet af postings i nyhedsgrupper på TDC's server (ren
nysgerrighed).
Jeg har oprettet RRD databasen med:
rrdtool create NntpDb.rrd DS:dk-binaer-musik:COUNTER:36000:0:U
RRA:MAX:0.5:1:600 RRA:MAX:0.5:6:700 RRA:MAX:0.5:24:775
RRA:MAX:0.5:288:797
(RRA værdierne er gaflet fra MRTG, jeg håber de er korrekte for hhv.
dag/uge/måned og år-statistik)
Jeg henter så info med følgende Perl script:
#!/usr/local/bin/perl -w
use News::NNTPClient;
require 'RRDs.pm';
$server1 = "news.tele.dk";
$c1 = new News::NNTPClient("$server1");
$group = "dk.binaer.musik";
($first, $last) = ($c1->group("$group"));
if(defined($first))
{
$diff = $last-$first;
print "$group First: $first Last: $last Diff: $diff\n";
my $dkbinmusik = $last;
undef $diff;
undef $first;
undef $last;
}
else
{
print "No reply from $group ! \n";
my $dkbinmusik = 0;
}
RRDs::update("$rrd", "$time:$dkbinmusik");
my $e = RRDs::error();
die "ERROR: Cannot update $rrd with '$time:$dkbinmusik' $e\n" if ($e);
Men ind imellem dukker der ret vanvittige værdier op i databasen (se
miderste) - værdierne skal ganges med 300 for at få antal postings i
løbet af 5 minutter:
996433500: 9.0733333333e-002
996433800: 9.0000000000e-002
996434100: 1.3836838984e+007
996434400: 6.4444444444e-002
996434700: 6.4230343300e-002
Hvad kan dette skyldes ??
/Brian
Brian Ipsen (
29-07-2001
)
Kommentar
Fra :
Brian Ipsen
Dato :
29-07-01 23:42
On Sun, 29 Jul 2001 23:04:07 +0200, Brian Ipsen <Spammers@blow.me>
wrote:
> my $dkbinmusik = 0;
>}
glemte lige:
my $rrd = "NntpDb.rrd";
my $time = time;
>RRDs::update("$rrd", "$time:$dkbinmusik");
>my $e = RRDs::error();
>die "ERROR: Cannot update $rrd with '$time:$dkbinmusik' $e\n" if ($e);
/Brian
Søg
Alle emner
Teknologi
Udvikling
Perl
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177821
Tips :
31980
Nyheder :
719565
Indlæg :
6410977
Brugere :
218912
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2026 kandu.dk. Alle rettigheder forbeholdes.