summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2002-05-16 14:21:20 +0000
committerivan <ivan>2002-05-16 14:21:20 +0000
commit6c22d1f804ed99ecae591af6483a326e1c825560 (patch)
tree5e3ec76eb7e5f7a2e8f33aed63ed1b75f0ca295b
parent3f9ac2ff50fff9d55ff5976ee1417dc6ba56f39e (diff)
force all infostreet arguments to be string type, fixes: "0 as first character
in password" problem. also see the Frontier::Client manpage
-rw-r--r--FS/FS/part_export/infostreet.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm
index e86e82a66..2ce556339 100644
--- a/FS/FS/part_export/infostreet.pm
+++ b/FS/FS/part_export/infostreet.pm
@@ -63,7 +63,8 @@ sub infostreet_command { #subroutine, not method
die $key_result{error} unless $key_result{success};
my $key = $key_result{data};
- my $result = $conn->call($method, $key, @args);
+ #my $result = $conn->call($method, $key, @args);
+ my $result = $conn->call($method, $key, map { $conn->string($_) } @args);
my %result = _infostreet_parse($result);
die $result{error} unless $result{success};