IEICEの2015年03月の総合大会のProceedingsを僕好みにするシェルスクリプト

ieice2015g_hacks.sh

#!/bin/sh

# ---- ここから設定箇所 ----

# Proceedingsの中身をHDDにコピーして，その中の"Settings"ディレクトリを以下に指定してください．
ROOT_DIR="/Users/river24/Desktop/EIC2015G/Settings"

# 処理中の一時ファイルを出力する先を指定してください．
TMP_DIR="/tmp"

# ---- ここまで設定箇所 ----

# 処理中に生成される一時ファイルです．
PDF_LIST="${TMP_DIR}/pdf.list"
PAGE_LIST="${TMP_DIR}/page.list"
LINK_LIST="${TMP_DIR}/link.list"
TMP_HTML="${TMP_DIR}/tmp.html"
SESSION_LIST="${TMP_DIR}/session.list"
PAPER_LIST="${TMP_DIR}/paper.list"

cd "${ROOT_DIR}"

# このスクリプトによる変更を施す前の './html' ディレクトリを，
# './html.original' としてバックアップします．
# このスクリプトによる変更を施す前に戻したい場合は，これから復元して下さい．
if [ -e "./html.original" ]
then
    sleep 0
else
    if [ -e "./html" ]
    then
        cp -R "./html" "./html.original"
    else
        echo "'./html' directory is not found."
        exit
    fi
fi

if [ -e "./html.original" ]
then
    if [ -e "./html" ]
    then
        rm -rf "./html"
    fi
    cp -R "./html.original" "./html"
else
    echo "failed to backup './html' directory as './html.original'."
    exit
fi

if [ -e "./html" ]
then
    sleep 0
else
    echo "'./html' directory is not found."
    exit
fi

if [ -e ${PDF_LIST} ]
then
    rm "${PDF_LIST}"
fi

find "./pdf" -type f | egrep "[^\/]+\.pdf" | perl -pe 's/^.*\/([^\/]+\.pdf).*$/$1/g' | sort | uniq > ${PDF_LIST}

find "./html" -type f | egrep "[^\/]+\.html" | xargs chmod 644

find "./html" -type f | egrep "[^\/]+\.html" |
while read HTML
do
    cat ${HTML} | perl -pe 's/<\/td>/<\/td>\n/g' | perl -pe 's/<tr>/<tr>\n/g' | perl -pe 's/<\/tr>/<\/tr>\n/g' > ${TMP_HTML}
    cp ${TMP_HTML} ${HTML}
done

for PDF in `cat ${PDF_LIST}`
do
    echo ${PDF}
    if [ -e ${PAGE_LIST} ]
    then
        rm "${PAGE_LIST}"
    fi
    find "./html" -type f | egrep "[^\/]+\.html" | xargs grep "${PDF}" | perl -pe 's/^([^:]+):.*(<a [^>]*href=\"[^\"]*${PDF}\"[^>]*>.+<\/a>).*$/$1:$2/g' > ${PAGE_LIST}
    if [ -e ${PAGE_LIST} ]
    then
        if [ -e ${LINK_LIST} ]
        then
            rm "${LINK_LIST}"
        fi
        touch ${LINK_LIST}
        echo '<form><select style="width: 60px; font-size: 8px;" onChange="location.href=value;"><option value="#">▼Link</option>' >> ${LINK_LIST}
        cat ${PAGE_LIST} |
        while read LINE
        do
            FLAG=`echo "${LINE}" | md5`
            PAGE=`echo "${LINE}" | perl -pe 's/^([^:]+):(.*)$/$1/g'`
            TEXT=`echo "${LINE}" | perl -pe 's/^([^:]+):(.*)$/$2/g' | perl -pe 's/^.*<a [^>]*>(.+)<\/a>.*$/$1/g' | perl -pe 's/<.*?>//g'`
            echo "<option value=\"../.${PAGE}#${FLAG}\">${TEXT}</option>" >> ${LINK_LIST}
        done
        echo '</select></form>' >> ${LINK_LIST}
        cat ${PAGE_LIST} |
        while read LINE
        do
            FLAG=`echo "${LINE}" | md5`
            PAGE=`echo "${LINE}" | perl -pe 's/^([^:]+):(.*)$/$1/g'`
            TARGET=`echo "${LINE}" | perl -pe 's/^([^:]+):(.*)$/$2/g'`
            LINKS=`cat ${LINK_LIST}`
            cat ${PAGE} | perl -pe "s|\Q${TARGET}\E|${TARGET}<a name='${FLAG}' id='${FLAG}'>&nbsp;</a><br />${LINKS}|g" > ${TMP_HTML}
            cp ${TMP_HTML} ${PAGE}
        done
    fi
done