#!/usr/local/bin/perl
#
# This script prepares a Solaris box to be used for Zimbra development
# by installing all necessary packages and setting up appropriate environment
# variables. It only needs to be run once, but won't cause any damage if it's
# accidentally run again

$pkggeturl = "http://www.blastwave.org/pkg_get.pkg";
$cswmirror = "http://ftp.math.purdue.edu/mirrors/blastwave.org/stable";

# Packages from Blastwave to install
$pkgs = "common gnupg textutils wget gmake gtar lynx libgmp curl autoconf automake libxml2 groff gsed gawk sudo subversion pcre gcc3 gcc3g++ libtool ant";

# Must run as root
if ($> ne 0)
{
	print "Must run as root\n";
	exit 1;
}

print <<EOM;
This script prepares a Solaris box to be used for Zimbra development
by installing all necessary packages and setting up appropriate environment
variables. It only needs to be run once, but won't cause any damage if it's
accidentally run again

If you are running zones, this script must be run in the global zone to
install packages AND in each local zone that you want to do development work
in to set up environment variables

EOM


print "Checking for Sun Studio Compiler..";
if (! -d "/opt/SUNWspro" && ! -d "/usr/local/SUNWspro")
{
	print "not found\nI can't install the Studio Compiler automatically. It must be downloaded from Sun and untarred into /opt or /usr/local\n";
	$ans = askYN("Choose y to continue anyway or n to exit now: ","n");
	exit 1 if ($ans eq "no");
}

print "OK\n";

$g = `zonename`;
chomp $g;
$global = 1 if ($g eq "global");

do_packages() if $global;

do_zimbra_user();
do_environment();
do_mvtar() if $global;

exit;

sub do_packages()
{
    print "Checking for Blastwave pkg_get..";
    if (system("pkginfo -q CSWpkgget"))
    {
	print "Not found.\n";
	if (askYN("Install?","y") eq "yes")
	{
	    system("pkgadd -d $pkggeturl");
	}
    }
    else
    {
	print "Found\n";
    }

    print "Refreshing Blastwave packages. Will install any that are missing or need updating. Follow the instructions of individual packages";
    system("/opt/csw/bin/pkg-get install $pkgs");

    print "Checking Blastwave Perl..";
    if (-f "/opt/csw/bin/perl.csw")
    {
	print "Redirected\n";
    }
    else
    {
	print "Redirecting to /usr/local/bin/perl..";
	system("mv /opt/csw/bin/perl /opt/csw/bin/perl.csw; ln -s /usr/local/bin/perl /opt/csw/bin/perl");
	print "Done\n";
    }
    system("ln -s /opt/csw/bin/groff /opt/csw/bin/nroff");
}

sub do_zimbra_user()
{
    print "Checking for Zimbra user..";
    $z = `egrep \"^zimbra\" /etc/passwd`;
    if ($z)
    {
	print "found\n";
    }
    else
    {
	print "not found. Creating\n";
	system("echo 'zimbra:x:160:160:Zimbra User:/opt/zimbra:/bin/bash' >> /etc/passwd");
	system("echo 'zimbra:NP:13689::::::' >> /etc/shadow");
    }

    print "Checking for Zimbra group..";
    $z = `egrep \"^zimbra\" /etc/group`;
    if ($z)
    {
	print "found\n";
    }
    else
    {
	print "not found. Creating\n";
	system("echo 'zimbra::160:' >> /etc/group");
    }
}

sub do_environment
{
    # Check for certain variables in /etc/profile and set them if they're not already there

    print "Checking /etc/profile..";
    $z = `egrep \"^ANT_HOME\" /etc/profile`;
    if ($z)
    {
	print "Good\n";
    }
    else
    {
	print "Appending..";
	if (open (PRO,">>/etc/profile"))
	{
	    print PRO <<EOP;
JAVA_HOME=/usr/java
ANT_HOME=/opt/csw/lib/ant
PERLLIB=/opt/zimbra/current/ThirdParty/Perl/zimbramon/lib
PERL5LIB=${PERLLIB}
PATH=/opt/csw/bin:/opt/csw/gcc3/bin:/usr/ccs/bin:/opt/SUNWspro/bin:/usr/bin:/usr/sbin
export JAVA_HOME ANT_HOME PERLLIB PERL5LIB PATH
EOP
	    close PRO;
	    print "Done.\n";
	    print "\nNOTE: It may be necessary to adjust the paths in the PATH and PERLLIB variables in /etc/profile as you build the ThirdParty modules in Zimbra. Keep this in mind!!\n\n";
	}
	else
	{
	    print "Couldn't open /etc/profile for writing!\n";
	}
    }
}

sub do_mvtar()
{
    print "Checking that /usr/bin/tar is a symlink to /opt/csw/bin/gtar..";
    if (! -l "/usr/bin/tar")
    {
	print "Nope. Changing..";
	if (! -f "/opt/csw/bin/gtar")
	{
	    print "Can't find /opt/csw/bin/gtar! Did Blastwave packages not install?\n";
	    return 1;
	}
	system("mv /usr/bin/tar /usr/bin/tar.sun");
	system("ln -s /opt/csw/bin/gtar /usr/bin/tar");
    }
    else
    {
	print "OK\n";
    }
}

sub do_linkmake()
{
    print "Checking that 'make' is a symlink to /opt/csw/bin/gmake..";
    if (! -l "/opt/csw/bin/make")
    {
	print "Nope. Changing..";
	if (! -f "/opt/csw/bin/gmake")
	{
	    print "Can't find /opt/csw/bin/gmake! Did Blastwave packages not install?\n";
	    return 1;
	}
	system("ln -s /opt/csw/bin/gmake /opt/csw/bin/make");
    }
    else
    {
	print "OK\n";
    }
	



sub ask {
  my $prompt = shift;
  my $default = shift;
  if ($default eq "") {
    print "$prompt ";
  } else {
    print "$prompt [$default] ";
  }
  my $rc = <>;
  chomp $rc;
  if ($rc eq "") {return $default;}
  return $rc;
}

sub askYN {
  my $prompt = shift;
  my $default = shift;
  while (1) {
    my $v = ask($prompt, $default);
    $v = lc($v);
    $v = substr ($v,0,1);
    if ($v eq "y") {return "yes";}
    if ($v eq "n") {return "no";}
    print "A Yes/No answer is required\n";
  }
}