projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
force all infostreet arguments to be string type, fixes: "0 as first character
[freeside.git]
/
FS
/
FS
/
part_export
/
infostreet.pm
diff --git
a/FS/FS/part_export/infostreet.pm
b/FS/FS/part_export/infostreet.pm
index
c2386ad
..
2ce5563
100644
(file)
--- a/
FS/FS/part_export/infostreet.pm
+++ b/
FS/FS/part_export/infostreet.pm
@@
-10,7
+10,7
@@
sub rebless { shift; }
sub _export_insert {
my( $self, $svc_acct ) = (shift, shift);
$self->infostreet_queue( $svc_acct->svcnum,
sub _export_insert {
my( $self, $svc_acct ) = (shift, shift);
$self->infostreet_queue( $svc_acct->svcnum,
- 'createUser', $svc_acct->username, $svc_acct->password );
+ 'createUser', $svc_acct->username, $svc_acct->
_
password );
}
sub _export_replace {
}
sub _export_replace {
@@
-19,7
+19,7
@@
sub _export_replace {
if $old->username ne $new->username;
return '' unless $old->_password ne $new->_password;
$self->infostreet_queue( $new->svcnum,
if $old->username ne $new->username;
return '' unless $old->_password ne $new->_password;
$self->infostreet_queue( $new->svcnum,
- 'passwd', $new->username, $new->password );
+ 'passwd', $new->username, $new->
_
password );
}
sub _export_delete {
}
sub _export_delete {
@@
-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};