55 lines
1.3 KiB
Perl
55 lines
1.3 KiB
Perl
#!/usr/bin/env perl
|
|
use warnings;
|
|
use strict;
|
|
#
|
|
# Copyright (C) 2018 Hamish Coleman <hamish@zot.org>
|
|
#
|
|
# The simplest tool was the raw rpc tool
|
|
#
|
|
|
|
# The default options - should be set from commandline or rc file eventually
|
|
my $option = {
|
|
addr => "127.0.0.1",
|
|
port => "11234",
|
|
password => "NONE",
|
|
trace => 1,
|
|
};
|
|
|
|
BEGIN {
|
|
use File::Spec;
|
|
# allow the libs to be in the bin dir
|
|
unshift @INC, File::Spec->catdir((File::Spec->splitpath($0))[1],'lib');
|
|
print "Content-type: text/html\n\n";
|
|
}
|
|
|
|
use mini::Data;
|
|
use mini::Digest::SHA;
|
|
use Bencode_bork;
|
|
use Cjdns::RPC;
|
|
|
|
sub main() {
|
|
my $rpc = Cjdns::RPC->new(
|
|
$option->{addr},
|
|
$option->{port},
|
|
$option->{password},
|
|
) or die "cannot start rpc";
|
|
# $rpc->trace($option->{trace});
|
|
|
|
# print(mini::Data::Dumper($rpc->ping()));
|
|
mini::Data::Dumper($rpc->cookie());
|
|
mini::Data::Dumper($rpc->ping_auth());
|
|
|
|
#print(mini::Data::Dumper($rpc->Admin_availableFunctions()));
|
|
|
|
my $packet;
|
|
# $packet = $rpc->_build_query_auth('ETHInterface_listDevices');
|
|
# print(mini::Data::Dumper($rpc->_sync_call($packet)));
|
|
|
|
$packet = $rpc->_build_query_unauth('InterfaceController_peerStats');
|
|
print(mini::Data::Dumper($rpc->_sync_call($packet)));
|
|
}
|
|
unless (caller) {
|
|
# only run main if we are called as a CLI tool
|
|
main();
|
|
}
|