Added getbugs.pl

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@1655 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 18 insertions, 0 deletions

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";