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