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

use Dbase::Help qw(Do qquote);
use Loader qw(edit_hostgroup log_update set_hostgroup_name valid_kunde);

sub add_kunde_hostgroup(;$$$) {
	my ( $kunde, $kn, $template ) = @_;

	defined( $kunde = edit_kunden( 1, '' ) ) or return unless $kunde;
	return unless valid_kunde($kunde);

	defined( my $name = set_hostgroup_name() ) or return;

	my $id = Do("INSERT INTO hostgroup SET kunde = $kunde, name = $name");
	log_update( hostgroup => id => $id, undef, '*' );
	log_update( kunde => id => $kunde, undef, hostgroup => '*', undef, $id );
	Do("UPDATE kunde SET geaendert = UNIX_TIMESTAMP(NOW()) WHERE id = $kunde");

	edit_hostgroup( $id, $kunde, $kn );
}

1;
