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