#!/bin/sh

PATH=/bin:/usr/bin:/usr/local/bin
WWWHOME=/usr/home/lx/www/redundancy.org/lxcam
ARCHNUM=30

case $1 in

	bw)
		# black and white
		vid --small |\
		ppmlabel -y 238 -colour grey -size 6 -text "`date`" | 
		ppmtopgm | \
		pnmnorm | \
		pnmtojpeg > $WWWHOME/image.jpg
	;;
	
	grainy)
		# black and white overdriven
		vid --small |\
		ppmlabel -y 238 -colour grey -size 6 -text "`date`" | 
		ppmtopgm | \
		pnmhisteq| \
		pnmtojpeg > $WWWHOME/image.jpg
	;;

	*)
		# regular color
		vid --small |ppmflash 0.2 | \
		ppmlabel -y 238 -colour grey -size 6 -text "`date`" | \
		pnmnorm -keephues | \
		pnmtojpeg > $WWWHOME/image.jpg
	;;

esac

# thumbnail it
jpegtopnm $WWWHOME/image.jpg | \
pnmscale -pixels 8000 | \
pnmtojpeg > $WWWHOME/t_image.jpg

x=`expr $ARCHNUM - 1`
while [ "$x" != 0 ];
do
	mv $WWWHOME/image${x}.jpg $WWWHOME/image`expr $x + 1`.jpg
	mv $WWWHOME/t_image${x}.jpg $WWWHOME/t_image`expr $x + 1`.jpg
	x=`expr $x - 1`
done

cp $WWWHOME/image.jpg $WWWHOME/image1.jpg
cp $WWWHOME/t_image.jpg $WWWHOME/t_image1.jpg