diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/Vitelity.pm | 11 |
1 files changed, 7 insertions, 4 deletions
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; |