devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

Added getbugs.pl

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@1655 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Björn Stenberg 2002-08-10 07:41:18 +00:00
parent 95668f9c08
commit 8f361b77ba
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
www/getbugs.pl Normal file
View file

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