[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kckde
From:       Peter Rockai <mornfall () logisys ! dyndns ! org>
Date:       2003-11-16 12:36:19
[Download RAW message or body]

CVS commit by mornfall: 

- substitute < and > to &lt; and &gt; respectively
- exclude bugzilla mails from statistics (noise)


  M +22 -16    mkstats-knode   1.2


--- kckde/mkstats-knode  #1.1:1.2
@@ -22,21 +22,25 @@
         $time =~ s/[0-9]+ [0-9]+ ([0-9]+) .*/$1/;
         my $day = (strftime "\%Y\%m\%d", gmtime $time);
+        my $subj = $l [$idx];
+        $subj =~ s/[^\t]*\t([^\t]+).*/$1/;
+        if ($subj !~ /\[Bug [0-9]+\]/) {
         #print "$day\n";
-        if ($day >= $laststday and $day < $stday) {
-                my $author = $l [$idx];
-                $author =~ s/.*\t//;
-                $lautp{$author} ++;
-        }
-        if ($day >= $stday and $day < $endday) {
-                my $author = $l [$idx];
-                $author =~ s/.*\t//;
-                my $lines = $l [$idx + 2];
-                $lines =~ s/[0-9]+ ([0-9]+) .*/$1/;
-                $autl{$author} += $lines;
-                $autp{$author} ++;
-                #print "$author: $lines\n";
-                $tl += $lines;
-                $p ++;
-                #print (strftime "\%d.\%m.\%Y \%H:\%M:\%S ($time)\n", gmtime $time);
+                if ($day >= $laststday and $day < $stday) {
+                        my $author = $l [$idx];
+                        $author =~ s/.*\t//;
+                        $lautp{$author} ++;
+                }
+                if ($day >= $stday and $day < $endday) {
+                        my $author = $l [$idx];
+                        $author =~ s/.*\t//;
+                        my $lines = $l [$idx + 2];
+                        $lines =~ s/[0-9]+ ([0-9]+) .*/$1/;
+                        $autl{$author} += $lines;
+                        $autp{$author} ++;
+                        #print "$author: $lines\n";
+                        $tl += $lines;
+                        $p ++;
+                        #print (strftime "\%d.\%m.\%Y \%H:\%M:\%S ($time)\n", gmtime $time);
+                }
         }
         $i ++;
@@ -55,4 +59,6 @@
         $a =~ s/&/&amp;/g;
         $a =~ s/"/&quot;/g;
+        $a =~ s/</&lt;/g;
+        $a =~ s/>/&gt;/g;
         print "<person posts=\"$autp{$_}\" size=\"$s\" who=\"$a\" />\n";
         #lastweek=\"$lautp{$_}\"/>\n";


[prev in list] [next in list] [prev in thread] [next in thread]