From 8f361b77ba9d5343ad4b124d06d4bdd3be5ed44f Mon Sep 17 00:00:00 2001
From: Björn Stenberg <bjorn@haxx.se>
Date: Sat, 10 Aug 2002 07:41:18 +0000
Subject: Added getbugs.pl

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@1655 a1c6a512-1295-4272-9138-f99709370657
---
 www/getbugs.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 www/getbugs.pl

diff --git a/www/getbugs.pl b/www/getbugs.pl
new file mode 100644
index 0000000000..6b909ef6b6
--- /dev/null
+++ b/www/getbugs.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+@html = `curl --silent "http://sourceforge.net/tracker/?group_id=44306&atid=439118"`;
+
+@entries = grep {/HREF=\"\/tracker\/index.php/} @html;
+
+print "<table class=bugs>\n";
+print "<tr><th>submitted</th><th>id</th><th>summary</th><th>submitted by</th><th>assigned to</th></tr>\n";
+for ( @entries ) {
+    if ( /NOWRAP>(\d+).*?HREF=\"(.*?)\">(.*?)<.*?(nbsp;|\*) (.*?)<.*?\>(\w+)<.*?\>(\w+)</ ) {
+        ($submit, $assigned, $date, $id, $num, $summary) = ($7, $6, $5, $2, $1, $3);
+        $submit = "<a href=http://sourceforge.net/users/$submit>$submit</a>" if ( $submit ne "nobody" );
+        $assigned = "<a href=http://sourceforge.net/users/$assigned>$assigned</a>" if ( $assigned ne "nobody" );
+            
+        print "<tr><td>$date</td><td><a href=\"http://www.sourceforge.net$id\">$num</a></td><td>$summary</td><td>$submit</t><td>$assigned</td></tr>\n";
+    }
+}
+print "</table>\n";
-- 
cgit v1.2.3