#!/usr/bin/perl
#@%^&*!eval('
use strict;
use LWP::UserAgent;
use File::Copy;
use Sys::Hostname;
use Term::ReadKey;
use Term::ReadLine;
use File::Path;
use Data::Dumper;
use Net::Ping;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
our $ipnum        = qr{([01]?\d\d?|2[0-4]\d|25[0-5])};
our $ip_rx        = qr{^$ipnum\.$ipnum\.$ipnum\.$ipnum$};
our $if_file      = '/etc/sysconfig/network-scripts/ifcfg-eth0';
our $network_file = '/etc/sysconfig/network';
our $resolv_file  = '/etc/resolv.conf';
our $server_url   = 'http://activate.trixbox.com/activatetb.cgi?';
our $test_url     = 'http://activate.trixbox.com/gd_test.htm?';
our $code_url     = 'http://activate.trixbox.com/activate_code.cgi?';
chomp( my $GVqquVhiAz = `asterisk -V` );
$server_url .= "ast_ver=$GVqquVhiAz&";
$|++;
my ($PVOVqKqKJM) = new Term::ReadLine 'Fonality Activation';
my ($EmHDINcXZa) = hostname();
my ($dUmAMyhvCd) = 0;
our $tag;
OCZveFAbjX();

sub OCZveFAbjX {
    ZYaqMtxfrv();
    system('clear');
    VArFVNWbam();
    print GREEN "+------------------------+\n";
    print GREEN "| ";
    print BLACK ON_GREEN "trixbox Pro Activation";
    print GREEN " |\n";
    print GREEN "+------------------------+\n\n";
    print CYAN BLINK "--> ";
    print CYAN "You may press 'r' at any time to restart activation";
    print CYAN BLINK " <--\n";
    $tag = jnZbUZJApp();
    KqLlpipjyn(1);
    lIDBRbqpeC();
    OzekKOuyhw();
}

sub sKOyYGxskF {
    my ( $xKTKQMfbVD, $KgxZXqQGIF, $XbSfEMBcUk, $cTPCMqMfcH ) = @_;
    my $VXeTfFIUiV;
    if ( length($XbSfEMBcUk) ) {
        $KgxZXqQGIF .= " [$XbSfEMBcUk]";
        if ($cTPCMqMfcH) {
            $KgxZXqQGIF .= " " x ( $cTPCMqMfcH - length($XbSfEMBcUk) );
        }
    }
    {
        $VXeTfFIUiV = _get_info_from_terminal( $PVOVqKqKJM, $KgxZXqQGIF );
        chomp $VXeTfFIUiV;
        goto &OCZveFAbjX if $VXeTfFIUiV =~ /^r$/i;
        $VXeTfFIUiV = $XbSfEMBcUk, last
          if ( !$VXeTfFIUiV ) && ( length($XbSfEMBcUk) > 0 );
        last if $VXeTfFIUiV =~ /$xKTKQMfbVD/;
        redo;
    }
    return $VXeTfFIUiV;
}

sub TJQwGbWFKi {
    my $AlUiwojqTa = shift;
    my %tdMiGAqRFq = ();
    open my $IcDxuREUNE, "<$AlUiwojqTa" or die $!;
    for my $XmjVzWmCmz ( grep { $_ !~ /^\s*#/ } <$IcDxuREUNE> ) {
        my ( $k, $v ) = split /=|\s+/, $XmjVzWmCmz;
        $tdMiGAqRFq{$k} = $v unless $tdMiGAqRFq{$k};
    }
    close $IcDxuREUNE;
    return \%tdMiGAqRFq;
}

sub FcbTHfkFxM {
    my ( $AlUiwojqTa, $tdMiGAqRFq, $oAYUkbbNOm ) = @_;
    $oAYUkbbNOm ||= '=';
    my $lmzUStCpcK;
    $lmzUStCpcK .= "$_$oAYUkbbNOm$$tdMiGAqRFq{$_}\n" for keys %$tdMiGAqRFq;
    open my $IcDxuREUNE, ">$AlUiwojqTa" or die $!;
    print $IcDxuREUNE $lmzUStCpcK;
    close $IcDxuREUNE;
}

sub gSYwwUupkM {
    my $nxbNvJzwFY = qx{/sbin/ifconfig};
    my $elaMRBWDUG = qr{[\d.]+\s};
    my ( $dqGjPvcxQR, $PJeFpfLhEr ) =
      $nxbNvJzwFY =~ /eth0.+?inet addr:($elaMRBWDUG).+?Mask:($elaMRBWDUG)/s;
    return $dqGjPvcxQR, $PJeFpfLhEr;
}

sub network_restart {
    print "\n>>> Reconfiguring your network settings...\n\n";
    system '/etc/init.d/network restart >>/dev/null 2>>/dev/null';
    my $msJKpWUmpl = TJQwGbWFKi $network_file;
    my $vXFXCrQFnU = TJQwGbWFKi $if_file;
    my $SbomKOcnKw = TJQwGbWFKi $resolv_file;
    ( $$vXFXCrQFnU{IPADDR}, $$vXFXCrQFnU{NETMASK} ) = gSYwwUupkM
      if $$vXFXCrQFnU{BOOTPROTO} eq 'dhcp';
    $$vXFXCrQFnU{IPADDR} =~ s/\s*$//;
    $$msJKpWUmpl{GATEWAY} ||= arozmtfBtA();
    print "\nYour new IP configuration is:\n";
    UVjDfyLFLX( $vXFXCrQFnU, $SbomKOcnKw, $msJKpWUmpl );
}

sub UVjDfyLFLX {
    my ( $sfJyxerKYI, $UpWrjVymzj, $TbrsIxlJJJ ) = @_;
    chomp( $$sfJyxerKYI{NETMASK} );
    print qq{
                IP address      : $$sfJyxerKYI{IPADDR}
                Subnet mask     : $$sfJyxerKYI{NETMASK}
                Default gateway : $$TbrsIxlJJJ{GATEWAY}
                DNS server      : $$UpWrjVymzj{nameserver}
                Mode            : $$sfJyxerKYI{BOOTPROTO}
        };
}

sub XOYkQtvqAN {
    my $mMlzdjKpAg = shift;
    my $p          = Net::Ping->new();
    my $eBkWXnmVJM = $p->ping( $mMlzdjKpAg, 1 ) ? 1 : 0;
    $p->close;
    print
"\nERROR: The installer has detected a conflict for IP address $mMlzdjKpAg\n"
      if $eBkWXnmVJM;
    return $eBkWXnmVJM;
}

sub arozmtfBtA {
    my ($rRTzLjmLtN) = grep { /^0\.0\.0\.0\s/ } `/sbin/route -n`;
    my @WXqMFsGkCQ = split( /\s+/, $rRTzLjmLtN );
    return $WXqMFsGkCQ[1];
}

sub lIDBRbqpeC {
    my $oaDEGDOCYR = 1;
    my $msJKpWUmpl = TJQwGbWFKi $network_file;
    my $vXFXCrQFnU = TJQwGbWFKi $if_file;
    my $SbomKOcnKw = TJQwGbWFKi $resolv_file;
    ( $$vXFXCrQFnU{IPADDR}, $$vXFXCrQFnU{NETMASK} ) = gSYwwUupkM
      if $$vXFXCrQFnU{BOOTPROTO} eq 'dhcp';
    $$vXFXCrQFnU{IPADDR} =~ s/\s*$//;
    $$msJKpWUmpl{GATEWAY} ||= arozmtfBtA();
    print "\nYour current IP configuration is:\n";
    UVjDfyLFLX $vXFXCrQFnU, $SbomKOcnKw, $msJKpWUmpl;
    my $VXeTfFIUiV;
    print "\nSelect your desired IP configuration below:\n\n";
    print "1. DHCP\n";
    print "2. Static IP\n";
    print "3. Keep my current configuration\n";
    print "r. Restart activation\n";
    $VXeTfFIUiV = sKOyYGxskF qr/^(?:1|2|3)$/, "\nSelect option [1,2,3,r]";
    return if $VXeTfFIUiV == 3;
    if ( $VXeTfFIUiV == 1 ) { $$vXFXCrQFnU{BOOTPROTO} = 'dhcp'; }
    else {
        my $YVWMjzTYNT = $$vXFXCrQFnU{IPADDR};
        $$vXFXCrQFnU{BOOTPROTO} = 'static';
        {
            $vXFXCrQFnU->{IPADDR} = sKOyYGxskF $ip_rx, "Enter IP address  ",
              $vXFXCrQFnU->{IPADDR}, 15;
            if ( $YVWMjzTYNT ne $vXFXCrQFnU->{IPADDR} ) {
                redo if XOYkQtvqAN( $vXFXCrQFnU->{IPADDR} );
            }
        }
        $$vXFXCrQFnU{NETMASK} = sKOyYGxskF $ip_rx, "Enter Subnet mask ",
          $$vXFXCrQFnU{NETMASK}, 15;
        $$msJKpWUmpl{GATEWAY} = sKOyYGxskF $ip_rx, "Enter Gateway     ",
          $$msJKpWUmpl{GATEWAY}, 15;
        $$SbomKOcnKw{nameserver} = sKOyYGxskF $ip_rx, "Enter DNS server  ",
          $$SbomKOcnKw{nameserver}, 15;
    }
    FcbTHfkFxM $if_file,      $vXFXCrQFnU;
    FcbTHfkFxM $network_file, $msJKpWUmpl;
    FcbTHfkFxM $resolv_file,  $SbomKOcnKw, ' ';
    network_restart if $oaDEGDOCYR;
    KqLlpipjyn();
}

sub rOknjWmhGj {
    my $uApaYxEtCg = shift;
    my $tYyzaroUCI = join '',
      ( '.', '/', 0 .. 9, 'A' .. 'Z', 'a' .. 'z' )[ rand 64, rand 64 ];
    return crypt $uApaYxEtCg, $tYyzaroUCI;
}

sub OzekKOuyhw {
    print "\nIf you do not have a trixbox Pro username and password, please\n";
    print "visit http://www.trixbox.com to obtain an account for FREE!\n";
    my $UQPxfutQHG =
      sKOyYGxskF( qw/^\w+$/, "\nEnter your trixbox Pro username" );
    print "Enter your trixbox Pro password: ";
    my $JEIeAkJmLx = DMdpTcCgXX();
    print "\n";
    wTywFVxbkC( $server_url . "username=$UQPxfutQHG&password=$JEIeAkJmLx" );
}

sub DMdpTcCgXX {
    ReadMode(3);
    my $JEIeAkJmLx = '';
    while (1) {
        my $sOvLKRSEaI = eKmBXncRAW();
        if ( $sOvLKRSEaI == 10 ) { last; }
        if ( $sOvLKRSEaI == 127 ) {
            if ( length($JEIeAkJmLx) ) {
                chop($JEIeAkJmLx);
                print chr(8), ' ', chr(8);
            }
            next;
        }
        if ( $sOvLKRSEaI == 27 ) { bstLbHKYNu(); $sOvLKRSEaI = "\0"; }
        if ( $sOvLKRSEaI != "\0" ) {
            $JEIeAkJmLx .= chr($sOvLKRSEaI);
            print '*';
        }
    }
    ReadMode(0);
    return $JEIeAkJmLx;
}

sub eKmBXncRAW {
    my $SJRrKNgJkm;
    if ( defined( $SJRrKNgJkm = ReadKey(0) ) ) { }
    return ord($SJRrKNgJkm);
}

sub bstLbHKYNu {
    while (1) {
        my $SJRrKNgJkm;
        if   ( defined( $SJRrKNgJkm = ReadKey(-1) ) ) { }
        else                                          { return; }
    }
    return;
}

sub wTywFVxbkC {
    my $BQMWjcomfS = shift;
    my $mZTeCbfneK = shift || "Activating";
    print "\n";
    printf "%-59s",
      ">>> $mZTeCbfneK your system now (may take several minutes)...";
    my $TrTJQltZLH = '/var/adm/bin/setup.pl';
    my $fMWWwAVxMf = new LWP::UserAgent;
    my $XWDoBfXXZZ = $fMWWwAVxMf->get($BQMWjcomfS);
    my $KgxZXqQGIF;

    if ( $XWDoBfXXZZ->is_success ) {
        my ( $uqcUwvgUky, $jhYLzWckFm ) =
          $XWDoBfXXZZ->content =~ m{^(.*?)(#!/usr/bin/perl.+)$}s;
        ($KgxZXqQGIF) = $uqcUwvgUky =~ m!>>>(.+?)<<<!s;

        if ($jhYLzWckFm) {
            print "[  " . GREEN . "OK" . WHITE . "  ]\n";
            system("/bin/mkdir -p /var/adm/bin") unless -d '/var/adm/bin';
            open FILE, ">$TrTJQltZLH" || warn $!;
            print FILE $jhYLzWckFm;
            close FILE;
            if ( -f $TrTJQltZLH ) {
                system("/usr/bin/perl $TrTJQltZLH");
                unlink( $TrTJQltZLH, '/Fonality/activate.pl' ) if $? == 0;
            }
        }
        else {
            print "[" . RED . "FAILED" . WHITE . "]\n";
            print "\nERROR: " . $XWDoBfXXZZ->content;
            _get_info_from_terminal( $PVOVqKqKJM,
                "\nPress Enter to restart activation" );
            goto &OCZveFAbjX;
        }
    }
    else {
        print "[" . RED . "FAILED" . WHITE . "]\n";
        print "\nERROR: "
          . $XWDoBfXXZZ->status_line . "\n"
          . $XWDoBfXXZZ->content;
        return;
    }
    print $KgxZXqQGIF;
    exit;
}

sub KqLlpipjyn {
    my $MAYltVyoJH = shift;
    print
      "\n>>> Checking for Internet connection (may take several minutes)...";
    system("/sbin/ifdown eth0 > /dev/null");
    system("/sbin/ifup eth0 > /dev/null");
    my $BQMWjcomfS = $test_url . "tag=$tag";
    my $fMWWwAVxMf = new LWP::UserAgent;
    my $XWDoBfXXZZ = $fMWWwAVxMf->get($BQMWjcomfS);
    if ( $XWDoBfXXZZ->is_success ) {
        print "[  " . GREEN . "OK" . WHITE . "  ]\n";
    }
    else {
        print "[" . RED . "FAILED" . WHITE . "]\n";
        print
"\nERROR: Unable to connect to external host. This is typically due\n";
        print "       to an IP configuration or network issue.\n\n";
        my $VXeTfFIUiV = sKOyYGxskF qr/^(?:1|2)$/,
"1. Test your connection again\n2. Re-configure your IP settings\n\nSelect option [1,2,r]";
        if   ( $VXeTfFIUiV == 1 ) { KqLlpipjyn() }
        else                      { lIDBRbqpeC unless $MAYltVyoJH }
    }
}

sub VArFVNWbam {
    my ($ajVzVgZgjk) = `/usr/bin/tty`;
    chomp($ajVzVgZgjk);
    if ( $ajVzVgZgjk =~ /^\/dev\/tty[1-6]$/ ) { $dUmAMyhvCd = 1; }
    else                                      { }
}

sub jnZbUZJApp {
    system(
"/sbin/ifconfig eth0 | head -1 | sed -e 's/.*HWaddr //;' | sed -e 's/://g;' | sed -e 's/ //g;' > /etc/tag"
    );
    open( TAG, '/etc/tag' ) || die $!;
    my (@pSuUVmgycQ) = <TAG>;
    close(TAG);
    chomp(@pSuUVmgycQ);
    return ( $pSuUVmgycQ[0] );
}

sub _get_info_from_terminal {
    my ($PVOVqKqKJM) = shift(@_);
    my ($LFBMmishAR) = shift(@_) . ': ';
    my ($VXeTfFIUiV) = $PVOVqKqKJM->readline($LFBMmishAR);
    $PVOVqKqKJM->addhistory($_) if /\S/;
    return ($VXeTfFIUiV);
}

sub ZYaqMtxfrv {
    system(
"perl -pi -e 's/^KLOGD_OPTIONS=.*/KLOGD_OPTIONS=\"-x -c 4\"/;' /etc/sysconfig/syslog"
    );
    system("/etc/init.d/syslog restart > /dev/null 2>&1");
}