#!/opt/perl5/bin/perl -w
# die $path -variable repraesentiert den Pfad zu den collect-files

$htmlbasepath="/";
$htmlpath=$htmlbasepath . "cfg2html/server/";

#$basepath="/web/html/";
$basepath="/home/rioc/Desktop/perl_test/";
$path=$basepath . "cfg2html/server/";


opendir(DIRHANDLE, $path) or die "Directory not available";

while ( defined ($filename = readdir(DIRHANDLE)))
{
	@list=(@list,$filename);
}
@list=sort (@list);
@machinelist = grep {/.html/} @list;

@allmachines=();

foreach $machine (@machinelist)
{
$machine =~ s///;
@allmachines=(@allmachines,$machine);
}



@domains=();

foreach $machine (@allmachines)
{
	$ok=0;
	@splitpieces = split /\./, $machine;
	if ($splitpieces[1])
	{
	$dmn=$splitpieces[1]
	}
	else
	{
	$dmn="unknown";
	$splitpieces[1]="unknown";
	} 	
	foreach $try (@domains)
	{
		if ($try eq $dmn) {$ok=1};
	};
	if ($ok ne 1) {@domains=(@domains,$dmn)};
	$ok=0;

	$machine = join '.', @splitpieces;
};

@domains=sort(@domains);
@data=();
foreach $domain (@domains)
{
	@$domain=();
	foreach $machine (@allmachines)
	{
		@namepartsplit= split /\./, $machine;
		if ( $namepartsplit[1] eq $domain )
		{
			@$domain=(@$domain,$machine);
		};
	};
@data=(@data,"start:$domain",@$domain,"end:$domain",);
};