3.1. USING THE CPANEL::ACCOUNTING PERL MODULE

CHAPTER 3. FAQ

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;

}

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;

77