#!/bin/sh
#
# Download the latest-books catalog from audible.com, figure out
# what's new, and email the list of new books to the owner
#
# Last updated by rb on Sun Jan 11 14:27:03 EST 2004
#

AUDIBLE_DIR=~/tmp/audible
CATALOG_FILENAME=catalog-audiobooks.tab
CATALOG=http://www.audible.com/catalog/$CATALOG_FILENAME

SAVENAME=audible.tab
SAVENAME_OLD=audible.old.tab
SAVENAME_DIFF=audible.diff

RECIPIENT=rb@localhost

AUDIBLE_TAB_TO_HUMAN=~/code/perl/audible_catalog/audible_tab_to_human

cd $AUDIBLE_DIR

wget $CATALOG

#if [ "$?" ne "0" ]; then
#   echo Some strange error executing 'wget $CATALOG' - exit code: $?
#   exit 1
#fi

if [ -e $CATALOG_FILENAME ]; then
   mv -f $SAVENAME $SAVENAME_OLD
   mv -f $CATALOG_FILENAME $SAVENAME
fi

diff $SAVENAME_OLD $SAVENAME > $SAVENAME_DIFF

if [ -s $SAVENAME_DIFF ]; then
   $AUDIBLE_TAB_TO_HUMAN < $SAVENAME_DIFF
fi

#
# Ende.
#