equal
deleted
inserted
replaced
16 my $home_dir = (getpwuid $effective_uid)[7]; |
16 my $home_dir = (getpwuid $effective_uid)[7]; |
17 my $opt_update = 1; |
17 my $opt_update = 1; |
18 my $opt_help = 0; |
18 my $opt_help = 0; |
19 my $opt_man = 0; |
19 my $opt_man = 0; |
20 my $opt_keys_dir = "/usr/share/schlittermann-ssh-keys"; |
20 my $opt_keys_dir = "/usr/share/schlittermann-ssh-keys"; |
21 my $opt_force = not -t 0; |
21 my $opt_force = 0; |
22 |
22 |
23 my $SSHD_CONF = "/etc/ssh/sshd_config"; |
23 my $SSHD_CONF = "/etc/ssh/sshd_config"; |
24 my $KEYS_DIR = undef; # set later |
24 my $KEYS_DIR = undef; # set later |
25 my $SSH_DIR = "$home_dir/.ssh"; |
25 my $SSH_DIR = "$home_dir/.ssh"; |
26 my $AUTH_KEYS = "$SSH_DIR/authorized_keys"; |
26 my $AUTH_KEYS = "$SSH_DIR/authorized_keys"; |