my $outputDir="d:/Programe/Apache Server/htdocs/landscape/img";
##---------------------------------------------------------------------------------------
##GET THE URLS FROM THE HTTP POST REQUEST
##---------------------------------------------------------------------------------------
my $query = new CGI; 
##Get texture url
my $texture = $query->param("texture"); 
if ( !$texture ) 
	{ 
		##Problem retrieving the data
		print $query->header ( ); 
		print "no"; 
		exit; 
	} 
##Get heigthmap url
my $heightmap = $query->param("heightmap"); 
if ( !$heightmap ) 
	{ 
		##Problem retrieving the data
		print $query->header ( ); 
		print "no"; 
		exit; 
	} 
	
##---------------------------------------------------------------------------------------
##DOWNLOAD THE PICTURES TO THE OUTPUT DIR
##---------------------------------------------------------------------------------------
##Get texture
getstore($texture, "$outputDir/Texture_orig.jpg");

##Resize texture to 256x256
my $image = Image::Resize->new("$outputDir/Texture_orig.jpg");
my $gd = $image->resize(256, 256);
open(IMG,">$outputDir/Texture.jpg");
binmode IMG;
print IMG $gd->jpeg;
close IMG;

##Get heightmap
getstore($heightmap, "$outputDir/Heightmap_orig.jpg");

##Resize heightmap to 256x256
my $image = Image::Resize->new("$outputDir/Heightmap_orig.jpg");
my $gd = $image->resize(256, 256, 0);
open(IMG,">$outputDir/Heightmap.jpg");
binmode IMG;
print IMG $gd->jpeg;
close IMG;


##---------------------------------------------------------------------------------------
##PRINT SUCCESS IN HTML FORMAT
##---------------------------------------------------------------------------------------
print $query->header ( );
print "yes";
exit;