From: hades DAQ Date: Tue, 31 Mar 2026 11:12:48 +0000 (+0200) Subject: add scripts for form upload X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=0a82c8f14220b7b012f1ea7e8a18c23ce2f6a4e2;p=labtools.git add scripts for form upload --- diff --git a/uploadform/index.pl b/uploadform/index.pl new file mode 100755 index 0000000..18a52d5 --- /dev/null +++ b/uploadform/index.pl @@ -0,0 +1,66 @@ +#!/usr/bin/perl +use CGI::Carp qw(warningsToBrowser fatalsToBrowser); + +print "Content-type: text/html\n\n"; + + + +print < + + + Xmatter File Uploader + + + + + +

Xmatter Form Uploader

+ + + + +

Usage

The generated document will be downloaded - if you see it, everything went well and the document is sent. +
Allowed file types: PDF, JPG and PNG. +
You have to select all attachments at once. They have to be located in the same directory. +
To select several attachments: keep CTRL pressed and selected them in the order you want to have them merged. +
Please keep all fields short and concise. Use no special characters. +
In case of problems, please save the error message, the generated file and the time when it happened. +

+ + +

Links

Travel Request Germany +
Travel Request other countries +
Travel Reimbursement Request +
Generic Reimbursement Request + + + + +HDOC diff --git a/uploadform/style.css b/uploadform/style.css new file mode 100644 index 0000000..2c90daf --- /dev/null +++ b/uploadform/style.css @@ -0,0 +1,142 @@ +html { + height:100%; + margin:0; + padding:0; + font-size:9pt; +} + + +* { + box-sizing:border-box; +} + + +body { + background: #000; + color:#888; + font-family: sans-serif; + height: 100%; + overflow:hidden; + margin:0; + padding-left:20px; + } + +body.title { + background:#F6F9FC; + padding:0; + margin-left: 20px; +} + +h1 { + color: #889; + width:100%; + padding-left:20px; + border-bottom:1px solid #aaa; + } + +#control { + height:100%; + width:220px; + left:-200px; + position:absolute; + top:0; + padding-left:10px; + border-right:70px solid #000; + background:#9AA2AA; + color:#000; + transition:left 0.6s 3s ease-out, border 0.6s 3s ease-out; + overflow-y:scroll !important; + overflow-x:hidden; + } + +#control:hover { + left:0; + border:0; + transition:left 0.2s 0s ease-in, border 0.2s 0s ease-in; + } + +#content { + height:100%; + width:100%; + position:absolute; + text-align:center; + /*padding-right:100px;*/ + overflow:scroll !important; + text-align:center; + } + +#content div { + display:inline-block; + } + +#content img { + height:100%; + width:100%; + max-height:100%; + max-width:100%; + object-fit:contain; + margin:auto; + padding:0; + } + +#content.zoomed { + text-align:left; + } + +#content.zoomed img { + height:150%; + max-height:150%; + width:150%; + max-width:150%; + } + +#roomlist { + width:200px; +} + +#filelist { + width:180px; +} + +@keyframes pointerani { + 0% {opacity:.2;} + 100% {opacity:.7;} +} + + +#pointer { + width:20px; + height:20px; + background:transparent; + border:7px solid red; + opacity:0.7; + border-radius:15px; + position:absolute; + } + + +#files div { + padding-top:2px; + border-bottom:1px solid #aaa; + clear:both; + +} + +#files img { + margin:auto; + max-height:100px; + max-width:150px; + object-fit:contain; + position:relative; +} + +#files button { + font-size:80%; + width:35px; + display:block; + float:right; + margin-right:5px; + padding:0px; + } + + diff --git a/uploadform/uploadFiles.pl b/uploadform/uploadFiles.pl new file mode 100755 index 0000000..3950a0e --- /dev/null +++ b/uploadform/uploadFiles.pl @@ -0,0 +1,113 @@ +#!/usr/bin/perl +use CGI::Carp qw(warningsToBrowser fatalsToBrowser); +#use CGI; +use warnings; +use Data::Dumper; +use File::Temp qw/ tempfile tempdir /; +use utf8; +use CGI qw(-utf8); + +my $cgi = new CGI(); + + + +my @files = $cgi->param('attachments[]'); +my @io_handles=$cgi->upload('attachments[]'); + +my $mainfile = $cgi->param('mainfile'); +my $main_handle = $cgi->upload('mainfile'); + + +my $dir = "/local/apachetmp/labtoolspdfmerge"; +system("mkdir -p $dir"); +my $workdir = tempdir( DIR => $dir, CLEANUP => 1 ); + +my $error = ""; + +unshift(@files,$mainfile); +unshift(@io_handles,$main_handle); + +my @sanefiles; +foreach my $upload(@files){ + my $upload_file = shift @io_handles; + $upload =~ s/"//g; + $upload =~ s/\\//g; + $upload =~ s/\.\.//g; + $upload =~ s/;//g; + $upload =~ s%/%%g; + next if $upload eq ''; + next unless $upload_file; + + open (UPLOADFILE,">$workdir/$upload") or $error .= "File Open Error"; + next unless UPLOADFILE; + + binmode UPLOADFILE; + while (<$upload_file>) { + print UPLOADFILE; + } + close UPLOADFILE; + + if($upload =~ /\.jpe?g$/i || $upload =~ /\.png$/i) { + $error .= `cd $workdir; convert $upload -auto-orient $upload.pdf 2>&1`; + $upload .= ".pdf"; + } + + push(@sanefiles,'"'.$upload.'"'); + } + +my @fnparts; +push(@fnparts, $cgi->param('lastname')); +push(@fnparts, $cgi->param('firstname')); +push(@fnparts, $cgi->param('date')) unless $cgi->param('date') eq ''; +push(@fnparts, $cgi->param('occassion')) unless $cgi->param('occassion') eq ''; +push(@fnparts, $cgi->param('destination'))unless $cgi->param('destination') eq ''; +push(@fnparts, "Antrag") if $cgi->param('doctype') eq 'Travel Request'; +push(@fnparts, "Abrechnung") if $cgi->param('doctype') eq 'Travel Reimbursement'; +push(@fnparts, "TEST_IGNORE") if $cgi->param('doctype') eq 'TEST'; + + +for(my $i=0;$i&1"; +$error .= `$cmd`; +system("cd $workdir; cp $target /srv/uploads/"); + + +$error =~ s/Syntax Warning: Output intents differs, remove them all//g; +$error =~ s/\n/
/g; +#$error .= $cgi->param('lastname')." ".$fnparts[0]; +#$error .= Dumper @io_handles; +#$error .= "----"; +#$error .= Dumper @files; +print "Content-Type: text/html\n\n"; +print < + +
File uploaded. Server response (if any, may contain useless warnings...):
+$error +HTML + +if(-e "uploads/$target") { +print < +window.onload = function() { + window.location.href = "uploads/$target"; +}; + +HTML +} + +print(""); + + + + +