home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / dbasepwddi.tcl < prev    next >
Text File  |  1997-11-12  |  2KB  |  96 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)dbasepwddi.tcl    /main/titanic/4
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)dbasepwddi.tcl    /main/titanic/4   12 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12.  
  13. require wmt_util.tcl
  14.  
  15. # End user added include file section
  16.  
  17.  
  18. Class DbasePwdDialog : {LoginDialog} {
  19.     constructor
  20.     method destructor
  21.     method okHandler
  22.     method popUp
  23.     attribute executeScript
  24.     attribute tdbHost
  25.     attribute tdbName
  26.     attribute target
  27. }
  28.  
  29. constructor DbasePwdDialog {class this name} {
  30.     set this [LoginDialog::constructor $class $this $name]
  31.     # Start constructor user section
  32.     $this config \
  33.         -title "Password" \
  34.         -okPressed "$this okHandler" \
  35.         -helpPressed "[getParent $this] helpOnName [nt_get_type $this]"
  36.     if [catch {uplevel source [list [m4_path_name tcl tgtname.tcl]]}] {
  37.         resetErrorVars
  38.     }
  39.     # End constructor user section
  40.     return $this
  41. }
  42.  
  43. method DbasePwdDialog::destructor {this} {
  44.     # Start destructor user section
  45.     # End destructor user section
  46. }
  47.  
  48. method DbasePwdDialog::okHandler {this} {
  49.     
  50.     set curConfig [[ClientContext::global] currentConfig]
  51.     set target [$this target]
  52.     if {$target == "SYBASE" || $target == "SQLSERVER"} {
  53.         set context [$this tdbHost]
  54.     } else {
  55.         set context [$this tdbName]
  56.     }
  57.     #save the password in the M4var
  58.     m4_var set M4_password [$this entry] -context $context
  59.     eval [$this executeScript]
  60.     
  61. }
  62.  
  63. method DbasePwdDialog::popUp {this {script ""} {tdbHost ""} {tdbName ""}} {
  64.     set curConfig [[ClientContext::global] currentConfig]
  65.     if {$tdbHost == ""} {
  66.         $this tdbHost [$curConfig getPropertyValue tdbhost]
  67.     } else {
  68.         $this tdbHost $tdbHost
  69.     }
  70.     if {$tdbName == ""} {
  71.         $this tdbName [$curConfig getPropertyValue tdbname]
  72.     } else {
  73.         $this tdbName $tdbName
  74.     }
  75.     set target [$this target]
  76.     case "$target" in {
  77.         {SYBASE SQLSERVER} {
  78.             set server [$this tdbHost]
  79.             $this message "Server: $server"
  80.         }
  81.         {ORACLE} {
  82.             set schema [$this tdbName]
  83.             $this message "Schema: $schema"
  84.         }
  85.         {default} {
  86.             set database [$this tdbName]
  87.             $this message "Database: $database"
  88.         }
  89.     }
  90.     $this executeScript "$script"
  91.     $this EntryDialog::popUp
  92. }
  93.  
  94. # Do not delete this line -- regeneration end marker
  95.  
  96.