From 8836c98e29b80762c43f6131c37bb1ac17bca17f Mon Sep 17 00:00:00 2001
From: "Robert C. Helling" <helling@atdotde.de>
Date: Mon, 16 Nov 2015 16:54:01 +0100
Subject: [PATCH 2/2] CGI script wrapper for smtk2ssrf.pl

This script should go to the cgi-bin directory of the webserver to proivide
conversion of SmarTrack files as a web service. Paths need to be adopted
and more html to make it more beautiful should be added.

Signed-off-by: Robert C. Helling <helling@atdotde.de>
---
 scripts/smtk2ssrf.pl | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100755 scripts/smtk2ssrf.pl

diff --git a/scripts/smtk2ssrf.pl b/scripts/smtk2ssrf.pl
new file mode 100755
index 0000000..a65ebf9
--- /dev/null
+++ b/scripts/smtk2ssrf.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+
+use CGI;
+
+# Change this to the correct path to binary.
+my $smtk2ssrf = "../build/smtk2ssrf"; 
+
+my $q = CGI->new;
+
+if ($q->upload("uploaded_file")) {
+        my $original_filename = $q->param("uploaded_file");
+        my $tmp_filename = $q->tmpFileName($original_filename);
+        my $new_filename = $original_filename;
+        $new_filename =~ s/.*[\/\\]//;
+        $new_filename =~ s/\..*$/.ssrf/;
+  
+        print "Content-Disposition: attachment; filename=\"$new_filename\"\n";
+        print "Content-type: subsurface/xml\n\n";
+        system "$smtk2ssrf $tmp_filename -";
+} else {
+        print "Content-type: text/html\n\n";
+
+# Here we could print some header stuff to fit better in the subsurface webspace context. Do do so uncomment
+# open (IN, "filename_header.html);
+# while (<IN>) {
+#         print;
+# }
+# close(IN);
+
+        print $q->start_multipart_form();
+
+        print $q->h1("Convert Smartrack files to Subsurface");
+
+        print $q->filefield( -name => "uploaded_file",
+                             -size => 50,
+                             -maxlength => 200);
+        print $q->submit();
+        print $q-end_form();
+
+# Here we could print some footer stuff as above
+
+}
-- 
2.4.9 (Apple Git-60)