Subversion Repositories Koakuma

Rev

Rev 8 | Rev 11 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 9
Line 1... Line 1...
1 
# $Id: rpc.tcl 8 2024-10-01 23:05:34Z nishi $
 1 
# $Id: rpc.tcl 9 2024-10-01 23:05:52Z nishi $
2 
package require http
 2 
package require http
3 
package require base64
 3 
package require base64
4 
package require term::ansi::ctrl::unix
 4 
package require term::ansi::ctrl::unix
5 
 
 5 
 
6 
catch {
 6 
catch {
7 
	package require tls
 7 
	package require tls
8 
	::http::register https 443 ::tls::socket
 8 
	::http::register https 443 ::tls::socket
- 
 
 9 
	puts "HTTPs is usable."
9 
}
 10 
}
10 
 
 11 
 
11 
set RPC_URL "http://127.0.0.1/koakuma/rpc"
 12 
set RPC_URL "http://127.0.0.1/koakuma/rpc"
12 
if { [info exists "env(KOAKUMA_RPC)"] } {
 13 
if { [info exists "env(KOAKUMA_RPC)"] } {
13 
	set RPC_URL "$env(KOAKUMA_RPC)"
 14 
	set RPC_URL "$env(KOAKUMA_RPC)"