Mercurial > hgrepos > hgweb.cgi > s4
diff s4-funcs.sh @ 915:b47f64276427
Try to compress PDF if gs is available
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Fri, 08 Jan 2021 19:01:50 +0900 |
parents | 5acef432b1de |
children | 070e933c7896 |
line wrap: on
line diff
--- a/s4-funcs.sh Wed Jan 06 12:56:33 2021 +0900 +++ b/s4-funcs.sh Fri Jan 08 19:01:50 2021 +0900 @@ -1055,6 +1055,12 @@ fi $sha1 "$@" | cut -d' ' -f1 } +if type gs >/dev/null 2>&1; then + gs_pdfwrite() { + gs -sDEVICE=pdfwrite -dPDFSETTINGS=/default \ + -dNOPAUSE -dQUIET -dBATCH -o "$2" "$1" + } +fi enjpeg() { if [ -z "$cjpeg" ]; then if type cjpeg >/dev/null 2>&1; then @@ -1580,6 +1586,16 @@ mogrify -quality 75 -resize $maximagexy'>' "$tmpd/$v" err "Mogrified: `ls -lF $tmpd/$v`" # 2020-05-31 ;; + [Aa]pplication/[Pp][Dd][Ff]) + if [ x"`getpar comppdf`" = x"yes" ]; then + if type gs_pdfwrite >/dev/null 2>&1; then + err Calling gs + gs_pdfwrite "$tmpd/$v" "$tmpd/$v.mini.pdf" && { + err "PDF compressed: `ls -lF $tmpd/${v}*`" + mv "$tmpd/$v.mini.pdf" "$tmpd/$v" + } + fi + fi esac if ! echo "$mimetype" | egrep "$file_accept_egrep" >/dev/null 2>&1 then