Code:

# convert long ip to dotted quad ipproc inet_ntoa { ipaddr } {        set bin [binary format i $ipaddr]        binary scan $bin cccc a b c d        set a [expr { ($a + 0x100) % 0x100 }]        set b [expr { ($b + 0x100) % 0x100 }]        set c [expr { ($c + 0x100) % 0x100 }]        set d [expr { ($d + 0x100) % 0x100 }]        #        # Note: this is what was in the original, it presents the dotted quad ip *backwards*...        # I don't know if that is how inet_ntoa normally behaves -rosc        #return "$a.$b.$c.$d"        #        # So, for my purposes, I present the dotted quad ip in the right order.        return "$d.$c.$b.$a"}