use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(line_in log_update);

sub delete_perso($;$) {
	my($pers,$kn) = @_;

	return undef unless $pers;
	return undef if line_in("Erst das geheime Passwort: ",1) ne "geheim";

	log_update(person => id => $pers, undef, "perso", undef,"-");
	Do("delete from perso where person = $pers");
	Do("delete from persomonat where person = $pers");
	return $pers;
}
1;
