SSDP MSEARCH

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