#!/bin/bash
WEBMIN_CONFIG=/etc/webmin
WEBMIN_VAR=/var/webmin
PERLLIB=/usr/share/webmin
export WEBMIN_CONFIG WEBMIN_VAR PERLLIB
cd /usr/share/webmin/virtual-server
id -a | grep uid=0 >/dev/null
if [ "$?" != 0 ]; then
	echo "/usr/sbin/virtualmin must be run as root"
	exit 2
fi
if [ "$1" = "" -o "$1" = "help" -a "$2" = "" -o "$1" = "--help" -a "$2" = "" -o "$1" = "-help" -a "$2" = "" ]; then
	echo "usage: /usr/sbin/virtualmin <command> [args..]"
	echo "   or: /usr/sbin/virtualmin help <command>"
	echo ""
	echo "Available commands :"
	echo ""
	COMMAND=list-commands
else
	COMMAND=$1
fi
shift
if [ "$COMMAND" = "help" ]; then
	help=1
	COMMAND=$1
	shift
fi
echo $COMMAND | fgrep .pl >/dev/null
if [ "$?" != "0" ]; then
	COMMAND="$COMMAND.pl"
fi
for dir in /usr/share/webmin/virtual-server /usr/share/webmin/virtualmin-dav /usr/share/webmin/virtualmin-awstats /usr/share/webmin/virtualmin-mailman /usr/share/webmin/virtualmin-htpasswd; do
	if [ -x "$dir/$COMMAND" ]; then
		if [ "$help" = "1" ]; then
			exec perldoc $dir/$COMMAND
		else
			exec $dir/$COMMAND "$@"
		fi
	fi
done
echo Command $COMMAND was not found
exit 1