#!/bin/expect -f
#
# This Expect script was generated by autoexpect on Wed Mar 23 13:16:38 2016
# Expect and autoexpect were both written by Don Libes, NIST.
#
# Note that autoexpect does not guarantee a working script.  It
# necessarily has to guess about certain things.  Two reasons a script
# might fail are:
#
# 1) timing - A surprising number of programs (rn, ksh, zsh, telnet,
# etc.) and devices discard or ignore keystrokes that arrive "too
# quickly" after prompts.  If you find your new script hanging up at
# one spot, try adding a short sleep just before the previous send.
# Setting "force_conservative" to 1 (see below) makes Expect do this
# automatically - pausing briefly before sending each character.  This
# pacifies every program I know of.  The -c flag makes the script do
# this in the first place.  The -C flag allows you to define a
# character to toggle this mode off and on.

set force_conservative 0  ;# set to 1 to force conservative mode even if
			  ;# script wasn't run conservatively originally
if {$force_conservative} {
	set send_slow {1 .1}
	proc send {ignore arg} {
		sleep .1
		exp_send -s -- $arg
	}
}

#
# 2) differing output - Some programs produce different output each time
# they run.  The "date" command is an obvious example.  Another is
# ftp, if it produces throughput statistics at the end of a file
# transfer.  If this causes a problem, delete these patterns or replace
# them with wildcards.  An alternative is to use the -p flag (for
# "prompt") which makes Expect only look for the last line of output
# (i.e., the prompt).  The -P flag allows you to define a character to
# toggle this mode off and on.
#
# Read the man page for more info.
#
# -Don


set timeout -1
spawn /opt/handle/bin/hdl-setup-server /var/lib/handle
match_max 100000

expect -re "Will this be a \"primary\" server \\\(ie, not a mirror of another server\\\)\\\?\\\(y/n\\\) \\\[y\\\]: $"
# expect -re "\\\[y\\\]: $"
send -- "y\r"

expect -re "Will this be a dual\\\-stack server \\\(accessible on both IPv6 and IPv4\\\)\\\?\\\(y/n\\\) \\\[n\\\]: $"
send -- "n\r"

expect -re "Through what network\\\-accessible IP address should clients connect to this server\\\? \\\[127.0.0.1\\\]: $"
send -- "<%= @hdl_host %>\r"

expect -re "If different, enter the IP address to which the server should bind\\\. \\\[172.16.1.6\\\]: $"
send -- "0.0.0.0\r"

expect -re "Enter the \\\(TCP/UDP\\\) port number this server will listen to \\\[2641\\\]: $"
send -- "<%= @hdl_srv_port %>\r"

expect -re "What port number will the HTTP interface be listening to\\\? \\\[8000\\\]: $"
send -- "<%= @hdl_web_port %>\r"

expect -re "Would you like to log all accesses to this server\\\?\\\(y/n\\\) \\\[y\\\]: $"
send -- "y\r"

expect -re "\\\(\"N\" \\\(Never\\\), \"M\" \\\(Monthly\\\), \"W\" \\\(Weekly\\\), or \"D\" \\\(Daily\\\)\\\)\\\? \\\[Monthly\\\] : $"
send -- "M\r"

expect -re "Enter the version/serial number of this site \\\[1\\\]: $"
send -- "1\r"

expect -re "Please enter a short description of this server/site: $"
send -- "Corpus de la parole\r"

expect -re "Please enter the name of your organization: $"
send -- "I.R.I.\r"

expect -re "for I.R.I. \\\(optional\\\) \\\[\\\(none\\\)\\\]: $"
send -- "Handle admin\r"

expect -re "Please enter the telephone number of Handle admin or of I\\\.R\\\.I\\\. \\\(optional\\\) \\\[\\\(none\\\)\\\]: $"
send -- "0123456789\r"

expect -re "Please enter the email address of Handle admin or of I\\\.R\\\.I\\\.: $"
send -- "contact@iri.centrepompidou.fr\r"

expect -re "Do you need to disable UDP services\\\?\\\(y/n\\\) \\\[n\\\]: $"
send -- "y\r"

expect -re "Would you like to encrypt your private key\\\?\\\(y/n\\\) \\\[y\\\]: $"
send -- "y\r"

expect -re "Note: Your passphrase will be displayed as it is entered\r"
send -- "<%= @hdl_key_pswd %>\r"

expect -re "Note: Your passphrase will be displayed as it is entered\r"
send -- "<%= @hdl_key_pswd %>\r"

expect -re "Would you like to encrypt your private key\\\?\\\(y/n\\\) \\\[y\\\]: $"
send -- "y\r"

expect -re "Note: Your passphrase will be displayed as it is entered\r"
send -- "<%= @hdl_key_pswd %>\r"

expect -re "Note: Your passphrase will be displayed as it is entered\r"
send -- "<%= @hdl_key_pswd %>\r"

expect eof
