Switch Statement

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"}
        }
    }
}