| Subject: | GestPsy server doesn't accept relative urls |
The query_server method doesn't work since GestPay server no longer
accept relative urls in HTTP queries.
Patch attached.
| Subject: | gestpay.patch |
--- GestPayCrypt.pm 2009-01-27 15:56:13.000000000 +0100
+++ GestPayCrypt.pm.new 2009-01-27 15:53:56.000000000 +0100
@@ -364,8 +364,8 @@
my $urlString = $type eq 'encrypt'
# ? "$self->{'ScriptEncrypt'}?a=$self->{'ShopLogin'}&b=$self->{'ToBeEncript'}"
# : "$self->{'ScriptDecrypt'}?a=$self->{'ShopLogin'}&b=$self->{'EncryptedString'}";
- ? "$self->{'ScriptEncrypt'}?a=$self->{'ShopLogin'}&b=$self->{'ToBeEncript'}&c=2.0" # set 0.30
- : "$self->{'ScriptDecrypt'}?a=$self->{'ShopLogin'}&b=$self->{'EncryptedString'}&c=2.0";
+ ? "http://$self->{'DomainName'}$self->{'ScriptEncrypt'}?a=$self->{'ShopLogin'}&b=$self->{'ToBeEncript'}&c=2.0" # set 0.30
+ : "http://$self->{'DomainName'}$self->{'ScriptDecrypt'}?a=$self->{'ShopLogin'}&b=$self->{'EncryptedString'}&c=2.0";
my $response = $self->cat_server($urlString);
return 0 if $response eq '';