home *** CD-ROM | disk | FTP | other *** search
/ ftp.ib.com / 2003-04-09_ftp.ibm.com-os2.zip / tools / dss / secrep.tcl
Text File  |  1996-09-30  |  6KB  |  154 lines
  1. # host rpcprofile setup tcl script
  2. # must be logged in as cell_admin to execute
  3. # example: dcecp setprofile.tcl hostname
  4. # 
  5.  
  6. if {($argc != 2) && ($argc != 1)} {
  7.     puts stdout " "
  8.     puts stdout "Usage: <fullhostname> slim (if host is a slim client)"
  9.     exit
  10. }
  11. set hostname [lindex $argv 0]
  12.  
  13. # ********** setup slim client profile directory ***********************
  14.  
  15. if {$argc == 2 } {
  16.     set slimarg [lindex $argv 1]
  17.     if ![string match slim $slimarg] {
  18.        puts stdout " "
  19.        puts stdout "Invalid usage of second argument"
  20.        puts stdout "Usage: <fullhostname> slim (if host is a slim client)"
  21.        exit
  22.     }
  23.     puts stdout " "
  24.     puts stdout "Enter the LAN profile for slim client $hostname"
  25.     set profilename [gets stdin]
  26.     set profilename /.:/$profilename
  27.     set status [catch {directory list /.:/slim.hosts} dirlist]
  28.     if {$status == 0} {
  29.        if {[string match "*$hostname*" "$dirlist"]} {
  30.           puts stdout "The directory structure /.:/slim.hosts/$hostname already exists"
  31.        } else {
  32.           puts stdout " "
  33.           puts stdout "Creating directory structure for slim.hosts $hostname"
  34.           directory create /.:/slim.hosts/$hostname     
  35.        }
  36.     } else {
  37.        puts stdout " "
  38.        puts stdout "Creating directory structure for slim client $hostname"
  39.        directory create /.:/slim.hosts
  40.        directory create /.:/slim.hosts/$hostname
  41.     }
  42.     set status [catch {rpcprofile show /.:/slim.hosts/$hostname/profile -i 6f264242-b9f8-11c9-ad31-08002b0dc035,1.0} profile]
  43.     if {$status == 0} {
  44.        puts stdout " "
  45.        puts stdout "Slim client $hostname already has a pointer to the following LAN profile(s)"
  46.        puts stdout "$profile"
  47.        puts stdout " "
  48.        puts stdout "Do you want to overright it, y or n"
  49.        set overright [gets stdin]
  50.        while {(($overright != "y") && ($overright != "n"))} {
  51.           puts stdout " "
  52.           puts stdout "ERROR invalid entry type y or n"
  53.           set overright [gets stdin]
  54.        }
  55.        if {$overright == "y"} {
  56.           catch {rpcprofile list /.:/slim.hosts/$hostname/profile} profiles
  57.           foreach e [lrange $profiles 0 end] {
  58.              catch {rpcprofile remove                \
  59.                                  -i 6f264242-b9f8-11c9-ad31-08002b0dc035,1.0  \
  60.                                  -m $e                \
  61.                                   /.:/slim.hosts/$hostname/profile  }
  62.           }
  63.        }
  64.     }
  65.     if {($status != 0) || ($overright == "y")} {
  66.        puts stdout " "
  67.        puts stdout "Creating a pointer to $profilename for slim client $hostname"
  68.        set status [catch {rpcprofile add -a LAN                      \
  69.                            -i 6f264242-b9f8-11c9-ad31-08002b0dc035,1.0     \
  70.                            -m $profilename             \
  71.                            -p 0                        \
  72.                            /.:/slim.hosts/$hostname/profile          \
  73.                            } msg]
  74.        if {$status == 0} {
  75.           puts stdout " "
  76.           puts stdout "A pointer to $profilename for slim client $hostname was added"
  77.        } else {  
  78.             puts stdout "ERROR: $msg"
  79.        }
  80.     }
  81. } else {
  82. # ****************  Gets Host Profile Name  *****************************
  83.   set hostfound ""
  84.   foreach i [directory list /.:/hosts] {
  85.     if {[string match "*$hostname*" "$i"]} {
  86.       set hostfound "true"
  87.       set proflist [rpcprofile list $i/profile]
  88.     }
  89.   }
  90.   if {$hostfound != "true"} {
  91.     puts stdout " "
  92.     puts stdout "ERROR bad host name"
  93.     puts stdout "Usage: <fullhostname> slim (if host is a slim client)"
  94.     exit
  95.   }
  96.   foreach p [lrange $proflist 0 end ] {
  97.     if !([regexp "cell-profile" $p]) {
  98.       set profilename $p
  99.     }
  100.   }
  101.   if {$profilename == ""} {
  102.      puts stdout " "
  103.      puts stdout "ERROR no host profile for $hostname"
  104.      exit
  105.   }
  106.   puts stdout " "
  107.   puts stdout "LAN profile for $hostname is $profilename"
  108. }
  109. # ***************  Get List of Security Servers  ***********************
  110.   set svrlist [rpcgroup list /.:/sec]
  111.   set master [rpcgroup list /.:/sec-v1]
  112.   puts stdout " "
  113.   puts stdout "The master security server is $master"
  114.   puts stdout " "
  115.   puts stdout "The avaliable security servers are:"
  116.   puts stdout "$svrlist"
  117.   puts stdout " "
  118.   set i 0
  119.   set proplist ""
  120.   foreach s [lrange $svrlist 0 end] {
  121.     puts stdout "Enter priority for $s (0-7)"
  122.     set priority [gets stdin]
  123.     while {(($priority < "0") || ($priority > "7"))} {
  124.        puts stdout " "
  125.        puts stdout "ERROR priority out of range Enter (0-7)"
  126.        set priority [gets stdin]
  127.     }
  128. # ***************  add rpcprofile to host profile *********************
  129.     puts stdout " "
  130.     puts stdout "Enter y to add priority $priority for $s "
  131.     puts stdout "to your $profilename or enter q to quit"
  132.     set responce [gets stdin]
  133.     while {(($responce != "y") && ($responce != "q"))} {
  134.        puts stdout " "
  135.        puts stdout "ERROR invalid entry type y or q"
  136.        set responce [gets stdin]
  137.     }
  138.     if {$responce == "y"} {
  139.        set status [catch {rpcprofile add -a rs_bind -i d46113d0-a848-11cb-b863-08001e046aa5,2.0 -m $s -p $priority $profilename} msg]
  140.        if {$status == 1} {
  141.            puts stdout "ERROR: $msg"
  142.        }
  143.        
  144.     } else {
  145.       puts stdout "You have asked to quit, so long"
  146.       exit
  147.     }
  148.   }
  149. set st [rpcprofile show "$profilename"]
  150. puts stdout " "
  151. puts stdout "The current profile for $profilename is"
  152. puts stdout "$st"
  153. exit
  154.