set realm "Federlesen"
set callback stimmts? 

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