[freeside-commits] freeside/FS/FS/part_export cpanel.pm,NONE,1.1
Ivan,,,
ivan at wavetail.420.am
Wed Sep 7 02:37:28 PDT 2005
Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail:/tmp/cvs-serv22331/FS/FS/part_export
Added Files:
cpanel.pm
Log Message:
add cpanel export
--- NEW FILE: cpanel.pm ---
package FS::part_export::cpanel;
use vars qw(@ISA %info);
use Tie::IxHash;
use FS::part_export;
@ISA = qw(FS::part_export);
tie my %options, 'Tie::IxHash',
'user' => { label=>'Remote access username' },
'accesshash' => { label=>'Remote access key' },
;
%info = (
'svc' => 'svc_acct',
'desc' => 'Real-time export to Cpanel control panel.',
'options' => \%options,
'nodomain' => 'Y',
'notes' => 'Real time export to a the <a href="http://www.cpanel.net/">Cpanel</a> control panel software. Service definition names are exported as Cpanel packages. Requires installation of the Cpanel::Accounting perl module distributed with Cpanel.',
);
sub rebless { shift; }
sub _export_insert {
my($self, $svc_acct) = (shift, shift);
$err_or_queue = $self->cpanel_queue( $svc_acct->svcnum, 'insert',
$svc_acct->domain,
$svc_acct->username,
$svc_acct->_password,
$svc_acct->cust_svc->part_svc->svc,
);
ref($err_or_queue) ? '' : $err_or_queue;
}
sub _export_replace {
my( $self, $new, $old ) = (shift, shift, shift);
return "can't change username with cpanel"
if $old->username ne $new->username;
return "can't change password with cpanel"
if $old->_passsword ne $new->_password;
return "can't change domain with cpanel"
if $old->domain ne $new->domain;
'';
##return '' unless $old->_password ne $new->_password;
#$err_or_queue = $self->cpanel_queue( $new->svcnum,
# 'replace', $new->username, $new->_password );
#ref($err_or_queue) ? '' : $err_or_queue;
}
sub _export_delete {
my( $self, $svc_acct ) = (shift, shift);
$err_or_queue = $self->cpanel_queue( $svc_acct->svcnum,
'delete', $svc_acct->username
);
ref($err_or_queue) ? '' : $err_or_queue;
}
sub _export_suspend {
my( $self, $svc_acct ) = (shift, shift);
$err_or_queue = $self->cpanel_queue( $svc_acct->svcnum,
'suspend', $svc_acct->username );
ref($err_or_queue) ? '' : $err_or_queue;
}
sub _export_unsuspend {
my( $self, $svc_acct ) = (shift, shift);
$err_or_queue = $self->cpanel_queue( $svc_acct->svcnum,
'unsuspend', $svc_acct->username );
ref($err_or_queue) ? '' : $err_or_queue;
}
sub cpanel_queue {
my( $self, $svcnum, $method ) = (shift, shift, shift);
my $queue = new FS::queue {
'svcnum' => $svcnum,
'job' => "FS::part_export::cpanel::cpanel_$method",
};
$queue->insert(
$self->machine,
$self->option('user'),
$self->option('accesshash'),
@_
) or $queue;
}
sub cpanel_insert { #subroutine, not method
my $whm = cpanel_connect(shift, shift, shift);
my $response = $whm->createacct(@_);
die $whm->{'error'} if $whm->{'error'};
}
#sub cpanel_replace { #subroutine, not method
#}
sub cpanel_delete { #subroutine, not method
my $whm = cpanel_connect(shift, shift, shift);
my $response = $whm->killacct(shift);
die $whm->{'error'} if $whm->{'error'};
}
sub cpanel_suspend { #subroutine, not method
my $whm = cpanel_connect(shift, shift, shift);
my $response = $whm->suspend(shift);
die $whm->{'error'} if $whm->{'error'};
}
sub cpanel_unsuspend { #subroutine, not method
my $whm = cpanel_connect(shift, shift, shift);
my $response = $whm->unsuspend(shift);
die $whm->{'error'} if $whm->{'error'};
}
sub cpanel_connect {
my( $host, $user, $accesshash ) = @_;
eval "use Cpanel::Accounting;";
die $@ if $@;
my $whm = new Cpanel::Accounting;
$whm->{'host'} = $host;
$whm->{'user'} = $user;
$whm->{'accesshash'} = $accesshash;
$whm->{'usessl'} = 1;
$whm;
}
More information about the freeside-commits
mailing list