#!/usr/bin/expect
#
# utility script to start the guest and make sure that it started is up
# it has a default of 5 minutes to wait for the guest to start up.
#

if { $argc < 1 } {
	send_user "Usage: $argv0 guestname <optional timeout value>"
	exit 1
}

# stupid hack for when this is called from a script
if { $argc == 1 } {
	set argv_tmp [lindex $argv 0]
	set argv [split $argv_tmp]
}

if { [llength $argv] > 1 } {
	set waittimeout [lindex $argv 1]
} else {
	set waittimeout 300
}

set guest  [lindex $argv 0]
set prompt "(%|#|\\\$) $" 
log_user 0

spawn virsh start $guest
set start_spawn $spawn_id

expect {
	-i $start_spawn "Domain $guest started" { exp_continue; }
	-i $start_spawn timeout { 
		send_user "timeout on virsh start $guest\n"; 
		exit 1; 
	}
	-i $start_spawn eof { }
}

spawn virsh console $guest
set con_spawn $spawn_id
set timeout $waittimeout

send -i $con_spawn "\r"
send -i $con_spawn "\r"
send -i $con_spawn "\r"
expect {
	-i $con_spawn "login: " { send -i $con_spawn ; exit 0; }
	-i $con_spawn -re "(P|p)assword:" { send -i $con_spawn ; exit 0; }
	-i $con_spawn -re $prompt { send -i $con_spawn ; exit 0; }
	-i $con_spawn timeout { 
		send_user "start timeout\n"; 
		exit 1;
	 }
	-i $con_spawn eof { 
		send_user "start EOF\n"; 
		exit 1; 
	}
}

exit 1;