foloseste gauge in loc de counter si fa ca scripturile de update sa
introduca diferenta intre ce e actual si ce a fost anterior
heartbeatului. valuarea update-ului este 0 sau valuarea actuala daca
diferenta e negativa, daca e 0 e 0 si daca e pozitiva e diferenta.
uite un exemplu ( cu scuzele de rigoare pt nivelul meu lame de perl:
#!/usr/bin/perl
die ("Can't open source file\n") unless (open(SFILE, "/proc/net/dev"));
while ($line = <SFILE>) {
if ( $line =~ /eth/ ) {
$line =~ s/:/ /g;
@line = < $line >;
$iface = @line[0];
$in = @line[1];
$out = @line[9];
open(DBFILE, ">" . $dir . "router.db") unless
(open(DBFILE, $dir . "router.db"));
die ("Can't open new db file\n") unless (open(NEWDBFILE,
">>" . $dir . "new_router.db"));
while ($ln = <DBFILE>) {
if ( $ln =~ /$iface/ ) {
$ln =~ s/:/ /g;
@ln = < $ln >;
$oldin = @ln[1];
$oldout = @ln[2];
if ( $in lt $oldin ) {
$IN = 0;
} else {
$IN = $in-$oldin;
}
if ( $out lt $oldout ) {
$OUT = 0;
} else {
$OUT = $out-$oldout;
}
$LIST = $LIST . "/usr/bin/rrdtool update
/var/lib/rrdtool/interfaces_".$iface.".rrd -t in:out
N:".$IN.":".$OUT."\n";
}
}
print NEWDBFILE < $iface ":" $in ":" $out "\n" >;
#print < $iface ":" $in ":" $out >;
#print < $iface ":" $IN ":" $OUT "\n" >;
}
}
close (SFILE);
close (DBFILE);
close (NEWDBFILE);
rename $dir . "new_router.db", $dir . "router.db";
exec $LIST;
axl
On Thu, 2002-12-12 at 22:35, Bogdan Luca wrote:
> shtie cineva cum se poate scapa de spike-urile pe care le genereaza
> rrdtool la resetarea unui counter (ie. resetare echipament)?
>
> bogdan
>
>
>
> Acest mesaj a fost scanat de RAV Antivirus
> ---
> Pentru dezabonare, trimiteti mail la
> [EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
> REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
>
>
---
Pentru dezabonare, trimiteti mail la
[EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
