geronimo-scm mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dblev...@apache.org
Subject svn commit: r392110 - /geronimo/gbuild/stan/jirareports/unassigned.pl
Date Thu, 06 Apr 2006 23:00:56 GMT
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 = *



Mime
View raw message