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
}