Mercurial > hg > lukkari
view update.sh @ 22:f025d36926a1
Make backup copies of old versions of data files when updating.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 25 Jan 2011 19:51:39 +0200 |
parents | d0c8dda49726 |
children | 1b8260151e99 |
line wrap: on
line source
#!/bin/sh URLPREFIX="http://www.oamk.fi/tyojarjestykset/otek/luokat/" URLSUFFIX=".htm" CACHEDIR="cache/" LISTFILE="luokat.tmp" CLASSFILE="luokat.txt" if wget -q -O "$LISTFILE" "$URLPREFIX"; then perl -ne 'if (/<a href="OR_([A-Z]{3}\d\S+)\.htm">/) { print "$1\n"; }' < "$LISTFILE" > "$CLASSFILE" fi cat "$CLASSFILE" | while read i; do parse=no INFILE="${CACHEDIR}${i}.html" wget -q -O "$INFILE.new" "${URLPREFIX}OR_${i}${URLSUFFIX}" if test -e "$INFILE.new"; then # New data fetched, does old file exist? if test -e "$INFILE"; then # Yes, do a diff if ! diff -u "$INFILE" "$INFILE.new" > "$INFILE.diff"; then # There were differences, do a parse parse=yes mv "$INFILE" "$INFILE.old" mv "$INFILE.new" "$INFILE" fi else # No old file, parse new data mv "$INFILE.new" "$INFILE" parse=yes fi else # No new file fetched, does datafile exist? if test ! -e "$i.data"; then # No, try to parse it if old file input exists parse=yes fi fi # Parsing of old data requested? if test "x$parse" = "xyes" -a -e "$INFILE"; then OUTFILE="${CACHEDIR}/$i.data" if test -e "$OUTFILE"; then mv "$OUTFILE" "$OUTFILE.old" fi echo "parsing $i" perl parsedata.pl -php "$INFILE" -o "$OUTFILE" fi done