projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix vitelity addport via API? RT#73618
[freeside.git]
/
FS
/
FS
/
part_export
/
netsapiens.pm
diff --git
a/FS/FS/part_export/netsapiens.pm
b/FS/FS/part_export/netsapiens.pm
index
2e37d04
..
ac78dbc
100644
(file)
--- a/
FS/FS/part_export/netsapiens.pm
+++ b/
FS/FS/part_export/netsapiens.pm
@@
-1,13
+1,13
@@
package FS::part_export::netsapiens;
package FS::part_export::netsapiens;
+use base qw( FS::part_export );
-use vars qw(
@ISA $me %info
);
+use vars qw(
$me %info
);
use MIME::Base64;
use Tie::IxHash;
use MIME::Base64;
use Tie::IxHash;
-use FS::part_export;
use Date::Format qw( time2str );
use Date::Format qw( time2str );
-use Regexp::Common qw/URI/;
+use Regexp::Common qw( URI );
+use REST::Client;
-@ISA = qw(FS::part_export);
$me = '[FS::part_export::netsapiens]';
#These export options set default values for the various commands
$me = '[FS::part_export::netsapiens]';
#These export options set default values for the various commands
@@
-72,14
+72,11
@@
tie my %options, 'Tie::IxHash',
;
%info = (
;
%info = (
- 'svc' => [
'svc_phone', ], # 'part_device'
,
+ 'svc' => [
qw( svc_phone part_device )]
,
'desc' => 'Provision phone numbers to NetSapiens',
'options' => \%options,
'no_machine' => 1,
'notes' => <<'END'
'desc' => 'Provision phone numbers to NetSapiens',
'options' => \%options,
'no_machine' => 1,
'notes' => <<'END'
-Requires installation of
-<a href="http://search.cpan.org/dist/REST-Client">REST::Client</a>
-from CPAN.
END
);
END
);
@@
-118,8
+115,6
@@
sub _ns_command {
# kludge to curb excessive paranoia in LWP 6.0+
local $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
# kludge to curb excessive paranoia in LWP 6.0+
local $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
- eval 'use REST::Client';
- die $@ if $@;
my $ns = new REST::Client 'host'=>$self->option($prefix.'url');
my $ns = new REST::Client 'host'=>$self->option($prefix.'url');