home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / public_html / cudocs / ilosetup-1.07 < prev    next >
Text File  |  2020-01-01  |  21KB  |  587 lines
  1. #!/p/sy/subsys/scripts/wermit +
  2. #!/p/kd/fdc/solaris9/wermit +
  3. #!/p/kd/fdc/RHEL4/wermit +
  4. #
  5. # IMPORTANT: The first line must indicate the path to C-Kermit 8.0.212 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. .version = 1.07
  14. .date = 20091113
  15. #   Created:  
  16. #    1.01 20090428
  17. #   Modified:
  18. #    1.02 20090916: Prompt for username if not in environment.
  19. #    1.03 20091028: Remove IF WRITEABLE check for log directory
  20. #    1.04 20091103: Handle console login failure more gracefully;
  21. #                   Allow empty password in serials file.
  22. #    1.05 20091104: Add 'usepassword' and 'nopassword' options;
  23. #                   Try both in specified order.
  24. #    1.06 20091104: Handle login failure on Telnet connections.
  25. #    1.07 20091113: Enable remote console acquire
  26. # 
  27. # Usage: [ ilo_username=x ] [ ilo_userpass=y ] ilosetup hostname [ keywords ]
  28. #
  29. # After the hostname you can put zero or more of these keywords:
  30. #
  31. #   connect - make an interactive connection after logging in
  32. #   debug - create a debug log (very big, only for Frank)
  33. #   usepassword - try to log in first with a serials file password
  34. #   nopassword - try to log in first with a blank password
  35. #   nopoweroff - don't power the host machine off at the end
  36. #   noreset - no reset at end
  37. #   poweroff - power the host machine off at the end (default)
  38. #   quiet - only show error, warning, or status messages on the screen
  39. #   reset - reset at end (default)
  40. #   verbose - watch the script play on the screen (default)
  41. #
  42. # The keywords can be abbreviated to any unique left substring.
  43. #
  44. # Examples for host fillmore:
  45. #   ilosetup fillmore
  46. #   ilosetup fillmore poweroff
  47. #   ilosetup fillmore p (same as poweroff)
  48. #   ilosetup fillmore p q (poweroff and run quietly)
  49. #
  50. # The hostname should match (case independently) a hostname in the HP
  51. # serials file, which is just the first part of the first field of the
  52. # IP hostname, e.g. fillmore instead of fillmore-console.cc.columbia.edu.
  53. # But if you do include the extra fields, the script allows for it.
  54. #
  55. # Exit status:
  56. #   0 on success; 1 on failure.
  57. #
  58. # Creates in the log directory (logdirectory defined below):
  59. #   A session log file xxx-session.log (xxx is the hostname)
  60. #  (the log directory itself is created if it doesn't exist)
  61. #
  62. # Requires: C-Kermit 8.0.212 or later because it uses some recent features.
  63. # Version 8.0.211 or earlier lack at least the following, which are used in
  64. # this script:
  65. #  . FSEEK /FIND:string
  66. #  . The \fkwval() function
  67. # (The script could be recoded at some effort to use older ways of doing
  68. #  the same things.)
  69. #
  70. # The binary used to execute the script is the one shown above in the
  71. # "kerbang line".  Of course you can move the binary to anywhere you want, 
  72. # or rename it, but then you have to change the kerbang line.
  73. #
  74. # Other dependencies:
  75. #  . The HP serial numbers file (path defined a few lines down)
  76. #  . That the first field in a serials file record is the simple hostname
  77. #    (e.g. FILLMORE, not FILLMORE-CONSOLE or FILLMORE-CONSOLE.CC.COLUMBIA.EDU)
  78. #  . That the corresponding iLO console password is the 6th field
  79. #    (if there is no password, the 6th field should be empty).
  80. #
  81. ###############################################################################
  82.  
  83. if < \v(version) 800212 {        # Check Kermit version
  84.     exit 1 "\m(myname): C-Kermit 8.0.212 or later required"
  85. }
  86. # Operating parameters and defaults (that can be changed)...
  87.  
  88. .dodebug = 0
  89. if def \$(DEBUG) .dodebug = 1
  90. if \m(dodebug) {
  91.     echo DEBUGGING ON
  92.     echo ILO_USERID=[\$(ilo_userid)]
  93.     echo ILO_USERPASS=[\$(ilo_userpass)]
  94. }
  95. set quiet off                # Allow messages (for foreground use)
  96.  
  97. # "Constant" definitions (that can be changed)...
  98.  
  99. .iloprompt = ">hpiLO-> "        # HP iLO console prompt
  100. .logdirectory = /var/log/ilosetup    # Directory for session log
  101. .outputpacing = 30            # Intercharter pacing for OUTPUT (msec)
  102. .poweroff = 0                # Whether to power off at end
  103. .connect = 0                # Make in interactive connection
  104. .reset = 1                # Reset at end
  105. .dopassword = 1                # Use password from serials file
  106. .serialsfile = /p/sy/subsys/HP/serials    # Path of blade serial numbers file
  107. .hostsuffix = -console.cc.columbia.edu    # Hostname suffix
  108. .loginname = Administrator        # iLO login name
  109.  
  110. if equ "\v(user)" "fdc" {        # Development / testing
  111.     .logdirectory = ~/net/shrimp # (dev/test)
  112.     # if \m(dodebug) .serialsfile = ./serials
  113. }
  114. .myname := \fbasename(\v(cmdfile))    # Name of this script without path
  115.  
  116. if \m(dodebug) {            # dev/test
  117.     show args     
  118. }
  119. # Define command-line option keywords
  120.  
  121. dcl \&k[] = poweroff nopoweroff verbose quiet -
  122.             connect debug reset noreset usepassword nopassword
  123. array sort &k                # Alphabetize them for table lookup
  124.  
  125. # If command line is invalid give usage message and exit
  126.  
  127. def usage {                # Give usage message and exit
  128.     .verbose = "verbose"
  129.     .turnoff = "nopoweroff"
  130.     .doreset = "noreset"
  131.     .usepass = "nopassword"
  132.     echo -
  133. "Usage: [ ilo_username=x ] [ ilo_userpass=y ] \m(myname) hostname [ options ]"
  134.     echo "Options:"
  135.     show array k
  136.     if quiet .verbose = "quiet"
  137.     if \m(poweroff) .turnoff = "poweroff"
  138.     if \m(reset) .doreset = "reset"
  139.     if \m(dopassword) .usepass = "usepassword"
  140.     echo "Default options: \m(verbose) \m(turnoff) \m(doreset) \m(usepass)"
  141.     echo "Optional environment variables:"
  142.     echo " ilo_userid:   user ID to create"
  143.     echo " ilo_userpass: password for user ID"
  144.     echo " DEBUG=1: turn on debugging"
  145.     echo "If created user ID and password are not found in the environment,"
  146.     echo "you are prompted for them."
  147.     echo
  148.     exit 1
  149. }
  150. # Parse and validate command line
  151.  
  152. if not def \%1 {
  153.     echo "FATAL - A hostname is required"
  154.     usage                # A hostname is required
  155. }
  156. .hostname := \flower(\fword(\%1,1,.))    # First field of hostname argument
  157. .\%t := \findex(-console,\m(hostname))    # If "-console" found in hostname...
  158. if \%t .hostname := \s(hostname[1:\%t-1]) # remove it.
  159. .fullhost := \m(hostname)\m(hostsuffix) # Make full IP hostname
  160.  
  161. # Parse optional command-line keywords...
  162.  
  163. set flag off                # No debugging unless requested
  164. if def \m(dodebug) set flag on        # Can request with environment var
  165.  
  166. while defined \%2 {            # While we still have trailing args...
  167.     .tmp := \%2
  168.     .\%2 := \ftablelook(\%2,&k)        # Look up this keyword and get index
  169.     if < \%2 1 {            # Not found or ambiguous
  170.     echo "Invalid command-line option: '\m(tmp)'"
  171.     usage            
  172.     }
  173.     .\%2 := \&k[\%2]            # Resolve index to keyword itself
  174.     switch \%2 {            # Handle the keyword
  175.       :debug                # Debug
  176.     set flag on
  177.     break 
  178.       :connect                # Connect (interactive session)
  179.     .connect = 1
  180.     break
  181.       :poweroff                # Leave power off at end
  182.     .poweroff = 1
  183.     break
  184.       :nopoweroff            # Leave power on at end
  185.     .poweroff = 0
  186.     break
  187.       :quiet                # Silent running (don't watch session)
  188.     set quiet on
  189.     set input echo off
  190.     break
  191.       :verbose                # Show session on screen
  192.     set quiet off
  193.     set input echo on
  194.       :reset                # Reset at end (default)
  195.     .reset = 1
  196.     break
  197.       :noreset                # No reset at end
  198.     .reset = 0
  199.     break
  200.       :usepassword            # Use password from serials file
  201.         .dopassword = 1
  202.     break
  203.       :nopassword            # Use empty password
  204.         .dopassword = 0
  205.     }
  206.     shift                # Shift argument list to the left
  207. }
  208. # Macro definitions...
  209.  
  210. define logit {                # Write a message to session log
  211.     if not open session-log end 0
  212.     .\%1 := \frpad(\%1,7,.)        # Make fields line up
  213.     writeln session            # Make sure we're on a new line
  214.     writeln session "%% \%1 - \m(myname): \v(timestamp) [\m(hostname)] - \%2"
  215. }
  216. define message {            # Print and log a progress message
  217.     if not quiet echo            # To avoid mixing up screen text
  218.     echo "MESSAGE - \%1"        # Write message to screen (stdout)
  219.     logit MESSAGE "\%1"            # and to session log
  220. }
  221. define warn {                # Print and log warning message
  222.     if not quiet echo            # To avoid mixing up screen text
  223.     echo "WARNING - \%1"        # Write it to to stdout
  224.     logit WARNING "\%1"            # and to session log
  225. }
  226. define fatal {                # Fatal error
  227.     .rc = 1                # Failure exit code
  228.     echo "FATAL - \%1"            # Write error message to screen
  229.     if \m(haveconnection) {        # If we have a connection
  230.     if not equ "\m(state)" "iLO" {    # but w're not in iLO...
  231.         output \{27}\{40}        # ESC+( - Escape back to iLO 
  232.         input 8 \m(iloprompt)    # and wait 8 sec for the prompt
  233.     }
  234.     }
  235.     logit FATAL "\%1"            # write message to session log
  236.     logit INFO    "Most recent error: \v(errstring)"
  237.     goto DONE
  238. }
  239. define getiloprompt {            # Get iLO prompt
  240.     if not def \%1 .\%1 = 30        # Default timeout (secs)
  241.     if not numeric \%1 fatal "Non-numeric INPUT timeout"
  242.     input \%1 \m(iloprompt)        # Wait for the prompt
  243.     if fail fatal "Timed out waiting for iLO CLI prompt."
  244. }
  245. define ilocommand {            # Send an iLO command and get response
  246.     local cmd                # Local (stack) variable
  247.     .cmd := \fword(\%1,1)        # First word of command
  248.     msleep 10                # Pause 10 msec just in case
  249.     lineout \%1                # Send the full command
  250.     if fail fatal "Output failed"    # Check for i/o error
  251.     clear input                # Empty the INPUT result buffer
  252.     getiloprompt \%2            # Get response and next iLO prompt
  253.     # The "power on/off" and "vsp" commands give no response...
  254.     if not equ "\%1" "power" {        # But "power" by itself does...
  255.     if ( equ "\m(cmd)" "power" || equ "\m(cmd)" "vsp" ) end 0
  256.     }
  257.     .status = 9                # Dummy inital status value
  258.     .tmp := \freplace(\v(input),\13,)    # Strip carriage returns (but not LFs)
  259.     .lines := \fsplit(\m(tmp),&a,\10)    # Split captured text into lines
  260.     for i 1 lines 1 {            # Loop through lines
  261.        void \fkwval(\&a[i])        # to get status and message values...
  262.     }      
  263.     if not numeric \m(status) .status = 9 # Just in case
  264.     if == \m(status) 0 end 0        # If status was 0 then OK
  265.     if ( equ "\m(cmd)" "create" && equ "\&a[5]" "Duplicate login name." ) {
  266.     end 0                # This is not an error
  267.     }
  268.     fatal "ILO COMMAND \%1: \m(error_tag)" # Fail with nonzero status
  269. }
  270. define rbsucommand {  # Send a command to RBSU and get next rbsu> prompt.
  271.     local i sleep pacing max
  272.     msleep 10                # Pause 10 msec just in case
  273.     lineout \%1                # Send the command
  274.     # Check for error response or next rbsu> prompt.
  275.     # Note: RBSU commands have no consistent error indication;
  276.     # There may be some error responses that are not caught here...
  277.     minput 30 {rbsu>} {Invalid Command} {Incomplete Command} {Invalid Option}
  278.     if fail fatal "RBSU: Timeout after [\%1]"
  279.     if == \v(minput) 1 end 0        # No error message - done.
  280.     warn "RBSU COMMAND FAILURE [\%1]"
  281.     .max = 10
  282.     for i 1 \m(max) 1 {            # Try again this many times.
  283.     increment pacing 40        # Slower pacing each time.
  284.     warn "RETRYING WITH PACING = \m(pacing) msec..."
  285.     msleep 10*i            # Pause a little longer each time
  286.     lineout \%1            # Send the command
  287.     minput 30 {rbsu>} -
  288. {Invalid Command} {Incomplete Command} {Invalid Option}
  289.     if fail fatal "RBSU: Timeout [\%1]"
  290.     if == \v(minput) 1 break    # No error message - done.
  291.     }
  292.     if > \m(i) \m(max) fatal "RBSU command error"
  293.     warn "RBSU COMMAND RECOVERY OK"
  294. }
  295. def xsleep {                # (for debugging display)
  296.     if not def \%1 .\%1 = 1
  297.     if quiet {
  298.     sleep \%1 
  299.     } else {
  300.     local i
  301.     for i 1 \%1 1 { sleep 1, xecho . }
  302.     echo
  303.     }
  304. }
  305.  
  306. # Execution begins here: Get host password from HP serial numbers file...
  307.  
  308. .haveconnection = 0            # No connection yet
  309. set input cancellation off        # Essential because of Esc sequences
  310. set exit warning off            # Allow exit without warning
  311.  
  312. if \m(dodebug) directory \m(serialsfile)    # Check and open serials file
  313. if not exist \m(serialsfile) exit 1 "\m(serialsfile) not found"
  314. if not readable \m(serialsfile) exit 1 "\m(serialsfile) not readable"
  315.  
  316. fopen /read \%c \m(serialsfile)        # Open serials file
  317. if fail fatal                # Check for failure
  318. # Seek to line with this hostname
  319. fseek /find:"^\fupper(\m(hostname))[\9\32]" \%c 0
  320. if fail fatal "Hostname [\m(hostname)] not found in HP serials file"
  321. fread /line \%c line            # Read the line
  322. fclose \%c                # Close the file
  323.  
  324. .\%n := \fsplit(\m(line),&a,)        # Split the line into words
  325. .pass := \&a[6]                # The sixth word is the host password
  326.  
  327. if \m(dopassword) {            # 2-element password array
  328.     dcl \&p[2] = \m(pass) ""        # Try serials file password first
  329. } else {
  330.     dcl \&p[2] =  "" \m(pass)        # Try blank password first
  331. }
  332. if \m(dodebug) show array p
  333.  
  334. # If this is a configuration run open the log file
  335.  
  336. if not \m(connect) {
  337.     if not directory \m(logdirectory) {    # Check if log directory exists
  338.     fatal "Log directory \m(logdirectory) not found or not a directory"
  339.     }
  340.     cd \m(logdirectory)            # cd to the log directory
  341.     if fail fatal "cd \m(logdirectory)"    # failure is fatal
  342.  
  343.     .sessionlog := \m(logdirectory)/\m(hostname)-session.log # Session log name
  344.     log session \m(sessionlog)        # Open and start the session log
  345. } else {
  346.     # Make session log in current directory
  347.     log session \m(hostname)-connect.log
  348. }
  349. if fail warn "FAILURE TO OPEN \m(sessionlog)"
  350. message "BEGIN ilosetup \m(version) \m(date)"
  351.  
  352. # Open the connection and log in
  353.  
  354. .protocol = "none"            # No protocol yet
  355.  
  356. message "TRYING TELNET..."
  357. set host \m(fullhost)            # Try Telnet (port 23) first
  358. if success {                # Telnet OK - send user name
  359.     input 10 "Login Name: "
  360.     if fail fatal "Telnet Login Name timeout"
  361.     lineout \m(loginname)
  362.     input 10 "password: "
  363.     if fail fatal "Telnet password timeout"
  364.     .protocol = telnet
  365.     message "PROTOCOL TELNET"
  366. } else {                # No telnet - try SSH
  367.     message "TELNET FAILED - TRYING SSH..."
  368.     set host /pty ssh -e none -l \m(loginname) \m(fullhost)
  369.     if fail fatal "SSH \m(fullhost) failed."
  370.     # Watch out for RSA key fingerprint complaint and "are you sure?" prompt...
  371.     minput 20 "password: " "continue connecting (yes/no)? "
  372.     if fail fatal "No response on SSH connection to \m(fullhost)"
  373.     if == \v(minput) 2 {
  374.     lineout "yes"
  375.     input 20 "password: "
  376.     if fail fatal "SSH password timeout"
  377.     }
  378.     .protocol = "ssh"
  379.     message "PROTOCOL SSH"
  380. }
  381. # If we arrive here we should have the password prompt.
  382. # NOTE: This logic will need to be changed if it is possible to log in
  383. # via SSH (or some secure form of Telnet) without a password.
  384.  
  385. .haveiloprompt = 0
  386. for i 1 2 1 {
  387.     lineout \&p[i]            # Send console password
  388.     if fail fatal "Output password to \m(fullhost) failed."
  389.     minput 30 \m(iloprompt) "Permission denied" "Invalid login."
  390.     if fail fatal "Timed out waiting for iLO CLI prompt."
  391.     if == \v(minput) 1 {
  392.         .haveiloprompt = 1
  393.         break 
  394.     }
  395.     if \m(dopassword) {
  396.         message "Password from serials file failed - trying empty password..."
  397.     } else {
  398.         message "Empty password failed - trying password from serials file..."
  399.     }
  400.     # After bad password Telnet prompts again for the username - ssh does not.
  401.     if eq "\m(protocol)" "telnet" {
  402.         input 10 "Login Name: "
  403.     if fail fatal "Telnet Login Name timeout"
  404.     lineout \m(loginname)
  405.     }
  406.     input 2 "password: "
  407.     if not quiet echo
  408.     if == \m(i) 2 fatal "Password not accepted"
  409.     if quiet continue
  410. }
  411. if not \m(haveiloprompt) fatal "iLO console login failure"
  412.  
  413. # CONNECT - Go interactive and do not execute the rest of the script.
  414.  
  415. .haveconnection = 1            # Have connection
  416.  
  417. if \m(connect) {            # Interactive session requested
  418.     lineout                # Send a carriage return
  419.     connect                # Connect to remote
  420.     if not open connection exit        # Exit from Kermit if connection closed
  421.     stop                # Otherwise don't exit
  422. }
  423.  
  424. # Automated configuration run...
  425.  
  426. # Prompt for created-user ID if it wasn't in the environment
  427. .userid := \$(ilo_userid)
  428. .userpass := \$(ilo_userpass)
  429. while not defined userid {        # Prompt for created user ID
  430.     askq userid "User ID for created account: "
  431. }
  432. # Prompt for created-user password if it wasn't in the environment
  433. while not defined userpass {    
  434.     askq /echo:* userpass "Password for created account: "
  435. }
  436.  
  437. # Send iLO commands...
  438.  
  439. .state = iLO
  440. ilocommand "create /map1/accounts1 username=\m(userid) -
  441.  password=\m(userpass) group=admin,config,oemhp_vm,oemhp_rc,oemhp_power"
  442. ilocommand "set /map1/config1 oemhp_telnetenable=yes"
  443. ilocommand "set /system1 oemhp_server_name=\m(hostname)"
  444. ilocommand "set /map1/config1 oemhp_rc_acquire=yes" # 1.07
  445.  
  446. lineout "power"                # Check power state
  447. minput 20 {server power is currently: On} {server power is currently: Off} 
  448. if fail fatal "No response to power command"
  449. switch \v(minput) {
  450.   :1, getiloprompt, lineout "reset /system1 hard", break
  451.   :2, getiloprompt, lineout "power on", break
  452. }
  453. .max = 10
  454. for i 1 \m(max) 1 {            # Wait for power to come on
  455.     lineout "power"
  456.     minput 20 {server power is currently: On} {server power is currently: Off} 
  457.     if fail fatal "No response to power command"
  458.     if == \v(minput) 1 break
  459.     xsleep 10
  460.     getiloprompt
  461.     lineout "power on"
  462.     getiloprompt
  463. }
  464. if >= \m(i) \m(max) fatal "POWER ON DIDN'T TURN POWER ON"
  465.  
  466. # Enter VSP [virtual serial port]...
  467.  
  468. message "Attempting to enter VSP..."
  469. if flag {
  470.     set debug timestamps on
  471.     log debug \m(hostname)-debug.log
  472. }
  473. ilocommand "vsp"
  474.  
  475. # Here we have to allow for many prompts and responses
  476. # including a Device Status Request escape sequence from the host
  477. # (ESC [ 5 n) which must be replied to.
  478.  
  479. while true { 
  480.     minput 300 -
  481.      {Press "ESC+0" for System Maintenance Menu} -
  482.      {\27[5n} -
  483.      {Requested service is unavailable\, it is already in use} -
  484.      {The server is not powered on} -
  485.      {The Virtual Serial Port is not available}
  486.     if fail {                # If INPUT fails
  487.     output \{27}\{40}        # Escape back to iLO prompt
  488.     message "INPUT: \v(inmessage)"    # and back out from there.
  489.     if open connection {        # Is the connection still open?
  490.         fatal "INPUT FAILED WITH CONNECTION STILL OPEN"
  491.     } else {
  492.         fatal "CONNECTION CLOSED BY SERVER"
  493.     }
  494.     }
  495.     if == 1 \v(minput) break        # What we want...
  496.     if == 2 \v(minput) {        # Device Status Report Request
  497.     output \27[0n            # Send Device Status Report (I'm OK)
  498.     continue
  499.     } 
  500.     getiloprompt            # Soak up rest of message
  501.     lineout "exit"            # Exit from iLO
  502.     fatal "VSP service unavailable" 
  503.     .rc = 1
  504.     forward DONE
  505. }
  506. if flag if open debug-log close debug-log
  507.  
  508. output \{27}0                # Send ESC and 0
  509. input 60 "MMenu> "            # Get MMenu> prompt
  510. if fail fatal "Timed out waiting for MMenu> prompt"
  511. .state = MMenu
  512. lineout RBSU                # Enter RBSU
  513. input 30 "rbsu> "            # Wait for rbsu> prompt
  514. if fail fatal "Timed out waiting for first rbsu> prompt"
  515. .state = rbsu
  516.  
  517. set output pacing \m(outputpacing)    # Throttle output speed
  518.  
  519. # Send the RBSU commands.
  520. # Here we could give a SHOW CONFIG VIRTUAL SERIAL PORT command and parse the
  521. # BIOS Serial Console Port menu choices in case the menu ever changes.
  522.  
  523. rbsucommand "SET CONFIG VIRTUAL SERIAL PORT 2"
  524. rbsucommand "SET CONFIG BIOS SERIAL CONSOLE PORT 4"
  525. rbsucommand "SET CONFIG BIOS SERIAL CONSOLE BAUD RATE 4"
  526. rbsucommand "SET CONFIG EMS CONSOLE 3"
  527.  
  528. lineout EXIT                # Exit from RBSU
  529. pause 1                    # Wait a sec and...
  530. output \27(                # Escape back to iLO
  531. getiloprompt                # Get iLO prompt
  532. .state = iLO
  533.  
  534. .rc = 0                    # Our return code - assume success.
  535. if not \m(poweroff) {            # Turn power off now?
  536.     
  537.     if not \m(reset) message "LEAVING POWER ON"    # No...
  538.     forward DONE
  539. }
  540. message "TURNING POWER OFF"        # Yes...
  541. .max = 10                # How many times to try.
  542. for i 1 \m(max) 1 {            # Loop for each try.
  543.     lineout "power off"            # Send power off command.
  544.     sleep 15                # Give it a little time
  545.     getiloprompt            # Get iLO prompt    
  546.     lineout "power"            # Send "power" command to check
  547.     minput 30 {server power is currently: Off} {server power is currently: On} 
  548.     if == \v(minput) 1 {        # Power is off
  549.     getiloprompt            # Read next iLO prompt
  550.     forward DONE            # Exit loop and skip ahead
  551.     }
  552.     sleep 2*i                # Sleep more each time
  553.     warn "RETRYING POWER OFF [\m(i)]..."
  554.     getiloprompt
  555. }
  556. warn "WARNING: POWER OFF FAILED AFTER \m(max) TRIES"
  557. .rc = 1
  558.  
  559. :DONE
  560. define fatal end 0            # No fatal errors from now on
  561. if \m(haveconnection) {            # If we have a connection...
  562.     if \m(reset) {            # Reset the machine
  563.     .reset = 0            # Prevent recursion in case of error
  564.     message "HARD RESET AND CLOSE"
  565.     ilocommand "cd /Map1"
  566.     lineout "reset"
  567.     sleep 5
  568.     close connection        # Close our end of the connection
  569.     } else {
  570.     if not \m(rc) {
  571.         message "EXIT WITHOUT RESET"
  572.         lineout "exit"        # Exit from iLO
  573.         input 30 "CLI session stopped" # Wait for final gasp
  574.     }
  575.     if open connection hangup    # Close our end too just in case
  576.     }
  577. }
  578. .haveconnection = 0
  579. message "END: STATUS: \m(rc)"
  580. if open session-log close session-log    # Close log
  581. exit \m(rc)                # Exit from script and Kermit
  582.  
  583. ; Local Variables:
  584. ; comment-column:40
  585. ; comment-start:"# "
  586. ; End:
  587.