[med-svn] r2402 - trunk/community/talks/200808_debconf8

[tille at alioth.debian.org]

Author: tille
Date: 2008-08-10 01:25:03 +0000 (Sun, 10 Aug 2008)
New Revision: 2402

Modified:
   trunk/community/talks/200808_debconf8/author_stats
   trunk/community/talks/200808_debconf8/debian-med.tex
   trunk/community/talks/200808_debconf8/get-archive-pages
Log:
Make graphing script more general - there seems to be much interest ...


Modified: trunk/community/talks/200808_debconf8/author_stats
===================================================================
--- trunk/community/talks/200808_debconf8/author_stats	2008-08-09 01:36:13 UTC (rev 2401)
+++ trunk/community/talks/200808_debconf8/author_stats	2008-08-10 01:25:03 UTC (rev 2402)
@@ -7,10 +7,11 @@
     exit 1
 fi
 
+NUM=10
 
 NAME=authorstat_"$1"
 DATFILE="${NAME}_year.dat"
-psql -t cddlistarchives -c "SELECT BuildQueryAuthorsYear('$1', 10) ;" | \
+psql -t cddlistarchives -c "SELECT BuildQueryAuthorsYear('$1', $NUM) ;" | \
    psql cddlistarchives \
    >"$DATFILE"
       
@@ -21,6 +22,8 @@
        -e 's/á/á/g' -e 's/ñ/ñ/' \
        "$DATFILE"
 
+ENDCOL=$((NUM+1))
+
 R --no-save <<EOT
 library(plotrix)
 dmstats <- read.table(file='$DATFILE', sep = '\t', fill=TRUE, header=TRUE )
@@ -28,14 +31,17 @@
 textcolor="yellow"
 pdf("${NAME}.pdf", fg=textcolor)
 par(col.axis=textcolor,col.main=textcolor)
-dmstats.mat <- as.matrix(dmstats)[,2:9]
+dmstats.mat <- as.matrix(dmstats)[,2:$ENDCOL]
 rownames(dmstats.mat) <- dmstats[['year']]
 dmstats.mat <- t(dmstats.mat)
 
-# barplot(dmstats.mat,beside=TRUE,col=rainbow(3),legend.text=TRUE)
-barplot(dmstats.mat,beside=TRUE,col=rainbow(8))
-# plot(dmstats.mat,col=rainbow(8))
-legend(x="topleft", colnames(dmstats[,2:9]),fill=rainbow(8), inset=0.05,
+mycolors=c("red", "blue", "darkorange", "darkgreen", "darkorchid", 
+           "brown", "cornflowerblue", "brown2", "chartreuse3", "aquamarine4")
+# plotcolors=rainbow($NUM)
+plotcolors=mycolors[1:$NUM]
+
+barplot(dmstats.mat,beside=TRUE,col=plotcolors)
+legend(x="topleft", colnames(dmstats[,2:$ENDCOL]),fill=plotcolors, inset=0.05,
        text.col=textcolor
       )
 

Modified: trunk/community/talks/200808_debconf8/debian-med.tex
===================================================================
--- trunk/community/talks/200808_debconf8/debian-med.tex	2008-08-09 01:36:13 UTC (rev 2401)
+++ trunk/community/talks/200808_debconf8/debian-med.tex	2008-08-10 01:25:03 UTC (rev 2402)
@@ -40,7 +40,7 @@
 \section{History}
 
 \begin{frame}
-  \frametitle{Libre Software Meeting - Bordeaux 2001}
+  \frametitle{Libre Software Meeting (DebConf 1) - Bordeaux 2001}
 
   
       \begin{center}

Modified: trunk/community/talks/200808_debconf8/get-archive-pages
===================================================================
--- trunk/community/talks/200808_debconf8/get-archive-pages	2008-08-09 01:36:13 UTC (rev 2401)
+++ trunk/community/talks/200808_debconf8/get-archive-pages	2008-08-10 01:25:03 UTC (rev 2402)
@@ -10,6 +10,25 @@
 my @PROJECTS = ('med', 'edu', 'jr', 'accessibility', 'desktop', 'enterprise', 'lex',
                 'nonprofit', 'science', 'custom',
                 'i18n', 'devel', 'project') ; # ... just for the sake of interest
+# Well, there is also interest in alioth lists ...
+my @ALIOTHPRJ= ('debichem-devel', 'pkg-grass-general') ;
+
+## http://lists.alioth.debian.org/pipermail/debichem-devel/2008-August/thread.html
+## http://lists.alioth.debian.org/pipermail/pkg-grass-general/2008-July/thread.html
+
+my %monthdict= ('01' => 'January',
+                '02' => 'February',
+                '03' => 'March',
+                '04' => 'April',
+		'05' => 'May',
+		'06' => 'June',
+		'07' => 'July',
+		'08' => 'August',
+		'09' => 'September',
+		'10' => 'October',
+		'11' => 'November',
+		'12' => 'December');
+
 my @MONTHES  = ('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12');
 my @ROBOTS   = ('Debian Installer', 'bugzilla-skolelinux', 'Archive Administrator', 'hostmaster',
                 'Debian-med-request', 'Debian testing watch', 'Debian Bug Tracking System',
@@ -25,8 +44,8 @@
 # The prefered method is to use only the database
 my $storefiles = 0;
 
-# Debian-Jr starts in 2000
-my $YEARSTART = 2000;
+# Debian-Devel starts in 1995
+my $YEARSTART = 1995;
 
 my ($sec,$min,$hour,$day,$MONTHEND,$YEAREND,$wday,$yday,$isdst) = localtime(time);
 $MONTHEND++;
@@ -193,3 +212,8 @@
 # Database has shown that Ralf Gsellenstetter is posting with several names
 # in Debian Edu.  This script cleans up this
 system("./0fix_ralf_edu");
+
+# Just do the graphing of all lists we got
+foreach $project (@PROJECTS) {
+    system("./author_stats $project") ;
+}