#!/bin/sh

cd /home/edwin/www/bom/

# Get data
export HTTP_PROXY=proxy.barnet.com.au:8080
fetch -q http://www.bom.gov.au/radar/IDR543.gif
fetch -q http://www.bom.gov.au/radar/IDR711.gif

mv IDR543.gif data-128/`date +"%Y%m%d-%H%M%S"`.gif
mv IDR711.gif data-256/`date +"%Y%m%d-%H%M%S"`.gif

find . -empty -delete

# Make animated GIFs of an hour
#/usr/local/bin/gifsicle --delay 100 --loop \
#	`ls -1 data-128/* | tail -6` \
#	> anim-128-hour.gif
#/usr/local/bin/gifsicle --delay 100 --loop \
#	`ls -1 data-256/* | tail -6` \
#	> anim-256-hour.gif
/usr/local/bin/gifmerge -50 -l1000 -255,255,255 \
	`ls -1 data-128/* | tail -12` \
	> anim-128-hour.gif 2>/dev/null
/usr/local/bin/gifmerge -50 -l1000 -255,255,255 \
	`ls -1 data-256/* | tail -12` \
	> anim-256-hour.gif 2>/dev/null

# Make animated GIFs of a day
#/usr/local/bin/gifsicle --delay 100 --loop \
#	`ls -1 data-128/* | tail -144` \
#	> anim-128-day.gif
#/usr/local/bin/gifsicle --delay 100 --loop \
#	`ls -1 data-256/* | tail -144` \
#	> anim-256-day.gif
/usr/local/bin/gifmerge -50 -l1000 \
	`ls -1 data-128/* | tail -288` \
	> anim-128-day.gif 2>/dev/null
/usr/local/bin/gifmerge -50 -l1000 \
	`ls -1 data-256/* | tail -288` \
	> anim-256-day.gif 2>/dev/null


# Keep only one day
for i in `ls -1t data-128/* | tail +140`; do
	rm $i
done
for i in `ls -1t data-256/* | tail +140`; do
	rm $i
done