Add the possibility of setting primary/alternate hostnames.

This commit is contained in:
Andrew McMillan 2008-11-18 18:14:37 +13:00
parent 73679d424f
commit 7c07663762

View File

@ -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};
};
}