$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>"
+ );
}
}