#!/bin/sh -e

rm -f filelist
touch filelist
find . -type f -name '*.htm*' -print | while read f
do
	if fgrep 'http://www.workingcode.com' $f > /dev/null
	then
		echo $f
		echo $f >> filelist
		(
		d=`dirname $f`
		b=`basename $f`
		cd $d
		sed 's+http://www.workingcode.com/+http://www.workingcode.com:81/+g' $b > $$.tmp
		mv $b ${b}.old
		mv $$.tmp $b
		)
	fi
done

lastdir='.'
sort -r filelist | while read f
do
	d=`dirname $f`
	if [ "$d" != "$lastdir" ]
	then
		lastdir="$d"
		d=`expr "$d" : './\(.*\)'`
		echo "lcd /usr/web/htdocs/$d"
		echo "cd /$d"
	fi
	echo "put "`basename $f`
done > putlist