diff options
author | ivan <ivan> | 2002-05-16 14:21:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-05-16 14:21:20 +0000 |
commit | 6c22d1f804ed99ecae591af6483a326e1c825560 (patch) | |
tree | 5e3ec76eb7e5f7a2e8f33aed63ed1b75f0ca295b | |
parent | 3f9ac2ff50fff9d55ff5976ee1417dc6ba56f39e (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.pm | 3 |
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}; |