Posted to tcl by Napier at Wed Aug 20 18:55:41 GMT 2014view raw
- proc discover {} {
- global disc_socket
- if {$disc_socket != -1} {
- closeSocket $disc_socket
- }
- set disc_socket [connect 3 "239.255.255.250" 1900]
- if {$disc_socket == 0} {
- puts "__Failed to Connect to Discover"
- } else {
- puts "__Send Discover"
- set message "M-SEARCH * HTTP/1.1\r\nHOST: 239.255.255.250:1900\r\nMAN: \"ssdp:discover\"\r\nMX: 5\r\nST: ssdp:all\r\nContent-Length: 0\r\n\r\n"
- send $disc_socket $message
- set ::discovered 2
- clearTimer $::discoveryTimer
- set ::discoveryTimer [setTimer 60000]
- puts "$::discoveryTimer"
- }
- }