File examples/generate-work-rpc/generate-work-rpc artifact 727a1db77d part of check-in 79081a9bf1

#! /usr/bin/env tclsh

package require nano

if {[llength $argv] < 2} {
	puts stderr "Usage: generate-work-rpc <rpcURL> <hash>..."

	exit 1
}

set rpcURL [lindex $argv 0]
set argv [lrange $argv 1 end]

package require http 2
::nano::rpc::client::init url $rpcURL

foreach arg $argv {
	if {[catch {
		set work [::nano::rpc::client work_generate -hash $arg -use_peers true]
		set work [dict get $work work]
	} err]} {
		puts stderr "Error generating work for \"$arg\": $err"
	} else {
		puts "WORK($arg) = $work"
	}
}