You are viewing a plain text version of this content. The canonical link for it is here.
Posted to scm@geronimo.apache.org by db...@apache.org on 2006/04/07 01:00:56 UTC
svn commit: r392110 - /geronimo/gbuild/stan/jirareports/unassigned.pl
Author: dblevins
Date: Thu Apr 6 16:00:55 2006
New Revision: 392110
URL: http://svn.apache.org/viewcvs?rev=392110&view=rev
Log:
Report of the very large number of outstanding and unassigned JIRA items
Added:
geronimo/gbuild/stan/jirareports/unassigned.pl (with props)
Added: geronimo/gbuild/stan/jirareports/unassigned.pl
URL: http://svn.apache.org/viewcvs/geronimo/gbuild/stan/jirareports/unassigned.pl?rev=392110&view=auto
==============================================================================
--- geronimo/gbuild/stan/jirareports/unassigned.pl (added)
+++ geronimo/gbuild/stan/jirareports/unassigned.pl Thu Apr 6 16:00:55 2006
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+open (TEXT, "/usr/bin/wget -q -O - 'http://opensource.atlassian.com/confluence/oss/display/GERONIMO/Unassigned2?decorator=printable' | /usr/bin/elinks -dump-width 120 -no-numbering -no-references 1 -dump 1 | ");
+
+
+
+while (<TEXT>) {
+ if (/-BEGIN-/){
+ $begin=1;
+ $_="";
+ }
+
+ $count++ if /GERONIMO-[0-9]/;
+
+ $_="" unless $begin;
+
+ if (/-END-/){
+ while (<TEXT>) {}
+ $_ = "";
+ }
+
+
+ if (/##$/) {
+ s/ ##//;
+ chomp;
+ $foo=<TEXT>;
+ };
+
+ s/ *refresh ASF JIRA(.*)/$1\n\n$hr/;
+ s/^ //;
+ $content .= $_;
+ $hr=$_ if /\* \*/;
+}
+close TEXT;
+
+$date=`date +%Y-%m-%d`;
+print <<_TEXT_;
+To: dev\@geronimo.apache.org
+From: dblevins\@apache.org
+Subject: [jira] Unassigned issues ($count) as of $date
+
+$content
+_TEXT_
Propchange: geronimo/gbuild/stan/jirareports/unassigned.pl
------------------------------------------------------------------------------
svn:executable = *