1#! /usr/bin/expect -f
2#
3# Copyright (c) International Business Machines  Corp., 2005
4#
5# This program is free software;  you can redistribute it and#or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation; either version 2 of the License, or
8# (at your option) any later version.
9#
10# This program is distributed in the hope that it will be useful, but
11# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
13# for more details.
14#
15# You should have received a copy of the GNU General Public License
16# along with this program;  if not, write to the Free Software
17# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
18#
19
20set OWN_PWD $env(OWN_PWD)
21set SRK_PWD $env(SRK_PWD)
22set timeout 30
23
24# Initiate the tpm_getpubek command
25#   we should be prompted for an owner password at this stage
26#   if we are not, it is an error
27spawn tpm_getpubek
28expect {
29	-re "Public Endorsement Key" { set pwd_prompt 0 }
30	-re "Enter owner password: " {
31		set pwd_prompt 1
32		send "$OWN_PWD\n"
33	}
34}
35expect timeout
36
37set rc_list [wait -i $spawn_id]
38set rc [lindex $rc_list {3}]
39
40if {$pwd_prompt == 0} { set rc 1 }
41
42exit $rc
43