ice weasels

sub update_stock_config {

	my @cl_admprivs;
	my $cl_admprivs_print;
	my $createadm; 

	foreach my $cn (@CLUSTERNODES) { # Nota: cn = clusternode
		chomp($cn);
		print "configure $cn ...\n" if $DEBUG;
		$createadm = "host".$cn;
		print "$cl_admprivs_print ...\n" if $DEBUG;
		push(@cl_admprivs, $createadm);
	}
	$cl_admprivs_print = join (@cl_admprivs, ',');

	print "cluster hosts admin config\n: $cl_admprivs_print\n" if $DEBUG;