home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / public_html / cudocs / ilodomany < prev    next >
Text File  |  2020-01-01  |  3KB  |  84 lines
  1. #!/p/sy/subsys/scripts/wermit +
  2. #!/p/kd/fdc/solaris9/wermit +
  3. #!/p/kd/fdc/RHEL4/wermit +
  4. #
  5. # IMPORTANT: The first line must indicate the path to C-Kermit 8.0.212
  6. #  and must be followed by a plus sign (separated by whitespace).
  7. #
  8. # ilodomany: C-Kermit script to invoke ilosetup on a series of HP servers.
  9. #   The names of the servers are on the command line.  Prompts once for the
  10. #   created-user password and uses it on all the servers.
  11. # 
  12. # author: Frank da Cruz, Columbia University, 2009
  13. #
  14. .version = 1.04
  15. #   Created:  
  16. #    1.01 20090428
  17. #   Modified:
  18. #    1.04 20091211: Allow passing of options to ilosetup
  19. #    1.03 20091104: Fix bugs in ASK/ASKQ prompting;
  20. #                   Work around limitation in PUTENV (*)
  21. #    1.02 20090916: prompt for created user ID as well as password
  22. #
  23. # (*) In C-Kermit 8.0.212 only one environment variable could be passed;
  24. #     in C-Kermit 9.0, any number can passed.
  25. #
  26. # quitonerror 0 means if an ilosetup invocation fails for any reason,
  27. # go ahead and do the next one (if any) regardless.  Nonzero means
  28. # stop immediately and not do any more.
  29.  
  30. .quitonerror = 0             # Set to nonzero if desired
  31.  
  32. .myname := \fbasename(\v(cmdfile))    # Name of this script without path
  33. if < \v(version) 800212 {
  34.     exit 1 "\m(myname): C-Kermit 8.0.212 or later required"
  35. }
  36. if llt "\v(build)" "20070830" {
  37.     # This is required for PUTENV
  38.     exit 1 "\m(myname): 20070830 or later required"
  39. }
  40. if not def \%1 exit 1 "Usage: \m(myname) hostname hostname hostname ..."
  41.  
  42. undef ilo_options
  43. for i 1 \v(argc)-1 1 {
  44.     if == 1 \findex(options=,\&_[i]) {
  45.         .ilo_options := \m(ilo_options) \fsubstr(\&_[i],9)
  46.         undef \&_[i]
  47.     }        
  48. }
  49. .exedir := \fdirname(\v(cmdfile))    # Directory where this script is
  50. if def \$(DEBUG) {            # dev/test
  51.     show mac myname exedir
  52.     show args    
  53. }
  54. cd \m(exedir)                # CD to script's directory
  55. if fail exit 1 "\m(myname): cd \m(exedir)"
  56. if not exist ./ilosetup exit 1 "\m(myname): \m(exedir)ilosetup not found"
  57.  
  58. undef userid                # Prompt for created-user ID
  59. while not def userid {
  60.     ask userid "User ID for created accounts: "
  61. }
  62. undef userpass                # Prompt for created-user password
  63. while not def userpass {
  64.     askq /echo:* userpass "Password to set on created accounts: "
  65. }
  66. # Note: in C-Kermit 9.0 we can do two putenvs and we don't have to pass
  67. # the user ID to ilosetup in the open on the command line.
  68.  
  69. for i 1 \v(argc) 1 {
  70.     if def \%1 {
  71.     if def \$(DEBUG) echo "DOING \%1..."
  72.     putenv ilo_userpass \m(userpass) # Must do this each time
  73.         ! ilo_userid=\m(userid) ./ilosetup \%1 \m(ilo_options)
  74.     if fail if \m(quitonerror) exit 1 "FAILED: ilosetup [\%1]"
  75.     }
  76.     shift                # Next host name
  77. }
  78. exit 0
  79.  
  80. ; Local Variables:
  81. ; comment-column:40
  82. ; comment-start:"# "
  83. ; End:
  84.