Add support for lnp apitype/URL

[Net-Vitelity.git] / lib / Net / Vitelity.pm

diff --git a/lib/Net/Vitelity.pm b/lib/Net/Vitelity.pm
index 2e6dc53..4409b5b 100644 (file)
--- a/lib/Net/Vitelity.pm
+++ b/lib/Net/Vitelity.pm
@@ -8,13 +8,9 @@ use LWP::UserAgent;
 
 Net::Vitelity - Interface to Vitelity API
 
-=head1 VERSION
-
-Version 0.02
-
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.04';
 
 our $AUTOLOAD;
 
@@ -23,14 +19,21 @@ our $AUTOLOAD;
     use Net::Vitelity;
 
     my $vitelity = Net::Vitelity->new(
-                                       'login' => $your_login,
-                                       'pass'  => $your_pass,
+                                       'login'   => $your_login,
+                                       'pass'    => $your_pass,
+                                       'apitype' => 'api', #api, fax or lnp
                                      );
 
 =head1 METHODS
 
 =cut
 
+=head2 new
+
+Create a new Net::Vitelity object.  login and pass are required.
+
+=cut
+
 sub new {
     my ($class,%data) = @_;
     die "missing user and/or password" unless defined $data{'login'} && defined $data{'pass'};
@@ -51,11 +54,13 @@ sub AUTOLOAD {
 
   #XXX md5 encrypt pass
 
-  my $URL_API = 'http://64.74.178.105/api.php';
-  my $URL_FAX = 'http://64.74.178.105/fax.php';
+  my $URL_API = 'http://api.vitelity.net/api.php';
+  my $URL_FAX = 'http://api.vitelity.net/fax.php';
+  my $URL_LNP = 'http://api.vitelity.net/lnp.php';
 
   my $url = $URL_API;
   $url = $URL_FAX if $self->{apitype} eq 'fax';
+  $url = $URL_LNP if $self->{apitype} eq 'lnp';
 
   my $response = $ua->post($url, {
                     login => $self->{login}, 
@@ -290,6 +295,8 @@ If you asked for a list of numbers and we had some available, they will be liste
 In a list contect, all entries will be returned in a list.  In a scalar
 scalar context, entries will be separated by newlines.
 
+=back
+
 =head1 AUTHOR
 
 Ivan Kohler, C<< <ivan-vitelity at freeside.biz> >>
@@ -328,18 +335,19 @@ L<http://search.cpan.org/dist/Net-Vitelity>
 
 =back
 
-=head1 ACKNOWLEDGEMENTS
+=head1 ADVERTISEMENTS
 
 This module was developed by Freeside Internet Services, Inc.
-If you need a complete, open-source web-based application to manage your
-customers, billing and trouble ticketing, please visit http://freeside.biz/
+Need a complete, open-source back-office and customer self-service solution?
+The Freeside software includes Vitelity integration, CDR rating,
+invoicing, credit card and electronic check processing, integrated trouble
+ticketing and customer signup and self-service web interfaces.
 
-Development sponsored by Ring Carrier LLC.  If you need a hosted or on-site
-PBX, please visit http://www.ringcarrier.com/
+http://freeside.biz/
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009 Freeside Internet Services, Inc.
+Copyright 2009-2017 Freeside Internet Services, Inc.
 All rights reserved.
 
 This program is free software; you can redistribute it and/or modify it