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

[tille at alioth.debian.org]

Author: tille
Date: 2008-07-26 14:26:11 +0000 (Sat, 26 Jul 2008)
New Revision: 2325

Added:
   trunk/community/talks/200808_debconf8/get-archive-pages
Modified:
   trunk/community/talks/200808_debconf8/debian-med.tex
Log:
Tool to inspect CDD mailing list archives to get some information about their "health".


Modified: trunk/community/talks/200808_debconf8/debian-med.tex
===================================================================
--- trunk/community/talks/200808_debconf8/debian-med.tex	2008-07-26 07:36:19 UTC (rev 2324)
+++ trunk/community/talks/200808_debconf8/debian-med.tex	2008-07-26 14:26:11 UTC (rev 2325)
@@ -65,8 +65,46 @@
 
 \end{frame}
 
+\begin{frame}
+%  \frametitle{Groth}
 
-\input cdd-end-en.tex
+  \begin{itemize}
+    \item {\em ``secret society''} ;-)
+    \item We think we are everything but secret
+    \item At least one feature of secrecy: concealment
+    \begin{itemize}
+       \item Concealment inside advertising noise of proprietary
+         products
+       \item Concealment by disunity
+    \end{itemize}
+  \end{itemize}
 
+\end{frame}
+
+\begin{frame}
+  \frametitle{Motivation}
+
+  \begin{enumerate}
+    \item Support of target users with common profile:
+      \begin{itemize}
+        \item Less technical competence
+        \item Unable to install upstream programs with acceptable effort
+        \item No interest in administration
+        \item \emph{Specific subset} of available Free Software
+        \item Need for easy usage
+        \item Defined security profile
+        \item Language barrier
+      \end{itemize}
+    \item Support of administrators with common profile:
+      \begin{itemize}
+        \item Limited time frame
+        \item Automation of often repeated tasks
+        \item Lack of specialist knowledge
+      \end{itemize}
+  \end{enumerate}
+\end{frame}
+
+\input med-end-en.tex
+
 \end{document}
 

Added: trunk/community/talks/200808_debconf8/get-archive-pages
===================================================================
--- trunk/community/talks/200808_debconf8/get-archive-pages	                        (rev 0)
+++ trunk/community/talks/200808_debconf8/get-archive-pages	2008-07-26 14:26:11 UTC (rev 2325)
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use LWP::UserAgent;
+use URI;
+use Cwd;
+
+my $BASEURL  = "http://lists.debian.org/debian" ;
+my @PROJECTS = ('med', 'edu', 'jr') ;
+my @MONTHES  = ('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12');
+
+# Debian-Jr starts in 2000
+my $YEARSTART = 2000;
+
+my ($sec,$min,$hour,$day,$MONTHEND,$YEAREND,$wday,$yday,$isdst) = localtime(time);
+$MONTHEND++;
+$YEAREND +=1900;
+
+my $ua = LWP::UserAgent->new( agent => 'varbot');
+$ua->env_proxy;
+
+my $cdw = getcwd;
+my $project;
+foreach $project (@PROJECTS) {
+    mkdir($project,0777);
+    chdir($project);
+    my $URL="${BASEURL}-${project}";
+    my $year;
+    my $month;
+    for ( $year = $YEARSTART ; $year <= $YEAREND; $year++ ) {
+	foreach $month (@MONTHES) {
+	    if ( $year == $YEAREND && $month == $MONTHEND ) {
+		last;
+	    }
+	    my $url = "${URL}/${year}/${month}/";
+	    #print "$year-$month: $url\n";
+	    my $uri = URI->new($url);
+	    my $page = $ua->get($url, Host => $uri->host );
+	    unless ( $page->is_success ) { next } ; # some mailing lists startet later ...
+	    (my @data) = $page->content =~ m#.*<!--TNAVEND-->\n(.+)\n<hr>\n.*#gs;
+	    #print "$year-$month\n at data\n";
+	    my $datafile = "${year}-${month}" ;
+	    unless ( open(HTMLSNIP, ">$datafile") ) { die("Unable to open $datafile"); }
+	    print HTMLSNIP "@data";
+	    close HTMLSNIP ;
+	}
+    }
+    chdir($cdw);
+}
+


Property changes on: trunk/community/talks/200808_debconf8/get-archive-pages
___________________________________________________________________
Name: svn:executable
   + *