Rev 17437 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 17437 | Rev 17741 | ||
|---|---|---|---|
| Line 44... | Line 44... | ||
| 44 | if ($_[4] eq 'score' || $_[4] =~ /new|resume/ || (!$lastdate{$_[2]}) ) { |
44 | if ($_[4] eq 'score' || $_[4] =~ /new|resume/ || (!$lastdate{$_[2]}) ) { |
| 45 | if (!($session eq $_[1])){ $nbsessions ++; $session=$_[1]; }; |
45 | if (!($session eq $_[1])){ $nbsessions ++; $session=$_[1]; }; |
| 46 | $dattime=~/([0-9]+)\.([0-9:]+)/; |
46 | $dattime=~/([0-9]+)\.([0-9:]+)/; |
| 47 | my ($date, $time) = ($1,$2); |
47 | my ($date, $time) = ($1,$2); |
| 48 | $date =~/([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])/; |
48 | $date =~/([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])/; |
| - | 49 | if ($_[4] =~ /new|resume/) { |
|
| - | 50 | $nbnew ++; |
|
| - | 51 | if (($_[2]=~ /\b($SH)\b/ || !($SH))) { $newbydaysh{$_[2]}->{$date} ++ ; $newbyday{$date} ++} |
|
| - | 52 | ## n'a de sens que s'il y a une seule sheet |
|
| - | 53 | if ($_[2]=~ /\b$SH0\b/){ $newbydayex{$_[3]}->{$date} ++; |
|
| - | 54 | if ( !$duree{$_[2]} ) {$duree{$_[2]}= 0;};} |
|
| - | 55 | next}; |
|
| 49 | $seconds{$date}=timelocal(0,0,0,$3,$2-1,$1); |
56 | $seconds{$date}=timelocal(0,0,0,$3,$2-1,$1); |
| 50 | if (($_[2]=~ /\b($SH)\b/ || !($SH)) && ($_[4] eq 'score')) { |
57 | if (($_[2]=~ /\b($SH)\b/ || !($SH)) && ($_[4] eq 'score')) { |
| 51 | $exobyday{$date} ++ ; |
58 | $exobyday{$date} ++ ; |
| 52 | $nbnew --; |
59 | $nbnew --; |
| 53 | $exobydaysh{$_[2]}->{$date} ++ ; |
60 | $exobydaysh{$_[2]}->{$date} ++ ; |
| 54 | if ($_[5] >= $LIMIT){ |
61 | if ($_[5] >= $LIMIT){ |
| 55 | $scorebyday{$date} ++ ; |
62 | $scorebyday{$date} ++ ; |
| 56 | $goodbyday{$date} .= (($goodbyday{$date})? ',':'') . $exobyday{$date}; |
63 | $goodbyday{$date} .= (($goodbyday{$date})? ',':'') . $exobyday{$date}; |
| 57 | $scorebydaysh{$_[2]}->{$date} ++; |
64 | $scorebydaysh{$_[2]}->{$date} ++; |
| 58 | $goodbydaysh{$_[2]}->{$date} .= (($goodbydaysh{$_[2]}{$date})? ',':'') . $exobydaysh{$_[2]}->{$date}; |
65 | $goodbydaysh{$_[2]}->{$date} .= (($goodbydaysh{$_[2]}{$date})? ',':'') . $exobydaysh{$_[2]}->{$date}; |
| 59 | } |
66 | } |
| 60 | ## n'a de sens que s'il y a une seule sheet |
67 | ## n'a de sens que s'il y a une seule sheet |
| 61 | if ($_[2]=~ /\b$SH0\b/){ |
68 | if ($_[2]=~ /\b$SH0\b/){ |
| 62 | $exobydayex{$_[3]}->{$date} ++; |
69 | $exobydayex{$_[3]}->{$date} ++; |
| 63 | if ($_[5] >= $LIMIT){ |
70 | if ($_[5] >= $LIMIT){ |
| 64 | $scorebydayex{$_[3]}->{$date} ++; |
71 | $scorebydayex{$_[3]}->{$date} ++; |
| Line 66... | Line 73... | ||
| 66 | } |
73 | } |
| 67 | } |
74 | } |
| 68 | } |
75 | } |
| 69 | my ($annee, $mois, $jour)=($1,$2,$3); |
76 | my ($annee, $mois, $jour)=($1,$2,$3); |
| 70 | $date=converttime($time,$date); |
77 | $date=converttime($time,$date); |
| 71 | if ($_[4] =~ /new|resume/) { |
- | |
| 72 | $nbnew ++; |
- | |
| 73 | $lastdate{$_[2]}=$date; |
- | |
| 74 | if (($_[2]=~ /\b($SH)\b/ || !($SH))) { $newbydaysh{$_[2]}->{$date} ++ ; $newbyday{$date} ++} |
- | |
| 75 | ## n'a de sens que s'il y a une seule sheet |
- | |
| 76 | if ($_[2]=~ /\b$SH0\b/){ $newbydayex{$_[3]}->{$date} ++;} |
- | |
| 77 | if ( !$duree{$_[2]} ) {$duree{$_[2]}= 0;}; |
- | |
| 78 | next}; |
- | |
| 79 | 78 | ||
| 80 | if(!$lastdate{$_[2]} && $_[4] eq 'new'){#on initialise s'il n'avait jamais fait cette feuille : |
79 | if(!$lastdate{$_[2]} && $_[4] eq 'new'){#on initialise s'il n'avait jamais fait cette feuille : |
| 81 | # en fait on passe jamais ici car le cmd=new est detecté avant et il y a une sortie donc à supprimer |
80 | # ??? en fait on passe jamais ici car le cmd=new est detecté avant et il y a une sortie donc à supprimer |
| 82 | $lastdate{$_[2]}=$date; |
81 | $lastdate{$_[2]}=$date; |
| 83 | $duree{$_[2]}= 0; |
82 | $duree{$_[2]}= 0; |
| 84 | next; |
83 | next; |
| 85 | } else { |
84 | } else { |
| 86 | #on juge que s'il y a moins de $latency entre deux dates consecutives, le bonhomme a travaille pendant ce temps |
85 | #on juge que s'il y a moins de $latency entre deux dates consecutives, le bonhomme a travaille pendant ce temps |
| 87 | if ($lastdate{$_[2]} && $date-$lastdate{$_[2]}<$latency){ |
86 | if ($lastdate{$_[2]} && $date-$lastdate{$_[2]}<$latency){ |
| 88 | $duree{$_[2]} += ($date-$lastdate{$_[2]}); |
87 | $duree{$_[2]} += ($date-$lastdate{$_[2]}); |
| 89 | } else |
88 | } else |
| 90 | { |
89 | { |
| 91 | $duree{$_[2]} += $latency; |
90 | $duree{$_[2]} += $latency; |
| 92 | } |
91 | } |
| 93 |
|
92 | $lastdate{$_[2]}=$date; |
| 94 | # |
93 | # |
| 95 | } |
94 | } |
| 96 | if ($_[4] eq 'score') {; |
95 | if ($_[4] eq 'score') {; |
| 97 | $score{$_[2]} ++; |
96 | $score{$_[2]} ++; |
| 98 | }; |
97 | }; |
| 99 | }; |
98 | }; |
| 100 | } |
99 | } |
| 101 | 100 | ||
| 102 | my ($text,$score_global,$duree_globale,$nombresessions_globale)= (' ',0,0,0); |
101 | my ($text,$score_global,$duree_globale,$nombresessions_globale)= (' ',0,0,0); |
| 103 | for my $sh (1..$SHEET) { |
102 | for my $sh (1..$SHEET) { |
| 104 | $text .= $score{$sh} . ',' . converttime2($duree{$sh}) . ','; |
103 | $text .= $score{$sh} . ',' . converttime2($duree{$sh}) . ','; |