#!/bin/bash
# http://tuss,sourceforge.net/

# Written by Mikael 'tewmten' Sörlin
#Thu Jan 15 01:28:36 CET 2004

# Creates a script template with an appropriate shebang
# Avaliable templates are;
#   regular perl script
#   mod_perl perl script
#   regular bash script

#
# Don't change below unless you know what you're doing
#

version="0.1"
www="http://tuss.sourceforge.net"
export version www

case "$1" in
	'1')
		echo -e '#!/usr/bin/perl -w\n\n# Written by '$USER'\n# '`date`'' > $2
		chmod 755 $2
		echo $2 "created."
	;;
	'2')
		echo -e '#!/usr/bin/perl -w\n\n# Written by '$USER'\n# '`date`'\n\nprint "Content-type: text/html\\n\\n";' > $2
		chmod 755 $2
		echo $2 "created."

	;;
	'3')
		echo -e '#!/bin/bash\n\n# Written by '$USER'\n# '`date`'' > $2
		chmod 755 $2
		echo $2 "created."
	;;
	*)
		echo -e $(basename $0)' version '$version' usage: '$(basename $0)' [TYPE] [FILENAME]\nAvailable types:\n   1 ... standard perl script\n   2 ... mod_perl style script\n   3 ... bash shellscript\nExample: '$(basename $0)' 1 foobar.pl\n----------\nWWW: '$www

	exit
	;;
esac