source: branches/locker-dev/locker/deploy/bin/advancedpoll @ 1567

Last change on this file since 1567 was 1223, checked in by ezyang, 15 years ago
Merge scriptsdev changes from trunk (in practice, it should be the other way around).
  • 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.