home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / scoadmin / root.2 / etc / admpe.tlib / admpe
Text File  |  1998-08-19  |  3KB  |  105 lines
  1. # Copyright (c) 1992-1998 The Santa Cruz Operation, Inc.. All Rights Reserved. 
  2. #                                                                         
  3. #        THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF THE               
  4. #                   SANTA CRUZ OPERATION INC.                             
  5. #                                                                         
  6. #   The copyright notice above does not evidence any actual or intended   
  7. #   publication of such source code.                                      
  8.  
  9. #******************************************************************************
  10. #
  11. #    Copyright (C) 1992-1998 The Santa Cruz Operation, Inc.
  12. #        All Rights Reserved.
  13. #
  14. #    The information in this file is provided for the exclusive use of
  15. #    the licensees of The Santa Cruz Operation, Inc.  Such users have the
  16. #    right to use, modify, and incorporate this code into other products
  17. #    for purposes authorized by the license agreement provided they include
  18. #    this notice and the associated copyright notice with any such product.
  19. #    The information in this file is provided "AS IS" without warranty.
  20. #
  21. #===============================================================================
  22.  
  23. #@package: admpe CheckError GetDbInfo
  24.  
  25. proc CheckError cmd {
  26.  
  27.     if { [ErrorCatch eStk 0 $cmd retVal] == 1 } {
  28.     ErrorOutput eStk
  29.     exit 1
  30.     } else {
  31.         return $retVal
  32.     }
  33. }
  34.  
  35. proc GetDbInfo { version classDatabase installDirectory } {
  36.     upvar $classDatabase classDb
  37.     upvar $installDirectory installDir
  38.  
  39.     set classDir {}
  40.     set installDir {}
  41.     if {$version != -1} {
  42.     set dbVersion $version
  43.     } else {
  44.     set dbVersion 1
  45.     }
  46.  
  47.     if { [ catch "StanzaOpen /etc/default/scoAdmin STZ_RDONLY" sfp ] == 0} {
  48.     set cmd "StanzaGetVals $sfp defaultDbLocations scoAdminDirectory" 
  49.     if { [ catch $cmd classDir ] != 0 } {
  50.         set classDir {}
  51.     }
  52.  
  53.     if {$version == -1} {
  54.         set cmd "StanzaGetVals $sfp defaultDbLocations classDbVersion"
  55.         if { [ catch $cmd dbVersion ] != 0 } {
  56.         set dbVersion 1
  57.         }
  58.     }
  59.  
  60.     set cmd "StanzaGetVals $sfp defaultDbLocations installRepository"
  61.     if { [ catch $cmd installDir ] != 0 } {
  62.         set installDir {}
  63.     }
  64.     CheckError "StanzaClose $sfp"
  65.     }
  66.  
  67.     if {$classDir == {}} {
  68.     set classDir "/usr/lib/scoadmin/registry/osaConf"
  69.     }
  70.     if {$installDir == {}} {
  71.     set installDir "/usr/lib/scoadmin/registry/osaConf"
  72.     }
  73.  
  74.     set classDb "$classDir/classes/classV$dbVersion.stz"
  75. }
  76.  
  77. #@package: SCO_ADMINCK_MSGS SCO_ADMINCK_MSGS
  78.  
  79. proc SCO_ADMINCK_MSGS {} {}
  80.  
  81. global SCO_ADMINCK_MSGS
  82. set SCO_ADMINCK_MSGS(@catalog@) {sysadm.cat@sa 13}
  83. set SCO_ADMINCK_MSGS(ERR_OSANOREG) {1 {error: %s is not registered in the installed OSA database}}
  84. set SCO_ADMINCK_MSGS(ERR_NOFILE) {2 {error: could not find file %s}}
  85. set SCO_ADMINCK_MSGS(ERR_UNKNOWNVER) {3 {error: unknown class database version %s}}
  86.  
  87. #@package: SCO_CLASSCONF_MSGS SCO_CLASSCONF_MSGS
  88.  
  89. proc SCO_CLASSCONF_MSGS {} {}
  90.  
  91. global SCO_CLASSCONF_MSGS
  92. set SCO_CLASSCONF_MSGS(@catalog@) {sysadm.cat@sa 11}
  93. set SCO_CLASSCONF_MSGS(ERR_EXISTS) {1 {error: class or naming attribute exists}}
  94. set SCO_CLASSCONF_MSGS(ERR_NOEXISTS) {2 {error: class not found}}
  95. set SCO_CLASSCONF_MSGS(ERR_NONAMEEXISTS) {3 {error: naming attribute not found}}
  96.  
  97. #@package: SCO_OSACONF_MSGS SCO_OSACONF_MSGS
  98.  
  99. proc SCO_OSACONF_MSGS {} {}
  100.  
  101. global SCO_OSACONF_MSGS
  102. set SCO_OSACONF_MSGS(@catalog@) {sysadm.cat@sa 12}
  103. set SCO_OSACONF_MSGS(ERR_EXISTS) {1 {error: osa exists}}
  104. set SCO_OSACONF_MSGS(ERR_NOEXISTS) {2 {error: osa not found}}
  105.