summaryrefslogtreecommitdiff
path: root/www/getbugs.pl
diff options
context:
space:
mode:
Diffstat (limited to 'www/getbugs.pl')
-rw-r--r--www/getbugs.pl18
1 files changed, 0 insertions, 18 deletions
diff --git a/www/getbugs.pl b/www/getbugs.pl
deleted file mode 100644
index 3f1fd89757..0000000000
--- a/www/getbugs.pl
+++ /dev/null
@@ -1,18 +0,0 @@
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
7print "<table class=bugs>\n";
8print "<tr><th>submitted</th><th>id</th><th>summary</th><th>submitted by</th><th>assigned to</th></tr>\n";
9for ( @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</td><td>$assigned</td></tr>\n";
16 }
17}
18print "</table>\n";