diff options
author | ivan <ivan> | 2003-09-10 22:10:17 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-09-10 22:10:17 +0000 |
commit | a5a6b0caa63e8d44640986667c9abf6dfd67fcee (patch) | |
tree | 43082f6aff89263f513aa5e7e159484b91c50384 /FS | |
parent | 73af3bb80cd59d1bed31697a97024ec764fad73c (diff) |
communigate pro quota bs
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_export/communigate_pro.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm index 54a8277..ae20e24 100644 --- a/FS/FS/part_export/communigate_pro.pm +++ b/FS/FS/part_export/communigate_pro.pm @@ -10,15 +10,18 @@ sub rebless { shift; } sub _export_insert { my( $self, $svc_acct ) = (shift, shift); - $self->communigate_pro_queue( $svc_acct->svcnum, 'CreateAccount', + my @options = ( $svc_acct->svcnum, 'CreateAccount', 'accountName' => $svc_acct->email, 'accountType' => $self->option('accountType'), - 'externalFlag' => $self->option('externalFlag'), 'AccessModes' => $self->option('AccessModes'), 'RealName' => $svc_acct->finger, - 'MaxAccountSize' => $svc_acct->quota, 'Password' => $svc_acct->_password, ); + push @options, 'MaxAccountSize' => $svc_acct->quota if $svc_acct->quota; + push @options, 'externalFlag' => $self->option('externalFlag') + if $self->option('externalFlag'); + + $self->communigate_pro_queue( @options ); } sub _export_replace { |