cleanup and dependancies

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

diff --git a/lib/Net/Plesk.pm b/lib/Net/Plesk.pm
index 2b33c51..92d42e7 100644 (file)
--- a/lib/Net/Plesk.pm
+++ b/lib/Net/Plesk.pm
@@ -3,12 +3,9 @@ package Net::Plesk;
 use 5.005;
 use strict;
 
-use vars qw( $VERSION @ISA $AUTOLOAD $DEBUG $PROTO_VERSION $POST_URL
-             @EXPORT_OK %EXPORT_TAGS ); # @EXPORT
+use vars qw( $VERSION @ISA $AUTOLOAD $DEBUG $PROTO_VERSION $POST_URL );
 
-use Exporter;
 use LWP;
-use Data::Dumper;
 
 use Net::Plesk::Response;
 use Net::Plesk::Method;
@@ -22,11 +19,11 @@ use Net::Plesk::Method::client_add;
 use Net::Plesk::Method::client_get;
 use Net::Plesk::Method::client_ippool_add_ip;
 
-@ISA = qw(Exporter);
+@ISA = ();
 
-$VERSION = '0.01';
+$VERSION = '0.03';
 
-$PROTO_VERSION = '1.4.0.0';
+$PROTO_VERSION = '1.4.1.0';
 
 $DEBUG = 1;
 
@@ -208,13 +205,19 @@ sub AUTOLOAD {
 
     my $response = new Net::Plesk::Response $res->content;
     
-    warn Dumper( $response )
+    warn "$response\n"
       if $DEBUG;
 
     $response;
   }
   else {
-    die $res->status_line, "\n";
+    new Net::Plesk::Response (
+      '<?xml version="1.0" encoding="UTF-8"?>'. #a lie?  probably safe
+      '<packet version="' . $self->{'version'} . '">' .
+      "<system><status>error</status><errcode>500</errcode>" .
+      "<errtext>" . $res->status_line . "</errtext></system>" .
+      "</packet>"
+    );
   }
 
 }