#!/usr/bin/perl

# Installer script for AgoraCart Route 66 community version.

#######################################################################
#
# This installer script, AgoraCart and all associated files, except where noted, are
# Copyright 2001 to Present jointly by K-Factor Technologies, Inc.
# and by C E Mayo (aka Mister Ed) at AgoraCart.com & K-Factor.net

# This is NOT FREE AND/OR GPL SOFTWARE!
# This software is a separate script to install an ecommerce shopping cart and
# is the confidential and proprietary information of K-Factor Technologies, Inc.  You shall
# not disclose such Confidential Information and shall use it only in
# conjunction with installing the AgoraCart shopping cart.
#
# This file and related program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# This copyright notice may not be removed or altered in any way.
#
#######################################################################
# FTP/WWW Installation Instructions:
#
# This file is actually a perl program that may be used to install
# AgoraCart on a UNIX or LINUX web hosting server that has FTP access or a File
# Management app inside a web hosting control panel.
#
# This script requires the following Perl modules to be installed:
# LWP::Simple
# CGI
#
# Any remaining Perl modules necessary for AgoraCart to operate will be tested by this script.
#
# This script installs the latest AgoraCart Route 66 Community Version (06.6.x).
#
#
# STEP 1 -- Put the correct path to perl on line 1 of this file, above. Default should be okay on most cPanel based servers.
#
# STEP 2 -- Transfer this file via FTP, in ASCII/text mode, in the directory of your
# hosting account that you wish to install your store.
#
# STEP 3 -- Rename this file to myR66.cgi
#
# STEP 4 -- make this file readable/executeable (chmod 755) via your FTP software or file manager.
#
# STEP 5 -- If you already have a directory named 'ac66_new', please rename it to something else now!
# ac66_new is a temporary directory used to install your new Route 66 storefront.
#
# STEP 6 -- run this script from your web browser via a URL like:
#   http://www.yourdomain.com/myR66.cgi
#
# STEP 7 -- Make sure this file is erased from your server immediately.
# This script will attempt to delete itself and the compressed tar archive files it downloads.
#

use CGI qw(:standard);

# cPanel only - loads perl modules local to the users account.
eval('use cPanelUserConfig;');

$| = 1; # Flush
$ENV{"PATH"} = "/bin:/usr/bin";
$my_path = $ENV{'PATH'};
$install_me = "communityRoute66_current.tgz";
$install_me_no_db = "communityRoute66_noDB_current.tgz";
$installer_file_name = "myR66.cgi";

print "Content-type: text/html\n\n";
&print_page_top();

if ( !( -e $installer_file_name ) ) {
    print qq~
<div class="row">
<div class="col">
<h1 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">AgoraCart Route 66 Installer Error</h1>
<p><br></p>
<h3 class="text-success">Thank you for using &amp; supporting AgoraCart!</h3>
<p><br></p>
<p class="bg-light" style="padding: 15px; border: 1px solid grey">
<i class="fas fa-thumbs-down text-danger"></i><span style="padding-left: 15px;"></span>Please rename this file to <span class="text-danger" >$installer_file_name</span> and try again!
</p>
<p><br></p>
</div>
</div>
~;
    &print_page_bottom();
    exit(0);
}

foreach my $sparam (param()){$form_data{$sparam} = param($sparam);}

if ( $form_data{"install_now"} ) {
    &get_extract();
    exit(0);
}

print qq~
<div class="row">
<div class="col">
<p><br></p>
<h1 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">AgoraCart Route 66 Community Installer</h1>
<h3 class="text-success">Thank you for using AgoraCart!</h3>
<p><br></p>
<p class="bg-light" style="padding: 15px; border: 1px solid grey">
Below you will find the information about your Perl version, OS (operating system), and the Perl modules that are required. Most are considered Perl core, and others are found on 95% of Linux based web servers. The only Perl module that is not on most servers is the <b>GD Perl Module</b> for graphics, which is okay as AgoraCart will run without it (only automatic image resizing is affected in a couple of manager screens). You can also ask to see if your hosting company will install any missing Perl modules, such as GD.
<br><br>
If things look okay, enter your Members only credentials below, and press the install button to get started. Once AgoraCart is installed, you will need to go to the store manager to do additional setups, including: the store URL, your emails, and chose a payment gateway. Other settings can be done later.
</p>
<p><br></p>
</div>
</div>
~;

$my_id = `id`;
$whoami = `whoami`;
$linux_repsonse = qq|
<p><br></p>
<p class="bg-light" style="padding: 15px; border: 1px solid grey">If the Linux/Unix whoami command and the User ID responds back with your username, you can go ahead and proceed with the install.<br><br>
|;

if ( $whoami =~ /nobody|www|apache/i || $my_id =~ /nobody|www|apache/i ) {
    $linux_repsonse = qq|
    <p><br></p>
    <p class="bg-danger text-light" style="padding: 15px;">
    The Unix <b>whoami</b> command and/or your UID response contains: 'nobody', 'www', 'apache' which might be a problem. If this is something other than your username (typically the ID you use to login with when accessing your hosting account), you should NOT use this install script without additional script wrappers.
    <br><br>If the Linux/Unix whoami command and the User ID responds back with your username, you can go ahead and proceed with the install.</p>
    |;
}


$server_name = "$ENV{'SERVER_NAME'}";
( $core_modules, $my_modules ) = q{};
$test_perl_version = sprintf( "%vd", $^V );
$os_version = "$^O";
$perl_test_error_mesage = q{};
$perl_test_status = '<span style="padding-left: 15px;"><i class="fas fa-thumbs-up text-success"></i>';
 my ( $major, $majorMin, $minner ) = split( /\./, $test_perl_version );
 if ( ( $major < 5 ) || ( ( $major == 5 ) && ( $majorMin < 8 ) ) || ( ( $major == 5 ) && ( $majorMin == 8 ) && ( $minner < 9 ) ) ) {
     $perl_test_error_mesage = qq|
<i class="fas fa-thumbs-down text-danger"></i><span class="text-danger" style="padding-left: 15px;"><b>WARNING: Your Perl version is VERY old (Released before 2006)</b>.</span> The current Perl version on newer servers is 5.12.4 or 5.16.2.  The AgoraCart Route 66 community version requires Perl 5.8.8 or higher, but <b>versions 5.10.1/5.12.4 thru 5.20.x are recommended</b>. Please ask your hosting provider if they have an additional Perl version installed that your scripts can use.<br><br>|;
     $perl_test_status .= '<span class="text-danger" style="padding-left: 15px;"> but very old. See warning message at bottom!</span>';
 }
 if ( ( $major == 5 ) && ( $majorMin < 12 ) && ( $minner < 9 ) ) {
     $perl_test_error_mesage = qq||;
     $perl_test_status .= '<span style="padding-left: 15px;"></span>but slightly outdated!';
 }

 print qq~
<div class="row">\n
<div class="col">
<h3 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">Perl / OS / System Information</h3>
<p class="text-center">
<b>Perl version:</b><span style="padding-left: 15px;"></span>$test_perl_version $perl_test_status
<span style="padding-left: 15px;"></span>|<span style="padding-left: 15px;"></span>
<b>Operating System:</b> $os_version<span style="padding-left: 15px;"></span><i class="fas fa-thumbs-up text-success"></i>
</p>
<p class="text-center"><b>Scripts are running under User ID:</b><span style="padding-left: 15px;"></span>$my_id</p>
<p class="text-center"><b>Linux/Unix 'whoami' responds with:</b><span style="padding-left: 15px;"></span>$whoami</p>
<p class="text-center"><b>Server Name:</b><span style="padding-left: 15px;"></span>$server_name</p>
$linux_repsonse
<p><br></p>
</div>
</div>
~;


 print qq|<div class="row">\n<div class="col">\n<h3 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">Perl Modules - Core</h3>\n<p style="padding-left: 3em;">|;

# core modules, should be okay
foreach $x(qw(
    Archive::Extract
    Archive::Tar
    Encode
    File::Copy
    File::Copy::Recursive
    File::Find
    File::Path
    Locale::Country
    LWP::Protocol::https
    MIME::QuotedPrint
  )) {
  eval "use $x";
  $core_modules .= qq|<b>$x</b>:<span style="padding-left: 18px;"></span>|;
  $core_modules .=  "$@" ? '<i class="fas fa-thumbs-down text-danger"></i>'."<!--\n$@\n-->" : '<i class="fas fa-thumbs-up text-success"></i>';
  $core_modules .= "<br>\n";
}
print $core_modules;

print qq|</p></div><div class="col">\n<h3 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">Perl Modules - Required</h3>\n<p style="padding-left: 3em;">|;


# required modules. Some we install local to script
foreach $x(qw(
    CGI::Simple::Standard
    GD
    HTTP::BrowserDetect
    HTTP::Request
    LWP::UserAgent
    LWP::Simple
    XML::Simple
  )) {
  eval "use $x";
  $my_modules .= qq|<b>$x</b>:<span style="padding-left: 18px;"></span>|;
  if ( $x eq "CGI::Simple::Standard" || $x eq "HTTP::BrowserDetect" || $x eq "XML::Simple" ) {
      $my_modules .=  "$@" ? '<i class="fas fa-thumbs-down text-danger"></i><span class="text-success" style="padding-left: 18px;"> But we will install a copy for you</span>'."<!--\n$@\n-->" : '<i class="fas fa-thumbs-up text-success"></i>';
  }
  elsif ($x eq "GD") {
      $my_modules .=  "$@" ? '<i class="fas fa-thumbs-down text-danger"></i><span class="text-success" style="padding-left: 18px;">-- <b>Store & Manager areas will work ok</b> --</span><span class="text-danger"> but you cannot use automatic image resizing for product images on product add & edit screens</span>'."<!--\n$@\n-->" : '<i class="fas fa-thumbs-up text-success"></i>';
  }
  else {
      $my_modules .=  "$@" ? '<i class="fas fa-thumbs-down text-danger"></i>'."<!--\n$@\n-->" : '<i class="fas fa-thumbs-up text-success"></i>';
  }
  $my_modules .= "</br>\n";
}
print $my_modules;
print qq|</p></div></div>\n|;

print qq~
<div class="row"><p><br></p></div>
<div class="row">\n
<div class="col">
<h3 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">Enter Your Basic Store Setup Info</h3>
<p></p>
<form method="POST" style="padding-left: 20px; padding-right: 20px;">

<div class="form-group">
    <label for="newDirectoryName">New Store Directory Name:<br><span style="font-size: .75em;">(examples: store, shop, cart, products, services, store66, or anything else you want without any spaces or meta-characters)</span></label>
    <input type="text" class="form-control" id="newDirectoryName" name="newDirectoryName" placeholder="New Dir Name" maxlength="15" required>
</div>
<div class="form-group">
    <label for="newDirectoryLevels">Existing Sub-Directory Path:<br>Optional: Leave blank if a default install. By default the store expects to be installed at a "document root" level (the same level where your index/home page is). However, if you are installing this new store inside an existing sub-directory of your web site, you will also need to enter the directory name and level structure (the directory path). If not correctly entered your store and store managers will not work properly and will require reinstall or manual edits of the store settings file to correct the store URLs. Do not enter the new store directory name here. <br><span style="font-size: .75em;">(examples: for a URL like www.domain-name.com/wholesale/new-store-name enter <b>wholesale</b>. For a URL like www.domain-name.com/us/texas/new-store-name, enter <b>us/texas</b>. Do not forget to add the forward slash between directory levels to separate them)</span></label>
    <input type="text" class="form-control" id="newDirectoryLevels" name="newDirectoryLevels" placeholder="Existing/Directories/Here" maxlength="40">
</div>
<div class="form-group">
    <label for="useNonSSL">Try Non-SSL Access?<br><span style="font-size: .75em;">(default = no. Use YES if you are getting confirmation that the file has been retrieved and saved but gets extraction errors -- assumes your credentials are correct so double check those as well)</span></label>
    <select id="useNonSSL" name="useNonSSL">
    <option selected>no</option>
    <option>yes</option>
    </select>
</div>
<input type="hidden" name="install_now" value="install_now">
<p><br></p>
<button type="submit" class="btn btn-lg btn-success btn-block">Press Here to Install AgoraCart Route 66 Community version</button>
</form>
<p><br></p>
</div>
</div>
~;



&print_page_bottom();
exit(0);

#######################################################################
#######################################################################

sub print_page_top {

    print <<ENDOFTEXT;
<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="utf-8">
    <title>AgoraCart Route 66 Community Version Installer</title>
    <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
    <meta name="robots" content="noindex, nofollow, noarchive, noimageindex">
    <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.2.1/css/bootstrap.min.css" integrity="sha384-GJzZqFGwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" crossorigin="anonymous">
    <link rel="stylesheet" href="https://use.fontawesome.com/releases/v5.5.0/css/all.css" integrity="sha384-B4dIYHKNBt8Bc12p+WXckhzcICo0wtJAoU8YZTY5qE0Id1GSseTk6S+L3BlXeVIU" crossorigin="anonymous">
</head>
<style>
html {
  font-size: 1rem;
}
.template_copyright {
  width: 100%;
  background-color: #4D6D84;
  text-align: center;
  font-size: .9em;
  color: #FFFFFF;
}

a.copyright_link {
  font-size: .9em;
  font-weight: normal;
  text-decoration : none;
  color: #FFFF00;
}
</style>
<body>
<div class="container">


ENDOFTEXT

}

#######################################################################

sub print_page_bottom {
    print <<ENDOFTEXT;
<p><br><br><br></p>
<div class="template_copyright">
    Copyright &copy; 2001-2020 by K-Factor Technologies Inc.<br>
    Installer by <a href="https://K-Factor.net" class="copyright_link" target="_blank">Mister Ed</a> at <a href="https://AgoraCart.com/" class="copyright_link" target="_blank">AgoraCart.com</a>.
</div>
</div><!-- /END Container -->

<!-- jQuery core JS -->
<script src="https://code.jquery.com/jquery-3.3.1.slim.min.js" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script>
<!-- popper JS -->
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.6/umd/popper.min.js" integrity="sha384-wHAiFfRlMFy6i5SRaxvfOCifBUQy1xHdJ/yoi7FRNXMRBu5WHdZYu1hA6ZOblgut" crossorigin="anonymous"></script>
<!-- Bootstrap core JS -->
<script src="https://stackpath.bootstrapcdn.com/bootstrap/4.2.1/js/bootstrap.min.js" integrity="sha384-B0UglyR+jN6CkvvICOB2joaf5I4l3gm9GU6Hc1og6Ls7i6U/mkkaduKaBhlAXv9k" crossorigin="anonymous"></script>

</body></html>

ENDOFTEXT

}

#######################################################################

sub agc_no_file_open {
        print "<br><h4>Can't Open $install_me exiting now!<h4>";
        exit(0);
}

#######################################################################

sub get_extract {

    my $sleep_seconds = 3;
    my $sleeper = 0;
    my $result = '';
    my $mydie = '';
    use Archive::Tar;
    use Archive::Extract;

    $newDirectoryName = $form_data{"newDirectoryName"};
    $useNonSSL = $form_data{"useNonSSL"};
    $newDirectoryName =~ /^([-+\w.\.\,]+)$/;
    $newDirectoryName = $1;
    $newDirectoryLevels = $form_data{"newDirectoryLevels"};
    if ( $form_data{"newDirectoryLevels"} ) {
        $newDirectoryLevels =~ /^([-+\w.\.\/]+)$/;
        $newDirectoryLevels = $1;
        $newDirectoryLevels =~ s/^\///;
        $newDirectoryLevels =~ s/\/$//;
        $newDirectoryLevels = $newDirectoryLevels . '/';
    }
    $newFile = '';
    $install_path = $ENV{REQUEST_URI};
    $install_path =~ s/$installer_file_name//i;
    $myhost = $ENV{HTTP_HOST};

    &print_page_top();

    print <<ENDOFTEXT;
    <h3 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">AgoraCart Route 66 Members Only Version Installation In Progress</h3><p><br></p>
ENDOFTEXT

    if ( -d $newDirectoryName ) {
        print qq|<h4 class="text-center"><i class="fas fa-thumbs-down text-danger"></i> <span class="text-danger">ERROR:</span> The requested new directory name, <span class="text-danger">$newDirectoryName</span>, is already used. <i class="fas fa-thumbs-down text-danger"></i></h4><p class="text-center">Please press the back button and enter a different directory name for your new AgoraCart installation.</p><p><br></p>|;
        exit(0);
    }

    print <<ENDOFTEXT;
    <h4 class="text-center">Retrieving current Route 66 Community Version file from AgoraCart.com .
ENDOFTEXT

    sleep(1);
    print ' . ';

    use LWP::UserAgent;
    if ( $useNonSSL eq 'yes' ) {
        $browser = LWP::UserAgent->new();
        $browser->agent( 'AgoraCart-C-Installer' );
        $req = HTTP::Request->new(GET => "http://agoracart.com/downloadupdates/Route66/$install_me");
    }
    else {
        $browser = LWP::UserAgent->new( ssl_opts => { verify_hostname => "0", }, protocols_allowed => ["https"] );
        $browser->agent( 'AgoraCart-C-Installer' );
        $req = HTTP::Request->new(GET => "https://agoracart.com/downloadupdates/Route66/$install_me");
    }
    my $response = $browser->request($req);
    $file = $response->content();
    print ' . ';
    sleep(1);

    # success/error conditionals
    if ( $file ) {
        print qq|. <i class="fas fa-thumbs-up text-success"></i> Done</h4><p><br></p>
            <h4><i class="fas fa-thumbs-up text-success"></i> Done: $install_me successfully retrieved.</h4>|;
        open(INSTALLFILE, ">./$install_me" ) || &agc_no_file_open();
        print(INSTALLFILE $file);
        close(INSTALLFILE);
        sleep(1);
        print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: $install_me successfully saved</h4>|;

        # Now extract AgoraCart install file
        $Archive::Tar::CHMOD = 0; # PRESERVE PERMISSIONS!
        my $artar = Archive::Tar->new();
        $artar->read( $install_me );
        $artar->extract();

        my $size = -s $install_me;
        if ( $size < 1024000 ) { # at least half of the known file size
            $file = ''; # it is not really the file
            unlink("$install_me");
            unlink("$installer_file_name");
            &agc_no_file_open;
        }
        sleep(1);
        print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: $install_me successfully extracted</h4>|;

        if ( (-d 'ac66_new' ) && ( -e "ac66_new/agora.cgi" ) ) {
            `mv ac66_new $newDirectoryName`;
            print qq|<p><br></p><h4><i class="fas fa-thumbs-up text-success"></i> Your New AgoraCart installation Successfully Renamed to: <span class="text-success">$newDirectoryName</span></h4>|;
        }
        else {
            print qq|<p><br></p><h4 class="text-center"><i class="fas fa-thumbs-down text-danger"></i> Your New AgoraCart installation was not in the expected directory.<i class="fas fa-thumbs-down text-danger"></i></h4><p class="text-center">Please try again or seek help in our Members Only user forums or other support/chat channels</p>|;
            unlink("$install_me");
            print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: $install_me successfully deleted </h4>|;
            unlink("$installer_file_name");
            print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: $installer_file_name (this script you're running) successfully deleted </h4>|; # '
            exit(0);
        }

        $file2remode = "$newDirectoryName/agora.cgi";
        system("chmod 755 ./$file2remode");
        $file2remode = "$newDirectoryName/pplistnr.cgi";
        system("chmod 755 ./$file2remode");
        $file2remode = "$newDirectoryName/manager/manager.cgi";
        system("chmod 755 ./$file2remode");

        print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: Executable permissions set to 755</h4>|;

        open(USERLIB, "<", "$newDirectoryName/user_config66/cart/agora_user_lib.pl");
        while (<USERLIB>) {
            if ( $newDirectoryLevels ) {
                $_ =~ s/\[\[storeName\]\]/$newDirectoryLevels$newDirectoryName/;
            } else {
                $_ =~ s/\[\[storeName\]\]/$newDirectoryName/;
            }
            $newFile .= $_;
        }
        close(USERLIB);

        open(UPDATELIB,  ">", "$newDirectoryName/user_config66/cart/agora_user_lib.pl");
        print UPDATELIB $newFile;
        close(UPDATELIB);
        print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: User Configs Updated for New Directory Name</h4>|;

        unlink("$install_me");
        print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: $install_me successfully deleted </h4>|;
        unlink("$installer_file_name");
        print qq|<h4><i class="fas fa-thumbs-up text-success"></i> Done: $installer_file_name (this script you're running) successfully deleted </h4>|;
    }
    else {
        print '</h4><p><br></p><h4 class="text-center"><i class="fas fa-thumbs-down text-danger"></i> ERROR: The requested files were not reachable for updates. <i class="fas fa-thumbs-down text-danger"></i></h4><p class="text-center">Please press the back button and check your password settings.</p><p><br></p>'; #'
        exit(0);
    }
    $myhost =~ s/www\.//i;
    $install_path = $myhost . $install_path . $newDirectoryName . '/';
    $myip = $ENV{SERVER_ADDR};
    my $url = qq|://agoracart.com/misc_info/agoracart.cgi?stloc=$install_path&stdom=$myhost&stip=$myip&agcfun=install&mgrver=06.6.00.0000&mgrgp=c|;
    if ( $useNonSSL eq 'yes' ) {
        $url = 'http' . $url;
        $browser2 = LWP::UserAgent->new();
    } else {
        $url = 'https' . $url;
        $browser2 = LWP::UserAgent->new( ssl_opts => { verify_hostname => "0", }, protocols_allowed => ["https"] );
    }
    $browser2->agent('AgoraCart-Installer');
    $req2 = HTTP::Request->new(GET => $url);
    my $response = $browser2->request($req2);
    print <<ENDOFTEXT;
    <p><br><br></p>
    <h3 class="shadow p-3 mb-5 rounded text-center text-white" style="background-color: #4D6D84;">AgoraCart Route 66 Setup Tips</h3><p><br></p>

    <p> Thank you for installing AgoraCart.  Your AgoraCart Route 66 Community Version shopping cart has been installed, but it will still need some basic configuration before it is fully functional.</p>

    <p>Please <b>edit your store settings &amp; configuration</b> using the following link (Please bookmark it!):<br><br>
    <a href="$newDirectoryName/manager/manager.cgi" target="_blank">Your New Store Manager Area</a><br><br>
    using the following default credentials:<br>
    <b>username:</b>  manager<br>
    <b>password:</b>  admin</p>
    <p><br></p>

    <p><b class="text-success">SETUP NOTES:</b>
        <br><br><b>1)</b> Make sure to setup the <b>Main/Core Agoracart Settings</b> prior to setting any other settings
        <br><b>2)</b> Set the password settings prior to using the update/upgrade manager.</p>

    <p><br></p>
    <h3 style="text-color: #4D6D84;">Initial/Basic Setup Cheat Sheet</h3><p><br></p>

    <p>Setup your Gold version in the order listed below, using the included online managers found by clicking on "Store Settings" link on the left side menu:</p>

    <ul>
    <li> Main/Core AgoraCart Settings <small>(make sure your URLs are correct! save and login again)</small></li>
    <li> Password Settings <small>(change the defaults, save and then login again - NEVER, EVER LEAVE THE DEFAULTS ACTIVE)</small></li>
    <li> Set .htaccess protection <small>(on main link menu, skip if not shown as a link. submit and login at popup login screen - this can be skipped and warnings disabled in the Misc tab of the Main/Core AgoraCart Settings manager)</small></li>
    <li> Under Main/Core AgoraCart Settings configure items under the following tabs and then save:
        <ul>
            <li>Email</li>
            <li>Checkout</li>
            <li>Security</li>
            <li>MetaTags</li>
            <li>Misc</li>
        </ul></li>
    <li> Upgrade AgoraCart Modules <small>(upgrade any modules that should be upgraded. Skip new modules/features for now)</small></li>
    <li> Shipping Settings and Custom Logic <small>(set up. If not sure, consult user manuals and forums for help)</small></li>
    <li> Tax Settings and Custom Logic <small>(set up. If not sure, consult user manuals and forums for help)</small></li>
    <li> Payment Gateway  <small>(set gateways &amp; edit from Payment Gateway Settings manager found in the Store Settings area)</small></li>
    <li> Test store with default products  <small>(can delete later)</small></li>
    <li> Setup Templates & Layouts  <small>(choose template or copy one and then select it, edit other layout settings)</small></li>
    <li> Enter Products & Services  <small>(just a few, to see how it works, delete demo products)</small></li>
    <li> Test store with new products</li>
    <li> Finish any remaining store setup and product/service database entry.</li>
    </ul>

ENDOFTEXT

    &print_page_bottom();

}

#######################################################################