[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