|
Lines 96-102
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
Link Here
|
| 96 |
# Combine usernames and passwords, and encrypt with SHA256 |
96 |
# Combine usernames and passwords, and encrypt with SHA256 |
| 97 |
my $combined_username = "$vendor_username-$library_username"; |
97 |
my $combined_username = "$vendor_username-$library_username"; |
| 98 |
my $combined_password = sha256_hex( "$library_password-$vendor_password" ); |
98 |
my $combined_password = sha256_hex( "$library_password-$vendor_password" ); |
| 99 |
warn "$combined_username => $combined_password"; |
|
|
| 100 |
return $combined_username => $combined_password; |
99 |
return $combined_username => $combined_password; |
| 101 |
} |
100 |
} |
| 102 |
|
101 |
|
| 103 |
- |
|
|