[evolvis-commits] r7260: A better printing↵?==?UTF-8?Q?
mirabilos at evolvis.org
mirabilos at evolvis.org
Thu Feb 24 15:37:21 CET 2011
Author: mirabilos
Date: 2011-02-24 15:37:21 +0100 (Thu, 24 Feb 2011)
New Revision: 7260
Modified:
trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/stats_cvs.pl
Log:
A better printing
Modified: trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/stats_cvs.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/stats_cvs.pl 2011-02-24 14:37:19 UTC (rev 7259)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/stats_cvs.pl 2011-02-24 14:37:21 UTC (rev 7260)
@@ -142,11 +142,13 @@
print "$cvsgroup $cvsuser $year $month $day $total=$modified+$added+$others\n";
}
print "-----------------------------------------------------\n";
- $sql = "SELECT cvsgroup, cvsuser, SUM(modified), SUM(added) FROM deb_cvs_group_user group by cvsgroup,cvsuser";
+ print "cvsgroup\tcvsuser\tmodified\tadded\tothers\n";
+ print "-----------------------------------------------------\n";
+ $sql = "SELECT cvsgroup, cvsuser, SUM(modified), SUM(added), SUM(others) FROM deb_cvs_group_user group by cvsgroup,cvsuser";
$res = $dbh->prepare($sql);
$res->execute();
- while ( my ($cvsgroup, $cvsuser, $modified, $added) = $res->fetchrow()) {
- print "$cvsgroup $cvsuser $modified $added\n";
+ while ( my ($cvsgroup, $cvsuser, $modified, $added, $others) = $res->fetchrow()) {
+ print "$cvsgroup\t$cvsuser\t$modified\t$added\n";
}
print "-----------------------------------------------------\n";
}
More information about the evolvis-commits
mailing list