[Collab-qa-commits] r1252 - in buildstat/trunk/buildstat-server/script: . feedme

[goneri at alioth.debian.org]

Author: goneri
Date: 2008-09-08 21:39:13 +0000 (Mon, 08 Sep 2008)
New Revision: 1252

Added:
   buildstat/trunk/buildstat-server/script/feedme/
   buildstat/trunk/buildstat-server/script/feedme/alioth-svn.pl
Log:
a script to initialize svn repository

Added: buildstat/trunk/buildstat-server/script/feedme/alioth-svn.pl
===================================================================
--- buildstat/trunk/buildstat-server/script/feedme/alioth-svn.pl	                        (rev 0)
+++ buildstat/trunk/buildstat-server/script/feedme/alioth-svn.pl	2008-09-08 21:39:13 UTC (rev 1252)
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use LWP::Simple;
+
+use Data::Dumper;
+
+my $content = get("http://svn.debian.org/");
+
+
+print $content;
+my @entries;
+my $team;
+foreach(split ("\n", $content)) {
+    if (/<td>(.+?)<br\/><\/td>/) {
+        $team = $1;
+    }
+    if (/(svn:\/\/svn.debian.org\/\S+)<\/a>/) {
+        push @entries, [$team, $1];
+    }
+}
+
+print Dumper(\@entries);


Property changes on: buildstat/trunk/buildstat-server/script/feedme/alioth-svn.pl
___________________________________________________________________
Name: svn:executable
   + *