Check-in [cb98af7618]
Overview
Comment:Improved RPC client configuration
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: cb98af7618bc43cc2dc5025cdf2cfa47dcfe4cd1b275e9675b9b6292469fe5a0
User & Date: rkeene on 2018-07-11 17:33:50
Other Links: manifest | tags
Context
2018-07-11
19:24
Added start of node support check-in: 7a0acb917e user: rkeene tags: trunk
17:33
Improved RPC client configuration check-in: cb98af7618 user: rkeene tags: trunk
17:28
Even faster block work generation test check-in: dfb2005c0f user: rkeene tags: trunk
Changes

Modified nano.tcl from [bd38f11c13] to [77ebd60a97].

1139
1140
1141
1142
1143
1144
1145
1146
1147
1148

1149

1150
1151

1152



1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
	setFrontier $account $newFrontierHash $balance $representative

	return $block
}

# RPC Client
proc ::nano::rpc::client::init args {
	dict with args {}

	if {![info exists url]} {

		set url {http://localhost:7076/}

	}


	set ::nano::rpc::client::url $url



}

proc ::nano::rpc::client {action args} {
	::nano::rpc::client::init

	set rpcURL $::nano::rpc::client::url

	set jsonArgs [list]
	foreach {key value} $args {
		switch -exact -- $key {
			"-count" {}
			"-accounts" {
				set valueAsStrings [lmap valueItem $value { json::write string $valueItem }]







<
<
|
>
|
>


>
|
>
>
>





|







1139
1140
1141
1142
1143
1144
1145


1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
	setFrontier $account $newFrontierHash $balance $representative

	return $block
}

# RPC Client
proc ::nano::rpc::client::init args {


	if {![info exists ::nano::rpc::client::config]} {
		set ::nano::rpc::client::config [dict create \
		    url {http://localhost:7076/} \
		]
	}

	if {[llength $args] > 0} {
		set ::nano::rpc::client::config [dict merge $::nano::rpc::client::config $args]
	}

	return true
}

proc ::nano::rpc::client {action args} {
	::nano::rpc::client::init

	set rpcURL [dict get $::nano::rpc::client::config "url"]

	set jsonArgs [list]
	foreach {key value} $args {
		switch -exact -- $key {
			"-count" {}
			"-accounts" {
				set valueAsStrings [lmap valueItem $value { json::write string $valueItem }]