Posted to tcl by Napier at Wed Sep 24 15:30:13 GMT 2014view raw
- proc onData {socketID data} {
- set data [split $data "\r\n"]
- foreach response $data {
- if {[string length $response] < 1} {
- # Null Data Received
- continue
- }
- switch -glob -- $response {
- "*login:*" {catch {send $socketID "$::login\r\n"}}
- "*password:*" {catch {send $socketID "$::password\r\n"}}
- "*GNET*" {}
- "~OUTPUT*" {puts "Output Event Received"}
- "~DEVICE*" {puts "Device Event Received"}
- "~HVAC*" {puts "HVAC Event Received"}
- default {puts "Unknown Data Received from Device"}
- }
- }
- }