From 69bf46aa820bb3378944e0646398c4f093234783 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Thu, 19 Oct 2006 04:44:35 +0000
Subject: better error management

---
 lib/Net/Plesk.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/Net/Plesk.pm')

diff --git a/lib/Net/Plesk.pm b/lib/Net/Plesk.pm
index 2b33c51..3e78963 100644
--- a/lib/Net/Plesk.pm
+++ b/lib/Net/Plesk.pm
@@ -214,7 +214,13 @@ sub AUTOLOAD {
     $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>"
+    );
   }
 
 }
-- 
cgit v1.2.1