ReportAccessLog

Version actuelle en date du 29 novembre 2012 à 08:41

ReportAccessLogs.pl

Script perl pour exécuter AccessLogParser-Virtuoso sur les logs de la veille et écrire le résultat sur le wiki grace à un pywikipediabot :

#!/usr/bin/perl

require 'AccessLogParser-Virtuoso.pl';

my $logFolder = "/user/cojanjul/home/temp/";
my $logFileRoot= "http";

my $pyBotPath = "/user/cojanjul/home/Applis/pywikipedia/";

my %NomMois = (
 1 => 'Janvier',
 2 => 'Février',
 3 => 'Mars',
 4 => 'Avril',
 5 => 'Mai',
 6 => 'Juin',
 7 => 'Juillet',
 8 => 'Août',
 9 => 'Septembre',
 10 => 'Octobre',
 11 => 'Novembre',
 12 => 'Décembre'
);

my $yesterday = time - 24 * 60 * 60; 

#@timeData = localtime($yesterday);
#print join(' ', @timeData); 

my ($dayOfMonth, $monthOffset, $yearOffset) = (localtime($yesterday))[3,4,5];
my $month = 1+$monthOffset;
my $year = 1900 + $yearOffset;

$date_log_format = getDateLogFormat($dayOfMonth, $month, $year);
print "date: $date_log_format\n";

$fileName= "$logFolder$logFileRoot$dayOfMonth$month$year.log";
my %results = parseLogFile($fileName, $dayOfMonth, $month, $year);

my $wikiText= 
	"{{Infobox LogServeur\\n" .
	"| date = $dayOfMonth/$month/$year\\n" .
	"| NbRequetes = $results{'nbQueries'}\n" .
	"| NbDerefs = $results{'nbDerefs'}\\n" .
	"| NbAccesUnique = $results{'nbUniqueAccess'}\\n" .
	"}}\\n\\n" .
	"[[Catégorie:LogsAccès]]";

my $command = "python " . $pyBotPath . "create_page.py" .
	" -page_LogsAccès_$dayOfMonth$NomMois{int($month)}$year" .
	" -text_\"$wikiText\"" .
	" -summary_bot:Logs -always" ;

#print "$command";
system($command);

• Dernière modification de cette page le 29 novembre 2012 à 08:41.
  
• Cette page a été consultée 1 474 fois.