#!/usr/bin/env perl
my
$CP_USERNAME
=
shift
@ARGV
;
die
"Provide username!"
if
!
$CP_USERNAME
;
my
$CP_PASSWORD
=
shift
@ARGV
;
die
"Provide password!"
if
!
$CP_PASSWORD
;
my
$promiser
= Net::Curl::Promiser::AnyEvent->new();
my
$remote_cp
= cPanel::APIClient->create(
service
=>
'cpanel'
,
transport
=> [
'NetCurlPromiser'
,
promiser
=>
$promiser
,
hostname
=>
'localhost'
,
tls_verification
=>
'off'
,
],
credentials
=> {
username
=>
$CP_USERNAME
,
password
=>
$CP_PASSWORD
,
},
);
my
$req2
=
$remote_cp
->call_uapi(
'Email'
,
'list_forwarders'
);
my
$p2
=
$req2
->promise()->then(
sub
{
my
(
$got
) =
@_
;
print
STDERR YAML::Syck::Dump
$got
;
},
sub
{
print
STDERR Dumper(
@_
);
warn
"failed: @_"
;
},
);
my
$cv
= AnyEvent->condvar();
$p2
->
finally
(
$cv
);
$cv
->
recv
();