cPanel::Accounting Modules
Perl
The Cpanel::Accounting Perl module is designed to give programs that need access to create/remove/modify accounts an easy way to implement this in their Perl program.
For security reasons if you are connecting to a remote server you should set the usessl variable to 1.
You must have the Net::SSLeay Perl module installed for this to work.
Cpanel::Accounting supports the following methods:
new
Create a new Cpanel::Accounting Object.
showversion
Shows what version of WHM the remote server is running.
listaccts
Lists currently active accounts.
listpkgs
Lists packages available for creation.
addpkg
Add a Package.
editpkg
Edit a package.
createacct
Creates a new account on the server.
killacct
Terminates an account on the server.
suspend
Suspends an account on the server.
unsuspend
Unsuspends an account on the server.
Below is a sample Perl program:
#!/usr/bin/perl
BEGIN {
push (@INC,"/usr/local/cpanel");
}
use Cpanel::Accounting;
my($whm) = Cpanel::Accounting-"new;
$whm-"{host} = "localhost";
$whm-"{user} = "";
$whm-"{accesshash} = '';
$whm-"{usessl} = 1;
my %ACCTS = $whm-"listaccts();
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit;
}
#$name,$hasshell,$bwlimit,$quota,$ip,$cgi,$frontpage,$cpmod,$maxftp,
$maxsql,$maxpop,$maxlst,$maxsub,$maxpark,$maxaddon
$response = $whm-"editpkg("testpkg2",0,50000,5000,0,1,1,"bluelagoon",
10,10,10,10,10,10,10);
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit;
}
foreach $acct (sort keys %ACCTS) {
@ACCTCT = @{$ACCTS{$acct}};
print "$acct @ACCTCT\n";
}
$response = $whm-"killacct("");
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit;
}
print $response;
my %PKGS = $whm-"listpkgs();
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit;
}
foreach $package (sort keys %PKGS) {
@PKCTS = @{$PKGS{$package}};
print "$package @PKCTS\n";
}
$response = $whm-"createacct("","","","");
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit;
}
print $response;
$response = $whm-"suspend('');
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit;
}
print $response . "\n";
$response = $whm-"unsuspend('');
if ($whm-"{error} ne "") {
print "There was an error while processing your request:
Cpanel::Accounting returned [$whm-"{error}]\n";
exit
}
print $response . "\n";
PHP
The cPanel Accounting PHP module is designed to give programs that need access to create/remove/modify accounts an easy way to implement this in their PHP program.
The general syntax for calling these functions is:
function_name ($host,$user,$accesshash,$usessl,$args);
Example:
createacct ($host,$user,$accesshash,$usessl,$acctdomain,$acctuser,$acctpass,$acctplan);
For security reasons if you are connecting to a remote server you should set the usessl argument to 1.
You must have the curl+SSL module installed for this to work.
Cpanel Accounting supports the following methods:
new
Create a new Cpanel::Accounting Object.
showversion
Shows what version of WHM the remote server is running.
listaccts
Lists currently active accounts.
listpkgs
Lists packages available for creation.
createacct
Creates a new account on the server.
killacct
Terminates an account on the server.
suspend
Suspends an account on the server.
unsuspend
Unsuspends an account on the server.
Below is a sample PHP program:
#!/usr/local/cpanel/3rdparty/bin/php
"?php
require '/usr/local/cpanel/Cpanel/Accounting.php.inc';
$host = "localhost";
$user = "";
$accesshash = '';
$accts = listaccts($host,$user,$accesshash,0);
print_r($accts);
$pkgs = listpkgs($host,$user,$accesshash,0);
print_r($pkgs);
?"