diff options
| author | Björn Stenberg <bjorn@haxx.se> | 2002-08-10 07:41:18 +0000 |
|---|---|---|
| committer | Björn Stenberg <bjorn@haxx.se> | 2002-08-10 07:41:18 +0000 |
| commit | 8f361b77ba9d5343ad4b124d06d4bdd3be5ed44f (patch) | |
| tree | e4158ec756be888b47a5b5848d6b1834f2b8cd9b | |
| parent | 95668f9c08a09b73b1c6617eff5d13c5d3ee5563 (diff) | |
| download | rockbox-8f361b77ba9d5343ad4b124d06d4bdd3be5ed44f.zip rockbox-8f361b77ba9d5343ad4b124d06d4bdd3be5ed44f.tar.gz rockbox-8f361b77ba9d5343ad4b124d06d4bdd3be5ed44f.tar.bz2 rockbox-8f361b77ba9d5343ad4b124d06d4bdd3be5ed44f.tar.xz | |
Added getbugs.pl
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@1655 a1c6a512-1295-4272-9138-f99709370657
| -rw-r--r-- | www/getbugs.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/www/getbugs.pl b/www/getbugs.pl new file mode 100644 index 0000000..6b909ef --- /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"; |