Update the perl script to use the GLOBUS/GPT_LOCATION environment

[gssapi-openssh.git] / setup / setup-openssh.pl

#!/usr/bin/perl -w
#
# setup-openssh.pl - substitutes variables into text files and runs
#                     ssh key gen programs
#
# adapted from 'fixpath', located in the openssh-3.0.2p1 package
#

my $gpath = $ENV{GPT_LOCATION};
if (!defined($gpath))
{
    $gpath = $ENV{GLOBUS_LCATION};
}
if (!defined($gpath))
{
    die "GPT_LOCATION or GLOBUS_LOCATION needs to be set before running this script"
}

#
# i'm including this because other perl scripts in the gpt setup directories
# do so
#

@INC = (@INC, "$gpath/lib/perl");

my $globusdir = $gpath;
my $setupdir = "$globusdir/setup/globus";
my $myname = "setup-openssh.pl";

print "$myname: Configuring gsi-openssh package\n";

#
# Set up path prefixes for use in the path translations
#

$prefix = $globusdir;
$exec_prefix = "$prefix";
$bindir = "$exec_prefix/bin";
$libexecdir = "$exec_prefix/libexec";
$sysconfdir = "$prefix/etc";
$piddir = "/var/run";
$xauth_path = "/usr/bin/X11/xauth";

sub fixpaths
{
    #
    # Set up path translations for the installation files
    #

    %def = (
        "/etc/ssh_config" => "${sysconfdir}/ssh_config",
        "/etc/ssh_known_hosts" => "${sysconfdir}/ssh_known_hosts",
        "/etc/sshd_config" => "${sysconfdir}/sshd_config",
        "/usr/libexec" => "${libexecdir}",
        "/etc/shosts.equiv" => "${sysconfdir}/shosts.equiv",
        "/etc/ssh_host_key" => "${sysconfdir}/ssh_host_key",
        "/etc/ssh_host_dsa_key" => "${sysconfdir}/ssh_host_dsa_key",
        "/etc/ssh_host_rsa_key" => "${sysconfdir}/ssh_host_rsa_key",
        "/var/run/sshd.pid" => "${piddir}/sshd.pid",
        "/etc/moduli" => "${sysconfdir}/moduli",
        "/etc/sshrc" => "${sysconfdir}/sshrc",
        "/usr/X11R6/bin/xauth" => "${xauth_path}",
        "/usr/bin:/bin:/usr/sbin:/sbin" => "/usr/bin:/bin:/usr/sbin:/sbin:${bindir}",
        );

    #
    # Files on which to perform path translations
    #

    @files = (
        "ssh_config",
        "sshd_config",
        "moduli",
        "scp.1",
        "ssh-add.1",
        "ssh-agent.1",
        "ssh-keygen.1",
        "ssh-keyscan.1",
        "ssh.1",
        "sshd.8",
        "sftp-server.8",
        "sftp.1",
        );

    print "\nTranslating strings in config/man files..\n";
    for $f (@files)
    {
        $f =~ /(.*\/)*(.*)$/;
        $g = "$f.out";

        open(IN, "<$f") || die ("$0: input file $f missing!\n");

        if ( -e $g )
        {
            print "$g already exists, skipping.\n";
        }
        else
        {
            open(OUT, ">$g") || die ("$0: unable to open output file $g!\n");

            while (<IN>)
            {
                for $s (keys(%def))
                {
                    s#$s#$def{$s}#;
                } # for $s
                print OUT "$_";
            } # while <IN>

            close(OUT);
        }

        close(IN);
    } # for $f

    return 0;
}

sub runkeygen
{
    print "\nGenerating ssh keys (if necessary)..\n";
    if ( -e "${sysconfdir}/ssh_host_key" )
    {
        print "${sysconfdir}/ssh_host_key already exists, skipping.\n";
    }
    else
    {
        # if $sysconfdir/ssh_host_key doesn't exist..
        system("$bindir/ssh-keygen -t rsa1 -f $sysconfdir/ssh_host_key -N \"\"");
    }

    if ( -e "${sysconfdir}/ssh_host_dsa_key" )
    {
        print "${sysconfdir}/ssh_host_dsa_key already exists, skipping.\n";
    }
    else
    {
        # if $sysconfdir/ssh_host_dsa_key doesn't exist..
        system("$bindir/ssh-keygen -t dsa -f $sysconfdir/ssh_host_dsa_key -N \"\"");
    }

    if ( -e "${sysconfdir}/ssh_host_rsa_key" )
    {
        print "${sysconfdir}/ssh_host_rsa_key already exists, skipping.\n";
    }
    else
    {
        # if $sysconfdir/ssh_host_rsa_key doesn't exist..
        system("$bindir/ssh-keygen -t rsa -f $sysconfdir/ssh_host_rsa_key -N \"\"");
    }

    return 0;
}

fixpaths();
runkeygen();

exit 0;