source: locker/deploy/bin/wordpress @ 468

Last change on this file since 468 was 468, checked in by andersk, 17 years ago
Uncurl wordpress installer.
  • Property svn:executable set to *
File size: 729 bytes
RevLine 
[127]1#!/usr/bin/perl
2use strict;
[468]3use lib '/mit/scripts/deploydev/bin';
[127]4use onserver;
5
6setup();
7
[468]8fetch_uri(
9    'wp-admin/setup-config.php',
10    {step => 2},
11    {dbhost => $sqlhost,
12     uname => $sqluser,
13     dbname => $sqldb,
14     pwd => $sqlpass,
15     prefix => '',
16     submit => 'Submit',
17     step => 2});
[127]18
[468]19my $html = fetch_uri(
20    'wp-admin/install.php',
21    {step => 2},
22    {weblog_title => 'My Blog',
23     admin_email => "$human\@mit.edu",
24     submit => 'Continue',
25     step => 2});
26while ($html =~ /<dd><code>(.*)<\/code><\/dd>/g) {
27    $admin_username = $admin_password;
28    $admin_password = $1;
29}
[127]30
31print_login_info();
32print "You will also receive this login information at your MIT email address.\n";
33press_enter();
Note: See TracBrowser for help on using the repository browser.