diff options
Diffstat (limited to 'www')
-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 0000000000..6b909ef6b6 --- /dev/null +++ b/www/getbugs.pl | |||
@@ -0,0 +1,18 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | @html = `curl --silent "http://sourceforge.net/tracker/?group_id=44306&atid=439118"`; | ||
4 | |||
5 | @entries = grep {/HREF=\"\/tracker\/index.php/} @html; | ||
6 | |||
7 | print "<table class=bugs>\n"; | ||
8 | print "<tr><th>submitted</th><th>id</th><th>summary</th><th>submitted by</th><th>assigned to</th></tr>\n"; | ||
9 | for ( @entries ) { | ||
10 | if ( /NOWRAP>(\d+).*?HREF=\"(.*?)\">(.*?)<.*?(nbsp;|\*) (.*?)<.*?\>(\w+)<.*?\>(\w+)</ ) { | ||
11 | ($submit, $assigned, $date, $id, $num, $summary) = ($7, $6, $5, $2, $1, $3); | ||
12 | $submit = "<a href=http://sourceforge.net/users/$submit>$submit</a>" if ( $submit ne "nobody" ); | ||
13 | $assigned = "<a href=http://sourceforge.net/users/$assigned>$assigned</a>" if ( $assigned ne "nobody" ); | ||
14 | |||
15 | 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"; | ||
16 | } | ||
17 | } | ||
18 | print "</table>\n"; | ||