X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fnetsapiens.pm;h=c72093d00fc1e0d4b13a606bc5dfe53ba7f770b0;hb=04f53daab621710db56b075e1aaf56e7c52f9ba9;hp=aa89d47a2a6416bdcd54ea0ea9ef522e5bdd826b;hpb=adaccb1ca8e3954a7899ef36bb23c05893ebbc81;p=freeside.git diff --git a/FS/FS/part_export/netsapiens.pm b/FS/FS/part_export/netsapiens.pm index aa89d47a2..c72093d00 100644 --- a/FS/FS/part_export/netsapiens.pm +++ b/FS/FS/part_export/netsapiens.pm @@ -43,6 +43,11 @@ my %features = ( 'sim' => 'Simultaneous Ring', ); +my %feature_param = ( + 'dnd' => 'n/a', + 'sim' => '$phonenum', +); + tie my %options, 'Tie::IxHash', 'login' => { label=>'NetSapiens tac2 User API username' }, 'password' => { label=>'NetSapiens tac2 User API password' }, @@ -67,10 +72,11 @@ tie my %options, 'Tie::IxHash', ; %info = ( - 'svc' => [ 'svc_phone', ], # 'part_device', - 'desc' => 'Provision phone numbers to NetSapiens', - 'options' => \%options, - 'notes' => <<'END' + 'svc' => [qw( svc_phone part_device )], + 'desc' => 'Provision phone numbers to NetSapiens', + 'options' => \%options, + 'no_machine' => 1, + 'notes' => <<'END' Requires installation of REST::Client from CPAN. @@ -262,11 +268,14 @@ sub ns_create_or_update { ### foreach $feature (split /\s+/, $self->option('features') ) { + my $param= exists($feature_param{$feature}) ? $feature_param{$feature} : ''; + $param = $phonenum if $param eq '$phonenum'; + my $nsf = $self->ns_command( 'PUT', $self->ns_feature($svc_phone, $feature), 'control' => 'd', #User Control, disable 'expires' => 'never', #'ts' => '', #? - #'parameters' => '', + 'parameters' => $param, 'hour_match' => '*', 'time_frame' => '*', 'activation' => 'now',