use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content def_or_minus);
use Fehler qw(problem);

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

	content( my $homedir = line_in('FTP-HomeDir.: ') ) or return;

	return undef if $homedir =~ /^\s*$/;
	return problem(
		'Home-Verzeichnisse sind nur für Web-Spaces vorgesehen: /www/*')
	  if $homedir ne '-' && $homedir !~ m#^/www/.#;

	log_update(
		person => 'id',
		$pers, undef,
		homedir => undef,
		def_or_minus( DoFn("SELECT homedir FROM person WHERE id=$pers") )
	);
	Do(<<_);
	UPDATE person SET homedir = ${\ qquote($homedir, 1) } WHERE id = $pers
_
}

1;
