update-modules.perl6.org

#!/bin/bash
. /home/modules.perl6.org/perl5/perlbrew/etc/bashrc
#set -e -x
echo 'Starting module update'
date
cd ~/modules.perl6.org/

git fetch
before=$(git rev-parse HEAD)
git checkout origin/master
after=$(git rev-parse HEAD)
cp update-modules.perl6.org ../

DO_REBUILD=0
standard_db_file="modulesperl6.db"
db_file="$standard_db_file"
if [ "$before" != "$after" ]
then
    echo "Got new commits"
    if [[ `git log "$before"..."$after" --oneline` =~ '[REBUILD]' ]]; then
        echo "Full database rebuild triggered"
        DO_REBUILD=1
    fi
    if [[ `git log "$before"..."$after" --oneline` =~ '[NEWDB]' ]]; then
        db_file=$(mktemp -u)
        echo "New database creation requested; using $db_file as temp db"
    fi
    if [[ `git log "$before"..."$after" --oneline` =~ '[REAPP]'
            && "$db_file" == "$standard_db_file"
            && "$DO_REBUILD" != "1"
       ]]; then
        echo "Restarting app before build"
        set +e
        hypnotoad bin/ModulesPerl6.pl
        set -e
    fi
fi

log_file=$(mktemp);
FULL_REBUILD=$DO_REBUILD perl bin/build-project-list.pl --restart-app \
    --db-file="$db_file" > "$log_file" 2>&1 &&
    cp "$log_file" public/update.log ||
    { echo 'Building failed'; rm $log_file; exit 1; }

# fix: Can't load application from file "/home/modules.perl6.org/modules.perl6.org/bin/ModulesPerl6.pl": iCCP: known incorrect sRGB profile at /home/modules.perl6.org/modules.perl6.org/bin/../lib/ModulesPerl6/SpriteMaker.pm line 30.
# see: https://stackoverflow.com/questions/22745076/libpng-warning-iccp-known-incorrect-srgb-profile
# needs: apt install imagemagick
#        apt install pngcrush
cd ~/modules.perl6.org/public/content-pics/dist-logos
ls -1 *.png | while read I; do
   if pngcrush -n -q $I 2>&1 | grep "pngcrush: iCCP: profile 'ICC Profile': 0h: PCS illuminant is not D50"; then
	echo "### mogrify $I"
	mogrify $I
   fi
done
cd -

if [ "$db_file" != "$standard_db_file" ]
then
    echo "Moving temp db to regular place"
    mv "$db_file" "$standard_db_file"
    hypnotoad bin/ModulesPerl6.pl
fi

rm $log_file;