• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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_clear command
25spawn tpm_clear
26expect -re "Enter owner password: "
27send "$OWN_PWD\n"
28expect timeout
29
30set rc_list [wait -i $spawn_id]
31set rc [lindex $rc_list {3}]
32
33exit $rc
34