1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
# Passphrase server.
# Deliberately very simple so you can see what's going on.
# This one needs to be left running in a terminal window.
# An X version would be nice.
# This file is COPYRIGHT - see notice above or file COPYRIGHT
# in this directory.
#require 'sys/socket.ph';
use Socket; # updated for perl 5 in Debian Linux
$0 =~ m|[^/]+$|; $name= $&;
# Check for spurious arguments
@ARGV && die "$name: usage: $name\n";
# Change into the right directory, creating it if necessary.
if (!chdir($config_wrapperdir)) {
warn "$name: $config_wrapperdir: $! -- now creating it\n";
mkdir($config_wrapperdir,0700) || die "$name: creating $config_wrapperdir: $!\n";
chdir($config_wrapperdir) || die "$name: changing to $config_wrapperdir: $!\n";
}
# Make sure it's not accessible by others
@s= stat('.');
@s || die "stat $config_wrapperdir: $!\n";
($s[2] & 0777) == 0700 || die "$name: $config_wrapperdir must be mode 700 (rwx------)";
unlink($config_socketname);
socket(S,&PF_UNIX, &SOCK_STREAM, 0) || die "creating socket: $!\n";
bind(S,pack('S',&AF_UNIX).$config_socketname) || die "bind to $config_socketname: $!\n";
listen(S,5) || die "listening: $!\n";
system('stty','-echo') && die "stty -echo gave $?\n";
print STDERR "OK, type in your passphrase: ";
$passphrase= <STDIN>;
system('stty','echo') && die "stty echo gave $?\n";
print STDERR <<'END';
Thanks. If you think you got it wrong, just kill me and try again.
Achtung! Ensure this program dies when you log out, if not sooner!
END
for(;;) {
defined($t=accept(NS,S)) || die "accept: $!\n";
print NS $passphrase;
$_=`date`; chop;
print("$_: $name supplied passphrase\n") ||
die "Failed to write log message to stdout: $!\n";
close(NS);
}
exit 0;
|
