X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Facct_plesk.pm;h=d8d70a30e26ab7aeea4805499ee9b042e209d916;hb=f9a181e4c2e505df84de16190ee3b75011326f3f;hp=e295a01c5271b3f551f6cfe94e3bcacf7e9c117e;hpb=55ba66c693dcd0f37123476bb4383491514bf41c;p=freeside.git
diff --git a/FS/FS/part_export/acct_plesk.pm b/FS/FS/part_export/acct_plesk.pm
index e295a01c5..d8d70a30e 100644
--- a/FS/FS/part_export/acct_plesk.pm
+++ b/FS/FS/part_export/acct_plesk.pm
@@ -23,7 +23,7 @@ Real-time export to
Plesk managed server.
Requires installation of
Net::Plesk
-from CPAN.
+from CPAN and proper configuration.
END
);
@@ -46,6 +46,9 @@ sub _export_insert {
sub _plesk_command {
my( $self, $method, $domain, @args ) = @_;
+
+ eval "use Net::Plesk;";
+ return $@ if $@;
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');
@@ -57,7 +60,7 @@ sub _plesk_command {
);
my $dresponse = $plesk->domain_get( $domain );
- return $dresponse->error unless $dresponse->is_success;
+ return $dresponse->errortext unless $dresponse->is_success;
my $domainID = $dresponse->id;
my $response = $plesk->$method($dresponse->id, @args);