Posted to tcl by Napier at Wed Aug 20 18:55:41 GMT 2014view raw

  1. proc discover {} {
  2. global disc_socket
  3. if {$disc_socket != -1} {
  4. closeSocket $disc_socket
  5. }
  6. set disc_socket [connect 3 "239.255.255.250" 1900]
  7. if {$disc_socket == 0} {
  8. puts "__Failed to Connect to Discover"
  9. } else {
  10. puts "__Send Discover"
  11. 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"
  12. send $disc_socket $message
  13.  
  14. set ::discovered 2
  15. clearTimer $::discoveryTimer
  16. set ::discoveryTimer [setTimer 60000]
  17. puts "$::discoveryTimer"
  18. }
  19. }