summaryrefslogtreecommitdiff
path: root/databases/pgcluster/files/setup-sshkey.pl
diff options
context:
space:
mode:
Diffstat (limited to 'databases/pgcluster/files/setup-sshkey.pl')
-rw-r--r--databases/pgcluster/files/setup-sshkey.pl24
1 files changed, 0 insertions, 24 deletions
diff --git a/databases/pgcluster/files/setup-sshkey.pl b/databases/pgcluster/files/setup-sshkey.pl
deleted file mode 100644
index 11c3a034de1b..000000000000
--- a/databases/pgcluster/files/setup-sshkey.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl -w
-#
-# $FreeBSD$
-
-use strict;
-
-my $base = "$ENV{HOME}/.ssh";
-foreach (@ARGV) {
- my $dir = "$base/$_";
- system("mkdir -p $dir") == 0 or die;
- if (not -r "$dir/id_dsa.pub") {
- system("ssh-keygen -t dsa -N '' -C $ENV{USER}\@$_ -f $dir/id_dsa") == 0
- or die
- }
- system("ssh-keyscan -t dsa $_ >> $base/known_hosts") == 0 or die;
- system("sort $base/known_hosts | uniq > $base/tmp.$$") == 0 or die;
- system("mv $base/tmp.$$ $base/known_hosts") == 0 or die;
-}
-foreach (@ARGV) {
- my $dir = "$base/$_";
- system("cat $base/*/id_dsa.pub > $dir/authorized_keys") == 0 or die;
- system("cp $base/known_hosts $dir/known_hosts") == 0 or die;
-}
-