Karl Schäffer (Intendant)