API-ISPManager

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

API-ISPManager version 0.02
===========================

The README is used to introduce the module and provide instructions on
how to install the module, any machine dependencies it may have (for
example C compilers and installed libraries) and any other information
that should be provided before the module is installed.

A README file is required for CPAN modules since CPAN extracts the
README file from a module distribution so that people browsing the
archive can use it get an idea of the modules uses. It is usually a
good idea to provide version information here so that people can
decide whether fixes for the module are worth downloading.

INSTALLATION

To install this module type the following:

   perl Makefile.PL

add_database.pl  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use API::ISPManager;

#
# Script for add databases account to certain user account in ISPManager
#

die "Params required: host / username / password / db_name / db_user / db_password\n" unless scalar @ARGV == 6;

my $host     = $ARGV[0];
my $login    = $ARGV[1];
my $password = $ARGV[2];
my $db_name  = $ARGV[3];
my $db_user  = $ARGV[4];
my $db_pass  = $ARGV[5];

$API::ISPManager::DEBUG = '';

add_mailbox.pl  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use API::ISPManager;

#
# Script for add mail account to certain mail-domain in ISPManager
#

die "Params required: host / username / password / mailbox_name / password\n" unless scalar @ARGV == 5;

my $host          = $ARGV[0];
my $login         = $ARGV[1];
my $password      = $ARGV[2];
my $mailbox_name  = $ARGV[3];
my $mailbox_pass  = $ARGV[4];

my @raw_mail = split '@', $mailbox_name;

my $name   = $raw_mail[0];

add_www_domain.pl  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use API::ISPManager;

#
# Script for add www domains to certain user account in ISPManager
#

die "Params required: host / username / password / domain / docroot\n" unless scalar @ARGV == 5;

my $host     = $ARGV[0];
my $login    = $ARGV[1];
my $password = $ARGV[2];
my $domain   = $ARGV[3];
my $docroot  = $ARGV[4];
my $email    = '';
my $ip       = `/usr/bin/host -t A $host | head -1 | awk '{print \$4}'`;
chomp $ip;

upload_file.pl  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use API::ISPManager;

#
# Script for add mail account to certain mail-domain in ISPManager
#

die "Params required: host / username / password / filename /path\n" unless scalar @ARGV == 5;

my $host          = $ARGV[0];
my $login         = $ARGV[1];
my $password      = $ARGV[2];
my $filename      = $ARGV[3];
my $plid          = $ARGV[4];


$API::ISPManager::DEBUG = 1;

vdsmanager.pl  view on Meta::CPAN

    my $preset_name = shift;
    return '' unless $preset_name;

    my $vds_template_details = API::ISPManager::vdspreset::get( {
        %$connection_params ,
        elid => $preset_name
    } );

    # Фильтруем только нужные параметры тарифа
    my $clean_plan_details = { };
    my @required_params = qw(disk mem cpu proc desc traf);


    for (@required_params) {

        unless ( $vds_template_details->{$_} ) {
            warn "Required detail is missing!!\n";
            return '';
        }

        $clean_plan_details->{$_} = $vds_template_details->{$_};
    }
    
    return $clean_plan_details;