source: branches/locker-dev/locker/deploy/bin/wordpress-star @ 1511

Last change on this file since 1511 was 1223, checked in by ezyang, 15 years ago
Merge scriptsdev changes from trunk (in practice, it should be the other way around).
  • Property svn:executable set to *
File size: 1.0 KB
RevLine 
[127]1#!/usr/bin/perl
2use strict;
[1223]3use FindBin qw($Bin);
4use lib $Bin;
[1103]5use onserver_star;
[725]6use DBI;
[127]7
8setup();
9
[468]10fetch_uri(
11    'wp-admin/setup-config.php',
12    {step => 2},
13    {dbhost => $sqlhost,
14     uname => $sqluser,
15     dbname => $sqldb,
16     pwd => $sqlpass,
17     prefix => '',
18     submit => 'Submit',
19     step => 2});
[127]20
[468]21my $html = fetch_uri(
22    'wp-admin/install.php',
23    {step => 2},
24    {weblog_title => 'My Blog',
[476]25     admin_email => $email,
[468]26     submit => 'Continue',
27     step => 2});
[743]28while ($html =~ /<code>(.*)<\/code>/g) {
[468]29    $admin_username = $admin_password;
30    $admin_password = $1;
31}
[127]32
[725]33my $dbh = DBI->connect("dbi:mysql:database=$sqldb;host=$sqlhost", $sqluser, $sqlpass);
34$dbh->do("update wp_options set option_value = ? where option_name = 'siteurl'",
35         {}, "/~$USER/$addrend");
36$dbh->do("update wp_options set option_value = ? where option_name = 'home'",
37         {}, "http://$USER.$server/$addrend");
38$dbh->disconnect;
39
[127]40print_login_info();
41print "You will also receive this login information at your MIT email address.\n";
42press_enter();
Note: See TracBrowser for help on using the repository browser.