source: branches/fc13-dev/locker/deploy/bin/advancedbook @ 2820

Last change on this file since 2820 was 1222, checked in by ezyang, 15 years ago
Fix incorrect including of production onserver.pm when scriptsdev=dev is used.
  • Property svn:executable set to *
File size: 707 bytes
Line 
1#!/usr/bin/perl
2use strict;
3use FindBin qw($Bin);
4use lib $Bin;
5use onserver;
6
7setup();
8
9undef $/;
10
11open(FILE, "admin/contemp.php");
12my $a = <FILE>;
13close(FILE);
14$a =~ s/localhost/$sqlhost/g;
15$a =~ s/dbuser/$sqluser/g;
16$a =~ s/dbpass/$sqlpass/g;
17$a =~ s/guestbookdb/$sqldb/g;
18$a =~ s/useremail/$email/g;
19open(FILE, ">admin/config.inc.php");
20print FILE $a;
21close(FILE);
22
23open(FILE, "instemp.php");
24$a = <FILE>;
25close(FILE);
26$a =~ s/gbuser/$admin_username/g;
27$a =~ s/gbpass/$admin_password/g;
28open(FILE, ">install.php");
29print FILE $a;
30close(FILE);
31
32fetch_uri(
33    'install.php',
34    {},
35    {action => 'Create table',
36     db => $sqldb,
37     host => $sqlhost,
38     name => $sqluser,
39     pass => $sqlpass});
Note: See TracBrowser for help on using the repository browser.