qa/rgw: update default port in perl workunits

Signed-off-by: Casey Bodley <cbodley@redhat.com>

diff --git a/qa/workunits/rgw/s3_bucket_quota.pl b/qa/workunits/rgw/s3_bucket_quota.pl
index 6a4a1a4513c6d2c0841f1c0e76ee09c7934fb327..7f5476ef676c761a859be5a55c62932dab16ea29 100755 (executable)
--- a/qa/workunits/rgw/s3_bucket_quota.pl
+++ b/qa/workunits/rgw/s3_bucket_quota.pl
@@ -53,7 +53,7 @@ my $logmsg;
 my $kruft;
 my $s3;
 my $hostdom  = $ENV{RGW_FQDN}||hostfqdn();
-my $port     = $ENV{RGW_PORT}||7280;
+my $port     = $ENV{RGW_PORT}||80;
 our $hostname = "$hostdom:$port";
 our $testfileloc;
 my $rgw_user = "qa_user";

diff --git a/qa/workunits/rgw/s3_multipart_upload.pl b/qa/workunits/rgw/s3_multipart_upload.pl
index 5bf7af23b14a602dde6440ca0032fa9f824ec78b..ab29e6b03425f3a5d49112aa8112fb58dc7ac5a2 100755 (executable)
--- a/qa/workunits/rgw/s3_multipart_upload.pl
+++ b/qa/workunits/rgw/s3_multipart_upload.pl
@@ -48,7 +48,7 @@ Pod::Usage::pod2usage(-verbose => 1) && exit if ($help);
 #== local variables ===
 my $s3;
 my $hostdom  = $ENV{RGW_FQDN}||hostfqdn();
-my $port     = $ENV{RGW_PORT}||7280;
+my $port     = $ENV{RGW_PORT}||80;
 our $hostname = "$hostdom:$port";
 our $testfileloc;
 our $mytestfilename;

diff --git a/qa/workunits/rgw/s3_user_quota.pl b/qa/workunits/rgw/s3_user_quota.pl
index fbda89a66d9e3f854890fae4c2443fbacabe5a74..6d5c02a9a0152add9b01ca5f98f54c2707604bae 100755 (executable)
--- a/qa/workunits/rgw/s3_user_quota.pl
+++ b/qa/workunits/rgw/s3_user_quota.pl
@@ -52,7 +52,7 @@ my $logmsg;
 my $kruft;
 my $s3;
 my $hostdom  = $ENV{RGW_FQDN}||hostfqdn();
-my $port     = $ENV{RGW_PORT}||7280;
+my $port     = $ENV{RGW_PORT}||80;
 our $hostname = "$hostdom:$port";
 our $testfileloc;
 our $cnt;