UUCP Weekly Traffic Stats
UUCP Admin
Remote -----------K-Bytes----------- ----Hours---- --Avg CPS-- --Files--
Host Recv Sent Total Recv Sent Recv Sent Recv Sent
-------- --------- --------- --------- ------ ------ ----- ----- ---- ----
a3 244.0 23973.6 24217.6 0.0 0.2 9713 43732 53 1434
amiga 11.9 7297.9 7309.8 0.0 0.5 5142 3948 12 2990
aobh 26.8 128959.5 128986.4 0.0 1.8 10048 20464 12 2208
ats 10457.6 1341276.7 1351734.3 0.1 9.8 55343 37834 175 4170
borksoft 0.0 35573.4 35573.4 0.0 0.3 0 39249 0 1066
burobs 0.0 88.8 88.8 0.0 0.0 0 12210 0 4
camimpla 0.0 289202.8 289202.8 0.0 1.3 0 61389 0 3896
conan 0.0 54120.3 54120.3 0.0 0.2 0 86223 0 8898
duck 0.0 16224.1 16224.1 0.0 0.2 0 25594 0 4924
fangorn 0.0 64027.0 64027.0 0.0 1.5 0 11929 0 1531
fennek 89625.5 6268.9 95894.4 0.2 0.1 15522 16162 393 1050
fidranth 0.0 2991.1 2991.1 0.0 0.1 0 6518 0 1036
gildewg 0.0 45725.9 45725.9 0.0 0.4 0 31719 0 1450
kiwi 0.0 66471.0 66471.0 0.0 2.5 0 7467 0 4020
knox 0.0 4884.4 4884.4 0.0 0.1 0 23722 0 1224
kzdoos 315.0 5214.3 5529.4 0.0 0.0 14615 73685 170 561
lightcon 62.4 53605.6 53668.0 0.0 0.3 78848 48006 3 1369
mallos 10723.4 23885.4 34608.8 0.0 0.1 80258 99027 8 3644
motif 0.0 148446.6 148446.6 0.0 1.1 0 36025 0 3958
ocuucp 0.0 77.3 77.3 0.0 0.0 0 11205 0 30
ramoth 108.4 153752.4 153860.7 0.0 1.0 10635 41482 1 3518
spenarnc 25079.6 392270.9 417350.4 0.3 28.7 23967 3793 4943 1070
terra 268.6 13688.7 13957.3 0.0 0.0 14410 19298 192 383
-------- --------- --------- --------- ------ ------ ----- ----- ---- ----
Total 136923.2 2878026.5 3014949.8 0.6 50.2 68402 15941 5962 7805
Adri Verhoef
Kan iemand bij Xs4all eens kijken of dit weer in gang kan worden geholpen?
('k Weet niet wie ik daartoe moet aanspreken.)
Adri
Eric Veldhuyzen
Dat klopt. Dat hebben we inderdaad inmiddels maar eens uitgezet. We
vonden het in het kader van de privacy toch niet zo nodig meer dat
iedereen precies kan zien hoeveel actieve uucp klanten we nog hebben en
hoeveel data zij verzenden en ontvangen, met daarbij ook nog eens de
snelheid waarmee ze dat doen.
Voor mensen die ECHT HEEL GRAAG willen weten wat d'r eigen statistiekjes
zijn heb ik even het scriptje (Voor perl *3*) wat wij daar voor hadden
staan hier achter aan geplakt. Kan je het voortaan gewoon lekker zelf
draaien.
#!/usr/bin/perl
# uutraf.pl -- UUCP Traffic Analyzer
# SCCS Status : @(#)@ uutraf 1.8
# Author : Johan Vromans
# Created On : ***
# Last Modified By: Johan Vromans
# Last Modified On: Mon Aug 30 15:02:22 1993
# Update Count : 6
# Status : OK
# Requires: : Perl V4 or later
# Reads UUCP syslog, and generates a report from it.
#
# Created by Johan Vromans <j...@mh.nl>
# Loosely based on an idea by Greg Hackney (ha...@texbell.swbt.com)
# Usage: uutraf [-taylor|-hdb|-bnu|-bsd] [syslog]
# Logfile formats:
#
# BSD:
#
# jv mhres (2/23-5:18) (698818735) received 135 b 2 secs
# root mhres (2/23-5:19) (698818742) sent 2365 b 3 secs, Pk: 38, Rxmt: 0
#
# HDB:
#
# uunet!uucp M (12/10-09:04:22) (C,16390,1) [ttyXX] <- 2371 / 5.000 secs, \
# 474 bytes/sec
#
# Taylor:
#
# jv mhres (1992-02-24 20:49:04.06) sent 16234 bytes in 148.780 seconds \
# (109 bytes/sec)
# jv mhres (1992-02-24 21:04:05.76) received 449 bytes in 6.550 seconds \
# (68 bytes/sec)
$= = 200000;
$uucp_type = "gnu";
%hosts = (); # hosts seen
%bytes_in = (); # of bytes received from host
%bytes_out = (); # of bytes sent to host
%secs_in = (); # of seconds connect for recving
%secs_out = (); # of seconds connect for sending
%files_in = (); # of input requests
%files_out = (); # of output requests
# read info, break the lines and tally
if ( $ARGV[0] =~ /^-/ ) {
($uucp_type = substr (shift (@ARGV), 1)) =~ tr/A-Z/a-z/;
}
if ( $uucp_type eq "taylor" || $uucp_type eq "gnu" ) {
@ARGV = ("/var/log/uucp/Stats") unless $#ARGV >= 0;
$pat = "^[^ ]+ ([^ ]+) \\(([-0-9:\\/ .]+)\\) " .
"(sent|received) (\\d+) bytes in (\\d+)\\.(\\d+) seconds";
$uucp_type = 0;
$recv = "received";
}
elsif ( $uucp_type eq "hdb" || $uucp_type eq "bnu" ) {
@ARGV = ("/usr/spool/uucp/.Admin/xferstats") unless $#ARGV >= 0;
$pat = "^([^!]+)![^(]+\\(([-0-9:\\/]+)\\).+([<>])-? " .
"(\\d+) \\/ (\\d+)\\.(\\d+) secs";
$uucp_type = 1;
$recv = "<";
}
elsif ( $uucp_type eq "bsd" || $uucp_type eq "v7" ) {
@ARGV = ("/usr/spool/uucp/SYSLOG") unless $#ARGV >= 0;
$pat = "^[^ ]+ ([^ ]+) \\(([-0-9:\\/]+)\\) \\([^)]+\\) " .
"(sent|received) (\\d+) b (\\d+) secs";
$uucp_type = 2;
$recv = "received";
}
else {
die ("FATAL: Unknown UUCP type: $uucp_type\n");
}
$garbage = 0;
while ( <> ) {
unless ( /$pat/o ) {
print STDERR "$_" if -t;
next if /failed/;
if ( $garbage++ > 10 ) {
die ("FATAL: Too much garbage; wrong UUCP type?\n");
}
next;
}
# gather timestamps
$last_date = $2;
$first_date = $last_date unless defined $first_date;
# initialize new hosts
unless ( defined $hosts{$1} ) {
$hosts{$1} = $files_in{$1} = $files_out{$1} =
$bytes_in{$1} = $bytes_out{$1} =
$secs_in{$1} = $secs_out{$1} = 0;
}
# Taylor and HDB have milliseconds, BSD has not.
$secs = ($uucp_type == 2) ? ($5 + ($5 == 0 ? 0.5 : 0)) : ($5 + $6/1000);
# tally
if ( $3 eq $recv ) { # recv
$bytes_in{$1} += $4;
$files_in{$1}++;
$secs_in{$1} += $secs;
}
else { # xmit
$bytes_out{$1} += $4;
$files_out{$1}++;
$secs_out{$1} += $secs;
}
$garbage = 0;
}
@hosts = keys (%hosts);
die ("No info found, stopped\n") if $#hosts < 0;
################ report section ################
$thishost = &gethostname();
$thishost = (defined $thishost) ? "on node $thishost" : "report";
if ( $uucp_type eq 0 ) { # Taylor UUCP
substr ($first_date, 16) = "";
substr ($last_date, 16) = "";
}
format std_head =
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"UUCP traffic $thishost from $first_date to $last_date"
Remote -----------K-Bytes----------- ----Hours---- --Avg CPS-- --Files--
Host Recv Sent Total Recv Sent Recv Sent Recv Sent
.
format std_out =
@<<<<<<< @>>>>>>>> @>>>>>>>> @>>>>>>>> @>>>>> @>>>>> @>>>> @>>>> @>>> @>>>
$Zhost, $Zi_bytes, $Zo_bytes, $Zt_bytes, $Zi_hrs, $Zo_hrs, $Zi_acps, $Zo_acps, $Zi_count, $Zo_count
.
$^ = "std_head";
$~ = "std_out";
&print_dashes ();
reset "T"; # reset totals
foreach $host (sort @hosts) {
&print_line ($host, $bytes_in{$host}, $bytes_out{$host},
$secs_in{$host}, $secs_out{$host},
$files_in{$host}, $files_out{$host});
}
&print_dashes ();
&print_line ("Total", $Ti_bytes, $To_bytes,
$Ti_secs, $To_secs, $Ti_count, $To_count);
################ that's it ################
sub print_line {
reset "Z"; # reset print fields
local ($Zhost,
$Zi_bytes, $Zo_bytes,
$Zi_secs, $Zo_secs,
$Zi_count, $Zo_count) = @_;
$Ti_bytes += $Zi_bytes;
$To_bytes += $Zo_bytes;
$Zt_bytes = $Zi_bytes + $Zo_bytes;
$Tt_bytes += $Zt_bytes;
$Zi_acps = ($Zi_secs > 0) ? sprintf ("%.0f", $Zi_bytes/$Zi_secs) : "0";
$Zo_acps = ($Zo_secs > 0) ? sprintf ("%.0f", $Zo_bytes/$Zo_secs) : "0";
$Zi_bytes = sprintf ("%.1f", $Zi_bytes/1000);
$Zo_bytes = sprintf ("%.1f", $Zo_bytes/1000);
$Zt_bytes = sprintf ("%.1f", $Zt_bytes/1000);
$Zi_hrs = sprintf ("%.1f", $Zi_secs/3600);
$Zo_hrs = sprintf ("%.1f", $Zo_secs/3600);
$Ti_secs += $Zi_secs;
$To_secs += $Zo_secs;
$Ti_count += $Zi_count;
$To_count += $Zo_count;
write;
}
sub print_dashes {
$Zhost = $Zi_bytes = $Zo_bytes = $Zt_bytes =
$Zi_hrs = $Zo_hrs = $Zi_acps = $Zo_acps = $Zi_count = $Zo_count =
"------------";
write;
# easy, isn't it?
}
################ missing ################
sub gethostname {
$ENV{"SHELL"} = "/bin/sh";
$try = `(hostname) 2>/dev/null`;
chop $try;
return $+ if $try =~ /^[-.\w]+$/;
$try = `uname -n 2>/dev/null`;
chop $try;
return $+ if $try =~ /^[-.\w]+$/;
$try = `uuname -l 2>/dev/null`;
chop $try;
return $+ if $try =~ /^[-.\w]+$/;
return undef;
}
--
#!perl # Life ain't fair, but root passwords help.
# Eric Veldhuyzen http://terra.nu/
$!=$;=$_+(++$_);($:,$~,$/,$^,$*,$@)=$!=~ # er...@terra.nu
/.(.)...(.)(.)....(.)..(.)..(.)/;`$^$~$/$: $^$*$@$~ $_>&$;` #Perl Monger
Adri Verhoef
geschreven door Eric Veldhuyzen <er...@terra.nu>, bevatte:
>In article <Jx62C...@news.a3.xs4all.nl>,
>Adri Verhoef <a...@news.a3.xs4all.nl> wrote:
>>'t Valt me plotseling op dat de UUCP-statistieken niet meer gepost worden.
>>Kan iemand bij Xs4all eens kijken of dit weer in gang kan worden geholpen?
>>('k Weet niet wie ik daartoe moet aanspreken.)
>
>iedereen precies kan zien
Ik vind het in ieder geval heel fijn dat je de moeite hebt genomen om te
antwoorden, Eric. Ik kan me wel iets voorstellen bij de redenatie, maar
het is jammer dat er vooraf niet even iets over werd gemeld in deze nieuwsgroep.
Het gevaar bestaat nu dat Xs4all aan de UUCP-klanten meldt dat de dienst wordt
opgeheven met als reden dat er nog maar 'een handvol klanten' is of dat je de
laatstovergeblevene bent, terwijl er in werkelijkheid veel meer klanten zijn.
Kunnen de UUCP-klanten nog op de een of andere manier zien met hoeveel ze zijn,
of mogen ze dat aan Xs4all vragen en krijgen ze daar dan adequaat antwoord op?
>Voor mensen die ECHT HEEL GRAAG willen weten wat d'r eigen statistiekjes
>zijn heb ik even het scriptje (Voor perl *3*) wat wij daar voor hadden
[]
># Requires: : Perl V4 or later
Bedoel je dat er ten onrechte 'V4' staat vermeld?
Ik heb zelf overigens maandelijks roterende logfiles, dus het draaien van
*wekelijkse* overzichten wordt dan ietsepietsie lastiger. :-)
Adri
--
[UUCP] "(_ UNIX-to-_ UNIX _ co_ py -- a program that copies Unix files from one machine
or system to another.) It was designed for use over 300 baud lines. It proved
to be one of the most important parts of Unix, because of its wide use."
"A Quarter Century Of UNIX", Peter H.Salus (Addison-Wesley, ISBN 0-201-54777-5)
Vincent Schonau
> Het gevaar bestaat nu dat Xs4all aan de UUCP-klanten meldt dat de
> dienst wordt opgeheven met als reden dat er nog maar 'een handvol
> klanten' is of dat je de laatstovergeblevene bent, terwijl er in
> werkelijkheid veel meer klanten zijn.
> Kunnen de UUCP-klanten nog op de een of andere manier zien met hoeveel
> ze zijn, of mogen ze dat aan Xs4all vragen en krijgen ze daar dan
> adequaat antwoord op?
Als je kijkt naar het laatste overzicht dat gepost was, dan kan je zien
dat het al niet eens meer 'een handvol klanten' te noemen is; het is
veel minder. Het zou me niets verbazen als de helft van de bestaande
klanten al niet eens meer weet dat ze dit hebben.
Er worden geen nieuwe klanten meer aangesloten, dus 'veel meer' kan het
niet zijn; het zullen er alleen maar minder worden (en 'veel' zijn het
er al jaren niet meer :)
Een besluit om UUCP helemaal af te schaffen is niet genomen; maar dat
het nu nog bestaat en beheerd wordt is vooral om nostalgische redenen
(zoals dat er nog een paar collega's zijn die het gebruiken), en het
feit dat de inspanning om het produkt netjes op te heffen groter is dan
't nog een jaartje te laten bestaan.
Je mag natuurlijk gewoon aan ons vragen hoeveel UUCP-klanten er zijn.
Gezien de toonstelling van je vragen hierboven neem ik aan dat je dan
alsnog niet tevreden zult zijn met het antwoord; maar veel reden om er
omheen te kletsen hebben we ook niet echt meer.
Adri Verhoef
>In <Jx7wr...@news.a3.xs4all.nl>, Adri Verhoef <a...@news.a3.xs4all.nl> wrote:
>
>> Het gevaar bestaat nu dat Xs4all aan de UUCP-klanten meldt dat de
>> dienst wordt opgeheven met als reden dat er nog maar 'een handvol
>> klanten' is of dat je de laatstovergeblevene bent, terwijl er in
>> werkelijkheid veel meer klanten zijn.
>
>> Kunnen de UUCP-klanten nog op de een of andere manier zien met hoeveel
>> ze zijn, of mogen ze dat aan Xs4all vragen en krijgen ze daar dan
>> adequaat antwoord op?
>
>Als je kijkt naar het laatste overzicht dat gepost was, dan kan je zien
>dat het al niet eens meer 'een handvol klanten' te noemen is; het is
>veel minder.
Ik weet niet hoe men bepaalt wanneer een spreekwoordelijke hand vol is,
Vincent, de meningen kunnen blijkbaar verschillen, want ik zat zelf aan
een stuk of vijf handen te denken ... :-)
>Het zou me niets verbazen als de helft van de bestaande
>klanten al niet eens meer weet dat ze dit hebben.
Een heel verrassende blik, maar je zou zomaar gelijk kunnen hebben.
>Je mag natuurlijk gewoon aan ons vragen hoeveel UUCP-klanten er zijn.
>Gezien de toonstelling van je vragen hierboven neem ik aan dat je dan
>alsnog niet tevreden zult zijn met het antwoord;
Als je mij beter zou kennen dan zou ik het niet zo zwart inzien, het was
slechts een hypothese.
Adri (kent zichzelf heel goed, volgens eigen zeggen, maar twijfelt eraan)
--
Reden om altijd in huis te blijven:
- Iedereen vindt je onweerstaanbaar en je hebt geen stok om ze van je lijf
af te houden.
Arnold
> In <Jx7wr...@news.a3.xs4all.nl>, Adri Verhoef <a...@news.a3.xs4all.nl>
> wrote:
>> Het gevaar bestaat nu dat Xs4all aan de UUCP-klanten meldt dat de
>> dienst wordt opgeheven met als reden dat er nog maar 'een handvol
>> klanten' is of dat je de laatstovergeblevene bent, terwijl er in
>> werkelijkheid veel meer klanten zijn.
Aangezien 'de laatstovergeblevene' en 'een handvol klanten' nou niet zo
heel veel uitmaakt, zal XS4ALL daar echt niet om liegen.
>> Kunnen de UUCP-klanten nog op de een of andere manier zien met hoeveel
>> ze zijn, of mogen ze dat aan Xs4all vragen en krijgen ze daar dan
>> adequaat antwoord op?
Daar vertrouw ik wel op.
> Als je kijkt naar het laatste overzicht dat gepost was, dan kan je zien
> dat het al niet eens meer 'een handvol klanten' te noemen is; het is
> veel minder. Het zou me niets verbazen als de helft van de bestaande
> klanten al niet eens meer weet dat ze dit hebben.
Dat zou me verbazen. In het laatste overzicht had iedereen toch nog wat
traffic, dus is er ten minste verbinding gemaakt. Verder schat ik in dat
diegenen die nu nog UUCP hebben heel goed weten wat er op hun systeempje
draait :-)
> Een besluit om UUCP helemaal af te schaffen is niet genomen; maar dat
> het nu nog bestaat en beheerd wordt is vooral om nostalgische redenen
> (zoals dat er nog een paar collega's zijn die het gebruiken), en het
> feit dat de inspanning om het produkt netjes op te heffen groter is dan
> 't nog een jaartje te laten bestaan.
En nog een jaartje, en nog een, ... Toch? ;-)
On Tue, 04 Mar 2008 10:22:07 +0000, Eric Veldhuyzen wrote:
> Dat klopt. Dat hebben we inderdaad inmiddels maar eens uitgezet. We
> vonden het in het kader van de privacy toch niet zo nodig meer dat
> iedereen precies kan zien hoeveel actieve uucp klanten we nog hebben en
> hoeveel data zij verzenden en ontvangen, met daarbij ook nog eens de
> snelheid waarmee ze dat doen.
Op basis van opmerkingen in die richting van UUCP-gebruikers, of eigen
initiatief? Met deze wekelijkse gegevens had ik in ieder geval geen
problemen. Als het publieke van de newsgroup het probleem is, dan
wellicht ~20 mailtjes naar "root@<uucp-host>.xs4all.nl" ? :-)
> Voor mensen die ECHT HEEL GRAAG willen weten wat d'r eigen statistiekjes
Ja, dat kan aan deze kant ook. Het aardige van jullie stats was juist om
te zien hoeveel gebruik er nog van UUCP wordt gemaakt en wie de trouwe
UUCP'ers nog zijn: wie zitten er nog bij de club? Ook in het kader van de
planning van vervanging is het prettig te weten dat de XS4ALL-medewerkers
nog UUCP gebruiken. Als die stoppen is het een reden om na te denken.
Juist vanwege privacy zou ik het jammer vinden als xs4all met UUCP zou
stoppen: nu kan ik posten en emailen zonder dat m'n extern IP zichtbaar
is. Dat kan natuurlijk ook op andere maniere, maar dat is weer zo
omslachtig.
Groeten,
Arnold
--
"From"-adres is geldig :-)