#!/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);

totmp("-d \"DBhostname=$sqlhost&DBuserName=$sqluser&DBpassword=$sqlpass&DBDel=0&DBname=$sqldbcurl&DBPrefix=jos_&DBSample=1\""); 
`curl -K $tmp http://$server/~$USER/$addrend/installation/install2.php 2>/dev/null`;

my $pwd = `pwd`;
chomp($pwd);
totmp("-d \"DBhostname=$sqlhost&DBuserName=$sqluser&DBpassword=$sqlpass&DBname=$sqldbcurl&DBPrefix=jos_&sitename=$title&siteUrl=http://$server/~$USER/$addrend&absolutePath=$pwd&adminEmail=$human%40mit.edu&adminPassword=$admin_password&filePerms=0&dirPerms=0\"");
`curl -K $tmp http://$server/~$USER/$addrend/installation/install4.php 2>/dev/null`;

`rm -rf installation`;