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

[tille at alioth.debian.org]

Author: tille
Date: 2008-07-28 13:56:51 +0000 (Mon, 28 Jul 2008)
New Revision: 2356

Added:
   trunk/community/talks/200808_debconf8/author_stats_cdd
   trunk/community/talks/200808_debconf8/author_stats_edu
Modified:
   trunk/community/talks/200808_debconf8/author_stats_med
   trunk/community/talks/200808_debconf8/get-archive-pages
Log:
Stats for authors in debian-edu and debian-custom list


Added: trunk/community/talks/200808_debconf8/author_stats_cdd
===================================================================
--- trunk/community/talks/200808_debconf8/author_stats_cdd	                        (rev 0)
+++ trunk/community/talks/200808_debconf8/author_stats_cdd	2008-07-28 13:56:51 UTC (rev 2356)
@@ -0,0 +1,33 @@
+#!/bin/sh
+# This script draws a plot to compare mailing list activities on
+# CDDs and related projects.
+
+NAME=authorstat_cdd
+DATFILE="${NAME}_year.dat"
+psql -t cddlistarchives -c "SELECT BuildQueryAuthorsYear('custom', 10) ;" | \
+   psql cddlistarchives \
+   >"$DATFILE"
+      
+sed -i -e '/^[-+]\+$/d' -e '/^([0-9]\+ [A-Za-z]\+)$/d' -e 's/[[:space:]]*|[[:space:]]*/\t/g' "$DATFILE"
+      
+R --no-save <<EOT
+library(plotrix)
+dmstats <- read.table(file='$DATFILE', sep = '\t', fill=TRUE, header=TRUE )
+# png("dmstats.png", width = 800, height = 600)
+textcolor="yellow"
+pdf("${NAME}.pdf", fg=textcolor)
+par(col.axis=textcolor,col.main=textcolor)
+dmstats.mat <- as.matrix(dmstats)[,2:9]
+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,
+       text.col=textcolor
+      )
+
+EOT
+
+rm $DATFILE


Property changes on: trunk/community/talks/200808_debconf8/author_stats_cdd
___________________________________________________________________
Name: svn:executable
   + *

Added: trunk/community/talks/200808_debconf8/author_stats_edu
===================================================================
--- trunk/community/talks/200808_debconf8/author_stats_edu	                        (rev 0)
+++ trunk/community/talks/200808_debconf8/author_stats_edu	2008-07-28 13:56:51 UTC (rev 2356)
@@ -0,0 +1,33 @@
+#!/bin/sh
+# This script draws a plot to compare mailing list activities on
+# CDDs and related projects.
+
+NAME=authorstat_edu
+DATFILE="${NAME}_year.dat"
+psql -t cddlistarchives -c "SELECT BuildQueryAuthorsYear('edu', 10) ;" | \
+   psql cddlistarchives \
+   >"$DATFILE"
+      
+sed -i -e '/^[-+]\+$/d' -e '/^([0-9]\+ [A-Za-z]\+)$/d' -e 's/[[:space:]]*|[[:space:]]*/\t/g' "$DATFILE"
+      
+R --no-save <<EOT
+library(plotrix)
+dmstats <- read.table(file='$DATFILE', sep = '\t', fill=TRUE, header=TRUE )
+# png("dmstats.png", width = 800, height = 600)
+textcolor="yellow"
+pdf("${NAME}.pdf", fg=textcolor)
+par(col.axis=textcolor,col.main=textcolor)
+dmstats.mat <- as.matrix(dmstats)[,2:9]
+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,
+       text.col=textcolor
+      )
+
+EOT
+
+rm $DATFILE


Property changes on: trunk/community/talks/200808_debconf8/author_stats_edu
___________________________________________________________________
Name: svn:executable
   + *

Modified: trunk/community/talks/200808_debconf8/author_stats_med
===================================================================
--- trunk/community/talks/200808_debconf8/author_stats_med	2008-07-28 13:46:59 UTC (rev 2355)
+++ trunk/community/talks/200808_debconf8/author_stats_med	2008-07-28 13:56:51 UTC (rev 2356)
@@ -30,4 +30,4 @@
 
 EOT
 
-# rm $DATFILE
+rm $DATFILE

Modified: trunk/community/talks/200808_debconf8/get-archive-pages
===================================================================
--- trunk/community/talks/200808_debconf8/get-archive-pages	2008-07-28 13:46:59 UTC (rev 2355)
+++ trunk/community/talks/200808_debconf8/get-archive-pages	2008-07-28 13:56:51 UTC (rev 2356)
@@ -7,7 +7,7 @@
 use DBI;
 
 my $BASEURL  = "http://lists.debian.org/debian" ;
-my @PROJECTS = ('med', 'edu', 'jr', 'accessibility', 'desktop', 'enterprise', 'lex', 'nonprofit') ;
+my @PROJECTS = ('med', 'edu', 'jr', 'accessibility', 'desktop', 'enterprise', 'lex', 'nonprofit', 'custom') ;
 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',