#!/usr/bin/expect -f
###############################################################################
# $Id: hp-lo100.exp 1003 2011-01-26 18:26:06Z chris.m.dunlap $
###############################################################################
# Written by Chris Dunlap <cdunlap@llnl.gov>.
# Copyright (C) 2007-2011 Lawrence Livermore National Security, LLC.
# Copyright (C) 2001-2007 The Regents of the University of California.
# UCRL-CODE-2002-009.
#
# This file is part of ConMan: The Console Manager.
# For details, see <http://conman.googlecode.com/>.
###############################################################################
# This script connects to a console managed by HP's "Lights Out 100" option
# using the telnet protocol.  The LO100 is a traditional IPMI BMC and does
# not share hardware or firmware with the HP Integrated Lights-Out (iLO)
# management processor.
#
# This script can be specified in "conman.conf" in the following manner:
#
#   console name="zot" dev="/path/to/hp-lo100.exp HOST PORT USER PSWD"
#
# HOST is the hostname of the remote server.
# PORT is the port number (typically 23).
# USER is the username being authenticated.
# PSWD is the corresponding password.
#
# Since this command-line will persist in the process listing for the duration
# of the connection, passing sensitive information like PSWD in this manner is
# not recommended.  Instead, consider using either a command-line argument
# default or the password database (see below).
###############################################################################

##
# Set "exp_internal" to 1 to print diagnostics describing internal operations.
#   This is helpful in diagnosing pattern-match failures.
##
  exp_internal 0

##
# Set "log_user" to 1 to show the underlying dialogue establishing a connection
#   to the console.
##
  log_user 0

##
# The "timeout" specifies the number of seconds before the connection attempt
#   times-out and terminates the connection.
##
  set timeout 10

##
# The "password_db" specifies the location of the password database.
#   This avoids exposing sensitive information on the command-line without
#   needing to modify this script.
# Whitespace and lines beginning with '#' are ignored.  The file format is:
#   <host-regex> : <user> : <pswd>
##
  set password_db "/etc/conman.pswd"

##
# Command-line argument defaults can be specified here.  This avoids exposing
#   sensitive information on the command-line.
##
# set port "23"
# set user "foo"
# set pswd "bar"

###############################################################################

set env(PATH) "/usr/bin:/bin"

proc get_password {host user index} {
  global password_db
  set db_pswd {}
  if {! [info exists password_db]} {
    return
  }
  if {[catch {open $password_db} input]} {
    return
  }
  while {[gets $input line] != -1} {
    if {[regexp {^[ \t]*#} $line]} {
      continue
    }
    set record [split $line ":"]
    set db_host [string trim [lindex $record 0]]
    if {[catch {regexp "^$db_host$" $host} got_host_match]} {
      continue
    }
    if {! $got_host_match && [string length $db_host]} {
      continue
    }
    set db_user [string trim [lindex $record 1]]
    if {[string compare $db_user $user]} {
      continue
    }
    set db_pswd [string trim [lindex $record $index]]
    break
  }
  close $input
  return $db_pswd
}

if {! $argc} {
  set prog [lindex [split $argv0 "/"] end]
  send_user "Usage: $prog <host> <port> <user> <pswd>\r\n"
  exit 1
}
if {$argc > 0} {
  set host [lindex $argv 0]
}
if {$argc > 1} {
  set port [lindex $argv 1]
}
if {$argc > 2} {
  set user [lindex $argv 2]
}
if {$argc > 3} {
  set pswd [lindex $argv 3]
}
set state 0
#
# Valid States:
#   0: initial
#   1: connected to $host:$port
#   2: sent $user
#   3: sent $pswd
#   4: sent ESC+Q
#   5: connected to lo100
#
if {! [info exists host]} {
  send_user "Error: Unspecified hostname.\r\n"
  exit 1
}
if {! [info exists port]} {
  send_user "Error: Unspecified port number.\r\n"
  exit 1
}
if {! [info exists user]} {
  send_user "Error: Unspecified username.\r\n"
  exit 1
}
if {! [info exists pswd]} {
  set pswd [get_password $host $user 2]
  if {! [string length $pswd]} {
    send_user "Error: Unspecified password.\r\n"
    exit 1
  }
}
if {[catch "spawn telnet $host $port" spawn_result]} {
  send_user "Error: $spawn_result.\r\n"
  exit 1
}
expect {
  -re "^Connected to " {
    if {$state == 0} {
      incr state
    }
    exp_continue -continue_timer
  }
  -re "^telnet: (\[^\r]*)\r+\n" {
    send_user "Error: $expect_out(1,string).\r\n"
    exit 1
  }
  -gl "Login incorrect" {
    send_user "Error: Permission denied.\r\n"
    exit 1
  }
  -gl "CLI session stopped" {
    send_user "Error: CLI session stopped.\r\n"
    exit 1
  }
  -gl "Requested service is unavailable, it is already in use" {
    send_user "Error: Console session already in use.\r\n"
    exit 1
  }
  eof {
    if {$state == 0} {
      send_user "Error: Unable to connect to $host:$port.\r\n"
      exit 1
    }
    send_user "Error: Connection closed by remote host.\r\n"
    exit 1
  }
  timeout {
    send_user "Error: Timed-out.\r\n"
    exit 1
  }
  -nocase -re "login: +\$" {
    if {$state != 1} {
      send_user "Error: Permission denied.\r\n"
      exit 1
    }
    send "$user\r"
    incr state
    exp_continue -continue_timer
  }
  -nocase -re "Password: +\$" {
    if {$state != 2} {
      send_user "Error: Permission denied.\r\n"
      exit 1
    }
    send "$pswd\r"
    incr state
    exp_continue -continue_timer
  }
  -gl "/./-> \$" {
    if {$state == 3} {
      send "\033Q\r"
      incr state
    }
    exp_continue -continue_timer
  }
  -re "\[^\r]*\r+\n" {
    if {$state != 4} {
    	exp_continue -continue_timer
    }
    incr state
    ; # success
  }
}
send_user "Connection established via telnet (pid $spawn_result).\r\n"

set timeout 5
interact {
  # Replace "&B" with serial-break.
  "&B" {
    send "\033\002"
  }
  # Match subsequent patterns against spawned process, not user's keystrokes.
  -o
  # Disable "ESC (" sequence for stopping console and returning to CLI prompt.
  -re "/./-> \$" {
    send "\033Q\r"
  }
}