You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.2 KiB
51 lines
1.2 KiB
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use Try::Tiny;
|
|
use lib 'lib';
|
|
use Hush::List;
|
|
use Hush::Util qw/barf
|
|
is_valid_zaddr
|
|
is_valid_taddr
|
|
/;
|
|
use Data::Dumper;
|
|
use Hush::RPC;
|
|
use File::Slurp;
|
|
use JSON;
|
|
|
|
my ($from,$to,$filename) = @ARGV;
|
|
my $amount = 0.0;
|
|
|
|
die "You must specify a filename!" unless $filename;
|
|
die "File does not exist!" unless -e $filename;
|
|
|
|
my $memo = read_file($filename);
|
|
my $length = length $memo;
|
|
print "File is $length bytes\n";
|
|
my $rpc = Hush::RPC->new;
|
|
my $hex_memo = unpack("h*",$memo); # backend wants hex-encoded memo-field
|
|
#print $hex_memo;
|
|
my $num_memos= int($length / 512) + (($length % 512) ? 1 : 0);
|
|
print "This file will be stored in $num_memos memo fields\n";
|
|
|
|
unless ( is_valid_zaddr($from) or is_valid_taddr($from) ) {
|
|
die "From address must be a valid taddr or zaddr!";
|
|
}
|
|
|
|
die "Invalid zaddr!" unless is_valid_zaddr($to);
|
|
|
|
## splice hex_memo into 512 byte chunks
|
|
for my $n (1 .. $num_memos) {
|
|
}
|
|
my $hex
|
|
|
|
print "z_sendmany beginning\n";
|
|
my $recipients = [];
|
|
my $opid = $rpc->z_sendmany($from,[{
|
|
address => $to,
|
|
amount => $amount,
|
|
memo => $hex_memo
|
|
}]);
|
|
print "z_sendmany complete\n";
|
|
my $status = $rpc->z_getoperationstatus([[$opid]]);
|
|
warn Dumper [ $opid, $status ];
|
|
|