File: testclient.tcl

package info (click to toggle)
tcl-xmlrpc 0.3-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster
  • size: 212 kB
  • sloc: tcl: 2,385; makefile: 6
file content (8 lines) | stat: -rwxr-xr-x 194 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
 
#!/usr/bin/env tclsh

package require xmlrpc
if {[catch {set res [xmlrpc::call "http://localhost:5555" "test" {{int 1} {string b}}]}]} {
	puts "xmlrpc call failed"
} else {
	puts "res: $res."
}