@echo off

setlocal

echo ###################################################
echo # Start Cloudscape Server on %computername%
echo ###################################################

set derbyDir=D:\CloudscapeDatabases
set traceDir=D:\CloudscapeDatabases\trace

set CLASSPATH=%CLASSPATH%;d:\IBM\Cloudscape_10.1\lib\derby.jar
set CLASSPATH=%CLASSPATH%;d:\IBM\Cloudscape_10.1\lib\derbyclient.jar
set CLASSPATH=%CLASSPATH%;d:\IBM\Cloudscape_10.1\lib\derbynet.jar
set CLASSPATH=%CLASSPATH%;d:\IBM\Cloudscape_10.1\lib\derbytools.jar

D:\scripts\TCL\JACL\cloudscape\startNetworkServer.tcl %derbyDir% %traceDir%

endlocal

======================================================================
# 
# stop cloudscape network server 

####################################################################
# Patrick Finnegan 17/11/2005.  V1. 
####################################################################

####################################################################
# Get Cloudscape connection.
####################################################################
proc stopServer { } {

   puts "\n**********"
   puts "Stop Server"
   puts "**********\n"

   global null

   # import required classes 

   java::import java.net.InetAddress
   java::import org.apache.derby.drda.NetworkServerControl

   puts "\nimported classes are:\n"
   
   foreach i [java::import] {
       
      puts [ format "%-5s %-50s" " " $i ] 

   }

   if { [ catch { java::new NetworkServerControl } r ] == 0 } {
   
        set NetworkServerControl $r 

   } else {

        puts $r 
        return -code error

   }

   puts "\nNetworkServerControl shutdown\n" 

   if { [ catch { $NetworkServerControl shutdown } r ] == 0 } {
   
        puts $r 

   } else {

        puts $r 
        return -code error

   }
}
####################################################################
# Main Control.
####################################################################

set computername [ lindex [ array get env COMPUTERNAME ] 1 ]

lappend optList "-Dderby.drda.host=$computername"
lappend optList "-Dderby.drda.portNumber=1527"

puts "\n java command line options list is:\n"

foreach x $optList {
    puts [ format "%-5s %-50s" " " $x ] 
}

set tclblend_init $optList  

#call java package 

package require java

set null [ java::null ]

if { [ catch { stopServer } r ] == 0 } {

    puts "\n Cloudscape Network Server on $computername shutdown successfully\n" 

} else {

    puts $r 
    exit 1   

}