From ae0e6d987781d2fbf225611e2f8df37380a2bbcd Mon Sep 17 00:00:00 2001
From: yo mama <pepper@scannerjammer.com>
Date: Thu, 12 Feb 2015 18:29:27 -0800
Subject: first

---
 saveImg.cgi | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 saveImg.cgi

(limited to 'saveImg.cgi')

diff --git a/saveImg.cgi b/saveImg.cgi
new file mode 100644
index 0000000..0447d61
--- /dev/null
+++ b/saveImg.cgi
@@ -0,0 +1,54 @@
+#!/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