event refactor, landing on HEAD!

[freeside.git] / FS / FS / part_export / acct_plesk.pm

diff --git a/FS/FS/part_export/acct_plesk.pm b/FS/FS/part_export/acct_plesk.pm
index e295a01..1be820a 100644 (file)
--- a/FS/FS/part_export/acct_plesk.pm
+++ b/FS/FS/part_export/acct_plesk.pm
@@ -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);