|
|
@ -8,9 +8,12 @@ use File::Spec::Functions; |
|
|
|
use URL::Encode qw/url_encode/; |
|
|
|
|
|
|
|
sub new { |
|
|
|
# TODO: update ports |
|
|
|
my $port = $ENV{HUSH_RPC_PORT} || 8822; |
|
|
|
my $host = $ENV{HUSH_RPC_HOST} || "127.0.0.1"; |
|
|
|
my $HOME = $ENV{HOME}; |
|
|
|
# TODO: support other OS's and custom config file path |
|
|
|
# TODO: update to KMD AC location |
|
|
|
my $config = catfile($HOME, qw/.hush hush.conf/); |
|
|
|
my ($user,$password) = ('',''); |
|
|
|
if (-e $config) { |
|
|
|