8 lines
191 B
Tcl
Executable File
8 lines
191 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
|
|
set sockChan [socket localhost 41971]
|
|
gets $sockChan line
|
|
close $sockChan
|
|
catch {exec /usr/bin/mythutil --message --message_text "$line" --timeout 3 --bcastaddr=127.0.0.1}
|
|
|