#!/usr/bin/

perl

  -w

use strict;
use WWW::Mechanize;
use MIME::Base64;

    my $mech = WWW::Mechanize->new( autocheck => 1 );
    my @args = (
        Authorization => "Basic " .
            MIME::Base64::encode( 'user' . ':' . 'pass' )
    );

    $mech->credentials( 'http://hosting.com:5555', 'cPanel', 'user', 'pass' );
    $mech->get( 'http://hosting.com:5555', @args );
    $mech->follow_link( text => 'Addon Domains', n=> 1 );

$mech->get( 'http://hosting.com:5555', @args );
#$mech->follow_link( text => 'Addon Domains', n=> 1 );

my $link =  $mech->find_link( text => 'Addon Domains' );

my $addon_url = 'http://hosting.com:5555/frontend/x/' . $link->[0];
$mech->get( $addon_url, @args );
...

package CPanel;
use strict;
use warnings;
use WWW::Mechanize;

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    $self->{mech} = WWW::Mechanize->new();
    $self->{url} = shift;
    $self->{mech}->credentials(shift,shift);
    return $self;
}

sub add_subdomain {
    my $self =  shift;
    my ($domain,$subdomain) = @_;
    my $mech = $self->{mech};
    my $response = $mech->get($self->{url});
    die "unable to get main page" unless $response->is_success;
    $response = $mech->follow_link(text_

regex

  => qr/Subdomain/ );
    die "unable to get subdomain page" unless $response->is_success;
    my $form = $mech->form_name("domainform");
    die "unable to find form" unless $form;
    $mech->field("rootdomain",$domain);
    $mech->field("domain",$subdomain);
    $mech->submit();
    1;
}

sub add_on_domain {
    my $self = shift;
    my ($domain,$password) = @_;
    my $mech = $self->{mech};
    my $response = $mech->get($self->{url} . "/frontend/x/addon/index.html");
    die "unable to get add_on_domain form" unless $response->is_success;
    my $form = $mech->form_name("mainform");
    die "unable to find form" unless $form;
    my $userdir = $domain; $userdir =~ s/./-/g;
    $mech->field("domain",$domain);
    $mech->field("user",$userdir);
    $mech->field("pass",$password);
    $response = $mech->click();
    die "unable to post add on domain" unless $response->is_success;
    1;
}

sub install_wordpress {
    my $self = shift;
    my ($domain,$username,$password) = @_;
    my $mech = $self->{mech};
    my $response = $mech->get($self->{url} . "/frontend/x/fantastico/autoinstallwordpress.

php

 ");
    die "unable to get wordpress form" unless $response->is_success;
   
    my $form = $mech->form_with_fields("installdirdomain","installdir");
    die "unable to get wordpress form" unless $form;
   
    $mech->field("installdirdomain",$domain);
    $mech->field("adminuser",$username);
    $mech->field("INST_password",$password);
    $mech->field("socketpass",$password);
    $response = $mech->click();
    die "unable to submit form" unless $response->is_success;
   
    $form = $mech->form_with_fields("adminuser","continuepage");
    die "unable to get finish wordpress form" unless $form;
    $response = $mech->click();
    die "unable to submit form" unless $response->is_success;
    1;
}

1;

http://$user0:$password0@yourdomain.com:2086/xml-api/createacct?username=$user&plan=$plan&ip=$ip&cpmod=$cpmod&password=$password&contactemail=$contactemail&domain=$domain&useregns=$useregns&reseller=$reseller

my $panel = CPanel->new($cpanel_url,$username,$password);
$panel->add_on_domain("mydomain.domain.com",$password);
$panel->install_wordpress("$site.$domain",$blog_username,$blog_password);