summaryrefslogtreecommitdiff
path: root/FS/FS/part_export/www_plesk.pm
diff options
context:
space:
mode:
authorivan <ivan>2006-10-14 23:53:39 +0000
committerivan <ivan>2006-10-14 23:53:39 +0000
commit70cbe021e8ecc7b77dc3a3c25b778d0f21fca94e (patch)
treea619a8e006e57d1de42d1fbdc4de912d4ec5098b /FS/FS/part_export/www_plesk.pm
parent55ba66c693dcd0f37123476bb4383491514bf41c (diff)
don't load Net::Plesk until its needed, to prevent every install from depending on it
Diffstat (limited to 'FS/FS/part_export/www_plesk.pm')
-rw-r--r--FS/FS/part_export/www_plesk.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/part_export/www_plesk.pm b/FS/FS/part_export/www_plesk.pm
index 3839596..a4ebbf5 100644
--- a/FS/FS/part_export/www_plesk.pm
+++ b/FS/FS/part_export/www_plesk.pm
@@ -3,8 +3,6 @@ package FS::part_export::www_plesk;
use vars qw(@ISA %info);
use Tie::IxHash;
use FS::part_export;
-use Net::Plesk;
-use Net::Plesk::Response;
@ISA = qw(FS::part_export);
@@ -37,7 +35,10 @@ sub rebless { shift; }
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'),
@@ -79,6 +80,9 @@ sub _export_insert {
sub _plesk_command {
my( $self, $method, @args ) = @_;
+
+ eval "use Net::Plesk'";
+ return $@ if $@;
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');