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

setup();

fetch_uri(
    'install/install.php',
    {},
    {lang => 'english',
     dbms => 'mysql4',
     upgrade => 0,
     dbhost => $sqlhost,
     dbuser => $sqluser,
     dbname => $sqldb,
     dbpasswd => $sqlpass,
     prefix => '',
     board_email => "$human\@mit.edu",
     server_name => $server,
     server_port => 80,
     script_path => "/~$USER/$addrend/",
     admin_name => $admin_username,
     admin_pass1 => $admin_password,
     admin_pass2 => $admin_password,
     install_step => 1,
     cur_lang => 'english'});

rmtree(['contrib', 'install']);