API-Plesk

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use warnings;

use Module::Build;

my $build = Module::Build->new(
    module_name => 'API::Plesk',
    license     => 'perl',
    dist_author => 'Ivan Sokolov <ivsokolov@cpan.org>',
    requires    => {
        'Module::Build'   => 0,
        'Data::Dumper'    => 0,
        'LWP::UserAgent'  => 0,
        'HTTP::Request'   => 0,
        'Carp'            => 0,
        'XML::Fast'       => 0,
        'version'         => 0,
    },
    build_requires => {
        'Test::More'       => 0,
        'Test::LongString' => 0,
        'URI'              => 0,

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.40"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Data::Dumper" : "0",
            "HTTP::Request" : "0",
            "LWP::UserAgent" : "0",
            "Module::Build" : "0",
            "XML::Fast" : "0",
            "version" : "0"
         }
      }
   },
   "provides" : {
      "API::Plesk" : {

META.yml  view on Meta::CPAN

    file: lib/API/Plesk/User.pm
    version: 0
  API::Plesk::WebUser:
    file: lib/API/Plesk/WebUser.pm
    version: 0
  API::Plesk::Webspace:
    file: lib/API/Plesk/Webspace.pm
    version: 0
requires:
  Carp: 0
  Data::Dumper: 0
  HTTP::Request: 0
  LWP::UserAgent: 0
  Module::Build: 0
  XML::Fast: 0
  version: 0
resources:
  license: http://dev.perl.org/licenses/
version: 2.03

Makefile.PL  view on Meta::CPAN

# Note: this file was auto-generated by Module::Build::Compat version 0.4003
use ExtUtils::MakeMaker;
WriteMakefile
(
  'NAME' => 'API::Plesk',
  'VERSION_FROM' => 'lib/API/Plesk.pm',
  'PREREQ_PM' => {
                   'Carp' => 0,
                   'Data::Dumper' => 0,
                   'HTTP::Request' => 0,
                   'LWP::UserAgent' => 0,
                   'Module::Build' => 0,
                   'Test::LongString' => 0,
                   'Test::More' => 0,
                   'URI' => 0,
                   'XML::Fast' => 0,
                   'version' => 0
                 },
  'INSTALLDIRS' => 'site',

lib/API/Plesk.pm  view on Meta::CPAN

package API::Plesk;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use HTTP::Request;
use LWP::UserAgent;
use XML::Fast;
use version;

use API::Plesk::Response;

our $VERSION = '2.03';

lib/API/Plesk/FTPUser.pm  view on Meta::CPAN

package API::Plesk::FTPUser;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use base 'API::Plesk::Component';

#TODO
sub add {
    my ( $self, %params ) = @_;
    my $bulk_send = delete $params{bulk_send};

    my @sort_fields = (
        'name',

lib/API/Plesk/Mail.pm  view on Meta::CPAN

package API::Plesk::Mail;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use base 'API::Plesk::Component';

sub enable {
    my ($self, %filter) = @_;
    my $bulk_send = delete $filter{bulk_send}; 

    return $bulk_send ? \%filter : 
        $self->plesk->send('mail', 'enable', \%filter);
}

lib/API/Plesk/Response.pm  view on Meta::CPAN

package API::Plesk::Response;

use strict;
use warnings;

use Data::Dumper;

sub new {
    my ( $class, %attrs) = @_;
    $class = ref $class || $class;

    my $operator  = $attrs{operator};
    my $operation = $attrs{operation};
    my $response  = $attrs{response};
    my $results = [];
    my $is_success = 1;

lib/API/Plesk/ServicePlan.pm  view on Meta::CPAN

package API::Plesk::ServicePlan;

use strict;
use warnings;

use Carp;
use Data::Dumper;
use base 'API::Plesk::Component';

my @header_fields = qw(
    owner-id
    owner-login
);

my @other_fields = qw(
    mail
    limits

lib/API/Plesk/Site.pm  view on Meta::CPAN

package API::Plesk::Site;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use base 'API::Plesk::Component';

#TODO
sub add {
    my ( $self, %params ) = @_;
    my $bulk_send = delete $params{bulk_send};
    my $gen_setup = $params{gen_setup} || confess "Required gen_setup parameter!";

    my @fields = (

lib/API/Plesk/SiteBuilder.pm  view on Meta::CPAN

package API::Plesk::SiteBuilder;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use base 'API::Plesk::Component';

#TODO
sub assign_trial_site {
    my ( $self, %params ) = @_;
    my $bulk_send = delete $params{bulk_send};

    $self->check_required_params(\%params, qw(pp-site-guid sb-site-uuid));
    

lib/API/Plesk/WebUser.pm  view on Meta::CPAN

package API::Plesk::WebUser;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use base 'API::Plesk::Component';

#TODO
sub add {
    my ( $self, %params ) = @_;
    my $bulk_send = delete $params{bulk_send};

    $self->check_required_params(\%params, qw(site-id login));

lib/API/Plesk/Webspace.pm  view on Meta::CPAN

package API::Plesk::Webspace;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use base 'API::Plesk::Component';

my @gen_setup_fields = qw(
    name
    owner-id
    owner-login
    owner-guid
    owner-external-id
    htype

t/compoment.t  view on Meta::CPAN

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN {
    plan tests => 10;
    use_ok( 'API::Plesk::Component' );
}

my $c = API::Plesk::Component->new(

t/customer.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 3;
    use_ok('API::Plesk::Customer'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/database.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib qw(lib t);
use TestData;

BEGIN { 
    plan tests => 6;
    use_ok('API::Plesk::Database'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/dns.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::DNS'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/ftp_user.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::FTPUser'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/mail.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 4;
    use_ok('API::Plesk::Mail'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/mock.t  view on Meta::CPAN

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib qw(t lib);
use TestData;

BEGIN {
    plan tests => 6;
    use_ok( 'API::Plesk::Mock' );
}

my $api = API::Plesk::Mock->new( %TestData::plesk_valid_params );

t/plesk.t  view on Meta::CPAN

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib qw(t lib);
use TestData;

BEGIN {
    plan tests => 8;
}

BEGIN {
    use_ok( 'API::Plesk' );

t/response.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;
use XML::Fast;

BEGIN { 
    plan tests => 17;

    use_ok('API::Plesk::Response'); 
}

t/service-plan.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 5;
    use_ok('API::Plesk::ServicePlan'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/site-alias.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 5;
    use_ok('API::Plesk::SiteAlias'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/site.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 5;
    use_ok('API::Plesk::Site'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/sitebuilder.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::SiteBuilder'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/user.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 3;
    use_ok('API::Plesk::User'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/webspace.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 7;
    use_ok('API::Plesk::Webspace'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );

t/webuser.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN { 
    plan tests => 2;
    use_ok('API::Plesk::WebUser'); 
}

my $api = API::Plesk->new( %TestData::plesk_valid_params );