source: locker/deploy/bin/advancedbook @ 696

Last change on this file since 696 was 476, checked in by andersk, 16 years ago
Add $email variable.
  • Property svn:executable set to *
File size: 706 bytes
Line 
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/$email/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
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.