Subversion Repositories wimsdev

Rev

Rev 11275 | Rev 17437 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #!/usr/bin/perl
  2. use strict; use warnings;
  3.  
  4. use Time::Local;
  5. my ($OUT, $SHEET);
  6. my $SH='';my $OPTION='';
  7. my $LIMIT='9';
  8. push (@ARGV,split(' ', $ENV{'wims_exec_parm'})) if ($ENV{'wims_exec_parm'});
  9. while ($_ = shift (@ARGV))
  10. {
  11.   last if (!/^--/);
  12.      if (/^--file=(.*)$/) { $OUT   = $1; } # fichier de sortie
  13.      if (/^--sheet=(.*)$/) {$SHEET = $1; } # nombre de feuilles
  14.      if (/^--option=(.*):(.*)$/) {$OPTION = $1; $SH=$2} # option exobyday
  15.      if (/^--limit=(\d+)$/) {$LIMIT=$1} # limite de notes
  16. };
  17. #fichier à lire
  18. #my $FILE = "/" . $_;
  19. my $FILE = $_;
  20.  
  21. my $SH0=$SH;
  22. $SH =~ s/,/|/g;
  23. my (%lastdate, %score, %duree, $dattime);
  24. my (%exobyday,%scorebyday, %goodbyday,%newbyday)=((),(),());
  25. my (%exobydayex, %scorebydayex, %goodbydayex,%newbydayex)=((),(),(),());
  26. my (%exobydaysh, %scorebydaysh, %goodbydaysh,%newbydaysh)=((),(),(),());
  27. my (%seconds)=();
  28. for my $sh (1..$SHEET) {
  29.    $lastdate{$sh}='';
  30.    $score{$sh} = 0;
  31. }
  32. my ($session,$nbsessions,$nbnew)=(' ',0,0);
  33.   #le fichier est récupéré ordonné par dates croissantes
  34. open(IN, $FILE);
  35. while(<IN>){
  36.  #extraction de l'info de la ligne
  37.  #20070914.23:52:03 6BA720BDC3  1  1 score 10   82.238.218.220
  38.  #next si ligne d'examen
  39.  next if (/^E/);
  40.  @_ = split(/ +/);
  41.  $dattime=$_[0];
  42.  if ($_[4] eq 'score' || $_[4] =~ /new|resume/ || (!$lastdate{$_[2]}) ) {
  43.   if (!($session eq $_[1])){ $nbsessions ++; $session=$_[1]; };
  44.   $dattime=~/([0-9]+)\.([0-9:]+)/;
  45.   my ($date, $time) = ($1,$2);
  46.   $date =~/([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])/;
  47.   if ($_[4] =~ /new|resume/) {
  48.     $nbnew ++;
  49.     if (($_[2]=~ /\b($SH)\b/ || !($SH))) { $newbydaysh{$_[2]}->{$date} ++ ; $newbyday{$date} ++}
  50. ## n'a de sens que s'il y a une seule sheet
  51.     if ($_[2]=~ /\b$SH0\b/){ $newbydayex{$_[3]}->{$date} ++;}
  52.   next};
  53.   $seconds{$date}=timelocal(0,0,0,$3,$2-1,$1);
  54.   if (($_[2]=~ /\b($SH)\b/ || !($SH)) && ($_[4] eq 'score')) {
  55.     $exobyday{$date} ++ ;
  56.     $nbnew --;
  57.     $exobydaysh{$_[2]}->{$date} ++ ;
  58.     if ($_[5] >= $LIMIT){
  59.       $scorebyday{$date} ++ ;
  60.       $goodbyday{$date} .= (($goodbyday{$date})? ',':'') . $exobyday{$date};
  61.       $scorebydaysh{$_[2]}->{$date} ++;
  62.       $goodbydaysh{$_[2]}->{$date} .= (($goodbydaysh{$_[2]}{$date})? ',':'') . $exobydaysh{$_[2]}->{$date};
  63.     }
  64. ## n'a de sens que s'il y a une seule sheet
  65.     if ($_[2]=~ /\b$SH0\b/){
  66.       $exobydayex{$_[3]}->{$date} ++;
  67.       if ($_[5] >= $LIMIT){
  68.         $scorebydayex{$_[3]}->{$date} ++;
  69.         $goodbydayex{$_[3]}->{$date} .= (($goodbydayex{$_[3]}{$date})? ',':'') . $exobydayex{$_[3]}->{$date};
  70.       }
  71.     }
  72.   }
  73.   my ($annee, $mois, $jour)=($1,$2,$3);
  74.   $date=converttime($time,$date);
  75.  
  76.   if(!$lastdate{$_[2]} && $_[4] eq 'new'){#on initialise s'il n'avait jamais fait cette feuille :
  77.       $lastdate{$_[2]}=$date;
  78.       $duree{$_[2]}= 0;
  79.       next;
  80.    } else {
  81. #on juge que s'il y a moins de 15mn entre deux dates consecutives, le bonhomme a travaille pendant ce temps
  82.         if ($lastdate{$_[2]} && $date-$lastdate{$_[2]}<900){
  83.            $duree{$_[2]} += ($date-$lastdate{$_[2]});
  84.         } else { }
  85.           $lastdate{$_[2]}=$date;
  86.   }
  87.   if ($_[4] eq 'score') {;
  88.     $score{$_[2]} ++;
  89.   };
  90.  };
  91. }
  92.  
  93. my ($text,$score_global,$duree_globale,$nombresessions_globale)= (' ',0,0,0);
  94. for my $sh (1..$SHEET) {
  95.  $text .= $score{$sh} . ',' . converttime2($duree{$sh}) . ',';
  96.  $score_global += $score{$sh}; if ($duree{$sh}) { $duree_globale += $duree{$sh}};
  97. }
  98. #dernière connexion,nb_sessions,nb exos abordés total, nb exos par feuille, temps par feuille,nb exos non aboutis
  99. exit if !($dattime);
  100.  
  101. print $dattime . ',' . $nbsessions  . ',' . $score_global . ','
  102.    . converttime2($duree_globale) . ',' . $text . $nbnew;
  103.  
  104. if ($OPTION eq 'exobyday'){
  105.  for my $date (sort keys %exobyday ) {
  106.    if (!$exobyday{$date}) {$exobyday{$date}=0;}
  107.    if (!$scorebyday{$date}) {$scorebyday{$date}=0;}
  108.    if (!$goodbyday{$date}) {$goodbyday{$date}='';}
  109.    if (!$newbyday{$date}) {$newbyday{$date}=0;} else {$newbyday{$date} -=$exobyday{$date}}
  110.  }
  111.  
  112.  my ($xcoord, $ycoord, $zcoord, $good, $tmp, $day, $init, $t, $wday, $new)=('','','','','','','','','','') ;
  113.  for my $date ( sort keys %exobyday ) {
  114.   if ($xcoord) {$tmp=',' ;} else {
  115.    $init=$seconds{$date} ;
  116.    my @wday = localtime($date); $wday=$wday[6]}
  117.   $xcoord .= $tmp . $date;
  118.   $t = ($seconds{$date}-$init) % 86400; $t=$wday+($seconds{$date}-$init-$t)/ 86400;
  119.   $day .= $tmp . $t;
  120.   $ycoord .= $tmp . $exobyday{$date};
  121.   $zcoord .= $tmp . $scorebyday{$date};
  122.   $good .= $tmp . '[' . $goodbyday{$date} .']';
  123.   $new .= $tmp . $newbyday{$date}
  124. }
  125. ###liste de dates, liste du nombre d'exos faits à cette date, liste des nombres de reussite,
  126. ###liste des listes de positions des reussites
  127.  
  128. print "\n[$xcoord],[$day],[$ycoord],[$zcoord],[$good],[$new]";
  129.  
  130. if (!($SH0=~ /,/)) {
  131.  for my $ex (sort {$a <=> $b} keys %exobydayex){
  132.    my ($xcoord,$ycoord,$zcoord,$good,$tmp,$new)=('','','','','','');
  133.    for my $date ( sort keys %exobyday ) {
  134.       if (!$exobydayex{$ex}->{$date}) { $exobydayex{$ex}->{$date}=0;}
  135.       if (!$scorebydayex{$ex}->{$date}) {$scorebydayex{$ex}->{$date} = 0;}
  136.       if (!$goodbydayex{$ex}->{$date}) { $goodbydayex{$ex}->{$date}='';}
  137.       if (!$newbydayex{$ex}->{$date}) {$newbydayex{$ex}->{$date}=0;} else { $newbydayex{$ex}->{$date} -=$exobydayex{$ex}->{$date} }
  138.       if ($xcoord) {$tmp=',' };
  139.       $xcoord .= $tmp . $date;
  140.       $ycoord .= $tmp . $exobydayex{$ex}->{$date};
  141.       $zcoord .= $tmp . $scorebydayex{$ex}->{$date};
  142.       $good .= $tmp . '[' . $goodbydayex{$ex}->{$date} . ']';
  143.       $new .= $tmp . $newbydayex{$ex}->{$date};
  144.  }
  145. ###pour les exercices d'une feuille
  146. ###numero exo, liste de dates, liste du nombre d'exos faits à cette date, liste des nombres de reussite,
  147. ###liste des listes de positions des reussites
  148.    print "\n$ex,[$xcoord],[$ycoord],[$zcoord],[$good],[$new]";
  149.   }
  150.  }
  151.  else {
  152.   for my $sh (sort {$a <=> $b} keys %exobydaysh){
  153.     my ($xcoord,$ycoord,$zcoord,$good,$tmp,$new)=('','','','','','');
  154.     for my $date ( sort ( keys %exobyday) ) {
  155.       if ($xcoord) {$tmp=',' };
  156.       $xcoord .= $tmp . $date;
  157.       if (!$exobydaysh{$sh}->{$date}) { $exobydaysh{$sh}->{$date}=0;}
  158.       if (!$scorebydaysh{$sh}->{$date}) {$scorebydaysh{$sh}->{$date} = 0;}
  159.       if (!$goodbydaysh{$sh}->{$date}) { $goodbydaysh{$sh}->{$date}='';}
  160.       if (!$newbydaysh{$sh}->{$date}) { $newbydaysh{$sh}->{$date}=0;}
  161.          else { $newbydaysh{$sh}->{$date} -=$exobydaysh{$sh}->{$date} }
  162.       $ycoord .= $tmp . $exobydaysh{$sh}->{$date};
  163.       $zcoord .= $tmp . $scorebydaysh{$sh}->{$date};
  164.       $good .= $tmp . '[' . $goodbydaysh{$sh}->{$date} . ']';
  165.       $new .= $tmp . $newbydaysh{$sh}->{$date};
  166.    }
  167. ###pour les feuilles d'une liste de feuilles
  168. ###numero feuille, liste de dates, liste du nombre d'exos faits à cette date, liste des nombres de reussite,
  169. ###liste des listes de positions des reussites
  170.    print "\n$sh,[$xcoord],[$ycoord],[$zcoord],[$good],[$new]";
  171.   }
  172.  }
  173. }
  174. sub converttime {
  175.     my $heure=shift;
  176.     my $date=shift;
  177.     $heure =~/([0-9]+):([0-9]+):([0-9]+)/;
  178.     $heure= 3600*$1+60*$2+$3;
  179.     $date =~/([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])/;
  180.     my $annee=$1;
  181.     my $mois=$2;
  182.     my $jour=$3;
  183.     return timelocal(0,0,0,$jour,$mois - 1,$annee) + $heure;
  184. }
  185.  
  186. sub converttime2 {
  187.     my $duree=shift;
  188.     return "0:0:0" if !($duree);
  189.     my $secondes = $duree% 60;
  190.     $duree = ($duree-$secondes)/ 60;
  191.     my $minutes = $duree% 60;
  192.     $duree = ($duree-$minutes)/ 60;
  193.     my $heures = $duree;
  194.     "$heures:$minutes:$secondes";
  195. }
  196.