#!/usr/bin/perl
use strict;
use lib '/mit/scripts/deploy/bin';
use onserver;

setup();

print "\nPlease decide upon a title for your site and enter it below.\n";
print "Desired title: ";
my $title = <STDIN>;
chomp($title);

fetch_uri(
    'installation/install2.php',
    {},
    {DBhostname => $sqlhost,
     DBuserName => $sqluser,
     DBpassword => $sqlpass,
     DBDel => 0,
     DBname => $sqldb,
     DBPrefix => 'jos_',
     DBSample => 1});

my $pwd = `pwd`;
chomp($pwd);

print "=== $base_uri ===\n";
    
fetch_uri(
    'installation/install4.php',
    {},
    {DBhostname => $sqlhost,
     DBuserName => $sqluser,
     DBpassword => $sqlpass,
     DBname => $sqldb,
     DBPrefix => 'jos_',
     sitename => $title,
     siteUrl => $base_uri,
     absolutePath => $pwd,
     adminEmail => "$human\@mit.edu",
     adminPassword => $admin_password,
     filePerms => 0,
     dirPerms => 0});

`rm -rf installation`;