blob: 2b1e8a2aca8067429859f288282479811b90b2e1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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
}
|
