User data meten en opslaan

[jep]

Eliten,

Ik wil graag voor mn users een systeempje maken dat bijhoud hoeveel data ze gebruiken (naar internet) en dit wil ik graag netjes voor me zien en hun een mailtje sturen.

Eigenlijk heb ik alleen maar iets nodig wat dataverkeer per user meet; de rest script ik er zelf dan wel bij.

Iemand een idee hoe ik dit aan kan gaan pakken?

Bedankt!

p.s 't is linux uiteraard

[Verwijderd]

Voor Cobalt's heb je dit scriptje. Misschien dat het wat aan te passen is?

code:

#!/usr/bin/perl
###############################################################################
# Copyright 2000, Way to the Web Limited
# URL: http://www.waytotheweb.com
# Email: [e-mail]
# Note: Under NO circumstances may the above three lines be removed or altered
###############################################################################
# StatsNow
$version = "v2.0";
###############################################################################
# start variables
#
$combinedaccess = "/var/log/httpd/access";
$xferlog = "/var/log/xferlog";
$maillog = "/var/log/maillog";
$mailprog = "/usr/sbin/sendmail";
$from = $to = "serverbeheer\@domein.com";
$subject  = "Statistics";
#
# end variables
###############################################################################
# Note: Under NO circumstances may the lines below be altered without prior
#    permission from Way to the Web Limited
#
# start
opendir (DIR, "/home/sites");
while ($file = readdir (DIR)) {
    $link = readlink ("/home/sites/$file");
    if ($link ne "") {
        @levels = split (/\//,$link);
        $domains{$levels[-1]} = $file;
    }
}
closedir (DIR);

&process_www;
&process_ftp;
&process_mail;
&process_output;

exit;

# end
###############################################################################
# start process_www
sub process_www {

open (WWW,"<$combinedaccess") or die "Unable to open $combinedaccess";
@www_data = <WWW>;
close (WWW);
chomp @www_data;

foreach $line (@www_data) {
    $line =~ s/  / /g;
    @array = split (/ /,$line);
    $domain = $array[0];
    @array = split (/\//,$array[4]);
    $month = $array[1];
    if ($month ne "") {
        if ($www_first eq "") {
            ($bit,$day) = split (/\\[/,$array[0]);
            ($year,$bit) = split (/\:/,$array[2]);
            $www_first = "$day-$month-$year";
        }
        @array = split (/\"/,$line);
        @array = split (/ /,$array[2]);
        $size = $array[2];
        $all{"$domain:$month"} += $size;
        $www{"$domain:$month"} += $size;
    }
}

}
# end process_www
###############################################################################
# start process_ftp
sub process_ftp {

open (FTP,"<$xferlog") or die "Unable to open $xferlog";
@ftp_data = <FTP>;
close (FTP);
chomp @ftp_data;

foreach $line (@ftp_data) {
    unless (($line =~ / ftp /) and ($line =~ /\/home\/sites\//)) {next;}
    $line =~ s/  / /g;
    @array = split (/ /,$line);
    $month = $array[1];
    if ($month ne "") {
        if ($ftp_first eq "") {
            $ftp_first = "$array[2]-$month-$array[4]";
        }
        $size = $array[7];
        @array = split (/\//,$array[8]);
        $domain = $domains{$array[3]};
        if ($domain ne "") {$ftp{"$domain:$month"} += $size;}
        $all{"$domain:$month"} += $size;
    }
}

}
# end process_ftp
###############################################################################
# start process_mail
sub process_mail {

open (MAIL,"<$maillog") or die "Unable to open $maillog";
@mail_data = <MAIL>;
close (MAIL);
chomp @mail_data;

foreach $line (@mail_data) {
    if ($line =~ /size=(\d+)/) {
        $size = $1;
        $line =~ s/  / /g;
        @array = split (/ /,$line);
        $month = $array[0];
        if ($month ne "") {
            if ($mail_first eq "") {
                $mail_first = "$array[1]-$month-\?\?\?\?";
            }
            $mail{"$month"} += $size;
        }
    }
}

}
# end process_mail
###############################################################################
# start process_output
sub process_output {

$body = "First www date processed = $www_first\n";
$body .= "First ftp date processed = $www_first\n";
$body .= "First mail date processed = $www_first\n";
$body .= "\n\###########################################################################\n\n";

foreach $key (keys %all) {
    ($domain,$month) = split (/\:/,$key);
    $size =  ($all{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $oldsize = "00000000000000000000000000000000000000000000000000".$all{$key};
    $oldsize = substr ($oldsize,(length $oldsize)-50,50);
    push (@allline,"$month$oldsize\#\#[$month] all for http://$domain = $size(mb)");
    $total{$month} += $all{$key};
}

@data = sort @allline;
@data = reverse @data;
foreach $line (@data) {
    ($start,$info) = split(/\#\#/,$line);
    $body .= $info."\n";
}

$body .= "\n\###########################################################################\n\n";

foreach $key (keys %www) {
    ($domain,$month) = split (/\:/,$key);
    $size =  ($www{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $oldsize = "00000000000000000000000000000000000000000000000000".$www{$key};
    $oldsize = substr ($oldsize,(length $oldsize)-50,50);
    push (@wwwline,"$month$oldsize\#\#[$month] www for http://$domain = $size(mb)");
    $total_www{$month} += $www{$key};
}

@data = sort @wwwline;
@data = reverse @data;
foreach $line (@data) {
    ($start,$info) = split(/\#\#/,$line);
    $body .= $info."\n";
}

$body .= "\n\###########################################################################\n\n";

foreach $key (keys %ftp) {
    ($domain,$month) = split (/\:/,$key);
    $size =  ($ftp{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $oldsize = "00000000000000000000000000000000000000000000000000".$ftp{$key};
    $oldsize = substr ($oldsize,(length $oldsize)-50,50);
    push (@ftpline,"$month$oldsize\#\#[$month] ftp for http://$domain = $size(mb)");
    $total_ftp{$month} += $ftp{$key};
}

@data = sort @ftpline;
@data = reverse @data;
foreach $line (@data) {
    ($start,$info) = split(/\#\#/,$line);
    $body .= $info."\n";
}

$body .= "\n\###########################################################################\n\n";

foreach $key (keys %total_www) {
    $size =  ($total_www{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $body .= "[$key] www for all = $size(mb)\n";
}
foreach $key (keys %total_ftp) {
    $size =  ($total_ftp{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $body .= "[$key] ftp for all = $size(mb)\n";
}
foreach $key (keys %mail) {
    $size =  ($mail{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $body .= "[$key] mail for all = $size(mb)\n";
    $total{$month} += $mail{$key};
}

$body .= "\n\###########################################################################\n\n";

foreach $key (keys %total) {
    $size =  ($total{$key} / 1024000);
    ($before,$after) = split (/\./,$size);
    $after .= "00";
    $after = substr($after,0,2);
    $size = "$before.$after";
    $body .= "[$key] Grand Total = $size(mb)\n";
}

$body .= "\n";

open (MAIL, "|$mailprog -t $to") || die ("Can't open $mailprog!");
print MAIL "From: $from\n";
print MAIL "To: $to\n";
print MAIL "Subject: $subject\n";
print MAIL "$body";
close (MAIL);

}
# end process_output
###############################################################################

[jep]

Krijg nou tieten

Jij code snel

[jep]

Hoe ga ik die aanpassen voor allemaal public_html mappies in elke directory? Kan wel een gokje wagen maar ik ben bang dat mijn perl skills dit niet toe laten

[Mark]

Wil je alleen Web- en ftptraffic loggen ?

[jep]

het liefst allebei, maar web is het belangrijkst.

[Mark]

Zoiets heb ik paar dagen geleden nog gemaakt in PHP, is vrij makkelijk.

Stel in apache en proftpd een Customlog in welke remote-ip, path en hoeveelheid data logt.
Deze kun je 1 keer per dag (nacht) inlezzen met een perl of een php script in een database.
Als ze eenmaal in een database zitten kun je er automatisch per user (je hebt het path wat in de browser geopend is en je hebt de usernamen van je ftp-daemon) een totaal uit laten rollen.

[jep]

Heb je een voorbeeld voor me of jou scriptje? Anders moet ik 't wiel opnieuw uitvinden

[Mark]

Hele script niet, maar zal je ver genoeg op weg helpen';) :

Apache conf:
LogFormat "%v##%a##%U##%B##%{%Y%m%d%H%M}t##%T" trafic
CustomLog /opt/logs/trafic.log trafic

Dan een php-script in de zin van:

code:

$log=file('/opt/logs/trafic.log');
while (list ($val,$line) = each ($log)) { 
list ($domein,$a,$ip,$a,$bestand,$a,$filesize,$a, datum,$a,$procestijd)=split('[##]',$line);
$bestand=addslashes($bestand);
}

Na de addslashes doe je nog een insert in de database met de volgende vars:

$domein = domein welke opgervraagd werd
$ip = remote IP
$bestand = geopend bestand + path
$filesize = aantal bytes verstuurd
$datum = datum
$procestijd = tijd welke apache erover gedaan heeft

Ditzelfde kun je ook voor FTP gebruiken, ProFTPD ondersteund bijna dezelfde opmaak van logfiles