--- /dev/null
+.\" -*- nroff -*-
+.\" ----------------------------------------------------------------------
+.\" make-ssh-known-hosts.1 -- Make ssh-known-hosts file
+.\" Copyright (c) 1995 Tero Kivinen
+.\" All Rights Reserved.
+.\"
+.\" Make-ssh-known-hosts is distributed in the hope that it will be
+.\" useful, but WITHOUT ANY WARRANTY. No author or distributor accepts
+.\" responsibility to anyone for the consequences of using it or for
+.\" whether it serves any particular purpose or works at all, unless he
+.\" says so in writing. Refer to the General Public License for full
+.\" details.
+.\"
+.\" Everyone is granted permission to copy, modify and redistribute
+.\" make-ssh-known-hosts, but only under the conditions described in
+.\" the General Public License. A copy of this license is supposed to
+.\" have been given to you along with make-ssh-known-hosts so you can
+.\" know your rights and responsibilities. It should be in a file named
+.\" COPYING. Among other things, the copyright notice and this notice
+.\" must be preserved on all copies.
+.\" ----------------------------------------------------------------------
+.\" Program: make-ssh-known-hosts.1
+.\" $Source$
+.\" Author : $Author$
+.\"
+.\" (C) Tero Kivinen 1995 <Tero.Kivinen@hut.fi>
+.\"
+.\" Creation : 03:51 Jun 28 1995 kivinen
+.\" Last Modification : 03:44 Jun 28 1995 kivinen
+.\" Last check in : $Date$
+.\" Revision number : $Revision$
+.\" State : $State$
+.\" Version : 1.1
+.\"
+.\" Description : Manual page for make-ssh-known-hosts.pl
+.\"
+.\" $Log$
+.\" Revision 1.1 2000/03/15 01:13:03 damien
+.\" - Created contrib/ subdirectory. Included helpers from Phil Hands'
+.\" Debian package, README file and chroot patch from Ricardo Cerqueira
+.\" <rmcc@clix.pt>
+.\" - Moved gnome-ssh-askpass.c to contrib directory and reomved config
+.\" option.
+.\" - Slight cleanup to doc files
+.\"
+.\" Revision 1.4 1998/07/08 00:40:14 kivinen
+.\" Changed to do similar commercial #ifdef processing than other
+.\" files.
+.\"
+.\" Revision 1.3 1998/06/11 00:07:21 kivinen
+.\" Fixed comment characters.
+.\"
+.\" Revision 1.2 1997/04/27 21:48:28 kivinen
+.\" Added F-SECURE stuff.
+.\"
+.\" Revision 1.1.1.1 1996/02/18 21:38:13 ylo
+.\" Imported ssh-1.2.13.
+.\"
+.\" Revision 1.5 1995/10/02 01:23:23 ylo
+.\" Make substitutions by configure.
+.\"
+.\" Revision 1.4 1995/08/31 09:21:35 ylo
+.\" Minor cleanup.
+.\"
+.\" Revision 1.3 1995/08/29 22:37:10 ylo
+.\" Minor cleanup.
+.\"
+.\" Revision 1.2 1995/07/15 13:26:11 ylo
+.\" Changes from kivinen.
+.\"
+.\" Revision 1.1.1.1 1995/07/12 22:41:05 ylo
+.\" Imported ssh-1.0.0.
+.\"
+.\"
+.\"
+.\" If you have any useful modifications or extensions please send them to
+.\" Tero.Kivinen@hut.fi
+.\"
+.\"
+.\"
+.\"
+.\"
+.\" #ifndef F_SECURE_COMMERCIAL
+.TH MAKE-SSH-KNOWN-HOSTS 1 "November 8, 1995" "SSH TOOLS" "SSH TOOLS"
+.\" #endif F_SECURE_COMMERCIAL
+.SH NAME
+make-ssh-known-hosts \- make ssh_known_hosts file from DNS data
+.SH SYNOPSIS
+.na
+.TP
+.B make-ssh-known-hosts
+.RB "[\|" "\-\-initialdns "\c
+.I initial_dns\c
+\|]
+.br
+.RB "[\|" "\-\-server "\c
+.I domain_name_server\c
+\|]
+.br
+.RB "[\|" "\-\-subdomains "\c
+.I comma_separated_list_of_subdomains\c
+\|]
+.br
+.RB "[\|" "\-\-debug "\c
+.I debug_level\c
+\|]
+.br
+.RB "[\|" "\-\-timeout "\c
+.I ssh_exec_timeout\c
+\|]
+.br
+.RB "[\|" "\-\-pingtimeout "\c
+.I ping_timeout\c
+\|]
+.br
+.RB "[\|" "\-\-passwordtimeout "\c
+.I timeout_when_asking_password\c
+\|]
+.br
+.RB "[\|" "\-\-notrustdaemon" "\|]"
+.br
+.RB "[\|" "\-\-norecursive" "\|]"
+.br
+.RB "[\|" "\-\-domainnamesplit" "\|]"
+.br
+.RB "[\|" "\-\-silent" "\|]"
+.br
+.RB "[\|" "\-\-keyscan" "\|]"
+.br
+.RB "[\|" "\-\-nslookup "\c
+.I path_to_nslookup_program\c
+\|]
+.br
+.RB "[\|" "\-\-ssh "\c
+.I path_to_ssh_program\c
+\|]
+.br
+.IR "domain_name " "[\|" "take_regexp " "[\|" "remove_regexp"\|]\|]"
+
+.SH DESCRIPTION
+.LP
+.B make-ssh-known-hosts
+is a perl5 script that helps create the
+.I /etc/ssh_known_hosts
+file, which is used by
+.B ssh
+to contain the host keys of all publicly known hosts.
+.B Ssh
+does not normally permit login using rhosts or /etc/hosts.equiv
+authentication unless the server knows the client's host key. In
+addition, the host keys are used to prevent man-in-the-middle attacks.
+.LP
+In addition to
+.IR /etc/ssh_known_hosts ",
+.B ssh
+also uses the
+.I $HOME/.ssh/known_hosts
+file. This file, however, is intended to contain only those hosts
+that the particular user needs but are not in the global file. It is
+intended that the
+.I /etc/ssh_known_hosts
+file be maintained by the system administration, and periodically
+updated to contain the host keys for any new hosts.
+.LP
+The
+.B make-ssh-known-hosts
+program finds all the hosts in a domain by making a DNS query to the
+master domain name server of the domain. The master domain name server
+is located by searching for the SOA record of the domain from the initial
+domain name server (which can be specified with the
+.B \-\-initialdns
+option). The master domain name server can also be given directly with
+the
+.B \-\-server
+option.
+.LP
+After getting the hostname list
+.B make-ssh-known-hosts
+tries to get the public key from every host in the domain. It first
+tries to connect ssh port to check check if the host is alive, and if
+so, it tries to run the command
+.B cat /etc/ssh_host_key.pub
+on the remote machine using
+.BR ssh ".
+If the command succeeds, it knows the remote machine has
+.B ssh
+installed properly, and it then extracts the public key from the
+output, and prints the
+.B /etc/ssh_known_hosts
+entry for it to
+.BR STDOUT ". Because
+.B make-ssh-known-hosts
+is usually run before
+remote machines have /etc/ssh_known_hosts file you may have to use
+RSA-authentication to allow access to hosts.
+.LP
+If the command fails for some reason, it checks if the
+.B ssh
+client still got the public key from the remote host in the initial dialog,
+and if so, it will print a proper entry, and if
+.B \-\-notrustdaemon
+option is given comment it out.
+.LP
+.I Domain_name
+is the domain name for which the file is to be generated. By default
+.B make-ssh-known-hosts
+extracts also all subdomains of domain. Many sites will want to
+include several domains in their
+.I /etc/ssh_known_hosts
+file. The entries for each domain should be extracted separately by
+running
+.B make-ssh-known-hosts
+once for each domain. The results should then be combined to create
+the final file.
+.LP
+.I Take_regexp
+is a perl regular expression that matches the hosts to be taken from the
+domain. The data matched contains all the DNS records in the form "\|\c
+.B fieldname=value\c
+\|". The fields are separated with newline, and the perl match is made in
+multiline mode and it is case insensetive. The multiline mode means
+that you can use a regexp like "\|\c
+.B ^wks=.*telnet.*$\c
+\|" to match all hosts that have WKS (well known services) field that
+contains value "telnet".
+.LP
+.I Remove_regexp
+is similar but those hosts that match the regexp are not added (it can
+be used for example to filter out PCs and Macs using the hinfo field: "\|\c
+.B ^hinfo=.*(mac|pc)\c
+\|").
+
+.SH OPTIONS
+.TP
+.BI "\-\-initialdns " "initial_dns"\c
+.TP
+.BI "\-i " "initial_dns"\c
+\&Set the initial domain name server used to query the SOA record of the
+domain.
+
+.TP
+.BI "\-\-server " "domain_name_server"\c
+.TP
+.BI "\-se " "domain_name_server"\c
+\&Set the master domain name server of the domain. This host is used
+to query the DNS list of the domain.
+
+.TP
+.BI "\-\-subdomains " "subdomainlist"\c
+.TP
+.BI "\-su " "subdomainlist"\c
+\&Comma separated list of subdomains that are added to hostnames. For
+example, if subdomainlist is "\|\c
+.I ,foo, foo.bar, foo.bar.zappa, foo.bar.zappa.hut.fi\c
+\|" then when host foobar is added to
+.B /etc/ssh_known_hosts
+file it has aliases "\|\c
+.I foobar, foobar.foo, foobar.foo.bar, foobar.foo.bar.zappa, foobar.foo.bar.zappa.hut.fi\c
+\|". The default action is to take all subparts of the host but the
+second last on a host by host basis. (The last element is usually the
+country code, and something like
+.I foobar.foo.bar.zappa.hut
+would not make sense.)
+
+.TP
+.BI "\-\-debug " "debug_level"\c
+.TP
+.BI "\-de " "debug_level"\c
+\&Set the debug level. Default is 5, bigger values give more output.
+Using a big value (like 999) will print lots of debugging output.
+
+.TP
+.BI "\-\-timeout " "ssh_exec_timeout"\c
+.TP
+.BI "\-ti " "ssh_exec_timeout"\c
+\&Timeout when executing
+.B ssh
+command. The default is 60 seconds.
+
+.TP
+.BI "\-\-pingtimeout " "ping_timeout"\c
+.TP
+.BI "\-pi " "ping_timeout"\c
+\&Timeout when trying to ping the ssh port. The default is 3 seconds.
+
+.TP
+.BI "\-\-passwordtimeout " "timeout_when_asking_password"\c
+.TP
+.BI "\-pa " "timeout_when_asking_password"\c
+\&Timeout when asking password for ssh command. Default is that no
+passwords are queried. Use value 0 to have no timeout for password queries.
+
+.TP
+.BI "\-\-notrustdaemon"\c
+.TP
+.BI "\-notr"\c
+\&If the
+.B ssh
+command fails, use the public key stored in the local known hosts file
+and trust it is the correct key for the host. If this option is not
+given such entries are commented out in the generated
+.B /etc/ssh_known_hosts
+file.
+
+.TP
+.BI "\-\-norecursive"\c
+.TP
+.BI "\-nor"\c
+\&Tell
+.B make-ssh-known-hosts
+that it should only extract keys for the given domain, and not to be
+recursive.
+
+.TP
+.BI "\-\-domainnamesplit"\c
+.TP
+.BI "\-do"\c
+\&Split the domainname to get the list of subdomains. Use this option
+if you don't want hostname to splitted to pieces automatically.
+Default splitting is done host by host basis. If the domain is
+zappa.hut.fi, and the host name is foo.bar then default action adds
+entries "\|\c
+.I foo, foo.bar, foo.bar.zappa, foo.bar.zappa.hut.fi\c
+\|" and this options adds entries "\|\c
+.I foo.bar, foo.bar.zappa, foo.bar.zappa.hut.fi\c
+\|").
+
+.TP
+.BI "\-\-silent"\c
+.TP
+.BI "\-si"\c
+\&Be silent.
+
+.TP
+.BI "\-\-keyscan"\c
+.TP
+.BI "\-k"\c
+\&Output list of all hosts in format "ipaddr1,ipaddr2,...ipaddrn
+hostname.domain.co,hostname,ipaddr1,ipaddr2,all_other_hostname_entries".
+The output of this can be feeded to ssh-keyscan to fetch keys.
+
+.TP
+.BI "\-\-nslookup " "path_to_nslookup_program"\c
+.TP
+.BI "\-n " "path_to_nslookup_program"\c
+\&Path to the
+.B nslookup
+program.
+
+.TP
+.BI "\-\-ssh " "path_to_ssh_program"\c
+.TP
+.BI "\-ss " "path_to_ssh_program"\c
+\&Path to the
+.B ssh
+program, including all options.
+
+.SH EXAMPLES
+.LP
+The following command:
+.IP
+.B example# make-ssh-known-hosts cs.hut.fi > \c
+.B /etc/ssh_known_hosts
+.LP
+finds all public keys of the hosts in
+.B cs.hut.fi
+domain and put them to
+.B /etc/ssh_known_hosts
+file splitting domain names on a per host basis.
+.LP
+The command
+.IP
+.B example% make-ssh-known-hosts hut.fi '^wks=.*ssh' > \c
+.B hut-hosts
+.LP
+finds all hosts in
+.B hut.fi
+domain, and its subdomains having own name server (cs.hut.fi,
+tf.hut.fi, tky.hut.fi) that have ssh service and puts their public key
+to hut-hosts file. This would require that the domain name server of
+hut.fi would define all hosts running ssh to have entry ssh in their
+WKS record. Because nobody yet adds ssh to WKS, it would be better to
+use command
+.IP
+.B example% make-ssh-known-hosts hut.fi '^wks=.*telnet' > \c
+.B hut-hosts
+.LP
+that would take those host having telnet service. This uses default
+subdomain list.
+
+.LP
+The command:
+.IP
+.B example% make-ssh-known-hosts hut.fi 'dipoli.hut.fi' '^hinfo=.*(mac|pc)' > \c
+.B dipoli-hosts
+.LP
+finds all hosts in hut.fi domain that are in dipoli.hut.fi subdomain
+(note dipoli.hut.fi does not have own name server so its entries are
+in hut.fi-server) and that are not Mac or PC.
+
+.SH FILES
+.ta 3i
+/etc/ssh_known_hosts Global host public key list
+
+.SH "SEE ALSO"
+.BR ssh (1),
+.BR sshd (8),
+.BR ssh-keygen (1),
+.BR ping (8),
+.BR nslookup (8),
+.BR perl (1),
+.BR perlre (1)
+
+.SH AUTHOR
+Tero Kivinen <kivinen@hut.fi>
+
+.SH COPYING
+.LP
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+.LP
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the
+entire resulting derived work is distributed under the terms of a
+permission notice identical to this one.
+.LP
+Permission is granted to copy and distribute translations of this
+manual into another language, under the above conditions for modified
+versions, except that this permission notice may be included in
+translations approved by the the author instead of in the original
+English.
--- /dev/null
+#!/usr/bin/perl -w
+# -*- perl -*-
+######################################################################
+# make-ssh-known-hosts.pl -- Make ssh-known-hosts file
+# Copyright (c) 1995 Tero Kivinen
+# All Rights Reserved.
+#
+# Make-ssh-known-hosts is distributed in the hope that it will be
+# useful, but WITHOUT ANY WARRANTY. No author or distributor accepts
+# responsibility to anyone for the consequences of using it or for
+# whether it serves any particular purpose or works at all, unless he
+# says so in writing. Refer to the GNU General Public License for full
+# details.
+#
+# Everyone is granted permission to copy, modify and redistribute
+# make-ssh-known-hosts, but only under the conditions described in
+# the GNU General Public License. A copy of this license is supposed to
+# have been given to you along with make-ssh-known-hosts so you can
+# know your rights and responsibilities. It should be in a file named
+# gnu-COPYING-GPL. Among other things, the copyright notice and this notice
+# must be preserved on all copies.
+######################################################################
+# Program: make-ssh-known-hosts.pl
+# $Source$
+# Author : $Author$
+#
+# (C) Tero Kivinen 1995 <Tero.Kivinen@hut.fi>
+#
+# Creation : 19:52 Jun 27 1995 kivinen
+# Last Modification : 00:07 Jul 8 1998 kivinen
+# Last check in : $Date$
+# Revision number : $Revision$
+# State : $State$
+# Version : 1.343
+# Edit time : 242 min
+#
+# Description : Make ssh-known-host file from dns data.
+#
+# $Log$
+# Revision 1.1 2000/03/15 01:13:03 damien
+# - Created contrib/ subdirectory. Included helpers from Phil Hands'
+# Debian package, README file and chroot patch from Ricardo Cerqueira
+# <rmcc@clix.pt>
+# - Moved gnome-ssh-askpass.c to contrib directory and reomved config
+# option.
+# - Slight cleanup to doc files
+#
+# Revision 1.6 1998/07/08 00:44:23 kivinen
+# Fixed to understand bind 8 nslookup output.
+#
+# Revision 1.5 1998/04/30 01:53:33 kivinen
+# Moved kill before close and added sending SIGINT first and
+# then 1 second sleep before sending SIGKILL.
+#
+# Revision 1.4 1998/04/17 00:39:19 kivinen
+# Changed to close ssh program filedescriptor before killing it.
+# Removed ^ from the password matching prompt.
+#
+# Revision 1.3 1997/04/17 04:21:27 kivinen
+# Changed to use 3des by default.
+#
+# Revision 1.2 1997/03/26 07:14:01 kivinen
+# Added EWOULDBLOCK.
+#
+# Revision 1.1.1.1 1996/02/18 21:38:10 ylo
+# Imported ssh-1.2.13.
+#
+# Revision 1.4 1995/10/02 01:23:45 ylo
+# Ping packet size fixes from Kivinen.
+#
+# Revision 1.3 1995/08/29 22:37:39 ylo
+# Now uses GlobalKnownHostsFile and UserKnownHostsFile.
+#
+# Revision 1.2 1995/07/15 13:26:37 ylo
+# Changes from kivinen.
+#
+# Revision 1.1.1.1 1995/07/12 22:41:05 ylo
+# Imported ssh-1.0.0.
+#
+#
+#
+# If you have any useful modifications or extensions please send them to
+# Tero.Kivinen@hut.fi
+#
+######################################################################
+# initialization
+
+require 5.000;
+use Getopt::Long;
+use FileHandle;
+use POSIX;
+use Socket;
+use Fcntl;
+
+$version = ' $Id$ ';
+
+$command_line = "$0 ";
+foreach $a (@ARGV) {
+ $command_line .= $a . " ";
+}
+STDERR->autoflush(1);
+
+######################################################################
+# default values for options
+
+$debug = 5;
+$defserver = '';
+$bell='\a';
+$public_key = '/etc/ssh_host_key.pub';
+$private_ssh_known_hosts = "/tmp/ssh_known_hosts$$";
+$timeout = 60;
+$ping_timeout = 3;
+$passwordtimeout = undef;
+$trustdaemon = 1;
+$domainnamesplit = 0;
+$recursive = 1;
+
+######################################################################
+# Programs and their options
+
+$nslookup = "nslookup";
+
+$ssh="ssh -a -c 3des -x -o 'ConnectionAttempts 1' -o 'FallBackToRsh no' -o 'GlobalKnownHostsFile /dev/null' -o 'KeepAlive yes' -o 'StrictHostKeyChecking no' -o 'UserKnownHostsFile $private_ssh_known_hosts'";
+$sshdisablepasswordoption="-o 'BatchMode yes' -o 'PasswordAuthentication no'";
+
+######################################################################
+# Cleanup and initialization
+
+unlink($private_ssh_known_hosts);
+$sockaddr = 'S n a4 x8';
+($junk, $junk, $sshport) = getservbyname("ssh", "tcp");
+if (!defined($sshport)) {
+ $sshport = 22;
+}
+($tcpprotoname, $junk, $tcpproto) = getprotobyname('tcp');
+defined($tcpprotoname) || die "getprotobyname : $!";
+
+######################################################################
+# Parse options
+
+GetOptions("initialdns=s", "server=s", "subdomains=s",
+ "debug=i", "timeout=i", "passwordtimeout=i",
+ "trustdaemon!", "domainnamesplit", "silent",
+ "nslookup=s", "pingtimeout=i", "recursive!",
+ "keyscan",
+ "ssh=s")
+ || die "Getopt : $!";
+
+if (defined($opt_initialdns)) { $defserver = $opt_initialdns; }
+
+if (defined($opt_server)) { $server = $opt_server; }
+
+if (defined($opt_subdomains)) { @subdomains = split(/,/, $opt_subdomains); }
+
+if (defined($opt_debug)) { $debug = $opt_debug; }
+
+if (defined($opt_timeout)) { $timeout = $opt_timeout; }
+
+if (defined($opt_pingtimeout)) { $ping_timeout = $opt_pingtimeout; }
+
+if (defined($opt_passwordtimeout)) {
+ $passwordtimeout = $opt_passwordtimeout;
+ $sshdisablepasswordoption = '';
+}
+
+if (defined($opt_trustdaemon)) { $trustdaemon = $opt_trustdaemon; }
+
+if (defined($opt_recursive)) { $recursive = $opt_recursive; }
+
+if (defined($opt_domainnamesplit)) { $domainnamesplit = $opt_domainnamesplit; }
+
+if (defined($opt_silent)) { $bell = ''; }
+
+if (defined($opt_nslookup)) { $nslookup = $opt_nslookup; }
+
+if (defined($opt_ssh)) { $ssh = $opt_ssh; } else {
+ $ssh = "$ssh $sshdisablepasswordoption";
+}
+
+if ($#ARGV == 0) {
+ $domain = "\L$ARGV[0]\E";
+ $grep_yes = '.*';
+ $grep_no = '^$';
+} elsif ($#ARGV == 1) {
+ $domain = "\L$ARGV[0]\E";
+ $grep_yes = $ARGV[1];
+ $grep_no = '^$';
+} elsif ($#ARGV == 2) {
+ $domain = "\L$ARGV[0]\E";
+ $grep_yes = $ARGV[1];
+ $grep_no = $ARGV[2];
+} else {
+ print(STDERR "$0 [--initialdns initial_dns_server] [--server dns_server] [--subdomains sub.sub.domain,sub.sub,sub,] [--debug debug_level] [--timeout ssh_exec_timeout_in_secs] [--pingtimeout ping_timeout_in_secs] [--passwordtimeout timeout_for_password_in_secs] [--notrustdaemon] [--norecursive] [--domainnamesplit] [--silent] [--keyscan] [--nslookup path_to_nslookup] [--ssh path_to_ssh] full.domain [ host_info_take_regexp [ host_info_remove_regex ]]\n");
+ exit(1);
+}
+
+######################################################################
+# Check that ssh program exists
+
+if (system("$ssh > /dev/null 2>&1 ") != 256) {
+ print(STDERR "Error: Could not run ssh program ($ssh): $!\nError: Try giving the path to it with --ssh option\n");
+ exit(1);
+}
+
+######################################################################
+# Generate subdomains list
+
+if (!$domainnamesplit) {
+ debug(6, "Auto splitting host entries");
+} elsif (!defined(@subdomains)) {
+ debug(6, "Generating subdomain list");
+
+ # split domain to pieces
+ @domain_pieces = split(/\./, $domain);
+
+ # add empty domain part
+ push(@subdomains, '');
+
+ # add rest parts, except the one before full domain name
+ $entry='';
+ for(; $#domain_pieces > 1; ) {
+ $entry .= "." . shift(@domain_pieces);
+ push(@subdomains, $entry);
+ }
+
+ # add full domain name
+ push(@subdomains, ".$domain");
+ debug(5, "Subdomain list: " . join(',', @subdomains));
+} else {
+ debug(5, "Using given subdomain list:" . join(',', @subdomains));
+}
+
+######################################################################
+# finding SOA entry for domain
+
+@other_servers = ();
+if (!defined($server)) {
+ debug(6, "Finding DNS database SOA entry");
+
+ ($server, @other_servers) = find_soa($domain, $defserver);
+
+ if (!defined($server)) {
+ print(STDERR "Error: Could not find DNS SOA entry from default dns server\nError: Try giving the initial nameserver with --initialdns option\n");
+ exit(1);
+ } else {
+ debug(5, "DNS server found : $server");
+ }
+} else {
+ debug(5, "Using given DNS server : $server");
+}
+
+######################################################################
+# Print header
+
+($name, $junk, $junk, $junk, $junk, $junk, $gecos) = getpwuid($<);
+$gecos =~ s/,.*$//g;
+
+if (!defined($opt_keyscan)) {
+ print(STDOUT "# This file is generated with make-ssh-known-hosts.pl\n");
+ print(STDOUT "#$version\n");
+ print(STDOUT "# with command line :\n");
+ print(STDOUT "# $command_line\n");
+ print(STDOUT "#\n");
+ print(STDOUT "# The script was run by $gecos ($name) at " . localtime() . "\n");
+ print(STDOUT "# using perl ($^X) version $].\n");
+}
+
+######################################################################
+# Get DNS database list from server
+
+do {
+ $domains_done{$domain} = 1;
+ delete $domains_waiting{$domain};
+
+ $hostcnt = 0;
+ $cnamecnt = 0;
+ $lines = 0;
+ $soa = 0;
+ undef %host;
+ undef %cname;
+ undef %hostdata;
+
+ dnsagain:
+ debug(1, "Getting DNS database for $domain from server $server");
+ open(DNS, "echo ls -d $domain | nslookup - $server 2>&1 |") ||
+ die "Error: Could not start nslookup to make dns list : $!\nError: Try giving --nslookup option and telling the path to nslookup program\n";
+
+ while(<DNS>) {
+ $lines++;
+ chomp;
+ undef $hostname if/^\s*$/;
+ if (/^\s{0,1}([a-zA-Z0-9-]\S*)/) {
+ $hostname = "\L$1\E";
+ }
+ next unless defined $hostname;
+ if (/^.*\s(SOA)\s+(.*)\s*$/ || $hostname eq "SOA") {
+ undef $soa if(/^.*\s(SOA)\s+(.*)\s*$/);
+ $data = $_ if ($hostname eq "SOA");
+ $data = $2 unless $hostname eq "SOA";
+ $data =~ s/\s*;.*$//;
+ $data =~ s/^\s+//;
+ if( defined $soa ) {
+ $soa .= " \L$data\E";
+ } else {
+ $soa = "\L$data\E";
+ }
+ $hostname = "SOA";
+ } elsif (/^.*\s(A|CNAME|NS)\s+(.*)\s*$/) {
+ $host = $hostname;
+ $field = "\L$1\E";
+ $data = "\L$2\E";
+ debug(70, "Line = /$host/$field/$data/");
+ if ($host !~ /\.$/) {
+ $host .= ".$domain";
+ } else {
+ $host =~ s/\.$//g;
+ }
+ if ($field eq "a") {
+ if ($host =~ /$domain$/) {
+ if (defined($host{$host})) {
+ $host{$host} .= ",$data";
+ } else {
+ $host{$host} = "$data";
+ $hostcnt++;
+ }
+ debug(30, "$host A == $host{$host}");
+ }
+ } elsif ($field eq "cname") {
+ if ($data !~ /\.$/ && ! /^\s/ ) {
+ $data .= ".$domain";
+ } else {
+ $data =~ s/\.$//g;
+ }
+ if ($host =~ /$domain$/) {
+ if (defined($cname{$data})) {
+ $cname{$data} .= ",$host";
+ } else {
+ $cname{$data} = "$host";
+ $cnamecnt++;
+ }
+ debug(30, "$host CNAME $data");
+ $junk = $data;
+ $data = $host;
+ $host = $junk;
+ }
+ } elsif ($field eq "ns") {
+ if (!defined($domains_done{$host})) {
+ if (!defined($domains_waiting{$host})) {
+ debug(10, "Adding subdomain $host to domains list, with NS $data");
+ $domains_waiting{$host} = $data;
+ push(@domains_waiting, $host);
+ } else {
+ debug(10, "Adding NS $data for domain $host");
+ $domains_waiting{$host} .= ",$data";
+ }
+ }
+ }
+ if (!defined($hostdata{$host})) {
+ $hostdata{$host} = "$host\n$field=$data\n";
+ } else {
+ $hostdata{$host} .= "$field=$data\n";
+ }
+ }
+ }
+ close(DNS);
+ if ($hostcnt == 0 && $cnamecnt == 0) {
+ if ($#other_servers != -1) {
+ $server = shift(@other_servers);
+ goto dnsagain;
+ }
+ }
+ debug(1, "Found $hostcnt hosts, $cnamecnt CNAMEs (total $lines lines)");
+ if (!defined($opt_keyscan)) {
+ print(STDOUT "#\n");
+ print(STDOUT "# Domain = $domain, server = $server\n");
+ print(STDOUT "# Found $hostcnt hosts, $cnamecnt CNAMEs (total $lines lines)\n");
+ print(STDOUT "# SOA = $soa\n");
+ print(STDOUT "#\n");
+ }
+
+######################################################################
+# Loop through hosts and try to connect to hosts
+
+ foreach $i (sort (keys %host)) {
+ debug(50, "Host = $i, Hostdata = $hostdata{$i}");
+ if ($hostdata{$i} =~ /$grep_yes/im &&
+ $hostdata{$i} !~ /$grep_no/im &&
+ $i !~ /^localhost\./ &&
+ $host{$i} !~ /^127.0.0.1$|^127.0.0.1,|,127.0.0.1$|,127.0.0.1,/) {
+ debug(2, "Trying host $i");
+
+ @hostnames = ();
+ if (defined($cname{$i})) {
+ expand($i, \@hostnames, \@subdomains);
+ foreach $j (split(/,/, $cname{$i})) {
+ expand($j, \@hostnames, \@subdomains);
+ }
+ } else {
+ expand($i, \@hostnames, \@subdomains);
+ }
+ foreach $j (split(/,/, $host{$i})) {
+ push(@hostnames, $j);
+ }
+ $hostnames = join(',', (@hostnames));
+
+ if (defined($opt_keyscan)) {
+ printf(STDOUT "$host{$i}\t$hostnames\n");
+ } elsif (try_ping($i, $host{$i})) {
+ $trusted = 1;
+ $err = 'Timeout expired';
+ $ssh_key = try_ssh("$i");
+ if (!defined($ssh_key)) {
+ $ssh_key = find_host_from_known_hosts($i);
+ $trusted = 0;
+ }
+ if (defined($ssh_key)) {
+ if ($trusted) {
+ debug(2, "Ssh to $i succeded");
+ } else {
+ debug(2, "Ssh to $i failed, using local known_hosts entry");
+ }
+ debug(4, "adding entries : $hostnames");
+ $ssh_key =~ s/root@//i;
+ if (!$trusted && !$trustdaemon) {
+ print(STDOUT "# $hostnames $ssh_key\n");
+ } else {
+ print(STDOUT "$hostnames $ssh_key\n");
+ }
+ } else {
+ debug(2, "ssh failed : $err");
+ }
+ } else {
+ debug(2, "ping failed");
+ }
+ } else {
+ debug(10, "Skipped host $i");
+ }
+ }
+ again:
+ $domain = shift(@domains_waiting);
+ if (defined($domain)) {
+ $server = $domains_waiting{$domain};
+ @other_servers = split(',', $server);
+ $server = shift(@other_servers);
+ ($server, @other_servers) = find_soa($domain, $server);
+ if(!defined($server)) {
+ debug(1, "Skipping domain $domain because no DNS SOA entry found");
+ $domains_done{$domain} = 1;
+ delete $domains_waiting{$domain};
+ goto again;
+ }
+ }
+} while ($recursive && defined($domain));
+
+unlink($private_ssh_known_hosts);
+exit (0);
+
+######################################################################
+# try_ping -- try to ping to host and return 1 if success
+# $success = try_ping($host, $list_ip_addrs);
+
+sub try_ping {
+ my($host, $ipaddrs) = @_;
+ my(@ipaddrs, $ipaddr, $serv, $ip);
+ my($rin, $rout, $win, $wout, $nfound, $tmout, $buf, $len, $ret, $err);
+
+ $buf = '';
+ debug(51,"Trying to ping host $host");
+ @ipaddrs = split(/,/, $ipaddrs);
+
+ while ($ipaddr = shift(@ipaddrs)) {
+
+ debug(55,"Trying ipaddr $ipaddr");
+
+ #initialize socket
+ socket(PING, PF_INET, SOCK_STREAM, $tcpproto) ||
+ die "socket failed : $!";
+ setsockopt(PING, SOL_SOCKET, SO_REUSEADDR, 1) ||
+ die "setsockopt failed : $!";
+ PING->autoflush(1);
+ fcntl(PING, F_SETFL, fcntl(PING, F_GETFL, 0) | POSIX::O_NONBLOCK) ||
+ die "fcntl failed : $!";
+
+ $ip = pack('C4', split(/\./, $ipaddr, 4));
+ $serv = pack($sockaddr, AF_INET, $sshport, $ip);
+
+ again:
+ # try connect
+ $ret = connect(PING, $serv);
+ $err = $!;
+ if (!$ret) {
+ debug(60, "Connect failed : $err");
+ if ($err == EINTR) {
+ goto again;
+ }
+ # socket not yet connected, wait for result, it will
+ # wake up for writing when done
+ $tmout = $ping_timeout;
+
+ $rin = '';
+ $win = '';
+ vec($rin, fileno(PING), 1) = 1;
+ vec($win, fileno(PING), 1) = 1;
+ debug(60, "Waiting in select, rin = " . unpack('H*', $rin) .
+ ", win = " . unpack('H*', $win));
+ ($nfound) = select($rout = $rin, $wout = $win, undef, $tmout);
+ $err = $!;
+ debug(80, "Select returned $nfound, rout = " . unpack('H*', $rout) .
+ ", wout = " . unpack('H*', $wout));
+ if ($nfound != 0) {
+ # connect done, read the status with sysread
+ $ret = sysread(PING, $buf, 1);
+ $err = $!;
+ if (defined($ret) || $err == EAGAIN || $err == EWOULDBLOCK) {
+ debug(60, "Select ok, read ok ($err), returning ok");
+ # connection done, return ok
+ shutdown(PING, 2);
+ close(PING);
+ return 1;
+ } else {
+ # connection failed, try next ipaddr
+ debug(60, "Select ok, read failed : $err, trying next");
+ close(PING);
+ }
+ } else {
+ # timeout exceeded, try next ipaddr
+ debug(60, "Select failed : $err, trying next");
+ close(PING);
+ }
+ } else {
+ # connect succeeded, return ok.
+ debug(60, "Connect ok, returning ok");
+ shutdown(PING, 2);
+ close(PING);
+ return 1;
+ }
+ }
+ debug(60, "Returning fail");
+ return 0;
+}
+
+######################################################################
+# try_ssh -- try ssh connection to host and return ssh_key if success
+# if failure return undef, and set $err string to contain error message.
+# $ssh_key = try_ssh($host);
+
+sub try_ssh {
+ my($host) = @_;
+ my($buf, $ret, $pos, $pid, $rin, $nfound, $tmout);
+
+ $pid = open(SSH, "$ssh $host cat $public_key 2>&1 |");
+ $err = undef;
+
+ if ($pid == 0) {
+ $err = "could not open ssh connection to host";
+ return undef;
+ }
+ $ret = 1;
+ $pos = 0;
+ $buf = '';
+ $tmout = $timeout;
+ debug(10, "Starting ssh select loop");
+ loop:
+ while (1) {
+
+ $rin = '';
+ vec($rin, fileno(SSH), 1) = 1;
+ ($nfound, $tmout) = select($rin, undef, undef, $tmout);
+
+ # Timeout
+ if ($nfound <= 0) {
+ debug(20, "Ssh select timed out");
+ kill(2, $pid); sleep(1); kill(9, $pid);
+ close(SSH);
+ $err = "Timeout expired";
+ return undef;
+ }
+
+ $ret = sysread(SSH, $buf, 256, $pos);
+ # EOF or error
+ if ($ret <= 0) {
+ # Yes, close the pipe and return
+ close(SSH);
+ debug(20, "Ssh select closed status = $?");
+ $err = "No reply from ssh";
+ return undef;
+ }
+ $pos += $ret;
+ while ($buf =~ /^(.*)\n\r?([\000-\377]*)$/) {
+ $_ = $1;
+ $buf = $2;
+ $pos = length($buf);
+ debug(20, "Ssh select loop, line = \"$_\"");
+ if (/^connection.*refused/i) {
+ $err = "connection refused";
+ } elsif (/^permission/i) {
+ $err = "permission denied";
+ } elsif (/$public_key.*no\s+file/i) {
+ $err = "$public_key file not found";
+ } elsif (/$public_key.*permission\s+denied/i) {
+ $err = "$public_key file permission denied";
+ } elsif (/^\d+\s+\d+\s+\d/) {
+ kill(2, $pid); sleep(1); kill(9, $pid);
+ close(SSH);
+ return $_;
+ }
+ if (defined($err)) {
+ kill(2, $pid); sleep(1); kill(9, $pid);
+ close(SSH);
+ return undef;
+ }
+ }
+ if ($buf =~ /password: $/i) {
+ if (defined($passwordtimeout)) {
+ $tmout = $passwordtimeout;
+ print(STDERR "$bell\n\rPassword: ");
+ if ($tmout == 0) {
+ $tmout = undef;
+ }
+ } else {
+ $tmout = 0;
+ }
+ $buf = '';
+ $pos = 0;
+ }
+ }
+}
+
+######################################################################
+# find_hosts_from_known_hosts -- find host key from private known_hosts file
+# $ssh_key = find_host_from_known_hosts($host);
+
+sub find_host_from_known_hosts {
+ my($host) = @_;
+ open(KNOWNHOSTS, "<$private_ssh_known_hosts") || return undef;
+ while(<KNOWNHOSTS>) {
+ @_ = split(/\s+/, $_);
+ if ($_[0] =~ /^$host$|^$host,|,$host$/) {
+ shift(@_);
+ close(KNOWNHOSTS);
+ return join(' ', @_);
+ }
+ }
+ close(KNOWNHOSTS);
+ return undef;
+}
+
+######################################################################
+# expand -- insert expanded hostnames to hostnames table
+# expand($hostname, \@hostnames, \@subdomains);
+
+sub expand {
+ my($host, $hostnames, $subdomains) = @_;
+ my($newhost, $sub, $entry);
+
+ if (!$domainnamesplit) {
+ my(@domain_pieces);
+
+ # split domain to pieces
+ @domain_pieces = split(/\./, $host);
+
+ # add rest parts, except the one before full domain name
+ $entry = shift(@domain_pieces);
+
+ debug(20, "Adding autosplit entry $entry");
+ push(@$hostnames, $entry);
+
+ for(; $#domain_pieces > 1; ) {
+ $entry .= "." . shift(@domain_pieces);
+ debug(20, "Adding autosplit entry $entry");
+ push(@$hostnames, $entry);
+ }
+ # add full domain name
+ debug(20, "Adding autosplit entry $host");
+ push(@$hostnames, $host);
+ } else {
+ if ($host =~ /^(.*)$domain$/i) {
+ $newhost = $1;
+ $newhost =~ s/\.$//g;
+ foreach $sub (@$subdomains) {
+ $entry = $newhost . $sub;
+ $entry =~ s/^\.//g;
+ if ($entry ne '') {
+ debug(20, "Adding entry $entry");
+ push(@$hostnames, $entry);
+ }
+ }
+ }
+ }
+}
+
+######################################################################
+# Print debug text
+# debug(text_debug_level, string)
+
+sub debug {
+ my($level, $str) = @_;
+ if ($debug > $level) {
+ print(STDERR "$0:debug[$level]: $str\n");
+ }
+}
+
+######################################################################
+# find_soa -- find soa entry for domain
+# ($soa_origin, @other_servers) = find_soa($domain, $initial_server)
+
+sub find_soa {
+ my($domain, $initial_server) = @_;
+ my($field, $data, $server, @other_servers);
+
+ open(DNS, "$nslookup -type=soa $domain $initial_server 2>&1 |") ||
+ die "Error: Could not start nslookup to find SOA entry for $domain : $!\nError: Try giving the path to it with --nslookup option\n";
+
+ while (<DNS>) {
+ if (/^[^=]*origin\s*=\s*(.*)/) {
+ $server = $1;
+ debug(10, "Found origin : $1");
+ } elsif (/^[^=]*nameserver\s*=\s*(.*)\s*$/) {
+ push(@other_servers, $1);
+ debug(10, "Found nameserver : $1");
+ }
+ }
+ close(DNS);
+ return($server, @other_servers);
+}
+
+######################################################################
+# make_perl_happy -- use some symbols, so perl doesn't complain so much
+# make_perl_happy();
+
+sub make_perl_happy {
+ if (0) {
+ print $opt_silent;
+ }
+}
+
+1;
andersk / openssh.git / commitdiff
