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 P11_SO_PWD $env(P11_SO_PWD)
21set P11_USER_PWD $env(P11_USER_PWD)
22set timeout 30
23
24# Initiate the tpmtoken_init command
25#   it should not have been initialized at this point
26#   if it has, it is an error
27spawn tpmtoken_init
28expect {
29	-re "Clear the TPM token data?" {
30		set reinit 1
31		send "n\n"
32	}
33	-re "A new TPM security officer password is needed." {
34		set reinit 0
35	}
36}
37
38if {$reinit == 0} {
39	expect -re "Enter new password: "
40	send "$P11_SO_PWD\n"
41	expect -re "Confirm password: "
42	send "$P11_SO_PWD\n"
43	expect -re "A new TPM user password is needed."
44	expect -re "Enter new password: "
45	send "$P11_USER_PWD\n"
46	expect -re "Confirm password: "
47	send "$P11_USER_PWD\n"
48}
49
50expect timeout
51
52set rc_list [wait -i $spawn_id]
53set rc [lindex $rc_list {3}]
54
55if {$reinit == 1} { set rc 1 }
56
57exit $rc
58