#!/bin/bash
# jpeq: skripto por 
# DejaVu kaj PTF el la epubaj versioj de LOdE.
# Uzado:
# Iru en la dosierujon kie estas la sarkota revuo, ekz-e
# $ cd ~/Documents/Books/eo/Gazetoj/LOdE
# voku la skripton, ekz-e
# $ jpeq Lo-270.epub
# Se la operacio sucesos, la skripto eligos tian mesagxon:
# "Lo-270.epub sukcese sarkita (je 42 %)"
# kaj sarkita dosiero (en la ekzemplo, "Lo-270.epub") anstatauxos
# la argumenton.
# Averagxe la sarko sxparas 47% el la originala amplekso:
#
# Lo-257.epub 	4.5M	2.6M	-42 % 
# Lo-267.epub 	4.2M	2.2M 	-46 %
# Lo-268.epub 	3.8M	1.8M 	-51 %
# Lo-269.epub 	4.0M	2.1M 	-48 %
# Lo-270.epub 	4.6M	2.6M 	-42 %
# -----------------------------------
# Sume 	       21.1M   11.2M	-47 %
#
# La forsarkotaj tiparoj okupas 3908 kbajt malpakite,
# kaj 2 Mbajt zipite.


set -e
case $# in 
        1);;
        *) echo "Mi atendas ekzakte unu argumenton."; exit 1;;
esac;
case $1 in 
        *.epub);;
        *) echo "Mi atendas epub-dosieron."; exit 2;;
esac;

if [ ! -s $1 ]; then
    echo "Dosiero $1 malplenas aux ne ekzistas"
    exit 3
fi

sz1=`du -b $1 | cut -f1`
rm -fr /tmp/lode
mkdir /tmp/lode
unzip -qd /tmp/lode $1
cd /tmp/lode/
# find . -name '*.jpg' -exec mog {} \;
find . -name '*.jpg' -exec mogrify -quality 33 {} \;
# find . -name '*.jpeg' | xargs mogrify -quality 33
# mog ./OEBPS/Images/F14.jpg
zip -q -X0 lo.epub mimetype && zip -q -Xr lo.epub *
epubcheck lo.epub
sz2=`du -b lo.epub | cut -f1`
mv lo.epub /tmp/nova/$1
sz2=`expr $sz1 - $sz2`
echo "$1 sukcese kunpremita (je `expr $sz2 \* 100 / $sz1` %)"
exit 0