X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Facct_plesk.pm;h=50b6faebfedf6e23282e7c2facaa7b78187806c0;hb=38e34bbc53a4222c7507e95914e1364a5a74623f;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);