home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / tdbop.tcl < prev    next >
Text File  |  1997-04-11  |  2KB  |  89 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    /main/titanic/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.     set tdbName [lvarpop argv]
  47.     set tdbHost [lvarpop argv]
  48.  
  49.     if {$tdbName == ""} {
  50.         m4_error $E_NO_TDB $command
  51.         return
  52.     }
  53.  
  54.     if {($command == "createDatabase") || ($command == "dropDatabase")} {
  55.         $command $tdbHost $tdbName
  56.         return
  57.     }
  58.  
  59.     if {$command == "executeSQL"} {
  60.         #
  61.         # Expand the SQL statements and execute them
  62.         #
  63.  
  64.         set textSection [TextSection new]
  65.         if [catch {
  66.         foreach file $argv {
  67.             expand_file $textSection $file textSection $textSection
  68.             m4_message $M_CAT_MON $file
  69.         }
  70.         } reason] {
  71.         m4_error $E_CAT_MON $reason
  72.         }
  73.  
  74.         executeCommandWithConnect $textSection $tdbHost $tdbName
  75.  
  76.         return
  77.     }
  78.  
  79.     m4_error $E_UNKNOWN_SUBCMND $command
  80. }
  81.  
  82. #
  83. # Start tdbop
  84. #
  85.  
  86. if [catch {tdbop} ] {
  87.     puts stderr $errorInfo
  88. }
  89.