home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / tdbop.tcl < prev    next >
Text File  |  1996-06-05  |  2KB  |  92 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. # Copyright (c) 1993-1995 by Cadre Technologies Inc.
  4. #
  5. # This software is furnished under a license and may be used only in
  6. # accordance with the terms of such license and with the inclusion of
  7. # the above copyright notice. This software or any other copies thereof
  8. # may not be provided or otherwise made available to any other person.
  9. # No title to and ownership of the software is hereby transferred.
  10. #
  11. # The information in this software is subject to change without notice
  12. # and should not be construed as a commitment by Cadre Technologies Inc.
  13. #
  14. #---------------------------------------------------------------------------
  15. #
  16. #    File        : @(#)tdbop.tcl    2.1
  17. #    Original date    : 20-4-1993
  18. #    Description    : Perform TDB Operations
  19. #
  20. #---------------------------------------------------------------------------
  21. #
  22.  
  23. source [m4_path_name tcl cginit.tcl]
  24.  
  25. require wmt_util.tcl
  26. require tdbop_msg.tcl
  27. require subtdbop.tcl
  28.  
  29. proc getCurrentHost {} {
  30.     if {! [catch {exec hostname} thishost] ||
  31.                     ! [catch {exec "uname -n"} thishost]} {
  32.         return $thishost
  33.     }
  34.     return ""
  35. }
  36.  
  37. proc isCurrentHost {host} {
  38.     return [expr {([getCurrentHost] == $host) ? 1 : 0}]
  39. }
  40.  
  41.  
  42. proc tdbop {} {
  43.     OTShRegister::tdbOp
  44.  
  45.     set command [lvarpop argv]
  46.  
  47.     unpack_package
  48.  
  49.     set tdbName [lvarpop argv]
  50.     set tdbHost [lvarpop argv]
  51.  
  52.     if {$tdbName == ""} {
  53.         m4_error $E_NO_TDB $command
  54.         return
  55.     }
  56.  
  57.     if {($command == "createDatabase") || ($command == "dropDatabase")} {
  58.         $command $tdbHost $tdbName
  59.         return
  60.     }
  61.  
  62.     if {$command == "executeSQL"} {
  63.         #
  64.         # Expand the SQL statements and execute them
  65.         #
  66.  
  67.         set textSection [TextSection new]
  68.         if [catch {
  69.         foreach file $argv {
  70.             expand_file $textSection $file textSection $textSection
  71.             m4_message $M_CAT_MON $file
  72.         }
  73.         } reason] {
  74.         m4_error $E_CAT_MON $reason
  75.         }
  76.  
  77.         executeCommandWithConnect $textSection $tdbHost $tdbName
  78.  
  79.         return
  80.     }
  81.  
  82.     m4_error $E_UNKNOWN_SUBCMND $command
  83. }
  84.  
  85. #
  86. # Start tdbop
  87. #
  88.  
  89. if [catch {tdbop} ] {
  90.     puts stderr $errorInfo
  91. }
  92.