source: trunk/locker/deploy/bin/e107 @ 1846

Last change on this file since 1846 was 1222, checked in by ezyang, 15 years ago
Fix incorrect including of production onserver.pm when scriptsdev=dev is used.
  • Property svn:executable set to *
File size: 866 bytes
RevLine 
[127]1#!/usr/bin/perl
2use strict;
[1222]3use FindBin qw($Bin);
4use lib $Bin;
[127]5use onserver;
6
7setup();
8
[472]9my ($preva) = fetch_uri(
10    'install.php',
11    {},
12    {server => $sqlhost,
13     name => $sqluser,
14     password => $sqlpass,
15     db => $sqldb,
16     prefix => 'e107_',
17     stage => 3}) =~ /name='previous_steps' value='(.*)'/;
[127]18
[472]19my ($prevb) = fetch_uri(
20    'install.php',
21    {},
22    {stage => 4,
23     previous_steps => $preva}) =~ /name='previous_steps' value='(.*)'/;
[127]24
[472]25my ($prevc) = fetch_uri(
26    'install.php',
27    {},
28    {u_name => $admin_username,
29     d_name => $admin_username,
30     pass1 => $admin_password,
31     pass2 => $admin_password,
[476]32     email => $email,
[472]33     stage => 6,
34     previous_steps => $prevb}) =~ /name='previous_steps' value='(.*)'/;
[127]35
[472]36fetch_uri(
37    'install.php',
38    {},
39    {stage => "7",
40     previous_steps => $prevc});
[127]41
[472]42unlink 'install.php';
Note: See TracBrowser for help on using the repository browser.