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

sub list_zonelog($$) {
	my ( $logtype, $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;

	my $command = "ssh -a $NSZ $logtype $name";
	my $cmd_output = qx($command);
	return problem( explain_child_error() ) if $?;

	line_printer();
	print $Db::pr_fh $cmd_output;
}

1;
