use utf8;
use warnings;
no warnings 'redefine';
use strict;

use Dbase::Globals qw(ipinfo name_kunde);
use Dbase::Help qw(DoSelect isotime);
use Fehler qw(problem);
use Loader qw(line_printer);

sub list_hostgroup($) {
	my ($idi) = @_;

	line_printer();

	DoSelect {
		my ( $timestamp, $kunde, $name, $beschreibung ) = @_;

		print $Db::pr_fh "ID          : $idi\n";
		print $Db::pr_fh 'Timestamp   : ' . isotime($timestamp) . "\n";
		print $Db::pr_fh "Kunde       : #$kunde:" . name_kunde($kunde) . "\n";
		print $Db::pr_fh "Name        : $name\n";
		print $Db::pr_fh "Beschreibung: $beschreibung\n"
		  if defined $beschreibung;
	}
	<<_
	SELECT timestamp, kunde, name, beschreibung
	FROM   hostgroup
	WHERE  id = $idi
_
	  or return problem("Hostgroup #$idi nicht gefunden.");

	DoSelect { print $Db::pr_fh 'Mitglied    : ' . ipinfo(@_) . "\n" } <<_
	SELECT   ipkunde.id,
	         ipkunde.ip6,
	         ipkunde.bits,
	         ipkunde.name,
	         ipkunde.ende
	FROM     ip_hostgroup, ipkunde
	WHERE    ip_hostgroup.gruppe = $idi AND ip_hostgroup.host = ipkunde.id
	ORDER BY ipkunde.ip6
_
}

1;
