Posted to tcl by Napier at Wed Sep 24 15:30:13 GMT 2014view raw

  1. proc onData {socketID data} {
  2. set data [split $data "\r\n"]
  3. foreach response $data {
  4. if {[string length $response] < 1} {
  5. # Null Data Received
  6. continue
  7. }
  8. switch -glob -- $response {
  9. "*login:*" {catch {send $socketID "$::login\r\n"}}
  10. "*password:*" {catch {send $socketID "$::password\r\n"}}
  11. "*GNET*" {}
  12. "~OUTPUT*" {puts "Output Event Received"}
  13. "~DEVICE*" {puts "Device Event Received"}
  14. "~HVAC*" {puts "HVAC Event Received"}
  15. default {puts "Unknown Data Received from Device"}
  16. }
  17. }
  18. }