				
			
	if(defined cookie("uid") and cookie("uid") eq $config{passwort}) {
		$subst{Header} .= "Set-Cookie: " .
			cookie(-name => "uid", -value => "nicht-eingeloggt", -expires => "+10h") . "\n";
		open my $logfile, ">>" . $config{logfile} or die;
			print $logfile scalar(localtime(time)) . ": OUT ==> " . $ENV{REMOTE_ADDR} . "\n";
		close $logfile;
		$subst{Text} = "Nun <a href='mycms.pl?action=$param{old_action}&what=".H($param{old_what})."'>ausgeloggt</a>.";
		$loggedin = 0;
	} else {
		if(defined $param{new_what} and md5_hex($param{new_what}) eq $config{passwort}) {
			system($cmd{touch}, $config{logfile}) unless (-f "$config{logfile}");
			open my $logfile, $config{logfile} or die;
				$subst{LastChanged} = scalar localtime [stat $logfile]->[9];
			close $logfile;
			open $logfile, ">>" . $config{logfile} or die;
				print $logfile scalar(localtime(time)) . ": IN ==> " . $ENV{REMOTE_ADDR} . "\n";
			close $logfile;
			$subst{Text} = "Nun eingeloggt.";
			$subst{Text} = " <a href='mycms.pl?action=$param{old_action}&what=".H($param{old_what})."'>Weiter</a>.";
			$subst{Header} .= "Set-Cookie: " .
				cookie(-name => "uid", -value => $config{passwort}, -expires => "+10h") . "\n";
			$loggedin = 1;
		} else {
			$subst{Text} = MyTemplate->new($config{template}, "LOGINOUT")->substitute(
				Old_Action => $param{old_action},
				Old_What   => $param{old_what}
			)->print;
		}
	}
	$subst{Fach} = "/";
