@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

=====================================================================

# 
# start cloudscape network server 

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

puts "\n **** executing [info script] **** \n"

# make script drive independent.

set drive [lindex [file split [info script]] 0 ] 

puts "\n proclib = $drive/scripts/TCL/proclib"

source $drive/scripts/TCL/proclib/checkFile_proc.tcl
source $drive/scripts/TCL/proclib/smtp_proc.tcl
source $drive/scripts/TCL/proclib/reportHeader_proc.tcl

####################################################################
# Get Cloudscape connection.
####################################################################
proc startServer { traceFile } {

   puts "\n**********"
   puts "startServer"
   puts "**********\n"

   global env 
   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 start\n" 

   if { [ catch { $NetworkServerControl start $null } r ] == 0 } {

          puts  $r 
          puts  $traceFile $r 
          flush $traceFile 

   } else {

          puts "\n$r\n"
          puts $traceFile "\n$r\n"
          flush $traceFile 
          return -code error

   } 

   flush $traceFile 

   java::lock $NetworkServerControl

   return $NetworkServerControl

}
####################################################################
# Get Cloudscape server info.
####################################################################
proc serverInfo { traceFile NetworkServerControl } {

   puts "\n**********"
   puts "serverInfo"
   puts "**********\n"

   global env
   global null

   set hostName [ lindex [ array get env COMPUTERNAME ] 1 ]
   set hostAddress [ java::call InetAddress getByName "0.0.0.0" ]

   puts "\nNetworkServerControl ping\n" 

   if { [ catch { $NetworkServerControl ping } r ] == 0 } {

          puts  $r 
          puts  $traceFile $r 
          flush $traceFile 

   } else {

          puts "\n$r\n"
          puts $traceFile "\n$r\n"
          flush $traceFile 
          return -code error

   } 

   puts "\nNetworkServerControl getSysinfo\n" 

   if { [ catch { $NetworkServerControl getSysinfo } r ] == 0 } {

       puts  $r 
       puts  $traceFile $r 
       flush $traceFile 

   } else {

       puts "\n$r\n"
       puts $traceFile "\n$r\n"
       flush $traceFile 
       return -code error

   }

   puts "\nNetworkServerControl getRuntimeInfo\n" 

   if { [ catch { $NetworkServerControl getRuntimeInfo } r ] == 0 } {

       puts  $r 
       puts  $traceFile $r 
       flush $traceFile 

   } else {

       puts "\n$r\n"
       puts $traceFile "\n$r\n"
       flush $traceFile 
       return -code error

   }

   flush $traceFile 

}
####################################################################
# Ping Cloudscape Server.
####################################################################
proc pingServer { traceFile NetworkServerControl } {

   puts "\n**********"
   puts "pingServer"
   puts "**********\n"

   global null

   flush $traceFile 

   while {1} {

       after 30000
      
       puts "\n ping the server \n"

       if { [ catch { $NetworkServerControl ping } r ] == 0 } {

	   set s "[ clock format [ clock seconds ] ] NetworkServerControl ping ok "
	   puts  $s 
	   puts  $traceFile $s 
           flush $traceFile 

       } else {

	   puts "\n$r\n"
	   puts $traceFile "\n$r\n"
           flush $traceFile 
	   return -code error

       }

   flush $traceFile 

   }

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

puts "\n argc = $argc \n"

if {$argc < 2} {

        return -code error "\nerror - not enough arguments supplied.\nSupply Derby dir and trace directory.\n"

}

set computerName  $::env(COMPUTERNAME)

set derbyDir      [ lindex $argv 0 ]
set traceDir      [ lindex $argv 1 ]
set traceFile     [ file join $traceDir traceFile\.txt ]
set traceFileId   [ open $traceFile  w ]

set body         $traceFile

checkFile $traceDir

set header   "$computerName: start Cloudscape Server"
reportHeader $traceFileId $header $traceFile

set computerTime [clock format [clock seconds] -format "%d-%m-%Y %H.%M.%S"]

puts "tracefile = $traceFile" 

# set database properties.

lappend optList "-Dderby.drda.host=$computerName"
# if configured to listen on the loopback address then will only accept connections from  local host. 
#lappend optList "-Dderby.drda.host=0.0.0.0"
lappend optList "-Dderby.drda.keepAlive=true"
lappend optList "-Dderby.infolog.append=true"
lappend optList "-Dderby.drda.logConnections=true"
lappend optList "-Dderby.drda.maxThreads=50"
lappend optList "-Dderby.drda.minThreads=10"
lappend optList "-Dderby.drda.portNumber=1527"
# start programatically rather then from property.
#lappend optList "-Dderby.drda.startNetworkServer=true"
lappend optList "-Dderby.drda.timeslice=2000"
lappend optList "-Dderby.drda.traceAll=true"
lappend optList "-Dderby.drda.traceDirectory=$traceDir"
lappend optList "-Dderby.system.home=$derbyDir"
#lappend optList "-Dderby.stream.error.logSeverityLevel=40000"
lappend optList "-Dderby.locks.monitor=true"
#lappend optList "-Dderby.locks.deadlockTrace=true"

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

# build tcl classpath

set null [ java::null ]

if { [ catch { startServer $traceFileId  } r ] == 0 } {

    set NetworkServerControl $r

    if { [ catch { serverInfo $traceFileId $NetworkServerControl } r ] == 0 } {

       flush $traceFileId	
       set subject       "$computerName: Start Cloudscape Server"
       set emailAddress  youremail@you.com
       sendSimpleMessage $emailAddress $subject $body

       if { [ catch { pingServer $traceFileId $NetworkServerControl } r ] == 0 } {

	   set ok true

       }

    } 

} else {

    return

}


set computerTime [clock format [clock seconds] -format "%d-%m-%Y %H.%M.%S"]
puts $traceFileId "\n********* Cloudscape Server stopped at: $computerTime *********\n"
close $traceFileId

set subject       "$computerName: Cloudscape server Stopped."
set emailAddress  yourmail@yourmail.com
sendSimpleMessage $emailAddress $subject $body