Interact with riak attach

add_path

#!/usr/bin/expect
# Debug info
# exp_internal 1
 
set timeout 10
log_user 0
 
set path [lindex $argv 0]
 
if {[llength $argv] == 0} {
  send_user "Suppy path as first argument\n"
  exit 1
}
 
send_user "\n#####\n#Adding $path\n#####\n"
 
spawn sudo riak attach
 
expect {
  timeout { send_user "noway" }
  "riak@*" {
    send_user "connected"
    send "code:add_patha(\"$path\").\n"
    expect "true"
    send "code:get_path().\n"
    expect "$path"
    send ""
  }
}
 
close