#!/bin/csh
 
# @(#)[Hyper-G] [HGS-C] dbstart	1.20 [activate server] [Gerald Pani]

# 
# <copyright>
# 
# Copyright (c) 1993-1995
# Institute for Information Processing and Computer Supported New Media (IICM),
# Graz University of Technology, Austria.
# 
# </copyright>
  
# <file>
#
# Name:       dbstart
#
# Purpose:    Start of Hyper-G server
#
# Created:       Dec 92    Gerald Pani
#
# Modified:   30 Mar 95    Gerald Pani 
#			1.10: give arguments to dbserver.control
#
# Description:
# 
# Start of dbserver.control
# 
# </file>

# for redirection to logfile
unset noclobber

# read Hyper-G resource file
if (! $?HGRC) then
	source ~/.hgrc
endif

# check the perl interpreter
if ( ! -f /usr/local/bin/perl ) then
	perl -v >& /dev/null
	if ( $status ) then
		echo 'dbstart: Error: can'"'"'t find the Perl interpreter'
		exit 1
	endif
endif

~/bin/scripts/dbserver.control "$argv:q" &
