Using API in perl scripts on virtual hostings

Hi guys,

First of all sorry for my english, but I really need your help. I have several virtual hostings with cpanel, and I want to manage them (addon,delete new domains, make msql bases etc.) from my perl scripts. Is it possible for me? For example, I want to addon new domains. I tried something like that:
use API::CPanel;

Code:

API::CPanel::Domain::add_addon_domain({
    auth_user   => 'username', 
    auth_passwd => 'qwerty', 
    host        => '11.22.33.44',
    dir         => '/newdomain', 
    newdomain   => 'newdomain', 
    pass        => 'xxx',    
    subdomain   => 'ftp',
});

but without any success.
When I make request using browser https://myhost:2083/xml-api/functionname answer is: "<result>0</result><reason>Token denied</reason>".
Can you please show me the simple perl code, for example for addon new domain?
Look forward to your answer ...

 

Thanks for answer, but when I try "https://myhost:2083/cpsess1471282806/xml-api/functionname" I have 404 error Is it mean that I cann't use API as simple user?
And about cPanel::PublicAPI. As I understand it is modul for cpanel owners. I am only user Am I wrong?

 

Ok, thanks a lot. I've done everything I need.
Hm, I'am to fast I have one more problem. Everything work fine, but one virtual host "Bluehost" make me crazy
Sub that I made:

Code:

sub AddonDomain { 
 my ($host,$username,$password,$domain)=@_;
 if ($domain=~/http\:\/\//) {$domain=~s/http\:\/\///}
 my $subdomain=$domain;
 $subdomain=~s/\.[^\n]+//;
 my $cp = cPanel::PublicAPI->new( 
       'user' => $username,
       'pass' => $password,
       'host' => $host,
       'debug' => 1,
     );

 my @result = $cp->cpanel_api2_request('cpanel',
    { 
        'module' => 'AddonDomain',
        'func' => 'addaddondomain',
    },
    {
        'dir' => "public_html/$domain",
        'newdomain' => $domain,
        'subdomain' => $subdomain,
    },
  );
 my $d = Data::Dumper->new(\@result);
 my $out=$d->Dump;
 if ($out=~/was successfully parked/) {return 1;} else {print "$out\n";return 0;}
}

but when I try to addon domain to bluehost I have answer from debug:

Code:

debug: Using user param from object creation
debug: Using pass param from object creation
debug: loaded serializer: JSON::Syck
debug: api_request: ( cPanel::PublicAPI=HASH(0x1977c030), cpanel, /json-api/cpanel, GET, HASH(0x1977bfa0),  )
debug: failed to load encoder: cPanel/CPAN/URI/Escape.pm
debug: loaded encoder: URI/Escape.pm
debug: Found port for service cpanel to be 2083 (usessl=1)
debug: GET /json-api/cpanel?cpanel_jsonapi_module=AddonDomain&subdomain=DOMAIN&newdomain=DOMAIN&cpanel_jsonapi_apiversion=2&cpanel_jsonapi_func=addaddondomain&dir=public_html%2FDOMAIN HTTP/1.1
Host: box706.bluehost.com
Connection: Close
User-Agent: cPanel::PublicAPI (perl) 1.002
Authorization: Basic xxxxxxxxxxxxxxxxxxxxxxxxx


debug: HTTP LINE[HTTP/1.1 200 OK
]
debug: HEADER[content-type]=[text/plain; charset="utf-8"]
debug: HEADER[connection]=[Keep-Alive]
debug: HEADER[keep-alive]=[timeout=70, max=200]
debug: HEADER[date]=[Wed, 07 Mar 2012 20:33:46 GMT]
debug: HEADER[x-keep-alive-count]=[1]
debug: HEADER[content-length]=[0]
debug: HEADER[server]=[cpsrvd/11.30.5.6]
debug: READ TYPE=content-length
There was an issue with parsing the following response from cPanel or WHM:

There was an issue with parsing the following response from cPanel or WHM:

I guess that problem is "debug: GET /json-api/cpanel?cpanel_jsonapi_module=AddonDomain&subdomain= ......" must be xml-api not json-api. Could you please tell me what must I do?

 

Thanks cPanelDavidN, but I got $VAR1 = undef; in that case
Strange, very strange. If I try using another function, for example "$cp->cpanel_api2_request('cpanel',{'module' => 'AddonDomain','func' => 'listaddondomains ',},);" everything work fine.

 

Thanks a lot KostonConsulting, I will remake my subs

 

cPanelDavidN: When I try to make 4. the answer from browser:

Error parsing XML: element not found
https://myhost.com:2083/cpsessxxx/xml-api/cpanel?cpanel_xmlapi_module=AddonDomain&blablabla
Line 1, character 1:
^