source: locker/deploy/bin/advancedbook @ 475

Last change on this file since 475 was 472, checked in by andersk, 15 years ago
Uncurl advancedbook, advancedpoll, e107, joomla, phpbb.
  • Property svn:executable set to *
File size: 715 bytes
RevLine 
[127]1#!/usr/bin/perl
2use strict;
3use lib '/mit/scripts/deploy/bin';
4use onserver;
5
6setup();
7
8undef $/;
9
10open(FILE, "admin/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/guestbookdb/$sqldb/g;
17$a =~ s/useremail/$human\@mit.edu/g;
18open(FILE, ">admin/config.inc.php");
19print FILE $a;
20close(FILE);
21
22open(FILE, "instemp.php");
23$a = <FILE>;
24close(FILE);
25$a =~ s/gbuser/$admin_username/g;
26$a =~ s/gbpass/$admin_password/g;
27open(FILE, ">install.php");
28print FILE $a;
29close(FILE);
30
[472]31fetch_uri(
32    'install.php',
33    {},
34    {action => 'Create table',
35     db => $sqldb,
36     host => $sqlhost,
37     name => $sqluser,
38     pass => $sqlpass});
Note: See TracBrowser for help on using the repository browser.