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>
Signed-off-by: Dirk Hohndel <dirk@hohndel.org>

1 files changed, 42 insertions, 0 deletions

diff --git a/scripts/smtk2ssrf.pl b/scripts/smtk2ssrf.pl
new file mode 100755
index 000000000..2b1e8a2ac
--- /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
+
+}