[Swift-commit] r4991 - in wwwdev: . main tests

Tue Aug 23 09:16:07 CDT 2011

Author: davidk
Date: 2011-08-23 09:16:07 -0500 (Tue, 23 Aug 2011)
New Revision: 4991

Added:
   wwwdev/tests/
   wwwdev/tests/tests.pl
Modified:
   wwwdev/main/index.php
Log:
Perl script to group nightly test suite results
Updated link to 0.93 on front page


Modified: wwwdev/main/index.php
===================================================================

--- wwwdev/main/index.php	2011-08-23 12:52:56 UTC (rev 4990)
+++ wwwdev/main/index.php	2011-08-23 14:16:07 UTC (rev 4991)
@@ -62,7 +62,7 @@
   </div>
   <!-- end .grid_9 -->
   <div class="grid_3">
-    <div id="box-prime"><div class="button_175"><a href="../packages/swift-0.92.1.tar.gz" onClick="javascript: pageTracker._trackPageview('/swift/packages/swift-0.92.1.tar.gz');">Download Now</a></div><b>0.92.1</b> current version<br />2011/04/13
+  <div id="box-prime"><div class="button_175"><a href="../packages/swift-0.93.tar.gz" onClick="javascript: pageTracker._trackPageview('../packages/swift-0.93.tar.gz');">Download Now</a></div><b>0.93 RC1</b> current version<br />2011/08/17
 	<br /><a href="../downloads/index.php">view all downloads</a></div>
 	<div id="box-prime"><div class="button_175"><a href="../guides/quickstartguide.php">Get Started</a></div>Read our Quick Start Guide
 and start using Swift today!</div>

Added: wwwdev/tests/tests.pl
===================================================================
--- wwwdev/tests/tests.pl	                        (rev 0)
+++ wwwdev/tests/tests.pl	2011-08-23 14:16:07 UTC (rev 4991)
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+print <<'END';
+Content-type: text/html
+
+<html>
+<head>
+<title>Swift Nightly Testing</title>
+<link rel="stylesheet" type="text/css" href="../css/style1col.css" />
+</head>
+<body>
+END
+
+my @versions = <*/>;
+foreach my $version(@versions) {
+   $version =~ s/\///;
+   print "<h1>$version</h1>\n<ul>\n";
+   my @results = <$version/*/*.html>;
+   foreach my $result(@results) {
+      my @parts = split("/", $result);
+      my $link_name = $parts[scalar @parts - 2];  
+      $link_name =~ s/run-//;
+      print "<li><a href=\"$result\">$link_name</a></li>\n";
+   }
+   print "</ul>\n";
+}
+
+print "</body></html>\n";


Property changes on: wwwdev/tests/tests.pl
___________________________________________________________________
Added: svn:executable
   + *


