also sprach pcg:
also sprach drummond-m:
Hi all. A while back I mentioned modifying the qmailmrtg stuff to work
with multilog formatted files and some of you have asked me about them.
They are almost complete .. the mods seem pretty easy really, though I
am not much of a programmer. I think I have it working. The queue script
did not require any changing of course ... and the concurrency script
was easy to fix up. Just a change in the regexp that matches log files.
I am having some trouble with the message bandwidth script though ... it
seems to work when I run it by hand but not when run from cron.
I've attached the diff to alter the message file. This should make it work
with multilog files. Works for me anyway... :)
Oops, no diff. Sorry, here it is.
/pg
--
Peter Green : Gospel Communications Network, SysAdmin : [EMAIL PROTECTED]
---
This message was brought to you by Linux, the free unix.
Windows without the X is like making love without a partner.
Sex, Drugs Linux Rules
win-nt from the people who invented edlin
apples have meant trouble since eden
Linux, the way to get rid of boot viruses
(By [EMAIL PROTECTED], MaDsen Wikholm)
--- qmail-mrtg-mess Sat Oct 9 13:31:44 1999
+++ /usr/local/bin/qmail-mrtg-mess Mon May 29 20:57:23 2000
@@ -21,18 +21,18 @@
# the range of timestamps in a file by looking at its name and its mtime.
# we simply presume that the latest file contains timestamps $stop.
opendir(DIR, $qmail_log_dir) or die;
-@_ = sort readdir(DIR);
+@_ = reverse sort readdir(DIR);
for(;;) {
$_ = pop(@_);
die "Not enough log files to cover $logperiod seconds" unless $_;
- next unless s/^\@//;
- unshift(@ARGV, "$qmail_log_dir/\@$_");
- last if $_ $start - 10;# give cyclog ten seconds to roll over the log file.
+ next unless (/^\@/ || /^current$/);
+ unshift(@ARGV, "$qmail_log_dir/$_");
+ last if $_ tai64n2time($start) - 10; # give cyclog ten seconds to roll over
+the log file.
}
closedir(DIR);
# process the two files, and run them through matchup.
-open(QA, "|$qa/matchup /tmp/out.$$ 5$holdingfile.new") or die;
+open(QA, "|/usr/local/bin/tai64n2time|$qa/matchup /tmp/out.$$ 5$holdingfile.new")
+or die;
if (-e "$holdingfile") {
open(P, "$holdingfile") or die;
while(P) { print QA; }
@@ -40,7 +40,8 @@
}
while() {
split;
-next if ($_[0] $start || $_[0] = $stop);
+$n = tai64n2time($_[0]);
+next if ($n $start || $n = $stop);
print QA;
}
close(QA);
@@ -63,3 +64,16 @@
# cleanup.
rename("$holdingfile.new", "$holdingfile") or die;
unlink("/tmp/out.$$");
+
+sub tai64n2time {
+ $src = shift;
+ if (($s,$t) = /^\@.(\w{15})(\w{8})/) {
+$s = hex($s);
+$t = hex($t); $t =~ s/500$//;
+$tgt = "$s.$t";
+ }
+ else {
+$tgt = $src;
+ }
+ return $tgt;
+}
