#!/usr/bin/env scripteaser.pl
#
# Copyright (C) 2007 Stephen Morss
# Script running program which can call subroutines written in Perl or
# scripts written in many languages.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of version 2 of the GNU General Public License as 
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
###############################################################################

teaser_declare_revision("0.0.4")

perlinclude("teaser_ext.pl") # extensions

# allow all other library files to be in a separate directory
add_include_path(concat(_run_path_, "lib"))
# look at current directory first
add_include_path(".")

# define shell command - a script, so interpreter is scriptease
scriptstart("shell")
	loadparams("name")

	ifeq(name, "", {}, \
	{print("shell() does not take any parameters for this config."),\
	 exit()})
	include("shell.inc")
	shell_run() # call shell with no script calls - we are in one
scriptend()

include(get_next_argument()) # get the script