hammerdbws

#!/bin/sh
#########################################################################
## \
export LD_LIBRARY_PATH="./lib:$LD_LIBRARY_PATH"
## \
export PATH="./bin:$PATH"
## \
exec ./bin/tclsh8.6 "$0" ${1+"$@"}
########################################################################
# HammerDB
# Copyright (C) 2003-2024 Steve Shaw
# Author contact information at: http://www.hammerdb.com
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public
# License as published by the Free Software Foundation; either
# version 3 of the License, or (at your option) any later version.
#
# 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, see <https://www.gnu.org/licenses/>
########################################################################
if { $argc eq 0 } {
set argv0 "wait" 
} else { 
set argv0 [ string tolower [lindex $argv 0 ]] 
}
global hdb_version
set hdb_version "v4.12"
	if { $argv0 != "gui" } {
puts "HammerDB Web Service $hdb_version"
puts "Copyright (C) 2003-2024 Steve Shaw"
puts "Type \"help\" for a list of commands"
	}
set UserDefaultDir [ file dirname [ info script ] ]
::tcl::tm::path add "$UserDefaultDir/modules"

append modulelist { Thread msgcat sqlite3 xml comm tclreadline task wapp rest http huddle jobs ticklecharts }
for { set modcount 0 } { $modcount < [llength $modulelist] } { incr modcount } {
    set m [lindex $modulelist $modcount]
		set loadtext $m
	if [catch { package require $m }] {
	if { $argv0 != "gui" } {
                puts stderr "While loading module\
                        \"$m\"...\n$errorInfo"
		}
                exit 1
        }
    }

append loadlist { genvu.tcl genxml.tcl geninitws.tcl genws.tcl genhelp.tcl }
for { set loadcount 0 } { $loadcount < [llength $loadlist] } { incr loadcount } {
    set f [lindex $loadlist $loadcount]
		set loadtext $f
	if [catch {source [ file join $UserDefaultDir src generic $f ]}] {
	if { $argv0 != "gui" } {
                puts stderr "While loading component file\
                        \"$f\"...\n$errorInfo"
		}
                exit 1
        }
    }

for { set dbsrccount 0 } { $dbsrccount < [llength $dbsrclist] } { incr dbsrccount } {
    set f [lindex $dbsrclist $dbsrccount]
		set loadtext $f
	if [catch {source [ file join $UserDefaultDir src $f ]}] {
	if { $argv0 != "gui" } {
                puts stderr "Error loading database source files/$f"
	}
        }
    }

switch $argv0 {
"gui" {
        start_webservice gui
}
"wait" {
        start_webservice wait
}
"nowait" {
        start_webservice nowait
        TclReadLine::interactws
}
"start" {
        start_webservice wait
}
"stop" {
	puts "Stopping HammerDB Web Service"
	quit
}
default {
puts stderr "Error starting HammerDB Web Service: argument should be start, stop, gui, wait or nowait"
}
}