Changeset 468 for locker


Ignore:
Timestamp:
Oct 14, 2007, 12:48:18 AM (15 years ago)
Author:
andersk
Message:
Uncurl wordpress installer.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • locker/deploy/bin/wordpress

    r127 r468  
    11#!/usr/bin/perl
    22use strict;
    3 use lib '/mit/scripts/deploy/bin';
     3use lib '/mit/scripts/deploydev/bin';
    44use onserver;
    55
    66setup();
    77
    8 totmp("-d \"dbhost=$sqlhost&uname=$sqluser&dbname=$sqldbcurl&pwd=$sqlpass&prefix=&submit=Submit&step=2\"");
    9 `curl -K $tmp http://$server/~$USER/$addrend/wp-admin/setup-config.php?step=2 2>/dev/null`;
     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});
    1018
    11 $admin_password=`curl -d "weblog_title=My+Blog&admin_email=$human\@mit.edu&submit=Continue&step=2" http://$server/~$USER/$addrend/wp-admin/install.php?step=2 2>/dev/null | grep '<dd><code>' | tail -n1 | cut -d\\> -f3 | cut -d\\< -f1`;
     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}
    1230
    1331print_login_info();
Note: See TracChangeset for help on using the changeset viewer.