#!/bin/sh
# File Tosser v0.1e-6
#
# Ian Ward '01, this script has been placed in the public domain

ACCESS_LIST="/usr/bin/cut -f 2- /home/tosser/access.list"
# ^^ this command must produce a list of file paths
#
# --> STDIN
#  [ :persist\n ]  toss more than one file
#  [ :seek\n
#    <offset>\n ]  skip <offset> bytes from next file
#  <file path>\n   toss file given
#  [ <EOF> ]       all done
#
# STDOUT -->
#  [ <file size>\n ]  when in :persist mode
#  <raw file data>
#  [ <EOF> ]          when not in :persist mode
#
# STDERR -->
#  <failure messages>


declare -i index  # this way the client can't send us anything nasty
persist=0

send() {
	if [ "$persist" == "1" ]; then
		# is there a better way to print file size?
		/usr/bin/perl -e'print ((stat("'$acc'"))[7]); print"\n";'
	fi
	index="$offset + 1"
	/usr/bin/tail -c +"$index" "$acc"
}

while read filename; do
	if [ "$filename" = ":persist" ]; then
		persist=1; continue
	elif [ "$filename" = ":seek" ]; then
		read offset; continue
	fi

	$ACCESS_LIST | while /bin/true; do
		if read acc; then
			if [ "$filename" = "$acc" -a -f "$acc" ]; then
				send; break
			fi
		else
			echo "404 Not Found" 1>&2
			break
		fi
	done
	[ "$persist" = "1" ] || break
	offset=0
done