sub _plesk_command {
my( $self, $method, $domain, @args ) = @_;
+
+ eval "use Net::Plesk'";
+ return $@ if $@;
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');
use vars qw(@ISA %info);
use Tie::IxHash;
use FS::part_export;
-use Net::Plesk;
-use Net::Plesk::Response;
@ISA = qw(FS::part_export);
sub _export_insert {
my( $self, $www ) = ( shift, shift );
-
+
+ eval "use Net::Plesk'";
+ return $@ if $@;
+
my $plesk = new Net::Plesk (
'POST' => $self->option('URL'),
':HTTP_AUTH_LOGIN' => $self->option('login'),
sub _plesk_command {
my( $self, $method, @args ) = @_;
+
+ eval "use Net::Plesk'";
+ return $@ if $@;
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');