/
Forside
/
Teknologi
/
Udvikling
/
Perl
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
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 :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408925
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.