From 7c076637622e215a2c2db972ccb397df425535c2 Mon Sep 17 00:00:00 2001
From: Andrew McMillan <debian@mcmillan.net.nz>
Date: Tue, 18 Nov 2008 18:14:37 +1300
Subject: [PATCH] Add the possibility of setting primary/alternate hostnames.

---
 testing/dav_test | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/testing/dav_test b/testing/dav_test
index 98120991..b8bd0ffc 100755
--- a/testing/dav_test
+++ b/testing/dav_test
@@ -14,6 +14,8 @@ my $dsn    = "davical";
 my $dbuser = "";
 my $dbpass = "";
 my $suite;
+my $webhost = 'mycaldav';
+my $althost = 'myempty';
 my $test;
 my $helpmeplease = 0;
 
@@ -27,6 +29,8 @@ GetOptions ('debug!'    => \$debug,
             'dbuser=s'  => \$dbuser,
             'dbpass=s'  => \$dbpass,
             'suite=s'   => \$suite,
+            'webhost=s' => \$webhost,
+            'althost=s' => \$althost,
             'case=s'    => \$test,
             'help'      => \$helpmeplease  );
 
@@ -148,6 +152,8 @@ while( <TEST> ) {
 
   $line =~ /^\s*URL\s*=\s*(\S.*)$/ && do {
     $url=$1;
+    $url =~ s{regression.host}{$webhost};
+    $url =~ s{alternate.host}{$althost};
   };
 
 }