4VVBCVPDQCKMBD5O5QRYXVV7JL5ULRMXIG23JNTDVSLB2YCH4EPAC
die 'SoTest username and password must be specified'
unless ( defined $sotest->{username} and defined $sotest->{password} );
die 'SoTest authfile is not specified'
unless ( defined $sotest->{authfile} );
open( my $authfile, "<", $sotest->{authfile} )
or die "Cannot open Sotest authfile \${\$sotest->{authfile}}";
close($authfile);
_logIfDebug 'post job for ', $sotest_name;
my $authfile;
open( $authfile, "<", $sotest->{authfile} )
or die "Cannot open Sotest authfile \${\$sotest->{authfile}}";
while (<$authfile>) {
if ( $_ =~ /(.+):(.+)/m ) {
$sotest_username = $1;
$sotest_password = $2;
}
}
close($authfile);
die "failed to parse username and password from ${\$sotest->{authfile}}"
unless ( defined $sotest_username and defined $sotest_password );
_logIfDebug "post job for $sotest_name";