From db468693ef5faa294d9bc3cd3c5d70c0d99d488b Mon Sep 17 00:00:00 2001
From: Rahul C S <rahulcs@redhat.com>
Date: Fri, 17 Feb 2012 17:23:28 +0530
Subject: Adding the performance framework to the qa repo

Change-Id: Ia7dbd82e9bb2e5e65e9345234ce34f8518a091ad
Signed-off-by: Rahul C S <rahulcs@redhat.com>
---
 perf-framework/pwl_ssh | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 perf-framework/pwl_ssh

(limited to 'perf-framework/pwl_ssh')

diff --git a/perf-framework/pwl_ssh b/perf-framework/pwl_ssh
new file mode 100755
index 0000000..fc837f1
--- /dev/null
+++ b/perf-framework/pwl_ssh
@@ -0,0 +1,50 @@
+#!/usr/bin/expect -f
+
+proc setup_pwl_ssh { host pw1 pw2 } {
+	spawn ssh-copy-id -i /root/.ssh/id_rsa.pub root@$host
+	set timeout 50
+	expect {
+	"yes/no" {
+		send "yes\r" 
+		exp_continue
+	} "password: " {
+	send "$pw1\r"
+	expect {
+		"#" {
+			# Success. Nothing to do
+		} "password: " {
+			send "$pw2\r";
+			expect {
+			"#" {
+				# Success. Nothing to do
+			} (.*) {
+				catch {close -i $spawn_id}
+				wait -nowait -i $spawn_id
+			}
+			}
+		}
+		}
+	} timeout {
+		catch {close -i $spawn_id}
+		wait -nowait -i $spawn_id
+	} eof {
+	}
+	}
+}
+
+if { $argc < 2 } {
+	puts "usage $argv0 <logfile> <list-of-hosts>"
+	exit
+}
+
+log_user 0
+set logfile [ lindex $argv 0 ]
+exp_log_file -a -noappend $logfile
+
+set pw1 $env(ROOT_PW1)
+set pw2 $env(ROOT_PW2)
+
+for {set i 1} {$i<[llength $argv]} {incr i} {
+	set host [lindex $argv $i]
+	setup_pwl_ssh $host $pw1 $pw2
+}
-- 
cgit