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

[db...@apache.org]

Author: dblevins
Date: Thu Jun  7 02:25:03 2012
New Revision: 1347315

URL: http://svn.apache.org/viewvc?rev=1347315&view=rev
Log:
reverting to earlier version

Modified:
    openejb/site/trunk/cgi-bin/latest.cgi

Modified: openejb/site/trunk/cgi-bin/latest.cgi
URL: http://svn.apache.org/viewvc/openejb/site/trunk/cgi-bin/latest.cgi?rev=1347315&r1=1347314&r2=1347315&view=diff
==============================================================================
--- openejb/site/trunk/cgi-bin/latest.cgi (original)
+++ openejb/site/trunk/cgi-bin/latest.cgi Thu Jun  7 02:25:03 2012
@@ -5,12 +5,7 @@ use warnings;
 
 print "Content-Type: text/html\n\n";
 
-my $artifact = $ENV{PATH_INFO};
-
-$artifact = "/apache-tomee/1.0.1-SNAPSHOT" unless $artifact;
-$artifact =~ s,^([^/]),/$1,;
-
-my $content = `wget -d -O - http://repository.apache.org/snapshots/org/apache/openejb/apache-tomee/1.0.1-SNAPSHOT`;
+my $content = `wget -O - -q http://repository.apache.org/snapshots/org/apache/openejb/apache-tomee/1.0.1-SNAPSHOT/`;
 
 $content = join(" ", split("[ \r\n]+", $content));
 $content =~ s/(<tr>)/\n$1/g;
@@ -20,11 +15,3 @@ foreach my $line (split("\n", $content))
     next if $line =~ /\.(sha1|md5|jar|pom|xml)|Parent/;
     print $line . "\n";
 }
-print "<pre>";
-foreach (keys %ENV) {
-    print $_;
-    print " = ";
-    print $ENV{$_};
-    print "\n";
-}
-print "</pre>";