een een koetjes check progje

[Verwijderd]

Ik vroeg me af..Ik heb hier nu aardig wat koetjes draaien op een LAN met een perproxy. Nou zou ik graag willen weten of al de koetjes wel goet gemelkt worden.. De perproxy maakt allemaal log bestanden aan. Zijn er ook analyzer daar voor? Ik weet dat je die web analyzer hebt die alle subteams gebruiken...Maar is er ook een die onder nt werkt? Gewoon een of ander VB proggie of zo..

[hessel|IA]

Kijk eens bij dnetc er is daar vast en zeker wel wat te vinden.

[Scraper]

ik geloof dat grazestats de individuele logfiles van de clients kan analyseren.

[Oezie Woezie]

je kan ook Ppstats gebruiken met perl, dan komen de stats er net zoals die van energy, wildhagen en alle andere proxy beheerders uit tezien.

en met die stats kan je de meeste informatie opvragen.

[Verwijderd]

Maar is grazestats niet voor CLIENT log files? Ik wou er eigenlijks voor perproxy.... en niet die perl versie..want die moet ik toch op een iis servertje draaien toch?

Vrienden van het goede leven..help

[Oezie Woezie]

http://www.distributed.net/download/addon.html

kijk hier is, en dan onderaan

[wiho]

Als je dit perl-scriptje een perproxy logfile (pproxyrc5) voert, spuugt 'ie een lijstje uit met de verschillende client-IP's en het tijdstip van het laast geflushte blokje, gesorteerd op tijdstip. Zo kun je snel zien welke clients al een tijd niets van zich hebben laten horen.

Gewoon aanroepen met "report.pl pproxyrc5".

code:

#!/usr/bin/perl
#
# report.pl
#

my (%lastseen);
my ($date, $ip, $email, $block, $nblocks, $os, $cpu, $build);


while (<>)
{  ($date, $ip, $email, $block, $nblocks, $os, $cpu, $build) = split (/,/, $_);
   $lastseen{$ip} = $date;
}

print "IP address      Time of last block\n";
print "------------------------------------------\n";
foreach $ip (sort {compdates($lastseen{$a}, $lastseen{$b})} keys %lastseen)
{  printf("%-15s %s\n", $ip, $lastseen{$ip});
}

exit;

sub compdates
{
   my $date1 = shift;
   my $date2 = shift;

   my ($time1, $time2);
   my ($year1, $month1, $day1);
   my ($year2, $month2, $day2);

   ($date1, $time1) = split(/ /, $date1);
   ($date2, $time2) = split(/ /, $date2);

   ($month1, $day1, $year1) = split(/\//, $date1);
   ($month2, $day2, $year2) = split(/\//, $date2);

   return ("$year1 $month1 $day1 $time1" cmp "$year2 $month2 $day2 $time2");
}

[Verwijderd]

mijn dank is groot Klein scripte..maar hij doet precies wat ik wil en ik snap de code ook nog..hehe

[Verwijderd]

Maar ja...nu wil ik natuurlijk ook meer Hoe zou je nu kunnen zien hoeveel blokjes iedere client die dag heeft gedaan..(dan kan ik zien of hij meerder keren heeft geflushed...

[wiho]

Voilà

code:

#!/usr/bin/perl
#
# report.pl
#

my (%lastseen, %blockstoday);
my ($date, $ip, $email, $block, $nblocks, $os, $cpu, $build);
my ($today);

$today = sprintf("%02d/%02d/%02d", (gmtime)[4]+1, (gmtime)[3], (gmtime)[5] % 100);

while (<>)
{  ($date, $ip, $email, $block, $nblocks, $os, $cpu, $build) = split (/,/, $_);
   $lastseen{$ip} = $date;
   if ((split(/ /, $date))[0] eq $today)
   {  $blockstoday{$ip} += $nblocks;
   }
}

print "IP address      Time of last block  Blocks today\n";
print "------------------------------------------------\n";
foreach $ip (sort {compdates($lastseen{$a}, $lastseen{$b})} keys %lastseen)
{  printf("%-15s %s %14d\n", $ip, $lastseen{$ip}, $blockstoday{$ip});
}

exit;

sub compdates
{
   my $date1 = shift;
   my $date2 = shift;

   my ($year1, $month1, $day1, $time1);
   my ($year2, $month2, $day2, $time2);

   ($month1, $day1, $year1, $time1) = split(/[\/ ]/, $date1, 4);
   ($month2, $day2, $year2, $time2) = split(/[\/ ]/, $date2, 4);

   return ("$year1 $month1 $day1 $time1" cmp "$year2 $month2 $day2 $time2");
}

[Verwijderd]

Cursus perl in 2 dagen...Nu alleen maar voor de speciaal aanbieding van 1 post op het tweakers forum Man ik leer hier nog eens perl...hehe

btw..bedankt wiho!

[DJ]

ooit van VNC gehoord

Virtual Network Computing

Kan je als Service installen op een pc (veeschillende os'en supported), en dan via een webbrowser op poort 5800 van die pc gewoon de desktop overnemen. Kun je zien wat ie doet. Gebruiker van de pc (als hij of zij er niet achter zit op dat moment) ziet er nix van

DJ

[wiho]

Heel leuk hoor DJ, maar wat heeft VNC met deze thread te maken?