A Tcl universal greeting - from a session on tkchat - [NEM]


 namespace eval universal {
     package require msgcat
     msgcat::mcset en_US "Good Morning!"
     msgcat::mcset en_UK "Good Morning!"
     msgcat::mcset es_ES "Good Morning!" "�Buena Ma�ana!"
     msgcat::mcset fr_FR "Good Morning!" "Bonjour!"
     msgcat::mcset en_US "Good Afternoon!"
     msgcat::mcset en_UK "Good Afternoon!"
     msgcat::mcset es_ES "Good Afternoon!" "�Buena Tarde!"
     msgcat::mcset fr_FR "Good Afternoon!" "Bonne Apr�s-midi!"
     proc greeting {} {
        set timeofday [expr {[clock format [clock seconds] -format %p]\
            == "AM" ? "Morning" : "Afternoon"}]
        return [msgcat::mc "Good $timeofday!"]
     }
 } 

Add other languages. Also, I'm not sure if es_ES is the right code for Spanish.