mifr/subsurface
1
0
Fork 0
mirror of https://github.com/subsurface/subsurface.git synced 2025-02-19 22:16:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

CGI script wrapper for smtk2ssrf.pl

Browse source 
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>
This commit is contained in:
Robert C. Helling 2015-11-16 16:54:01 +01:00 • committed by Dirk Hohndel
parent 357f6376ec
commit facaa3e0cd
1 changed files with 42 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
scripts/smtk2ssrf.pl Executable file
View file

@ -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
}