source: branches/fc13-dev/locker/deploy/bin/advancedpoll @ 2820

Last change on this file since 2820 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: 824 bytes
Line 
1#!/usr/bin/perl
2use strict;
3use FindBin qw($Bin);
4use lib $Bin;
5use onserver;
6
7setup();
8
9undef $/;
10open(FILE, "include/contemp.php");
11my $a = <FILE>;
12close(FILE);
13$a =~ s/localhost/$sqlhost/g;
14$a =~ s/dbuser/$sqluser/g;
15$a =~ s/dbpass/$sqlpass/g;
16$a =~ s/polldb/$sqldb/g;
17open(FILE, ">include/config.inc.php");
18print FILE $a;
19close(FILE);
20
21fetch_uri('install.php', {action => 'step_2'});
22fetch_uri('install.php', {action => 'step_3'});
23fetch_uri('install.php', {action => 'step_4'});
24
25fetch_uri(
26    'install.php',
27    {action => 'step_6'},
28    {action => 'step_6',
29     username => $admin_username,
30     password => $admin_password});
31
32unlink('include/contemp.php');
33
34print <<END;
35Your $sname Admin Panel is at
36http://$server/~$USER/$addrend/admin
37You can use this admin panel to create your first poll.
38END
39press_enter();
Note: See TracBrowser for help on using the repository browser.