source: locker/deploy/bin/advancedpoll @ 1101

Last change on this file since 1101 was 474, checked in by andersk, 17 years ago
File::Path for mkpath and rmtree.
  • Property svn:executable set to *
File size: 823 bytes
Line 
1#!/usr/bin/perl
2use strict;
3use lib '/mit/scripts/deploy/bin';
4use onserver;
5
6setup();
7
8undef $/;
9open(FILE, "include/contemp.php");
10my $a = <FILE>;
11close(FILE);
12$a =~ s/localhost/$sqlhost/g;
13$a =~ s/dbuser/$sqluser/g;
14$a =~ s/dbpass/$sqlpass/g;
15$a =~ s/polldb/$sqldb/g;
16open(FILE, ">include/config.inc.php");
17print FILE $a;
18close(FILE);
19
20fetch_uri('install.php', {action => 'step_2'});
21fetch_uri('install.php', {action => 'step_3'});
22fetch_uri('install.php', {action => 'step_4'});
23
24fetch_uri(
25    'install.php',
26    {action => 'step_6'},
27    {action => 'step_6',
28     username => $admin_username,
29     password => $admin_password});
30
31unlink('include/contemp.php');
32
33print <<END;
34Your $sname Admin Panel is at
35http://$server/~$USER/$addrend/admin
36You can use this admin panel to create your first poll.
37END
38press_enter();
Note: See TracBrowser for help on using the repository browser.