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 2012/06/07 04:19:50 UTC

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

Author: dblevins
Date: Thu Jun  7 02:19:50 2012
New Revision: 1347306

URL: http://svn.apache.org/viewvc?rev=1347306&view=rev
Log:
still some more debugging to do

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=1347306&r1=1347305&r2=1347306&view=diff
==============================================================================
--- openejb/site/trunk/cgi-bin/latest.cgi (original)
+++ openejb/site/trunk/cgi-bin/latest.cgi Thu Jun  7 02:19:50 2012
@@ -10,7 +10,7 @@ my $artifact = $ENV{PATH_INFO};
 $artifact = "/apache-tomee/1.0.1-SNAPSHOT" unless $artifact;
 $artifact =~ s,^([^/]),/$1,;
 
-my $content = `wget -O - http://repository.apache.org/snapshots/org/apache/openejb$artifact`;
+my $content = `wget -O - -q http://repository.apache.org/snapshots/org/apache/openejb$artifact`;
 
 $content = join(" ", split("[ \r\n]+", $content));
 $content =~ s/(<tr>)/\n$1/g;
@@ -20,3 +20,11 @@ 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>";