X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Facct_plesk.pm;h=50b6faebfedf6e23282e7c2facaa7b78187806c0;hb=8fae8cf1c2baf39c4e5c35fa1d9e15514bbe77c1;hp=0028a2e8624ce9395acf631c42c01dcbb1468d0c;hpb=70cbe021e8ecc7b77dc3a3c25b778d0f21fca94e;p=freeside.git
diff --git a/FS/FS/part_export/acct_plesk.pm b/FS/FS/part_export/acct_plesk.pm
index 0028a2e86..50b6faebf 100644
--- a/FS/FS/part_export/acct_plesk.pm
+++ b/FS/FS/part_export/acct_plesk.pm
@@ -15,15 +15,17 @@ tie my %options, 'Tie::IxHash',
;
%info = (
- 'svc' => 'svc_acct',
- 'desc' => 'Real-time export to Plesk managed mail service',
- 'options'=> \%options,
+ 'svc' => 'svc_acct',
+ 'desc' => 'Real-time export to Plesk managed mail service',
+ 'options' => \%options,
+ 'no_machine' => 1,
+ 'default_svc_class' => 'Email',
'notes' => <<'END'
Real-time export to
Plesk managed server.
Requires installation of
Net::Plesk
-from CPAN.
+from CPAN and proper configuration.
END
);
@@ -47,7 +49,7 @@ sub _export_insert {
sub _plesk_command {
my( $self, $method, $domain, @args ) = @_;
- eval "use Net::Plesk'";
+ eval "use Net::Plesk;";
return $@ if $@;
local($Net::Plesk::DEBUG) = 1
@@ -60,7 +62,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);