X-Git-Url: https://git.sesse.net/?p=webpdf;a=blobdiff_plain;f=createpdf.pl;fp=createpdf.pl;h=04233306b166270661faf91ef7dae00d855c21cc;hp=f33bbc5f6c95443fda34ef5168f6a22d7b5eb324;hb=28bec6d326a508b3fa2877d6613b40e530881369;hpb=8a306b3d0f351d8fa0efc3b8cc9b4fde45c08c0a diff --git a/createpdf.pl b/createpdf.pl index f33bbc5..0423330 100755 --- a/createpdf.pl +++ b/createpdf.pl @@ -153,24 +153,26 @@ EOF exit; } -# Make a thumbnail from the finished PDF, for later reference. (Output to -# stdout is so we make sure we get only the first page; it's the simplest -# hack I can find offhand. :-) ) -system("convert -resize 192x192 output/$pdf_filename png:- > output/$pdf_filename.png"); -open DESC, ">output/$pdf_filename.desc"; +my $size = -s "output/$pdf_filename"; -if ($url =~ /^http/i) { - $url =~ tr/\n//d; - print DESC "$url\n"; -} else { - $filename =~ tr/\n//d; - print DESC "$filename\n"; -} +if (defined($size) && $size > 0) { + # Make a thumbnail from the finished PDF, for later reference. (Output to + # stdout is so we make sure we get only the first page; it's the simplest + # hack I can find offhand. :-) ) + system("convert -resize 192x192 output/$pdf_filename png:- > output/$pdf_filename.png"); + open DESC, ">output/$pdf_filename.desc"; + + if ($url =~ /^http/i) { + $url =~ tr/\n//d; + print DESC "$url\n"; + } else { + $filename =~ tr/\n//d; + print DESC "$filename\n"; + } -close DESC; + close DESC; +} -my $size = -s "output/$pdf_filename"; - (my $sanitized_outname = $outname) =~ tr/a-zA-Z0-9. -/_/c; print "Content-type: application/pdf\n";