mifr/subsurface
1
0
Fork 0
mirror of https://github.com/subsurface/subsurface.git synced 2025-01-31 17:33:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

smtk2ssrf Perl script: Add some error reporting

Browse source 
So far, if the conversion process failed, we simply returned
an empty file. Now, we report that something's wrong.

Signed-off-by: Robert C. Helling <helling@atdotde.de>
This commit is contained in:
Robert C. Helling 2020-08-06 13:54:59 +02:00
parent 6a706a7000
commit 73151ca1d9
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scripts/smtk2ssrf.pl
View file

@ -2,21 +2,32 @@
use CGI;
$CGI::POST_MAX = 1024 * 1024 * 10;
# Change this to the correct path to binary.
my $smtk2ssrf = "../build/smtk2ssrf";
my $logfile = '/tmp/smtk2ssrf.log';
my $q = CGI->new;
if ($q->upload("uploaded_file")) {
my $original_filename = $q->param("uploaded_file");
my $converted = `$smtk2ssrf $tmp_filename -`;
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 -";
if (length($converted) > 5) {
print "Content-Disposition: attachment; filename=\"$new_filename\"\n";
print "Content-type: subsurface/xml\n\n";
print $converted;
} else {
print "Content-type: text/html\n\n";
print "<H1>Conversion failed</H1>";
print 'Please contact <a href=mailto:helling@atdotde.de>Robert Helling (robert@thetheoreticaldiver.org)</a> if the problem persits.';
}
} else {
print "Content-type: text/html\n\n";