#!/bin/sh -

# atls - list spooled at(1) job commands
# Steve Kinzler, kinzler@cs.indiana.edu, Feb 05
# http://www.cs.indiana.edu/~kinzler/home.html#unix

# NOTE: Only tested with at-3.1.8-46.1 (FC1) and at-3.1.8-82.1 (RHEL5)

env=; queue=; bad=

while :
do
	case $# in
	0)	break;;
	*)	case "$1" in
		-e)	env=$1;;
		-q)	shift; queue="$1";;

		--)	shift; break;;
		-h)	bad=t; break;;
		-*)	bad=t; echo "$0: unknown option ($1)" 1>&2;;
		*)	break;;
		esac
		shift;;
	esac
done

case "$#,$bad" in
0,)	;;
*)	cat << EOF 1>&2
usage: $0 [ -e ] [ -q queue ]
	-e	also output the environment setup commands
	-q	list the given queue versus the default
EOF
	exit 1;;
esac

case "$queue" in
'')		;;
[a-zA-Z=])	queue="-q $queue";;
*)		echo "$0: aborting, invalid queue ($queue)" 1>&2; exit 2;;
esac

echo '#!/bin/sh'
at -l $queue | sort -k 2 |
while read job
do
	echo "## $job ####################################"
	at -c `echo "$job" | sed 's/	.*//'` |
	case "$env" in
	?*)	cat;;
	*)	sed '1,/^}$/d; /^[ 	]*$/d' |	# HACK KLUDGE
		sed '/^\${SHELL:-.*urandom/d';;		# HACK KLUDGE
	esac
	echo ''
done