You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@tomee.apache.org by db...@apache.org on 2011/07/24 08:50:31 UTC

svn commit: r1150286 - /openejb/site/trunk/cgi-bin/latest.cgi

Author: dblevins
Date: Sun Jul 24 06:50:30 2011
New Revision: 1150286

URL: http://svn.apache.org/viewvc?rev=1150286&view=rev
Log:
trying out a little perl script to make the "apache-tomee/4.0.0-SNAPSHOT" view in nexus look a little less confusing

Added:
    openejb/site/trunk/cgi-bin/latest.cgi   (with props)

Added: openejb/site/trunk/cgi-bin/latest.cgi
URL: http://svn.apache.org/viewvc/openejb/site/trunk/cgi-bin/latest.cgi?rev=1150286&view=auto
==============================================================================
--- openejb/site/trunk/cgi-bin/latest.cgi (added)
+++ openejb/site/trunk/cgi-bin/latest.cgi Sun Jul 24 06:50:30 2011
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use LWP;
+
+my $ua = LWP::UserAgent->new();
+
+my $content = $ua->get("https://repository.apache.org/content/groups/snapshots/org/apache/openejb/apache-tomee/4.0.0-SNAPSHOT/")->content;
+
+$content = join(" ", split("[ \r\n]+", $content));
+$content =~ s/(<tr>)/\n$1/g;
+$content =~ s,(</tr>),$1\n,g;
+
+foreach my $line (split("\n", $content)) {
+    next if $line =~ /\.(sha1|md5|jar|pom|xml)|Parent/;
+    print $line . "\n";
+}

Propchange: openejb/site/trunk/cgi-bin/latest.cgi
------------------------------------------------------------------------------
    svn:eol-style = native

Propchange: openejb/site/trunk/cgi-bin/latest.cgi
------------------------------------------------------------------------------
    svn:executable = *