From: Jan Michel Date: Mon, 20 Apr 2015 12:00:14 +0000 (+0200) Subject: added pdf convert X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=2994c36d2f7d92f36e86fb74d398e2f43abb5bab;p=labtools.git added pdf convert --- diff --git a/presenter/convert.sh b/presenter/convert.sh old mode 100644 new mode 100755 index 6b27965..6d7d770 --- a/presenter/convert.sh +++ b/presenter/convert.sh @@ -9,4 +9,6 @@ #-quality 84 \ #PNG:'%[filename:1].png' -convert -density 300x300 -resize 1440x900 -quality 80 $1 `echo $1|cut -f1 -d'.'`.png;\ +#convert -density 300x300 -resize 1440x900 -quality 80 $1 `echo $1|cut -f1 -d'.'`.png;\ + +pdftoppm -png -r 300 -scale-to 1400 $1 $2 diff --git a/presenter/getPic.pl b/presenter/getPic.pl old mode 100644 new mode 100755 diff --git a/presenter/getfiles.pl b/presenter/getfiles.pl old mode 100644 new mode 100755 diff --git a/presenter/index.pl b/presenter/index.pl old mode 100644 new mode 100755 diff --git a/presenter/showPic.pl b/presenter/showPic.pl old mode 100644 new mode 100755 diff --git a/presenter/uploadFiles.pl b/presenter/uploadFiles.pl old mode 100644 new mode 100755 index 8134d10..4207153 --- a/presenter/uploadFiles.pl +++ b/presenter/uploadFiles.pl @@ -29,6 +29,14 @@ while ( $nBytes = read($upfile, $buffer, 1024) ) { } close(OUTFILE); +if($basename =~ /.pdf$/) { + my $b = $basename; + $b =~ s/.pdf//; + system("cd store;../convert.sh $basename $b"); + system("rm store/$basename"); + } + + sub GetBasename { my $fullname = shift; @@ -42,4 +50,4 @@ sub GetBasename { } return(pop(@parts)); -} \ No newline at end of file +}