force all infostreet arguments to be string type, fixes: "0 as first character

in password" problem.  also see the Frontier::Client manpage

diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm
index e86e82a..2ce5563 100644 (file)
--- 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};
 
   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};
 
   my %result = _infostreet_parse($result);
   die $result{error} unless $result{success};