File: xnetserv-send.tcl

package info (click to toggle)
netmaze 0.81+jpg0.82-13
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 1,204 kB
  • ctags: 915
  • sloc: ansic: 8,277; tcl: 1,223; makefile: 66; sh: 26
file content (19 lines) | stat: -rw-r--r-- 291 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/wish -f

puts $argv

set cmdlist [split "$argv" "!"]

set i [expr [llength $cmdlist] -1]
set x 0

while {$x<=$i} {
  set sendcommand "[lindex $cmdlist $x]"
  eval send xnetserv.tcl {$sendcommand}
  incr x
}

# set sendcommand "$argv"
# eval send xnetserv.tcl {$sendcommand}

exit