| #!/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: /var/cvs/openssh/contrib/Attic/make-ssh-known-hosts.pl,v $ |
| # Author : $Author: damien $ |
| # |
| # (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: 2000/03/15 01:13:03 $ |
| # Revision number : $Revision: 1.1 $ |
| # State : $State: Exp $ |
| # Version : 1.343 |
| # Edit time : 242 min |
| # |
| # Description : Make ssh-known-host file from dns data. |
| # |
| # $Log: make-ssh-known-hosts.pl,v $ |
| # 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: make-ssh-known-hosts.pl,v 1.1 2000/03/15 01:13:03 damien Exp $ '; |
| |
| $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; |
