URL: http://45.free.net/~akovalenko/irdasock0.1.zip

This extension can connect to IrDA (infrared)
services on Win2K (porting to linux is possible).

Example:

    set devname my_phone
    package require irdasock
    foreach dev [irda::discover] {
        foreach {id name flags} $dev {
	    puts "Device $name with id $id"
	    array set devs($name) $id
        }
    }

    if {[info exists devs($devname)]} {
        puts "The device $devname is available!"
        set sock [irda::connect $devs($devname) IrDA:IrCOMM -9wire 1]
        puts $sock "ATZ"
        flush $sock
        close $sock
    }

-- [Anton Kovalenko]