API-DirectAdmin

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use 5.008008;
use ExtUtils::MakeMaker;

WriteMakefile(
    NAME              => 'API::DirectAdmin',
    VERSION_FROM      => 'lib/API/DirectAdmin.pm',
    PREREQ_PM         => {
        'Modern::Perl'   => '0',
        'Data::Dumper'   => '0',
        'LWP::UserAgent' => '0',
		'HTTP::Request'  => '0',
		'URI'   		 => '0',
		'Carp'   		 => '0',
    },
    ($] >= 5.005 ?
      (ABSTRACT_FROM  => 'lib/API/DirectAdmin.pm',
       AUTHOR         => 'Andrey "Chips" Kuzmin <chipsoid@cpan.org>') : ()),
);

README  view on Meta::CPAN

   make install

DEPENDENCIES

This module requires these other modules and libraries:
  Modern::Perl
  LWP::UserAgent
  HTTP::Request
  URI
  Carp 
  Data::Dumper

COPYRIGHT AND LICENCE

Copyright (C) 2012 by Andrey "Chips" Kuzmin <chipsoid@cpan.org>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.

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

package API::DirectAdmin;

use Modern::Perl '2010';
use LWP::UserAgent;
use HTTP::Request;
use Data::Dumper;
use Carp;
use URI;

our $VERSION = 0.09;
our $DEBUG   = '';
our $FAKE_ANSWER = '';

# for init subclasses
init_components(
    domain => 'Domain',

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

   make install

=head1 DEPENDENCIES

This module requires these other modules and libraries:
  Modern::Perl
  LWP::UserAgent
  HTTP::Request
  URI
  Carp 
  Data::Dumper

=head1 COPYRIGHT AND LICENCE

Copyright (C) 2012-2013 by Andrey "Chips" Kuzmin <chipsoid@cpan.org>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.

=cut

lib/API/DirectAdmin/Domain.pm  view on Meta::CPAN

package API::DirectAdmin::Domain;

use Modern::Perl '2010';
use Data::Dumper;

use base 'API::DirectAdmin::Component';

our $VERSION = 0.05;

# Return domains list
# INPUT
# connection data for USER, not admin
sub list {
    my ($self ) = @_;

lib/API/DirectAdmin/Mysql.pm  view on Meta::CPAN

package API::DirectAdmin::Mysql;

use Modern::Perl '2010';
use Data::Dumper;
use Carp;

use base 'API::DirectAdmin::Component';

our $VERSION = 0.05;

# Create database for user
# Connection data MUST BE for user: auth_user => 'admin_login|user_login'
# auth_passwd => 'admin_passwd'
#    INPUT

t/01-test.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use warnings;
use lib qw( ./lib );


use Data::Dumper;

our $ONLINE;

BEGIN {
    #$ENV{auth_user}   = 'restest';
    #$ENV{auth_passwd} = '123';
    #$ENV{host}        = '192.168.123.1';
    $ONLINE = $ENV{auth_user} && $ENV{auth_passwd} && $ENV{host};
}