#!/usr/bin/expect -f
#
# This Expect script was generated by autoexpect on Sat Aug 20 11:43:11 2011
# 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 apt-get install -y --force-yes mtink
match_max 100000
expect -exact "\rLeyendo lista de paquetes... 0%\r\rLeyendo lista de paquetes... 100%\r\rLeyendo lista de paquetes... Hecho\r\r
\rCreando árbol de dependencias... 0%\r\rCreando árbol de dependencias... 0%\r\rCreando árbol de dependencias... 50%\r\rCreando árbol de dependencias... 50%\r\rCreando árbol de dependencias       \r\r
\rLeyendo la información de estado... 0%\r\rLeyendo la información de estado... 0%\r\rLeyendo la información de estado... Hecho\r\r
Paquetes sugeridos:\r
  mtink-doc\r
Se instalarán los siguientes paquetes NUEVOS:\r
  mtink\r
0 actualizados, 1 se instalarán, 0 para eliminar y 2 no actualizados.\r
Se necesita descargar 0 B/178 kB de archivos.\r
Se utilizarán 668 kB de espacio de disco adicional después de esta operación.\r
\r\rPreconfigurando paquetes ...\r
\[?1049h\[1;24r\[4l\[?25l(B\[m\[37m\[40m\[1;24r\[H\[2J\[1;1H\[1m\[37m\[45m\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K
\[K\[1;1H(B\[m\[37m\[45mConfiguraciÃ<83>³n de paquetes\[6;4H\[30m\[47m┌─────────────────────┤ \[31mConfiguraciÃ<83>³n de mtink\[30m ├──────────────────┐\[7;4H│                                                                       │\[1m\[37m\[40m \[8;4H(B\[m\[30m\[47m│ Permisos para mtink                                                   │\[1m\[37m\[40m \[9;4H(B\[m\[30m\[47m│                                                                       │\[1m\[37m\[40m \[10;4H(B\[m\[30m\[47m│ Advertencia: Mtink necesita permisos especiales para el archivo del   │\[1m\[37m\[40m \[11;4H(B\[m\[30m\[47m│ dispositivo asociado con la impresora. Compruebe los permisos para    │\[1m\[37m\[40m \[12;4H(B\[m\[30m\[47m│ verificar que los usuarios que pueden ejecutar mtink también puedan   │\[1m\[37m\[40m \[13;4H(B\[m\[30m\[47m│ acceder a este archivo. En una instalación estándar de Debian, este   │\[1m\[37m\[40m \[14;4H(B\[m\[30m\[47m│ grupo sería «lp».                                                     │\[1m\[37m\[40m \[15;4H(B\[m\[30m\[47m│                                                                       │\[1m\[37m\[40m \[16;4H(B\[m\[30m\[47m│                                \[37m\[41m<Aceptar>\[30m\[47m                              │\[1m\[37m\[40m \[17;4H(B\[m\[30m\[47m│                                                                       │\[1m\[37m\[40m \[18;4H(B\[m\[30m\[47m└───────────────────────────────────────────────────────────────────────┘\[1m\[37m\[40m \[19;5H                                                                         \[16;38H"
send -- "	\r"
expect eof