Posted to tcl by Napier at Wed Sep 24 07:57:42 GMT 2014view raw

  1. proc onData {socketID data} {
  2. puts "Data has been Received from the Socket ID $socketID"
  3. puts "$data "
  4. switch -glob -- $data {
  5. "*login:*" {
  6. puts "Device is Requesting Login Credentials, Sending Now"
  7. catch {send $socketID "$::login\r\n"}
  8. }
  9. "*password:*" {
  10. puts "Device is Requesting Password Credentials, Sending Now"
  11. catch {send $socketID "$::password\r\n"}
  12. }
  13. "*GNET*" {
  14. puts "Device is Awaiting Commands"
  15. }
  16. default {puts "Unknown Data Received from Device"}
  17. }
  18. }