#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1995 - 1999,
# by Gerald Banon. All rights reserved.
# Version 2.1
# stop the servers (if the main window is not open)

# not used

# stop \
exec ../../../../../\
dpi.inpe.br/banon/1997/10.21.17.24\
/doc/tk8.0/unix/wish "$0" ${1+"$@"}

if {$tcl_platform(platform) == "windows"} {
	console show
#	console hide
}

if [file exists ../auxdoc/running_indicator] {
	puts {The URLib Service window is open.
To stop the servers, first quit the the main window.}
	set x 0
	after 10000 set x 1
	vwait x
	exit
}
if [file exists ../auxdoc/.environmentArray.tcl] {
	source ../auxdoc/.environmentArray.tcl
} else {
	puts {The .environmentArray.tcl doesn't exist.}
	exit
}
set apacheRepository $environmentArray(apacheRepository)
set apacheExec $environmentArray(Exec)
set URLibServiceRepository dpi.inpe.br/banon/1998/08.02.08.56
set pwd [pwd]
set col ../../../../..
regexp "(^.*)/col/$URLibServiceRepository/doc" $pwd m homePath
StopApacheServer
puts {The servers have been stopped.}