Re: [inet-admins] mail accounting

["Ilya Shulman" <ish@east.ru>]

и это они называют языком программирования ... фанаты ;)

------
Ilya Shulman   ish@east.ru        +7-095-956-4951 ISH-RIPN
East Connection ISP, Moscow, Russia. http://www.east.ru
----- Original Message -----
From: Alex Tutubalin <lexa@miracle.geol.msu.ru>
To: <inet-admins@info.east.ru>
Sent: 11 февраля 1999 г. 15:13
Subject: Re: [inet-admins] mail accounting


>while (<>) {
>  ($date,$date,$date,$host,$pid,$j,$data)=split(/\s+/,$_,7);
>  next unless ($pid=~/sendmail\[\d+\]\:/ && $j=~/[A-Z]+\d+\:/);
>  ($m->{$j}->{F},$m->{$j}->{S})=($1,$2) if
($data=~/from=(\S+),.*size=(\d+),/);
>  push @{$m->{$j}->{T}},grep {length} split(/[,\\]+/,$1) if
($data=~/to=(\S+),\s.*stat=Sent/);
>}
>foreach $j(keys %$m) {
> print "From: $m->{$j}->{F} To: $_ Size: $m->{$j}->{S}\n"
for(@{$m->{$j}->{T}});
>}
>


=============================================================================
"inet-admins" Internet access mailing list. Maintained by East Connection ISP.
Mail "unsubscribe inet-admins" to Majordomo@info.east.ru if you want to quit.
Archive is accessible on http://info.east.ru/rus/inetadm.html