(expect script) mounts a list of sshfs targets, compensates for lack of ssh-agent for batch unlocking of the configured ssh key

sshfs.tcl

#!/usr/bin/expect -f

# mounts a list of sshfs targets
# compensates for lack of ssh-agent for batch unlocking of the configured ssh key

# ----- Config -------------

set src "kayos@fhjones"

set pairs {
	"/media/:/home/kayos/fhjones_media/"
	"/home/kayos/:/home/kayos/fhjones_home/"
}

# ------------------------

stty -echo

send_user "Enter passphrase: "
expect_user -re "(.*)\n"
set keypassphrase $expect_out(1,string)

stty echo

#debug -now 1

foreach pair $pairs {
	set link [split $pair ":"]
	set srcdir [lindex $link 0]
	set dstdir [lindex $link 1]
	# puts "executing: sshfs -o follow_symlinks $src:$srcdir $dstdir"
	spawn sshfs -f -o follow_symlinks $src:$srcdir $dstdir
	expect_background {
		-re "Enter passphrase for key '.*': " {
			# puts "sending: $keypassphrase\r"
			send -- "$keypassphrase\r"
			exp_continue
			puts "mounted $srcdir to $dstdir successfully\n"
		}
	}
}

puts "\n\ndone! sleeping..."
wait