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
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 {
	dict with args {}

	if {![info exists url]} {
		set url {http://localhost:7076/}
	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::url $url
		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 $::nano::rpc::client::url
	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 }]