| [127] | 1 | #!/usr/bin/perl | 
|---|
|  | 2 | use strict; | 
|---|
| [1223] | 3 | use FindBin qw($Bin); | 
|---|
|  | 4 | use lib $Bin; | 
|---|
| [1129] | 5 | use onserver_star; | 
|---|
| [474] | 6 | use File::Path; | 
|---|
| [127] | 7 |  | 
|---|
|  | 8 | setup(); | 
|---|
|  | 9 |  | 
|---|
| [1129] | 10 | # Initial installation page | 
|---|
| [472] | 11 | fetch_uri( | 
|---|
| [1129] | 12 | 'install/index.php', | 
|---|
|  | 13 | {mode => 'install', | 
|---|
|  | 14 | language => 'en'}, | 
|---|
|  | 15 | {}); | 
|---|
|  | 16 | print "Loaded initial installation page\n"; | 
|---|
|  | 17 |  | 
|---|
|  | 18 | # Requirements page | 
|---|
|  | 19 | fetch_uri( | 
|---|
|  | 20 | 'install/index.php', | 
|---|
|  | 21 | {mode => 'install', | 
|---|
|  | 22 | sub => 'requirements', | 
|---|
|  | 23 | language => 'en'}, | 
|---|
|  | 24 | {}); | 
|---|
|  | 25 | print "Loaded requirements page\n"; | 
|---|
|  | 26 |  | 
|---|
|  | 27 | # Database page | 
|---|
|  | 28 | fetch_uri( | 
|---|
|  | 29 | 'install/index.php', | 
|---|
|  | 30 | {mode => 'install', | 
|---|
|  | 31 | sub => 'database', | 
|---|
|  | 32 | language => 'en'}, | 
|---|
|  | 33 | {img_imagick => '/usr/bin/'}); | 
|---|
|  | 34 | print "Loaded database page\n"; | 
|---|
|  | 35 |  | 
|---|
|  | 36 | # Database again | 
|---|
|  | 37 | fetch_uri( | 
|---|
|  | 38 | 'install/index.php', | 
|---|
|  | 39 | {mode => 'install', | 
|---|
|  | 40 | sub => 'database'}, | 
|---|
|  | 41 | {dbms => 'mysql', | 
|---|
| [472] | 42 | dbhost => $sqlhost, | 
|---|
| [1129] | 43 | dbname => $sqldb, | 
|---|
| [472] | 44 | dbuser => $sqluser, | 
|---|
| [1129] | 45 | dbpasswd => $sqlpass, | 
|---|
|  | 46 | table_prefix => '', | 
|---|
|  | 47 | img_imagick => '/usr/bin/', | 
|---|
|  | 48 | language => 'en', | 
|---|
|  | 49 | testdb => 'true'}); | 
|---|
|  | 50 | print "Loaded database page (part 2)\n"; | 
|---|
|  | 51 |  | 
|---|
|  | 52 | # Administrator page | 
|---|
|  | 53 | fetch_uri( | 
|---|
|  | 54 | 'install/index.php', | 
|---|
|  | 55 | {mode => 'install', | 
|---|
|  | 56 | sub => 'administrator'}, | 
|---|
|  | 57 | {img_imagick => '/usr/bin/', | 
|---|
|  | 58 | language => 'en', | 
|---|
|  | 59 | dbms => 'mysql', | 
|---|
|  | 60 | dbhost => $sqlhost, | 
|---|
|  | 61 | dbport => '', | 
|---|
| [472] | 62 | dbname => $sqldb, | 
|---|
| [1129] | 63 | dbuser => $sqluser, | 
|---|
| [472] | 64 | dbpasswd => $sqlpass, | 
|---|
| [1129] | 65 | table_prefix => ''}); | 
|---|
|  | 66 | print "Loaded administrator page\n"; | 
|---|
|  | 67 |  | 
|---|
|  | 68 | # Administrator page again | 
|---|
|  | 69 | fetch_uri( | 
|---|
|  | 70 | 'install/index.php', | 
|---|
|  | 71 | {mode => 'install', | 
|---|
|  | 72 | sub => 'administrator'}, | 
|---|
|  | 73 | {default_lang => 'en', | 
|---|
| [472] | 74 | admin_name => $admin_username, | 
|---|
|  | 75 | admin_pass1 => $admin_password, | 
|---|
|  | 76 | admin_pass2 => $admin_password, | 
|---|
| [1129] | 77 | board_email1 => $email, | 
|---|
|  | 78 | board_email2 => $email, | 
|---|
|  | 79 | img_imagick => '/usr/bin/', | 
|---|
|  | 80 | language => 'en', | 
|---|
|  | 81 | dbms => 'mysql', | 
|---|
|  | 82 | dbhost => $sqlhost, | 
|---|
|  | 83 | dbport => '', | 
|---|
|  | 84 | dbname => $sqldb, | 
|---|
|  | 85 | dbuser => $sqluser, | 
|---|
|  | 86 | dbpasswd => $sqlpass, | 
|---|
|  | 87 | table_prefix => '', | 
|---|
|  | 88 | check => 'true'}); | 
|---|
|  | 89 | print "Loaded administrator page (part 2)\n"; | 
|---|
| [127] | 90 |  | 
|---|
| [1129] | 91 | # Config file page | 
|---|
|  | 92 | fetch_uri( | 
|---|
|  | 93 | 'install/index.php', | 
|---|
|  | 94 | {mode => 'install', | 
|---|
|  | 95 | sub => 'config_file'}, | 
|---|
|  | 96 | {img_imagick => '/usr/bin/', | 
|---|
|  | 97 | default_lang => 'en', | 
|---|
|  | 98 | admin_name => $admin_username, | 
|---|
|  | 99 | admin_pass1 => $admin_password, | 
|---|
|  | 100 | admin_pass2 => $admin_password, | 
|---|
|  | 101 | board_email1 => $email, | 
|---|
|  | 102 | board_email2 => $email, | 
|---|
|  | 103 | language => 'en', | 
|---|
|  | 104 | dbms => 'mysql', | 
|---|
|  | 105 | dbhost => $sqlhost, | 
|---|
|  | 106 | dbport => '', | 
|---|
|  | 107 | dbname => $sqldb, | 
|---|
|  | 108 | dbuser => $sqluser, | 
|---|
|  | 109 | dbpasswd => $sqlpass, | 
|---|
|  | 110 | table_prefix => ''}); | 
|---|
|  | 111 | print "Loaded config file page\n"; | 
|---|
|  | 112 |  | 
|---|
|  | 113 | # Advanced page | 
|---|
|  | 114 | fetch_uri( | 
|---|
|  | 115 | 'install/index.php', | 
|---|
|  | 116 | {mode => 'install', | 
|---|
|  | 117 | sub => 'advanced'}, | 
|---|
|  | 118 | {img_imagick => '/usr/bin/', | 
|---|
|  | 119 | language => 'en', | 
|---|
|  | 120 | dbms => 'mysql', | 
|---|
|  | 121 | dbhost => $sqlhost, | 
|---|
|  | 122 | dbport => '', | 
|---|
|  | 123 | dbname => $sqldb, | 
|---|
|  | 124 | dbuser => $sqluser, | 
|---|
|  | 125 | dbpasswd => $sqlpass, | 
|---|
|  | 126 | table_prefix => '', | 
|---|
|  | 127 | default_lang => 'en', | 
|---|
|  | 128 | admin_name => $admin_username, | 
|---|
|  | 129 | admin_pass1 => $admin_password, | 
|---|
|  | 130 | admin_pass2 => $admin_password, | 
|---|
|  | 131 | board_email1 => $email, | 
|---|
|  | 132 | board_email2 => $email}); | 
|---|
|  | 133 | print "Loaded advanced setup page\n"; | 
|---|
|  | 134 |  | 
|---|
|  | 135 | # Create database tables | 
|---|
|  | 136 | fetch_uri( | 
|---|
|  | 137 | 'install/index.php', | 
|---|
|  | 138 | {mode => 'install', | 
|---|
|  | 139 | sub => 'create_table'}, | 
|---|
|  | 140 | {email_enable => '1', | 
|---|
|  | 141 | smtp_delivery => '0', | 
|---|
|  | 142 | smtp_auth => 'PLAIN', | 
|---|
|  | 143 | cookie_secure => '0', | 
|---|
|  | 144 | force_server_vars => '0', | 
|---|
|  | 145 | server_protocol => 'http://', | 
|---|
|  | 146 | server_name => "$USER.scripts.mit.edu", | 
|---|
|  | 147 | server_port => '80', | 
|---|
|  | 148 | script_path => "/$addrend", | 
|---|
|  | 149 | img_imagick => '/usr/bin/', | 
|---|
|  | 150 | language => 'en', | 
|---|
|  | 151 | dbms => 'mysql', | 
|---|
|  | 152 | dbhost => $sqlhost, | 
|---|
|  | 153 | dbport => '', | 
|---|
|  | 154 | dbname => $sqldb, | 
|---|
|  | 155 | dbuser => $sqluser, | 
|---|
|  | 156 | dbpasswd => $sqlpass, | 
|---|
|  | 157 | table_prefix => '', | 
|---|
|  | 158 | default_lang => 'en', | 
|---|
|  | 159 | admin_name => $admin_username, | 
|---|
|  | 160 | admin_pass1 => $admin_password, | 
|---|
|  | 161 | admin_pass2 => $admin_password, | 
|---|
|  | 162 | board_email1 => $email, | 
|---|
|  | 163 | board_email2 => $email}); | 
|---|
|  | 164 | print "Loaded database table creation page\n"; | 
|---|
|  | 165 |  | 
|---|
|  | 166 | # Final page | 
|---|
|  | 167 | fetch_uri( | 
|---|
|  | 168 | 'install/index.php', | 
|---|
|  | 169 | {mode => 'install', | 
|---|
|  | 170 | sub => 'final'}, | 
|---|
|  | 171 | {language => 'en', | 
|---|
|  | 172 | dbms => 'mysql', | 
|---|
|  | 173 | dbhost => $sqlhost, | 
|---|
|  | 174 | dbport => '', | 
|---|
|  | 175 | dbuser => $sqluser, | 
|---|
|  | 176 | dbpasswd => $sqlpass, | 
|---|
|  | 177 | dbname => $sqldb, | 
|---|
|  | 178 | table_prefix => '', | 
|---|
|  | 179 | default_lang => 'en', | 
|---|
|  | 180 | admin_name => $admin_username, | 
|---|
|  | 181 | admin_pass1 => $admin_password, | 
|---|
|  | 182 | admin_pass2 => $admin_password, | 
|---|
|  | 183 | board_email1 => $email, | 
|---|
|  | 184 | board_email2 => $email, | 
|---|
|  | 185 | img_imagick => '/usr/bin/', | 
|---|
|  | 186 | ftp_path => '', | 
|---|
|  | 187 | ftp_user => '', | 
|---|
|  | 188 | ftp_pass => '', | 
|---|
|  | 189 | email_enable => '1', | 
|---|
|  | 190 | smtp_delivery => '0', | 
|---|
|  | 191 | smtp_host => '', | 
|---|
|  | 192 | smtp_auth => 'PLAIN', | 
|---|
|  | 193 | smtp_user => '', | 
|---|
|  | 194 | smtp_pass => '', | 
|---|
|  | 195 | cookie_secure => '0', | 
|---|
|  | 196 | force_server_vars => '0', | 
|---|
|  | 197 | server_protocol => 'http://', | 
|---|
|  | 198 | server_name => "$USER.scripts.mit.edu", | 
|---|
|  | 199 | server_port => '80', | 
|---|
|  | 200 | script_path => "/$addrend"}); | 
|---|
|  | 201 | print "Loaded installation finalization page\n"; | 
|---|
|  | 202 |  | 
|---|
|  | 203 | rmtree(['install']); | 
|---|