home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / public_html / cudocs / ilosetup.1.10 < prev    next >
Text File  |  2020-01-01  |  31KB  |  764 lines
  1. #!/p/kd/fdc/RHEL4/wermit +
  2. #!/p/kd/fdc/solaris9/wermit +
  3. #!/p/sy/subsys/scripts/wermit +
  4. #
  5. # IMPORTANT: The first line must indicate the path to C-Kermit 8.0.212 or 9.0
  6. #  and there must be a + sign after the path, separated by a space.
  7. #
  8. # ilosetup: C-Kermit Script to configure an HP server through its
  9. #            iLO management interface.
  10. #
  11. # Author: Frank da Cruz, Columbia University, 2009
  12. #
  13. .scriptversion = 1.10
  14. .scriptdate = 20100322
  15. #
  16. #   Created:  
  17. #    1.01 20090428
  18. #
  19. #   Modified:
  20. #    1.10 20100322: Allow hyphens in host names;
  21. #    1.09 20091221: Added raid / noraid option to configure RAID (or not);
  22. #                   added telnet and ssh options to specify which to try first;
  23. #                   added iloonly option to only do iLO commands.
  24. #    1.08 20091123: Undo 1.07 because the command doesn't work on all models.
  25. #                   Fix echoing of username when typed in manually.
  26. #                   Capture iLO firmware version and record in log.
  27. #                   Don't produce a debug.log unless asked.
  28. #    1.07 20091113: Enable remote console acquire (spelled "aquire")
  29. #    1.06 20091104: Handle login failure on Telnet connections.
  30. #    1.05 20091104: Add 'usepassword' and 'nopassword' options;
  31. #                   Try both in specified order.
  32. #    1.04 20091103: Handle console login failure more gracefully;
  33. #                   Allow empty password in serials file.
  34. #    1.03 20091028: Remove IF WRITEABLE check for log directory
  35. #    1.02 20090916: Prompt for username if not in environment.
  36. # 
  37. # Usage: [ ilo_username=x ] [ ilo_userpass=y ] ilosetup hostname [ keywords ]
  38. #
  39. # After the hostname you can put zero or more of these keywords:
  40. #
  41. #   connect - make an interactive connection after logging in
  42. #   debug - create a debug log (very big, only for Frank)
  43. #   usepassword - try to log in first with a serials file password
  44. #   nopassword - try to log in first with a blank password
  45. #   nopoweroff - don't power the host machine off at the end
  46. #   noreset - no reset at end
  47. #   poweroff - power the host machine off at the end (default)
  48. #   raid - set Logical Drive 1 to RAID 1
  49. #   noraid - Don't mess with RAID configuration (default)
  50. #   iloonly - Only do iLO commands and don't reset or power off the server
  51. #   quiet - only show error, warning, or status messages on the screen
  52. #   reset - reset at end (default)
  53. #   verbose - watch the script play on the screen (default)
  54. #
  55. # The keywords can be abbreviated to any unique left substring.
  56. #
  57. # Examples for host fillmore:
  58. #   ilosetup fillmore
  59. #   ilosetup fillmore poweroff
  60. #   ilosetup fillmore p (same as poweroff)
  61. #   ilosetup fillmore p q (poweroff and run quietly)
  62. #
  63. # The hostname should match (case independently) a hostname in the HP
  64. # serials file, which is just the first part of the first field of the
  65. # IP hostname, e.g. fillmore instead of fillmore-console.cc.columbia.edu.
  66. # But if you do include the extra fields, the script allows for it.
  67. #
  68. # Exit status:
  69. #   0 on success; 1 on failure.
  70. #
  71. # Creates in the log directory (logdirectory defined below):
  72. #   A session log file xxx-session.log (xxx is the hostname)
  73. #  (the log directory itself is created if it doesn't exist)
  74. #
  75. # Requires: C-Kermit 8.0.212 or later because it uses some recent features.
  76. # Version 8.0.211 or earlier lack at least the following, which are used in
  77. # this script:
  78. #  . FSEEK /FIND:string
  79. #  . The \fkwval() function
  80. # (The script could be recoded at some effort to use older ways of doing
  81. #  the same things.)
  82. #
  83. # If this script is run directly as if it were a shell command, the C-Kermit
  84. # binary that executes it is the one in the "kerbang line" (the first line in
  85. # the file).  Of course you can move the binary anywhere you want, or rename
  86. # it, but then you have to change the kerbang line to match.
  87. #
  88. # Other dependencies:
  89. #  . The HP serial numbers file (path defined a few lines down)
  90. #  . That the first field in a serials file record is the simple hostname
  91. #    (e.g. FILLMORE, not FILLMORE-CONSOLE or FILLMORE-CONSOLE.CC.COLUMBIA.EDU)
  92. #  . That the corresponding iLO console password is the 6th field.
  93. #
  94. # Documentation: http://www.columbia.edu/~fdc/net/ilosetup.html
  95. #
  96. ###############################################################################
  97.  
  98. if < \v(version) 800212 {               # Check Kermit version
  99.     exit 1 "\m(myname): C-Kermit 8.0.212 or later required"
  100. }
  101. # Debugging
  102.  
  103. .dodebug = 0
  104. if > 0 \flen(\$(DEBUG)) if numeric \$(DEBUG) if \$(DEBUG) .dodebug = 1
  105. if \m(dodebug) {
  106.     echo DEBUGGING ON
  107.     echo ILO_USERID=[\$(ilo_userid)]
  108.     echo ILO_USERPASS=[\$(ilo_userpass)]
  109. }
  110. if not background set quiet off         # Allow messages (for foreground use)
  111. set session-log text            # filter out escape sequences
  112. set session-log timestamp               # Put timestamps in session log
  113.  
  114. # "Constant" definitions (that can be changed)...
  115.  
  116. .iloprompt = ">hpiLO-> "                # HP iLO console prompt
  117. .logdirectory = /var/log/ilosetup       # Directory for session log
  118. .outputpacing = 100                     # Intercharter pacing for OUTPUT (msec)
  119. .poweroff = 0                           # Whether to power off at end
  120. .connect = 0                            # Make an interactive connection
  121. .telnet = 1                             # Default connection method is Telnet
  122. .iloonly = 0                            # Only do iLO commands
  123. .ssh = 0                                # and is not SSH
  124. .reset = 1                              # Reset at end
  125. .dopassword = 1                         # Use password from serials file
  126. .doingraid = 0                          # Don't configure RAID unless asked
  127. .serialsfile = /p/sy/subsys/HP/serials  # Path of blade serial numbers file
  128. .hostsuffix = -console.cc.columbia.edu  # Hostname suffix
  129. .loginname = Administrator              # iLO login name
  130.  
  131. if equ "\v(user)" "fdc" {               # Development / testing
  132.     .logdirectory = ~/net/shrimp # (dev/test)
  133.     # if \m(dodebug) .serialsfile = ./serials
  134. }
  135. .myname := \fbasename(\v(cmdfile))      # Name of this script without path
  136.  
  137. if \m(dodebug) show args                # development/test  
  138.  
  139. # Define command-line option keywords
  140.  
  141. dcl \&k[] = poweroff nopoweroff verbose quiet telnet ssh help iloonly -
  142.             connect debug reset noreset usepassword nopassword raid noraid
  143. array sort &k                           # Alphabetize them for table lookup
  144.  
  145. # If command line is invalid give usage message and exit
  146.  
  147. def usage {                             # Give usage message and exit
  148.     .verbose = "verbose"
  149.     .turnoff = "nopoweroff"
  150.     .doreset = "noreset"
  151.     .usepass = "nopassword"
  152.     .doraid = "raid"
  153.     .dotelnet = "telnet"
  154.     if not \m(telnet) .dotelnet = "ssh"
  155.     echo -
  156. "Usage: [ ilo_username=x ] [ ilo_userpass=y ] \m(myname) hostname [ options ]"
  157.     echo "Options:"
  158.     show array k
  159.     if quiet .verbose = "quiet"
  160.     if \m(poweroff) .turnoff = "poweroff"
  161.     if \m(reset) .doreset = "reset"
  162.     if \m(dopassword) .usepass = "usepassword"
  163.     xecho "Default options: \m(verbose) \m(turnoff)"
  164.     echo " \m(dotelnet) \m(doreset) \m(usepass) \m(doraid)"
  165.     echo "Optional environment variables:"
  166.     echo " ilo_userid:   user ID to create"
  167.     echo " ilo_userpass: password for user ID"
  168.     echo " DEBUG=1: turn on debugging"
  169.     echo "If created user ID and password are not found in the environment,"
  170.     echo "you are prompted for them."
  171.     echo
  172.     exit 1
  173. }
  174. # Parse and validate command line
  175.  
  176. if not def \%1 {
  177.     echo "FATAL - A hostname is required"
  178.     usage                               # A hostname is required
  179. }
  180. .hostname := \flower(\fword(\%1,1,.))   # First field of hostname argument
  181. .\%t := \findex(-console,\m(hostname))  # If "-console" found in hostname...
  182. if \%t .hostname := \s(hostname[1:\%t-1]) # remove it.
  183. .fullhost := \m(hostname)\m(hostsuffix) # Make full IP hostname
  184.  
  185. # Parse optional command-line keywords...
  186.  
  187. while defined \%2 {                     # While we still have trailing args...
  188.     .tmp := \%2
  189.     .\%2 := \ftablelook(\%2,&k)         # Look up this keyword and get index
  190.     if < \%2 1 {                        # Not found or ambiguous
  191.         echo "Invalid command-line option: '\m(tmp)'"
  192.         usage                   
  193.     }
  194.     .\%2 := \&k[\%2]                    # Resolve index to keyword itself
  195.     switch \%2 {                        # Handle the keyword
  196.       :iloonly                          # Do iLO commands only
  197.         .iloonly = 1
  198.         break
  199.       :help                             # Help
  200.         dousage                         # (exits)
  201.       :debug                            # Debug
  202.         .dodebug = 1
  203.         break 
  204.       :connect                          # Connect (interactive session)
  205.         .connect = 1
  206.         break
  207.       :poweroff                         # Leave power off at end
  208.         .poweroff = 1
  209.         break
  210.       :nopoweroff                       # Leave power on at end
  211.         .poweroff = 0
  212.         break
  213.       :quiet                            # Silent running (don't watch session)
  214.         set quiet on
  215.         set input echo off
  216.         break
  217.       :verbose                          # Show session on screen
  218.         set quiet off
  219.         set input echo on
  220.         break
  221.       :reset                            # Reset at end (default)
  222.         .reset = 1
  223.         break
  224.       :noreset                          # No reset at end
  225.         .reset = 0
  226.         break
  227.       :usepassword                      # Use password from serials file
  228.         .dopassword = 1
  229.         break
  230.       :nopassword                       # Use empty password
  231.         .dopassword = 0
  232.         break
  233.       :raid                             # Configure RAID 1 if RAID 0
  234.         .doingraid = 1
  235.         break
  236.       :noraid                           # Don't do anything with RAID
  237.         .doingraid = 0
  238.         break
  239.       :telnet                           # Try Telnet first
  240.         .telnet = 1
  241.         break
  242.       :ssh                              # Try ssh first
  243.         .telnet = 0
  244.     }
  245.     shift                               # Shift argument list to the left
  246. }
  247. # Macro definitions...
  248.  
  249. define logit {                          # Write a message to session log
  250.     if not open session-log end 0
  251.     .\%1 := \frpad(\%1,7,.)             # Make fields line up
  252.     writeln session                     # Make sure we're on a new line
  253.     writeln session "%% \%1 - \m(myname): \v(timestamp) [\m(hostname)] - \%2"
  254. }
  255. define message {                        # Print and log a progress message
  256.     if not quiet echo                   # To avoid mixing up screen text
  257.     echo "MESSAGE - \%1"                # Write message to screen (stdout)
  258.     logit MESSAGE "\%1"                 # and to session log
  259. }
  260. define warn {                           # Print and log warning message
  261.     if not quiet echo                   # To avoid mixing up screen text
  262.     echo "WARNING - \%1"                # Write it to to stdout
  263.     logit WARNING "\%1"                 # and to session log
  264. }
  265. define fatal {                          # Fatal error
  266.     .rc = 1                             # Failure exit code
  267.     echo "FATAL - \%1"                  # Write error message to screen
  268.     if \m(haveconnection) {             # If we have a connection
  269.         if not equ "\m(state)" "iLO" {  # but w're not in iLO...
  270.             output \{27}\{40}           # ESC+( - Escape back to iLO 
  271.             input 8 \m(iloprompt)       # and wait 8 sec for the prompt
  272.         }
  273.     }
  274.     logit FATAL "\%1"                   # write message to session log
  275.     logit INFO  "Most recent error: \v(errstring)"
  276.     goto DONE
  277. }
  278. define dotelnet {
  279.     set login user                      # Force a login prompt
  280.     set host \m(fullhost)               # Try Telnet (port 23)
  281.     if fail end 1                       # Return failure code if no go
  282.     input 10 "Login Name: "             # Wait for login prompt
  283.     if fail end 1 "Telnet Login Name timeout"
  284.     lineout \m(loginname)               # Send user ID
  285.     input 10 "password: "               # Wait for password prompt
  286.     if fail end 1 "Telnet password timeout"
  287.     end 0
  288. }
  289. define dossh {
  290.     set host /pty ssh -e none -l \m(loginname) \m(fullhost)
  291.     if fail end 1
  292.     # Watch out for RSA key fingerprint complaint and "are you sure?" prompt...
  293.     minput 20 "password: " "continue connecting (yes/no)? "
  294.     if fail end 1 "No response on SSH connection to \m(fullhost)"
  295.     if == \v(minput) 2 {
  296.         lineout "yes"
  297.         input 20 "password: "
  298.         if fail end 1 "SSH password timeout"
  299.     }
  300.     end 0
  301. }
  302. define getiloprompt {                   # Get iLO prompt
  303.     if not def \%1 .\%1 = 30            # Default timeout (secs)
  304.     if not numeric \%1 fatal "Non-numeric INPUT timeout"
  305.     input \%1 \m(iloprompt)             # Wait for the prompt
  306.     if fail fatal "Timed out waiting for iLO CLI prompt."
  307. }
  308. define ilocommand {                     # Send an iLO command and get response
  309.     local cmd                           # Local (stack) variable
  310.     .cmd := \fword(\%1,1)               # First word of command
  311.     msleep 10                           # Pause 10 msec just in case
  312.     lineout \%1                         # Send the full command
  313.     if fail fatal "Output failed"       # Check for i/o error
  314.     clear input                         # Empty the INPUT result buffer
  315.     getiloprompt \%2                    # Get response and next iLO prompt
  316.     # The "power on/off" and "vsp" commands give no response...
  317.     if not equ "\%1" "power" {          # But "power" by itself does...
  318.         if ( equ "\m(cmd)" "power" || equ "\m(cmd)" "vsp" ) end 0
  319.     }
  320.     .status = 9                         # Dummy inital status value
  321.     .tmp := \freplace(\v(input),\13,)   # Strip carriage returns (but not LFs)
  322.     .lines := \fsplit(\m(tmp),&a,\10)   # Split captured text into lines
  323.     undef iloversion                    # iLO firmware version
  324.     for i 1 lines 1 {                   # Loop through lines
  325.         void \fkwval(\&a[i])            # to get status and message values...
  326.     }     
  327.     if equ "\m(cmd)" "show" {
  328.         if def version .iloversion := \m(version) [\m(date)]
  329.         if def iloversion message "iLO Firmware \m(iloversion)"
  330.     }
  331.     if not numeric \m(status) .status = 9 # Just in case
  332.     if == \m(status) 0 end 0            # If status was 0 then OK
  333.     if ( equ "\m(cmd)" "create" && equ "\&a[5]" "Duplicate login name." ) {
  334.         end 0                           # This is not an error
  335.     }
  336.     fatal "ILO COMMAND \%1: \m(error_tag)" # Fail with nonzero status
  337. }
  338. define rbsucommand {  # Send a command to RBSU and get next rbsu> prompt.
  339.     local i sleep pacing max
  340.     msleep 10                           # Pause 10 msec just in case
  341.     lineout \%1                         # Send the command
  342.     # Check for error response or next rbsu> prompt.
  343.     # Note: RBSU commands have no consistent error indication;
  344.     # There may be some error responses that are not caught here...
  345.     minput 30 {rbsu>} {Invalid Command} {Incomplete Command} {Invalid Option}
  346.     if fail fatal "RBSU: Timeout after [\%1]"
  347.     if == \v(minput) 1 end 0            # No error message - done.
  348.     warn "RBSU COMMAND FAILURE [\%1]"
  349.     .max = 10
  350.     for i 1 \m(max) 1 {                 # Try again this many times.
  351.         increment pacing 40             # Slower pacing each time.
  352.         warn "RETRYING WITH PACING = \m(pacing) msec..."
  353.         msleep 10*i                     # Pause a little longer each time
  354.         lineout \%1                     # Send the command
  355.         minput 30 {rbsu>} -
  356. {Invalid Command} {Incomplete Command} {Invalid Option}
  357.         if fail fatal "RBSU: Timeout [\%1]"
  358.         if == \v(minput) 1 break        # No error message - done.
  359.     }
  360.     if > \m(i) \m(max) fatal "RBSU command error"
  361.     warn "RBSU COMMAND RECOVERY OK"
  362. }
  363. def xsleep {                            # (for debugging display)
  364.     if not def \%1 .\%1 = 1
  365.     if quiet {
  366.         sleep \%1 
  367.     } else {
  368.         local i
  369.         for i 1 \%1 1 { sleep 1, xecho . }
  370.         echo
  371.     }
  372. }
  373.  
  374. # Execution begins here: Get host password from HP serial numbers file...
  375.  
  376. .haveconnection = 0                     # No connection yet
  377. set input cancellation off              # Essential because of Esc sequences
  378. set exit warning off                    # Allow exit without warning
  379.  
  380. if \m(dodebug) directory \m(serialsfile) # Check and open serials file
  381. if not exist \m(serialsfile) exit 1 "\m(serialsfile) not found"
  382. if not readable \m(serialsfile) exit 1 "\m(serialsfile) not readable"
  383.  
  384. fopen /read \%c \m(serialsfile)         # Open serials file
  385. if fail fatal                           # Check for failure
  386. # Seek to line with this hostname
  387. fseek /find:"^\fupper(\m(hostname))[\9\32]" \%c 0
  388. if fail fatal "Hostname [\m(hostname)] not found in HP serials file"
  389. fread /line \%c line                    # Read the line
  390. fclose \%c                              # Close the file
  391.  
  392. .\%n := \fsplit(\m(line),&a,,-)         # Split the line into words
  393. .pass := \&a[6]                         # The sixth word is the host password
  394.  
  395. if \m(dopassword) {                     # 2-element password array
  396.     dcl \&p[2] = \m(pass) ""            # Try serials file password first
  397. } else {
  398.     dcl \&p[2] =  "" \m(pass)           # Try blank password first
  399. }
  400. if \m(dodebug) show array p
  401.  
  402. # If this is a configuration run open the log file
  403.  
  404. if not \m(connect) {
  405.     if not directory \m(logdirectory) { # Check if log directory exists
  406.         fatal "Log directory \m(logdirectory) not found or not a directory"
  407.     }
  408.     cd \m(logdirectory)                 # cd to the log directory
  409.     if fail fatal "cd \m(logdirectory)" # failure is fatal
  410.  
  411.     .sessionlog := \m(logdirectory)/\m(hostname)-session.log # Session log name
  412.     log session \m(sessionlog)          # Open and start the session log
  413. } else {
  414.     # Make session log in current directory
  415.     log session \m(hostname)-connect.log
  416. }
  417. if fail warn "FAILURE TO OPEN \m(sessionlog)"
  418. message "BEGIN ilosetup \m(scriptversion) \m(scriptdate)"
  419.  
  420. # Open the connection and log in
  421.  
  422. .protocol = "none"                      # No protocol yet
  423.  
  424. if \m(telnet) {                         # Try telnet first
  425.     message "TRYING TELNET..."
  426.     dotelnet
  427.     if fail {                           # If it fails try ssh
  428.         hangup                          # First close Telnet connection
  429.         message "TELNET FAILED - TRYING SSH..."
  430.         dossh
  431.         if fail fatal "SSH \m(fullhost) failed."
  432.         .protocol = "ssh"
  433.     }
  434.     .protocol = telnet
  435. } else {                                # Try ssh first
  436.     message "TRYING SSH..."
  437.     dossh
  438.     if fail {                           # If it fails try Telnet
  439.         hangup                          # First close ssh connection
  440.         message "SSH FAILED - TRYING TELNET..."
  441.         dotelnet
  442.         if fail fatal "TELNET \m(fullhost) failed."
  443.         .protocol = telnet
  444.     }
  445.     .protocol = "ssh"
  446. }
  447.  
  448. # If we arrive here we should have the password prompt.
  449. # NOTE: This logic will need to be changed if it is possible to log in
  450. # via SSH (or some secure form of Telnet) without a password.
  451.  
  452. .haveiloprompt = 0
  453. for i 1 2 1 {
  454.     lineout \&p[i]                      # Send console password
  455.     if fail fatal "Output password to \m(fullhost) failed."
  456.     minput 30 \m(iloprompt) "Permission denied" "Invalid login."
  457.     if fail fatal "Timed out waiting for iLO CLI prompt."
  458.     if == \v(minput) 1 {
  459.         .haveiloprompt = 1
  460.         break 
  461.     }
  462.     if \m(dopassword) {
  463.         message "Password from serials file failed - trying empty password..."
  464.     } else {
  465.         message "Empty password failed - trying password from serials file..."
  466.     }
  467.     # After bad password Telnet prompts again for the username - ssh does not.
  468.     if eq "\m(protocol)" "telnet" {
  469.         input 10 "Login Name: "
  470.         if fail fatal "Telnet Login Name timeout"
  471.         lineout \m(loginname)
  472.     }
  473.     input 2 "password: "
  474.     if not quiet echo
  475.     if == \m(i) 2 fatal "Password not accepted"
  476.     if quiet continue
  477. }
  478. if not \m(haveiloprompt) fatal "iLO console login failure"
  479.  
  480. # CONNECT - Go interactive and do not execute the rest of the script.
  481.  
  482. .haveconnection = 1                     # Have connection
  483.  
  484. if \m(connect) {                        # Interactive session requested
  485.     lineout                             # Send a carriage return
  486.     connect                             # Connect to remote
  487.     if not open connection exit         # Exit from Kermit if connection closed
  488.     stop                                # Otherwise don't exit
  489. }
  490.  
  491. # Automated configuration run...
  492.  
  493. # Prompt for created-user ID if it wasn't in the environment
  494. .userid := \$(ilo_userid)
  495. .userpass := \$(ilo_userpass)
  496. while not defined userid {              # Prompt for created user ID
  497.     ask userid "User ID for created account: "
  498. }
  499. # Prompt for created-user password if it wasn't in the environment
  500. while not defined userpass {    
  501.     askq /echo:* userpass "Password for created account: "
  502. }
  503. if \m(dodebug) {
  504.     set debug timestamps on
  505.     log debug \m(hostname)-debug.log
  506. }
  507.  
  508. # Send iLO commands...
  509.  
  510. .state = iLO
  511. ilocommand "show /system1/firmware1"    # Get iLO firmware version
  512. ilocommand "create /map1/accounts1 username=\m(userid) -
  513.  password=\m(userpass) group=admin,config,oemhp_vm,oemhp_rc,oemhp_power"
  514. ilocommand "set /map1/config1 oemhp_telnetenable=yes"
  515. ilocommand "set /map1/config1 oemhp_shared_console_enable=yes"
  516. ilocommand "set /system1 oemhp_server_name=\m(hostname)"
  517. # ilocommand "set /map1/config1 oemhp_rc_aquire=yes"
  518.  
  519. if \m(iloonly) {                        # Skip the rest if iloonly
  520.     .rc = 0                             # Set a good return code
  521.     forward done                        # and finish up
  522. }
  523. lineout "power"                         # Check power state
  524. minput 20 {server power is currently: On} {server power is currently: Off} 
  525. if fail fatal "No response to power command"
  526. switch \v(minput) {
  527.   :1, getiloprompt, lineout "reset /system1 hard", break
  528.   :2, getiloprompt, lineout "power on", break
  529. }
  530. .max = 10
  531. for i 1 \m(max) 1 {                     # Wait for power to come on
  532.     lineout "power"
  533.     minput 20 {server power is currently: On} {server power is currently: Off} 
  534.     if fail fatal "No response to power command"
  535.     if == \v(minput) 1 break
  536.     xsleep 10
  537.     getiloprompt
  538.     lineout "power on"
  539.     getiloprompt
  540. }
  541. if >= \m(i) \m(max) fatal "POWER ON DIDN'T TURN POWER ON"
  542.  
  543. # Enter VSP [virtual serial port]...
  544.  
  545. :dovsp
  546.  
  547. message "Attempting to enter VSP..."
  548. ilocommand "vsp"
  549.  
  550. # Here we have to allow for many prompts and responses
  551. # including a Device Status Request escape sequence from the host
  552. # (ESC [ 5 n) which must be replied to.
  553.  
  554. while true { 
  555.     minput 300 -
  556.      {Press "ESC+0" for System Maintenance Menu} -
  557.      {\27[5n} -
  558.      {Press <F8> to run the Option ROM Configuration for Arrays Utility} -
  559.      {Requested service is unavailable\, it is already in use} -
  560.      {The server is not powered on} -
  561.      {The Virtual Serial Port is not available}
  562.     if fail {                           # If INPUT fails
  563.         output \{27}\{40}               # Escape back to iLO prompt
  564.         message "INPUT: \v(inmessage)"  # and back out from there.
  565.         if open connection {            # Is the connection still open?
  566.             fatal "INPUT FAILED WITH CONNECTION STILL OPEN"
  567.         } else {
  568.             fatal "CONNECTION CLOSED BY SERVER"
  569.         }
  570.     }
  571.     if == 1 \v(minput) break            # What we want...
  572.     if == 2 \v(minput) {                # Device Status Report Request
  573.         output \27[0n                   # Send Device Status Report (I'm OK)
  574.         continue
  575.     } 
  576.     if == 3 \v(minput) {                # If we are configuring RAID
  577.         if not \m(doingraid) continue
  578.         output \{27}8                   # Send Esc 8
  579.         break                           # and quit this loop
  580.     }
  581.     getiloprompt                        # Soak up rest of message
  582.     lineout "exit"                      # Exit from iLO
  583.     fatal "VSP service unavailable" 
  584.     .rc = 1
  585.     forward DONE
  586. }
  587. if not \m(doingraid) goto dorbsu        # If not doing RAID skip to next part
  588.  
  589. .havecli = 0                            # Flag for have CLI prompt
  590. input 20 "CLI> "                        # Wait for CLI prompt
  591. if fail {
  592.     message "Arrays CLI> prompt did not appear - skipping..."
  593.     forward dorbsu
  594. }
  595. .havecli = 1
  596. set output pacing 200                   # Can't blast characters at CLI prompt
  597. clear input                             # Clear INPUT buffer
  598. lineout "physicaldrive * show"          # Show physical arrays
  599. input 30 "CLI> "                        # Wait for next CLI prompt
  600.  
  601. # Count the drives - \v(input) contains the results of the SHOW command"
  602.  
  603. .drives = 0              
  604. if \findex({Unknown Command},\v(input)) {
  605.     message "Command 'physicaldrive * show' garbled - increase OUTPUT PACING"
  606.     forward dorbsu
  607. }
  608. if \findex({Invalid physical drive number specified},\v(input)) {
  609.     message "Arrays CLI Invalid drive number specified - skipping"
  610.     forward dorbsu
  611. }
  612. .xx := \freplace(\v(input),\32,_)       # This solves a slight syntax problem
  613. if \findex(Physical_Drive_#_1,\m(xx)) incr drives
  614. if \findex(Physical_Drive_#_2,\m(xx)) incr drives
  615. if \findex(Physical_Drive_#_3,\m(xx)) incr drives
  616. if \findex(Physical_Drive_#_4,\m(xx)) incr drives
  617. if \findex(Physical_Drive_#_5,\m(xx)) incr drives
  618. if \findex(Physical_Drive_#_6,\m(xx)) incr drives
  619. if \findex(Physical_Drive_#_7,\m(xx)) incr drives
  620. if \findex(Physical_Drive_#_8,\m(xx)) incr drives
  621. if < \m(drives) 2 {
  622.     message "Physical Drives: \m(drives) - skipping..."
  623.     forward dorbsu
  624. }
  625. message "Physical Drives: \m(drives) - OK"
  626. set output pacing 250                   # Can't blast characters at CLI prompt
  627. clear input                             # Erase \v(input) again
  628. lineout "logicaldrive * show"           # Show logical drives
  629. input 30 "CLI> "                        # Wait for next CLI prompt
  630. if fail {
  631.     message "No CLI prompt after 'logicaldrive * show' after \v(inwait) secs"
  632.     .havecli = 0
  633.     forward dorbsu
  634. }
  635. .raid = -1
  636. if \findex({Unknown Command},\v(input)) {
  637.     message "Command 'logicaldrive * show' garbled - increase OUTPUT PACING"
  638.     forward dorbsu
  639. }
  640. .xx := \fsubstitute(\v(input),\32\44,_:) # Another syntax trick
  641. if \findex({Logical_Drive_#_1:RAID_0},\m(xx)) .raid = 0
  642. if \findex({Logical_Drive_#_1:RAID_1},\m(xx)) .raid = 1
  643. if < \m(raid) 0 {
  644.     message "Unexpected response to 'logicaldrives * show'"
  645.     forward dorbsu
  646. }
  647. if == \m(raid) 1 {
  648.     message "Logical Drive \# 1 RAID 1 - skipping..."
  649.     forward dorbsu
  650. }
  651. message "Logical Drive \# 1 RAID 0 - Changing to RAID 1..."
  652.  
  653. lineout "logicaldrive 1 delete"
  654. minput 20 "Are you sure? (y/n):" "Unknown Command"
  655. if fail {
  656.     message "Timeout after 'logical drive 1 delete' dialog - skipping...'"
  657.     forward dorbsu
  658. }
  659. if == \v(minput) 2 {
  660.     message "Command 'logicaldrive 1 delete' garbled - increase OUTPUT PACING"
  661.     forward dorbsu
  662. }
  663. output y                                # Just the letter 'y', no CR.
  664. message "Creating logicaldrive 1 RAID 1 mirrored..."
  665. input 10 "CLI> "                        # Wait for next CLI prompt
  666. if fail {
  667.     message "No CLI prompt after 'logicaldrive 1 delete' after \v(inwait) secs"
  668.     .havecli = 0
  669.     forward dorbsu
  670. }
  671. clear input                             # In case we want to collect text
  672. lineout "controller create type=logicaldrive raid=1 drives=1,2"
  673.  
  674. # Note: when this succeeds there is no message at all.
  675. # It takes about 20 seconds.  I don't know that any error messages would be.
  676.  
  677. input 30 "CLI> "                        # Wait for next CLI prompt
  678.  
  679. :dorbsu
  680.  
  681. if \m(havecli) {                        # Exit from CLI if we were in it
  682.     lineout exit                        # and wait for another menu
  683.     input 30 {Press "ESC+0" for System Maintenance Menu}
  684. }
  685. output \{27}0                           # Send ESC and 0
  686. input 60 "MMenu> "                      # Get MMenu> prompt
  687. if fail fatal "Timed out waiting for MMenu> prompt"
  688. .state = MMenu
  689. lineout RBSU                            # Enter RBSU
  690. input 30 "rbsu> "                       # Wait for rbsu> prompt
  691. if fail fatal "Timed out waiting for first rbsu> prompt"
  692. .state = rbsu
  693.  
  694. set output pacing \m(outputpacing)      # Throttle output speed
  695.  
  696. # Send the RBSU commands.
  697. # Here we could give a SHOW CONFIG VIRTUAL SERIAL PORT command and parse the
  698. # BIOS Serial Console Port menu choices in case the menu ever changes.
  699.  
  700. rbsucommand "SET CONFIG VIRTUAL SERIAL PORT 2"
  701. rbsucommand "SET CONFIG BIOS SERIAL CONSOLE PORT 4"
  702. rbsucommand "SET CONFIG BIOS SERIAL CONSOLE BAUD RATE 4"
  703. rbsucommand "SET CONFIG EMS CONSOLE 3"
  704.  
  705. lineout EXIT                            # Exit from RBSU
  706. pause 1                                 # Wait a sec and...
  707. output \27(                             # Escape back to iLO
  708. getiloprompt                            # Get iLO prompt
  709. .state = iLO
  710.  
  711. .rc = 0                                 # Our return code - assume success.
  712. if not \m(poweroff) {                   # Turn power off now?
  713.     
  714.     if not \m(reset) message "LEAVING POWER ON" # No...
  715.     forward DONE
  716. }
  717. message "TURNING POWER OFF"             # Yes...
  718. .max = 10                               # How many times to try.
  719. for i 1 \m(max) 1 {                     # Loop for each try.
  720.     lineout "power off"                 # Send power off command.
  721.     sleep 15                            # Give it a little time
  722.     getiloprompt                        # Get iLO prompt    
  723.     lineout "power"                     # Send "power" command to check
  724.     minput 30 {server power is currently: Off} {server power is currently: On} 
  725.     if == \v(minput) 1 {                # Power is off
  726.         getiloprompt                    # Read next iLO prompt
  727.         forward DONE                    # Exit loop and skip ahead
  728.     }
  729.     sleep 2*i                           # Sleep more each time
  730.     warn "RETRYING POWER OFF [\m(i)]..."
  731.     getiloprompt
  732. }
  733. warn "WARNING: POWER OFF FAILED AFTER \m(max) TRIES"
  734. .rc = 1
  735.  
  736. :DONE
  737. define fatal end 0                      # No fatal errors from now on
  738. if \m(haveconnection) {                 # If we have a connection...
  739.     if \m(reset) {                      # Reset the machine
  740.         .reset = 0                      # Prevent recursion in case of error
  741.         message "HARD RESET AND CLOSE"
  742.         ilocommand "cd /Map1"
  743.         lineout "reset"
  744.         sleep 5
  745.         close connection                # Close our end of the connection
  746.     } else {
  747.         if not \m(rc) {
  748.             message "EXIT WITHOUT RESET"
  749.             lineout "exit"              # Exit from iLO
  750.             input 30 "CLI session stopped" # Wait for final gasp
  751.         }
  752.         if open connection hangup       # Close our end too just in case
  753.     }
  754. }
  755. .haveconnection = 0
  756. message "END: STATUS: \m(rc)"
  757. if open session-log close session-log   # Close log
  758. exit \m(rc)                             # Exit from script and Kermit
  759.  
  760. ; Local Variables:
  761. ; comment-column:40
  762. ; comment-start:"# "
  763. ; End:
  764.