From d49463aa16101b59bc4adaa42b9dfdbe3735733f Mon Sep 17 00:00:00 2001
From: "slamm%netscape.com" <slamm%netscape.com>
Date: Mon, 24 Jul 2000 22:47:39 +0000
Subject: [PATCH] Add vxml from Jud Valeski

---
 webtools/tinderbox/showbuilds.cgi | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/webtools/tinderbox/showbuilds.cgi b/webtools/tinderbox/showbuilds.cgi
index 5dcce4676546..99c0f6f39747 100755
--- a/webtools/tinderbox/showbuilds.cgi
+++ b/webtools/tinderbox/showbuilds.cgi
@@ -72,6 +72,7 @@ $rel_path = '';
 &do_flash,            exit if $form{flash};
 &do_panel,            exit if $form{panel};
 &do_hdml,             exit if $form{hdml};
+&do_vxml,             exit if $form{vxml};
 &do_tinderbox,        exit;
 
 # end of main
@@ -992,3 +993,26 @@ sub do_hdml {
   };
 
 }
+
+sub do_vxml {
+  print "Content-type: text/vxml\n\n";
+  print '<?xml version="1.0"?><!DOCTYPE vxml>';
+
+  %state_symbols = (success=>'green',busted=>'red',testfailed=>'test failed');
+
+  print "<vxml><block><form>";
+
+  if (is_tree_state_available()) {
+    print "<audio>$::tree is " .
+      (is_tree_open() ? 'open' : 'closed') . "</audio>";
+  }
+  my (%build, %times);
+  tb_loadquickparseinfo($::tree, \%build, \%times);
+
+  foreach my $buildname (sort keys %build) {
+    print "<pause>100</pause>";
+    print "<audio>$buildname is $state_symbols{$build{$buildname}} </audio>";
+  }
+  print "<pause>200</pause><audio>adios</audio>";
+  print "</form></block></vxml>";
+}