X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FNet%2FVitelity.pm;h=0715b91bb5a8f530a5b3da041d522c43501498f3;hb=ed73d4b421ff53c1aad1c1a9c66a8e352240ee1a;hp=c2df24f8bf52c1c430ff42c3ac79b31c55018097;hpb=fd9001e4daca2196ba844364a3dedbd364833f9c;p=Net-Vitelity.git

diff --git a/lib/Net/Vitelity.pm b/lib/Net/Vitelity.pm
index c2df24f..0715b91 100644
--- 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,8 +19,10 @@ 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
+                                       'debug'   => 0,
                                      );
 
 =head1 METHODS
@@ -42,6 +40,7 @@ sub new {
     die "missing user and/or password" unless defined $data{'login'} && defined $data{'pass'};
     my $self = { 'login' => $data{'login'}, 'pass' => $data{'pass'} };
     $self->{apitype} = $data{'apitype'} ? $data{'apitype'} : 'api';
+    $self->{debug} = $data{'debug'} ? 1 : 0;
     bless $self, $class;
     return $self;
 }
@@ -57,11 +56,19 @@ 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';
+
+  if ( $self->{debug} ) {
+    warn "Vitelity $cmd ($url)\n";
+    my %hash = @_;
+    warn "  $_: $hash{$_}\n" foreach keys %hash;
+  }
 
   my $response = $ua->post($url, {
                     login => $self->{login}, 
@@ -336,18 +343,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