21 lines
546 B
Perl
21 lines
546 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
# This script is intended to be invoked via the -pipepassCmd option
|
||
|
|
# of xlock(1), to add private ssh(1) keys to a running ssh-agent(1)
|
||
|
|
# when the screen is unlocked without the user having to enter the
|
||
|
|
# passphrase.
|
||
|
|
#
|
||
|
|
# Only keys who's passphrase is the same as the user's password can
|
||
|
|
# be automatically re-added in this way.
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use Expect;
|
||
|
|
|
||
|
|
my $pass = <STDIN>;
|
||
|
|
my $exp = Expect->spawn('/usr/local/bin/xlockssh-add.sh');
|
||
|
|
$exp->expect(10, ':');
|
||
|
|
$exp->send("$pass\r\n");
|
||
|
|
$exp->expect(10, ':');
|
||
|
|
$exp->hard_close;
|