use utf8;
use warnings; no warnings "redefine";
use strict;
use Cf qw($NSZ);
use Dbase::Help qw(DoFn);
use Dbase::Globals qw(find_descr);
use Fehler qw(problem);

sub list_zonelog($) {
	my($dom) = @_;
	my($name,$ip,$flags,$tsig) = DoFn <<_;
	SELECT domain, nserver, flags, tsig FROM domainkunde WHERE id = $dom
_
	return problem "Das ist eine Slave-Zone..." if $ip;
	return problem "Das ist eine Auto-Update-Zone (vgl. TSIG-Eintrag)..."
		if defined $tsig;
	system qw(ssh -a), $NSZ, rlog => $name
		and return problem "Fehler $?" . ( length $! ? ":\n$!" : '.' );
}

1;
