#!/usr/bin/perl
#
######################################################################
# LedgerSMB Small Medium Business Accounting Software Installer
# http://www.ledgersmb.org/
#

# Copyright (C) 2006
# This work contains copyrighted information from a number of sources all used
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
# under the GNU General Public License version 2 or, at your option, any later
# version.  For a full list including contact information of contributors,
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
# Copyright (c) 2002, Dieter Simader
#
#     Web: http://www.sql-ledger.org
#
#######################################################################

# Next bunch of lines are to check to see if they have the cpan module installed.
my $cpan = 0;
eval { use CPAN; };
if ( !$@ ) {
    $cpan = 1;
}

$| = 1;

#not sure how safe this is. If the browser sends a blank GATEWAY_INTERFACE
#will this script destroy part of the install?
#This script should probably be made inaccessible via HTTP until this feature is working
if ( ( $ENV{GATEWAY_INTERFACE} ) || ( $ENV{HTTP_HOST} ) ) {
    print
"Content-type: text/html\n\nThis does not work yet! use $0 from the command line";
    exit;
}

# Make sure they have the required perl modules installed.
# bin/mozilla/admin.pl needs Digest::MD5 for session handling
# HTML:LinkExtor is used by the setup program.
my @req_modules = (qw(DBI DBD::Pg Digest::MD5 HTML::LinkExtor));

foreach my $module (@req_modules) {
    print "Checking for: $module ...\t";
    my @results = &check_module($module);
    print "$results[1]\n";
    next if ( $results[0] );    # Passed, no need to continue..
    if ( $cpan == 1 ) {

        # Can try to install the module..
        print
"\n\nWould you like to try and install this package ($module) through CPAN? (Y/N) [Y]:";
        my $response = <STDIN>;
        if ( ( $response =~ /y/i ) or ( $response eq "\n" ) ) {
            my $inst_obj = CPAN::Shell->install($module);
            @results = &check_module($module);
            if ( !$results[0] ) {
                print "\n\nCould not install $module using CPAN.\n";
                die "Please try to install this module manually\n";
            }
        }
        else {
            die "Please install the $module perl module and retry the setup.\n";
        }
    }
    else {

        # Can't try to install the module..
        die "Please install the $module perl module and retry the setup.\n";
    }
}

use HTML::LinkExtor;

my $lynx  = `lynx -version`;         # if LWP is not installed use lynx
my $gzip  = `gzip -V 2>&1`;          # gz decompression utility
my $tar   = `tar --version 2>&1`;    # tar archiver
my $latex = `latex -version`;

my $versionurl = 'http://prdownloads.sourceforge.net/ledger-smb';

my %source = (
    1 => {
        url    => "http://voxel.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "New York, U.S.A",
        locale => 'us'
    },
    2 => {
        url    => "http://easynews.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Arizona, U.S.A",
        locale => 'us'
    },
    3 => {
        url    => "http://ufpr.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Brazil",
        locale => 'br'
    },
    4 => {
        url    => "http://surfnet.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "The Netherlands",
        locale => 'nl'
    },
    5 => {
        url  => "http://http://kent.dl.sourceforge.net/sourceforge/ledger-smb",
        site => "U.K",
        locale => 'uk'
    },
    6 => {
        url    => "http://ovh.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "France",
        locale => 'fr'
    },
    7 => {
        url    => "http://mesh.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Germany",
        locale => 'de'
    },
    8 => {
        url    => "http://citkit.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Russia",
        locale => 'ru'
    },
    9 => {
        url    => "http://optusnet.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Sydney, Australia",
        locale => 'au'
    },
    10 => {
        url    => "http://nchc.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Taiwan",
        locale => 'tw'
    },
    11 => {
        url    => "http://jaist.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Japan",
        locale => 'jp'
    },
    12 => {
        url    => "http://heanet.dl.sourceforge.net/sourceforge/ledger-smb",
        site   => "Ireland",
        locale => 'ie'
    }
);

my $userspath = "users";    # default for new installation

eval { require "ledger-smb.conf"; };

my $filename = shift;
chomp $filename;

my $newinstall = 1;

# is LWP installed
eval { require LWP::Simple; };
$lwp = !($@);

unless ( $lwp || $lynx || $filename ) {
    die "You must have either lynx or LWP installed or specify a filename.
perl $0 <filename>\n";
}

if ($filename) {

    # extract version
    die "Not a Ledger-SMB archive\n" if ( $filename !~ /^ledger-smb/ );
    $version = $filename;
    $version =~ s/ledger-smb-(\d+\.\d+\.\d+).*$/$1/;

}

if ( -f "VERSION" ) {

    # get installed version from VERSION file
    open( FH, '<', "VERSION" );
    @a = <FH>;
    close(FH);
    $version = $a[0];
    chomp $version;
    $newinstall = !$version;
    if ( !-f "ledger-smb.conf" ) {
        $newinstall = 1;
    }
}

# Try to determine web user and group..

$webowner = "nobody";
$webgroup = "nogroup";

# Check for apache2.conf
if ( $httpd = `find /etc /usr/local/etc -type f -name 'apache2.conf'` ) {
    chomp $httpd;
    $webowner = `grep "^User " $httpd`;
    $webgroup = `grep "^Group " $httpd`;
    chomp $webowner;
    chomp $webgroup;
    ( undef, $webowner ) = split / /, $webowner;
    ( undef, $webgroup ) = split / /, $webgroup;

}
elsif ( $httpd = `find /etc /usr/local/etc -type f -name 'httpd.conf'` ) {

    # Else check for httpd.conf
    chomp $httpd;
    $webowner = `grep "^User " $httpd`;
    $webgroup = `grep "^Group " $httpd`;
    chomp $webowner;
    chomp $webgroup;
    ( undef, $webowner ) = split / /, $webowner;
    ( undef, $webgroup ) = split / /, $webgroup;
}

if ( $confd = `find /etc /usr/local/etc -type d -name 'apache*/conf.d'` ) {
    chomp $confd;
}

# If we are doing a new install.. check the postgresql installation..
if ( $newinstall == 1 ) {

   # Check the postgresql version before we even check for a connection if local
    system("tput clear");    # Clear the screen..
    our ( $pghost, $pgport, $pguser, $pgpassword );
    print
"\n\nIs PostgreSQL installed [L]ocally,\n or will you be connecting to a [R]emote server? (L/R) [L]:";
    my $localremote = <STDIN>;
    if ( ( $localremote =~ /L/i ) or ( $localremote eq "\n" ) ) {
        $pghost = 'localhost';

        # If local, check the local postgresql version..
        my $pgversion = `psql --version`;
        ($pgversionnum) = $pgversion =~ m/(\d\.\d\.\d)/;
        unless ( $pgversionnum gt '8.0.0' ) {

            # Die, cannot continue..
            print
"LedgerSMB requires postgres version 8.0 or higher.  You have version $pgversionnum installed\n";
            die;
        }
    }
    if ( !&check_pgconnect ) {
        print "\n\n\nInstallation was not successful\n Exiting....\n";
        exit;
    }

}

system("tput clear");

if ($filename) {
    $install = "\ninstall $version from (f)ile\n";
}

# check for latest version
&get_latest_version;
chomp $latest_version;

if ( !$newinstall ) {

    $install .= "\n(r)einstall $version\n";

}

if ( $version && $latest_version ) {
    if ( $version ne $latest_version ) {
        $install .= "\n(u)pgrade to $latest_version\n";
    }
}

$install .= "\n(i)nstall $latest_version (from Internet)\n" if $latest_version;

$install .= "\n(d)ownload $latest_version (no installation)" unless $filename;

print qq|


               LedgerSMB Accounting and ERP Installation



$install


Enter: |;

$a = <STDIN>;
chomp $a;

exit unless $a;
$a = lc $a;

if ( $a !~ /d/ ) {

    print qq|\nEnter httpd owner [$webowner] : |;
    $web = <STDIN>;
    chomp $web;
    $webowner = $web if $web;

    print qq|\nEnter httpd group [$webgroup] : |;
    $web = <STDIN>;
    chomp $web;
    $webgroup = $web if $web;

}

if ( $a ne 'f' ) {
    system("tput clear");

    # choose site
    foreach $item ( sort { $a <=> $b } keys %source ) {
        $i++;
        print qq|$i. $source{$item}{site}\n|;
    }

    $site = "1";

    print qq|\nChoose Location [$site] : |;
    $b = <STDIN>;
    chomp $b;
    $site = $b if $b;
}

if ( $a eq 'd' ) {
    &download;
}
if ( $a =~ /(i|u)/ ) {
    &install_smb;
}
if ( $a eq 'r' ) {
    $latest_version = $version;
    &install_smb;
}
if ( $a eq 'f' ) {
    &install_smb;
}

exit;

# end main

sub check_module {
    my ($module) = @_;
    eval "use $module";
    if ( !$@ ) {
        return 1, "Ok";
    }
    else {
        return 0, "FAILED", $@;
    }
}

sub download {

    &get_source_code;

}

sub get_latest_version {

    print "Checking for latest version number .... ";

    if ($filename) {
        print "skipping, filename supplied\n";
        return;
    }
    my $urlresult = '';
    if ($lwp) {
        if ( $urlresult = LWP::Simple::get("$versionurl") ) {
            $latest_version = parse_links($urlresult);
        }
        else {
            print "not found";
        }
    }
    else {
        if ( !$lynx ) {
            print "\nYou must have either lynx or LWP installed";
            exit 1;
        }
        $ok = `lynx -dump -head $versionurl`;
        if ( $ok = ( $ok =~ s/HTTP.*?200 // ) ) {
            $urlresult      = `lynx -dump $versionurl`;
            $latest_version = parse_links($urlresult);
        }
        else {
            print "not found";
        }
        die unless $ok;
    }

    if ($latest_version) {
        print "ok\n";
        1;
    }

}

my @versions = ();

sub parse_links {

    # Take the html retrieved by lwp or lynx and look for the version numbers.
    my $text    = shift;
    my $version = '';
    my $p       = HTML::LinkExtor->new( \&cb );
    $p->parse($text) or die;
    foreach (@versions) {
        my ($chkversion) =
          $_ =~
          /^\/ledger-smb\/ledger-smb-(\d{1,3}\.\d{1,3}\.\d{1,3}\w*)\.tar\.gz$/;
        $version = $chkversion if ( $chkversion gt $version );
    }
    return $version;
}

sub cb {

    # Callback function for LinkExtor
    my ( $tag, %attr ) = @_;
    return if $tag ne 'a';
    return
      unless $attr{href} =~
      /^\/ledger-smb\/ledger-smb-\d{1,3}\.\d{1,3}\.\d{1,3}\w*\.tar\.gz$/;
    push( @versions, values %attr );

}

sub get_source_code {

    $err = 0;

    @order = ();
    push @order, $site;

    for ( sort { $a <=> $b } keys %source ) {
        push @order, $_;
    }

    if ($latest_version) {

        # download it
        chomp $latest_version;
        $latest_version = "ledger-smb-${latest_version}.tar.gz";

        print "\nStatus\n";
        print "Downloading $latest_version .... ";

        foreach $key (@order) {
            print "\n$source{$key}{site} .... ";

            if ($lwp) {
                $err =
                  LWP::Simple::getstore( "$source{$key}{url}/$latest_version",
                    "$latest_version" );
                $err -= 200;
            }
            else {
                $ok = `lynx -dump -head $source{$key}{url}/$latest_version`;
                $err = !( $ok =~ s/HTTP.*?200 // );

                if ( !$err ) {
                    $err =
                      system(
"lynx -dump $source{$key}{url}/$latest_version > $latest_version"
                      );
                }
            }

            if ($err) {
                print "failed!";
            }
            else {
                last;
            }

        }

    }
    else {
        $err = -1;
    }

    if ($err) {
        die "Cannot get $latest_version";
    }
    else {
        print "ok!\n";
    }

    $latest_version;

}

sub install_smb {

    if ($filename) {
        $latest_version = $filename;
    }
    else {
        $latest_version = &get_source_code;
    }

    &decompress;

    if ($newinstall) {
        open( FH, '<', "ledger-smb.conf.default" );
        @f = <FH>;
        close(FH);
        unless ($latex) {
            grep { s/^\$latex.*/\$latex = 0;/ } @f;
        }
        open( FH, '>', "ledger-smb.conf" );
        print FH @f;
        close(FH);

        $alias = $absolutealias = $ENV{'PWD'};
        $alias =~ s/.*\///g;

        $httpddir = `dirname $httpd`;