X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FNet%2FVitelity.pm;h=b43818b5e73ac5a140af0ce15286c23c7cdf79c3;hb=1b89161ce4f4f67a80908c5faa8d05466810cafe;hp=d0ef45ead63bebfafe14915e8a33ab55c69a75b0;hpb=0bbc67fcb177d8ca6a70727438f3d3dcdffa3a8e;p=Net-Vitelity.git

diff --git a/lib/Net/Vitelity.pm b/lib/Net/Vitelity.pm
index d0ef45e..b43818b 100644
--- a/lib/Net/Vitelity.pm
+++ b/lib/Net/Vitelity.pm
@@ -17,6 +17,8 @@ our $VERSION = '0.01';
 
 our $URL = 'http://70.84.157.157/api.php';
 
+our $AUTOLOAD;
+
 =head1 SYNOPSIS
 
     use Net::Vitelity;
@@ -45,9 +47,9 @@ sub AUTOLOAD {
 
   #XXX md5 encrypt pass
 
-  $ua->post($URL, {
+  my $response = $ua->post($URL, {
                     login => $self->{login}, 
-                    pass  => $self=>{pass}
+                    pass  => $self->{pass},
                     cmd   => $cmd,
                     @_,
                   }
@@ -60,8 +62,9 @@ sub AUTOLOAD {
   my $content = $response->decoded_content;
 
   #dear vitelity api: why does this make it easier to parse?
-  $content =~ s/^x\[\[/;
-  $content =~ s/\[\[x$/;
+  $content =~ s/^x\[\[//;
+  #$content =~ s/\[\[x$//;
+  $content =~ s/\]\]x$//;
 
   wantarray ? split("\n", $content) : $content;