From 57ad852b6e7e337b7a86d2f85ac95b480898b057 Mon Sep 17 00:00:00 2001
From: yo mama <pepper@scannerjammer.com>
Date: Thu, 12 Feb 2015 19:33:18 -0800
Subject: working

---
 downImg.cgi | 56 --------------------------------------------------------
 1 file changed, 56 deletions(-)
 delete mode 100644 downImg.cgi

(limited to 'downImg.cgi')

diff --git a/downImg.cgi b/downImg.cgi
deleted file mode 100644
index 8eb37a1..0000000
--- a/downImg.cgi
+++ /dev/null
@@ -1,56 +0,0 @@
-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; 
-- 
cgit v1.2.3-70-g09d2