source: trunk/locker/deploy/bin/advancedpoll @ 1279

Last change on this file since 1279 was 1222, checked in by ezyang, 13 years ago
Fix incorrect including of production onserver.pm when scriptsdev=dev is used.
  • Property svn:executable set to *
File size: 824 bytes
RevLine 
[127]1#!/usr/bin/perl
2use strict;
[1222]3use FindBin qw($Bin);
4use lib $Bin;
[127]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
[472]21fetch_uri('install.php', {action => 'step_2'});
22fetch_uri('install.php', {action => 'step_3'});
23fetch_uri('install.php', {action => 'step_4'});
[127]24
[472]25fetch_uri(
26    'install.php',
27    {action => 'step_6'},
28    {action => 'step_6',
29     username => $admin_username,
30     password => $admin_password});
[127]31
[474]32unlink('include/contemp.php');
[127]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.