use utf8;
use warnings;
no warnings 'redefine';
use strict;
use Dbase::Globals qw(hostgroupinfo name_kunde);
use Dbase::Help qw(DoSelect);
use Loader qw(line_printer);

sub list_hostgroups(;$) {
	my ($kunde_id) = @_;

	line_printer();

	my @where;
	push @where, "kunde = $kunde_id" if defined $kunde_id;

	my $hdr;
	DoSelect {
		my ( $id, $kunde, $name, $beschreibung ) = @_;
		print $Db::pr_fh ' ID '
		  . ( !defined $kunde_id && 'Kunde            ' )
		  . "Name - Beschreibung\n"
		  unless $hdr++;
		print $Db::pr_fh sprintf( '%3d', $id ) . ' '
		  . ( !defined $kunde_id && sprintf( '%-17s', name_kunde($kunde) ) )
		  . $name
		  . ( defined $beschreibung && " - $beschreibung" ) . "\n";
	}
	'SELECT id, kunde, name, beschreibung FROM hostgroup'
	  . ( @where > 0 && ' WHERE ' . join ' AND ', @where )
	  . ' ORDER BY name';
}

1;
