File Coverage

blib/lib/cPanel/nginx.pm

Criterion	Covered	Total	%
statement	18	39	46.1
branch	0	4	0.0
condition			n/a
subroutine	6	8	75.0
pod	0	2	0.0
total	24	53	45.2

package cPanel::nginx;

use 5.008008;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
				getXMLAPIResponse
				getAuthHash
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

use LWP::UserAgent;
use HTTP::Request;

sub getAuthHash
{
# Функция возвращает Hash для доступа к API cPanel
# Hash предварительно должен быть сгенерирован в WHM

        open HASHFILE, "
        my $hash = "";
        while ()
        {
                $hash .= $_;
        }
        close HASHFILE;
        $hash =~ s/\n//g;
        my $auth = "WHM root:" . $hash;
        return $auth;
}

sub getXMLAPIResponse
{
# Первым аргументом функция принимает имя функции API
# Во втором аргументе функции должен быть передан хэш аргументов

        my ($function, %args) = @_;
	return 0 if (!$function =~ m/[a-z]+/);
        my $url = "https://127.0.0.1:2087/xml-api/$function";
        my $args = "";
        if (%args)
        {
                foreach my $name (keys %args)
                {
                        $args .= "$name=$args{$name}&";
                }
                $url .= "?$args";
        }
        my $ua = LWP::UserAgent->new;
        my $request = HTTP::Request->new( GET => $url );
        $request->header( Authorization => getAuthHash());
        my $response = $ua->request($request);
        return $response->content;
}


1;
__END__