Remove sepia dependency (use fqdn)

Fixes: #10255
Signed-off-by: Warren Usui <warren.usui@inktank.com>

diff --git a/qa/workunits/rgw/s3_bucket_quota.pl b/qa/workunits/rgw/s3_bucket_quota.pl
index ae6e273a17afcbbb99660ebe38bd38fe4b99f738..1b607ac70ae16fb6f2fc30217ae06974db80ca12 100755 (executable)
--- a/qa/workunits/rgw/s3_bucket_quota.pl
+++ b/qa/workunits/rgw/s3_bucket_quota.pl
@@ -37,6 +37,7 @@ use Pod::Usage();
 use FindBin;
 use lib $FindBin::Bin;
 use s3_utilities;
+use Net::Domain qw(hostfqdn);
 
 my $help;
 
@@ -51,10 +52,9 @@ my $mytestfilename1;
 my $logmsg;
 my $kruft;
 my $s3;
-my $domain   = "front.sepia.ceph.com";
-my $host     = get_hostname();
+my $hostdom  = $ENV{RGW_FQDN}||hostfqdn();
 my $port     = $ENV{RGW_PORT}||7280;
-our $hostname = "$host.$domain:$port";
+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 58be2aeae01d9eb27c50110fb4e45d5722d4c76a..5bf7af23b14a602dde6440ca0032fa9f824ec78b 100755 (executable)
--- a/qa/workunits/rgw/s3_multipart_upload.pl
+++ b/qa/workunits/rgw/s3_multipart_upload.pl
@@ -36,6 +36,7 @@ use Pod::Usage();
 use FindBin;
 use lib $FindBin::Bin;
 use s3_utilities;
+use Net::Domain qw(hostfqdn);
 
 my $help;
 
@@ -46,10 +47,9 @@ Pod::Usage::pod2usage(-verbose => 1) && exit if ($help);
 
 #== local variables ===
 my $s3;
-my $domain   = "front.sepia.ceph.com";
-my $host     = get_hostname();
+my $hostdom  = $ENV{RGW_FQDN}||hostfqdn();
 my $port     = $ENV{RGW_PORT}||7280;
-our $hostname = "$host.$domain:$port";
+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 045d297a701b91fbfce000bfe14b9d009137827d..04d352ddff224b42030564a56982f8227a5cd190 100755 (executable)
--- a/qa/workunits/rgw/s3_user_quota.pl
+++ b/qa/workunits/rgw/s3_user_quota.pl
@@ -36,6 +36,7 @@ use Pod::Usage();
 use FindBin;
 use lib $FindBin::Bin;
 use s3_utilities;
+use Net::Domain qw(hostfqdn);
 
 my $help;
 
@@ -50,10 +51,9 @@ my $mytestfilename1;
 my $logmsg;
 my $kruft;
 my $s3;
-my $domain   = "front.sepia.ceph.com";
-my $host     = get_hostname();
+my $hostdom  = $ENV{RGW_FQDN}||hostfqdn();
 my $port     = $ENV{RGW_PORT}||7280;
-our $hostname = "$host.$domain:$port";
+our $hostname = "$hostdom:$port";
 our $testfileloc;
 our $cnt;