From 13ef227e89c49f4a4ae40c524cad441971f84afc Mon Sep 17 00:00:00 2001
From: Pepper <pepper@scannerjammer.com>
Date: Fri, 13 Feb 2015 04:01:18 -0500
Subject: calling it done for now

---
 saveImg.cgi | 54 ------------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 saveImg.cgi

(limited to 'saveImg.cgi')

diff --git a/saveImg.cgi b/saveImg.cgi
deleted file mode 100644
index 0447d61..0000000
--- a/saveImg.cgi
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/perl
-use strict; 
-use CGI; 
-use CGI::Carp qw ( fatalsToBrowser ); 
-use LWP::Simple;
-use MIME::Base64;
-
-##---------------------------------------------------------------------------------------
-##INPUT PARAMETERS THAT CAN BE CUSTOMIZED
-##---------------------------------------------------------------------------------------
-##Location of texture and heightmap files to be downloaded into
-my $outputDir="d:/tmp/files";
-##---------------------------------------------------------------------------------------
-##GET THE PICTURE NAME AND BASE64 DATA FROM THE HTTP POST REQUEST
-##---------------------------------------------------------------------------------------
-my $query = new CGI; 
-##Get image name
-my $imageName = $query->param("name"); 
-if ( !$imageName ) 
-	{ 
-		##Problem retrieving the data
-		print $query->header ( ); 
-		print "no"; 
-		exit; 
-	} 
-##Get encoded image
-my $encodedContents = $query->param("picture"); 
-if ( !$encodedContents ) 
-	{ 
-		##Problem retrieving the data
-		print $query->header ( ); 
-		print "no"; 
-		exit; 
-	} 
-	
-##---------------------------------------------------------------------------------------
-##GET HANDLE AND SAVE THE PICTURE CONTENTS TO THE OUTPUT DIR
-##---------------------------------------------------------------------------------------
-##Decode picture data
-my $decodedContents = decode_base64($encodedContents);
-
-##Save picture
-my $filename = $outputDir . "/" . $imageName;
-open(IMG,">$filename");
-binmode IMG;
-print IMG $decodedContents;
-close IMG;
-
-##---------------------------------------------------------------------------------------
-##PRINT SUCCESS IN HTML FORMAT
-##---------------------------------------------------------------------------------------
-print $query->header ( );
-print "yes";
-exit; 
-- 
cgit v1.2.3-70-g09d2