added pdf convert

diff --git a/presenter/convert.sh b/presenter/convert.sh
old mode 100644 (file)
new mode 100755 (executable)
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 (file)
new mode 100755 (executable)

diff --git a/presenter/getfiles.pl b/presenter/getfiles.pl
old mode 100644 (file)
new mode 100755 (executable)

diff --git a/presenter/index.pl b/presenter/index.pl
old mode 100644 (file)
new mode 100755 (executable)

diff --git a/presenter/showPic.pl b/presenter/showPic.pl
old mode 100644 (file)
new mode 100755 (executable)

diff --git a/presenter/uploadFiles.pl b/presenter/uploadFiles.pl
old mode 100644 (file)
new mode 100755 (executable)
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
+}