set realm "Federlesen"
set callback stimmts?

proc stimmts? {sock realm user password} {
 if {[string match $password federlesen]} {
   return 1
 } else {
   return 0
 }
}