Subversion Repositories wimsdev

#!/usr/bin/perl

use strict; use warnings;

# latency in second (calcul of worktime is min(latency,timescore-timenew)

my $latency='900';

use Time::Local;

my ($OUT, $SHEET);

my $SH='';my $OPTION='';

my $LIMIT='9';

push (@ARGV,split(' ', $ENV{'wims_exec_parm'})) if ($ENV{'wims_exec_parm'});

while ($_ = shift (@ARGV))

{

  last if (!/^--/);

     if (/^--file=(.*)$/) { $OUT   = $1; } # fichier de sortie

     if (/^--sheet=(.*)$/) {$SHEET = $1; } # nombre de feuilles

     if (/^--option=(.*):(.*)$/) {$OPTION = $1; $SH=$2} # option exobyday

     if (/^--limit=(\d+)$/) {$LIMIT=$1} # limite de notes

};

#fichier à lire

#my $FILE = "/" . $_;

my $FILE = $_;

my $SH0=$SH;

$SH =~ s/,/|/g;

my (%lastdate, %score, %duree, $dattime);

my (%exobyday,%scorebyday, %goodbyday,%newbyday)=((),(),());

my (%exobydayex, %scorebydayex, %goodbydayex,%newbydayex)=((),(),(),());

my (%exobydaysh, %scorebydaysh, %goodbydaysh,%newbydaysh)=((),(),(),());

my (%seconds)=();

for my $sh (1..$SHEET) {

   $lastdate{$sh}='';

   $score{$sh} = 0;

}

my ($session,$nbsessions,$nbnew)=(' ',0,0);

  #le fichier est récupéré ordonné par dates croissantes

open(IN, $FILE);

while(<IN>){

 #extraction de l'info de la ligne

 #20070914.23:52:03 6BA720BDC3  1  1 score 10   82.238.218.220

 #next si ligne d'examen

 next if (/^E/);

 @_ = split(/ +/);

 $dattime=$_[0];

 if ($_[4] eq 'score' || $_[4] =~ /new|resume/ || (!$lastdate{$_[2]}) ) {

  if (!($session eq $_[1])){ $nbsessions ++; $session=$_[1]; };

  $dattime=~/([0-9]+)\.([0-9:]+)/;

  my ($date, $time) = ($1,$2);

  $date =~/([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])/;

  $seconds{$date}=timelocal(0,0,0,$3,$2-1,$1);

  if (($_[2]=~ /\b($SH)\b/ || !($SH)) && ($_[4] eq 'score')) {

    $exobyday{$date} ++ ;

    $nbnew --;

    $exobydaysh{$_[2]}->{$date} ++ ;

    if ($_[5] >= $LIMIT){

      $scorebyday{$date} ++ ;

      $goodbyday{$date} .= (($goodbyday{$date})? ',':'') . $exobyday{$date};

      $scorebydaysh{$_[2]}->{$date} ++;

      $goodbydaysh{$_[2]}->{$date} .= (($goodbydaysh{$_[2]}{$date})? ',':'') . $exobydaysh{$_[2]}->{$date};

    }

## n'a de sens que s'il y a une seule sheet

    if ($_[2]=~ /\b$SH0\b/){

      $exobydayex{$_[3]}->{$date} ++;

      if ($_[5] >= $LIMIT){

        $scorebydayex{$_[3]}->{$date} ++;

        $goodbydayex{$_[3]}->{$date} .= (($goodbydayex{$_[3]}{$date})? ',':'') . $exobydayex{$_[3]}->{$date};

      }

    }

  }

  my ($annee, $mois, $jour)=($1,$2,$3);

  $date=converttime($time,$date);

  if ($_[4] =~ /new|resume/) {

    $nbnew ++;

    $lastdate{$_[2]}=$date;

    if (($_[2]=~ /\b($SH)\b/ || !($SH))) { $newbydaysh{$_[2]}->{$date} ++ ; $newbyday{$date} ++}

## n'a de sens que s'il y a une seule sheet

    if ($_[2]=~ /\b$SH0\b/){ $newbydayex{$_[3]}->{$date} ++;}

    if ( !$duree{$_[2]} ) {$duree{$_[2]}= 0;};

  next};

  if(!$lastdate{$_[2]} && $_[4] eq 'new'){#on initialise s'il n'avait jamais fait cette feuille :

# en fait on passe jamais ici car le cmd=new est detecté avant et il y a une sortie donc à supprimer

      $lastdate{$_[2]}=$date;

      $duree{$_[2]}= 0;

      next;

   } else {

#on juge que s'il y a moins de $latency entre deux dates consecutives, le bonhomme a travaille pendant ce temps

        if ($lastdate{$_[2]} && $date-$lastdate{$_[2]}<$latency){

           $duree{$_[2]} += ($date-$lastdate{$_[2]});

        } else

        {

        $duree{$_[2]} += $latency;

        }

          $lastdate{$_[2]}=$date;

#          

  }

  if ($_[4] eq 'score') {;

    $score{$_[2]} ++;

  };

 };

}

my ($text,$score_global,$duree_globale,$nombresessions_globale)= (' ',0,0,0);

for my $sh (1..$SHEET) {

 $text .= $score{$sh} . ',' . converttime2($duree{$sh}) . ',';

 $score_global += $score{$sh}; if ($duree{$sh}) { $duree_globale += $duree{$sh}};

}

#dernière connexion,nb_sessions,nb exos abordés total, nb exos par feuille, temps par feuille,nb exos non aboutis

exit if !($dattime);

print $dattime . ',' . $nbsessions  . ',' . $score_global . ','

   . converttime2($duree_globale) . ',' . $text . $nbnew;

if ($OPTION eq 'exobyday'){

 for my $date (sort keys %exobyday ) {

   if (!$exobyday{$date}) {$exobyday{$date}=0;}

   if (!$scorebyday{$date}) {$scorebyday{$date}=0;}

   if (!$goodbyday{$date}) {$goodbyday{$date}='';}

   if (!$newbyday{$date}) {$newbyday{$date}=0;} else {$newbyday{$date} -=$exobyday{$date}}

 }

 my ($xcoord, $ycoord, $zcoord, $good, $tmp, $day, $init, $t, $wday, $new)=('','','','','','','','','','') ;

 for my $date ( sort keys %exobyday ) {

  if ($xcoord) {$tmp=',' ;} else {

   $init=$seconds{$date} ;

   my @wday = localtime($date); $wday=$wday[6]}

  $xcoord .= $tmp . $date;

  $t = ($seconds{$date}-$init) % 86400; $t=$wday+($seconds{$date}-$init-$t)/ 86400;

  $day .= $tmp . $t;

  $ycoord .= $tmp . $exobyday{$date};

  $zcoord .= $tmp . $scorebyday{$date};

  $good .= $tmp . '[' . $goodbyday{$date} .']';

  $new .= $tmp . $newbyday{$date}

}

###liste de dates, liste du nombre d'exos faits à cette date, liste des nombres de reussite,

###liste des listes de positions des reussites

print "\n[$xcoord],[$day],[$ycoord],[$zcoord],[$good],[$new]";

if (!($SH0=~ /,/)) {

 for my $ex (sort {$a <=> $b} keys %exobydayex){

   my ($xcoord,$ycoord,$zcoord,$good,$tmp,$new)=('','','','','','');

   for my $date ( sort keys %exobyday ) {

      if (!$exobydayex{$ex}->{$date}) { $exobydayex{$ex}->{$date}=0;}

      if (!$scorebydayex{$ex}->{$date}) {$scorebydayex{$ex}->{$date} = 0;}

      if (!$goodbydayex{$ex}->{$date}) { $goodbydayex{$ex}->{$date}='';}

      if (!$newbydayex{$ex}->{$date}) {$newbydayex{$ex}->{$date}=0;} else { $newbydayex{$ex}->{$date} -=$exobydayex{$ex}->{$date} }

      if ($xcoord) {$tmp=',' };

      $xcoord .= $tmp . $date;

      $ycoord .= $tmp . $exobydayex{$ex}->{$date};

      $zcoord .= $tmp . $scorebydayex{$ex}->{$date};

      $good .= $tmp . '[' . $goodbydayex{$ex}->{$date} . ']';

      $new .= $tmp . $newbydayex{$ex}->{$date};

 }

###pour les exercices d'une feuille

###numero exo, liste de dates, liste du nombre d'exos faits à cette date, liste des nombres de reussite,

###liste des listes de positions des reussites

   print "\n$ex,[$xcoord],[$ycoord],[$zcoord],[$good],[$new]";

  }

 }

 else {

  for my $sh (sort {$a <=> $b} keys %exobydaysh){

    my ($xcoord,$ycoord,$zcoord,$good,$tmp,$new)=('','','','','','');

    for my $date ( sort ( keys %exobyday) ) {

      if ($xcoord) {$tmp=',' };

      $xcoord .= $tmp . $date;

      if (!$exobydaysh{$sh}->{$date}) { $exobydaysh{$sh}->{$date}=0;}

      if (!$scorebydaysh{$sh}->{$date}) {$scorebydaysh{$sh}->{$date} = 0;}

      if (!$goodbydaysh{$sh}->{$date}) { $goodbydaysh{$sh}->{$date}='';}

      if (!$newbydaysh{$sh}->{$date}) { $newbydaysh{$sh}->{$date}=0;}

         else { $newbydaysh{$sh}->{$date} -=$exobydaysh{$sh}->{$date} }

      $ycoord .= $tmp . $exobydaysh{$sh}->{$date};

      $zcoord .= $tmp . $scorebydaysh{$sh}->{$date};

      $good .= $tmp . '[' . $goodbydaysh{$sh}->{$date} . ']';

      $new .= $tmp . $newbydaysh{$sh}->{$date};

   }

###pour les feuilles d'une liste de feuilles

###numero feuille, liste de dates, liste du nombre d'exos faits à cette date, liste des nombres de reussite,

###liste des listes de positions des reussites

   print "\n$sh,[$xcoord],[$ycoord],[$zcoord],[$good],[$new]";

  }

 }

}

sub converttime {

    my $heure=shift;

    my $date=shift;

    $heure =~/([0-9]+):([0-9]+):([0-9]+)/;

    $heure= 3600*$1+60*$2+$3;

    $date =~/([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])/;

    my $annee=$1;

    my $mois=$2;

    my $jour=$3;

    return timelocal(0,0,0,$jour,$mois - 1,$annee) + $heure;

}

sub converttime2 {

    my $duree=shift;

    return "0:0:0" if !($duree);

    my $secondes = $duree% 60;

    $duree = ($duree-$secondes)/ 60;

    my $minutes = $duree% 60;

    $duree = ($duree-$minutes)/ 60;

    my $heures = $duree;

    "$heures:$minutes:$secondes";

}