projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
55ba66c
)
don't load Net::Plesk until its needed, to prevent every install from depending on it
author
ivan
<ivan>
Sat, 14 Oct 2006 23:53:39 +0000
(23:53 +0000)
committer
ivan
<ivan>
Sat, 14 Oct 2006 23:53:39 +0000
(23:53 +0000)
FS/FS/part_export/acct_plesk.pm
patch
|
blob
|
history
FS/FS/part_export/www_plesk.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/acct_plesk.pm
b/FS/FS/part_export/acct_plesk.pm
index
e295a01
..
0028a2e
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 ) = @_;
sub _plesk_command {
my( $self, $method, $domain, @args ) = @_;
+
+ eval "use Net::Plesk'";
+ return $@ if $@;
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');
diff --git
a/FS/FS/part_export/www_plesk.pm
b/FS/FS/part_export/www_plesk.pm
index
3839596
..
a4ebbf5
100644
(file)
--- 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 vars qw(@ISA %info);
use Tie::IxHash;
use FS::part_export;
-use Net::Plesk;
-use Net::Plesk::Response;
@ISA = qw(FS::part_export);
@ISA = qw(FS::part_export);
@@
-37,7
+35,10
@@
sub rebless { shift; }
sub _export_insert {
my( $self, $www ) = ( shift, 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'),
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 ) = @_;
sub _plesk_command {
my( $self, $method, @args ) = @_;
+
+ eval "use Net::Plesk'";
+ return $@ if $@;
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');
local($Net::Plesk::DEBUG) = 1
if $self->option('debug');