Changeset 472 for locker/deploy/bin


Ignore:
Timestamp:
Oct 14, 2007, 3:32:47 PM (17 years ago)
Author:
andersk
Message:
Uncurl advancedbook, advancedpoll, e107, joomla, phpbb.
Location:
locker/deploy/bin
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • locker/deploy/bin/advancedbook

    r127 r472  
    2929close(FILE);
    3030
    31 totmp("-d \"action=Create%20table&db=$sqldbcurl&host=$sqlhost&name=$sqluser&pass=$sqlpass\"");
    32 `curl -K $tmp http://$server/~$USER/$addrend/install.php 2>/dev/null`;
     31fetch_uri(
     32    'install.php',
     33    {},
     34    {action => 'Create table',
     35     db => $sqldb,
     36     host => $sqlhost,
     37     name => $sqluser,
     38     pass => $sqlpass});
  • locker/deploy/bin/advancedpoll

    r127 r472  
    1818close(FILE);
    1919
    20 `curl http://$server/~$USER/$addrend/install.php\?action=step_2 2>/dev/null`;
    21 `curl http://$server/~$USER/$addrend/install.php\?action=step_3 2>/dev/null`;
    22 `curl http://$server/~$USER/$addrend/install.php\?action=step_4 2>/dev/null`;
     20fetch_uri('install.php', {action => 'step_2'});
     21fetch_uri('install.php', {action => 'step_3'});
     22fetch_uri('install.php', {action => 'step_4'});
    2323
    24 totmp("-d \"action=step_6&username=$admin_username&password=$admin_password\"");
    25 `curl -K $tmp http://$server/~$USER/$addrend/install.php\?action=step_6 2>/dev/null`;
     24fetch_uri(
     25    'install.php',
     26    {action => 'step_6'},
     27    {action => 'step_6',
     28     username => $admin_username,
     29     password => $admin_password});
    2630
    2731`rm -r include/contemp.php`;
  • locker/deploy/bin/e107

    r127 r472  
    66setup();
    77
    8 totmp("-d \"server=$sqlhost&name=$sqluser&password=$sqlpass&db=$sqldbcurl&prefix=e107_&stage=3\"");
    9 my $preva=`curl -K $tmp http://$server/~$USER/$addrend/install.php 2>/dev/null | grep previous_steps | cut -d "'" -f 6`;
     8my ($preva) = fetch_uri(
     9    'install.php',
     10    {},
     11    {server => $sqlhost,
     12     name => $sqluser,
     13     password => $sqlpass,
     14     db => $sqldb,
     15     prefix => 'e107_',
     16     stage => 3}) =~ /name='previous_steps' value='(.*)'/;
    1017
    11 my $prevb=`curl -d "stage=4&previous_steps=$preva" http://$server/~$USER/$addrend/install.php 2>/dev/null | grep previous_steps | cut -d "'" -f 6`;
     18my ($prevb) = fetch_uri(
     19    'install.php',
     20    {},
     21    {stage => 4,
     22     previous_steps => $preva}) =~ /name='previous_steps' value='(.*)'/;
    1223
    13 totmp("-d \"u_name=$admin_username&d_name=$admin_username&pass1=$admin_password&pass2=$admin_password&email=$human\@mit.edu&stage=6&previous_steps=$prevb\"");
    14 my $prevc=`curl -K $tmp http://$server/~$USER/$addrend/install.php 2>/dev/null | grep previous_steps | cut -d "'" -f 6`;
     24my ($prevc) = fetch_uri(
     25    'install.php',
     26    {},
     27    {u_name => $admin_username,
     28     d_name => $admin_username,
     29     pass1 => $admin_password,
     30     pass2 => $admin_password,
     31     email => "$human\@mit.edu",
     32     stage => 6,
     33     previous_steps => $prevb}) =~ /name='previous_steps' value='(.*)'/;
    1534
    16 `curl -d "stage=7&previous_steps=$prevc" http://$server/~$USER/$addrend/install.php >/dev/null 2>/dev/null`;
     35fetch_uri(
     36    'install.php',
     37    {},
     38    {stage => "7",
     39     previous_steps => $prevc});
    1740
    18 `rm -rf install.php`;
     41unlink 'install.php';
  • locker/deploy/bin/joomla

    r127 r472  
    1111chomp($title);
    1212
    13 totmp("-d \"DBhostname=$sqlhost&DBuserName=$sqluser&DBpassword=$sqlpass&DBDel=0&DBname=$sqldbcurl&DBPrefix=jos_&DBSample=1\"");
    14 `curl -K $tmp http://$server/~$USER/$addrend/installation/install2.php 2>/dev/null`;
     13fetch_uri(
     14    'installation/install2.php',
     15    {},
     16    {DBhostname => $sqlhost,
     17     DBuserName => $sqluser,
     18     DBpassword => $sqlpass,
     19     DBDel => 0,
     20     DBname => $sqldb,
     21     DBPrefix => 'jos_',
     22     DBSample => 1});
    1523
    1624my $pwd = `pwd`;
    1725chomp($pwd);
    18 totmp("-d \"DBhostname=$sqlhost&DBuserName=$sqluser&DBpassword=$sqlpass&DBname=$sqldbcurl&DBPrefix=jos_&sitename=$title&siteUrl=http://$server/~$USER/$addrend&absolutePath=$pwd&adminEmail=$human%40mit.edu&adminPassword=$admin_password&filePerms=0&dirPerms=0\"");
    19 `curl -K $tmp http://$server/~$USER/$addrend/installation/install4.php 2>/dev/null`;
     26
     27print "=== $base_uri ===\n";
     28   
     29fetch_uri(
     30    'installation/install4.php',
     31    {},
     32    {DBhostname => $sqlhost,
     33     DBuserName => $sqluser,
     34     DBpassword => $sqlpass,
     35     DBname => $sqldb,
     36     DBPrefix => 'jos_',
     37     sitename => $title,
     38     siteUrl => $base_uri,
     39     absolutePath => $pwd,
     40     adminEmail => "$human\@mit.edu",
     41     adminPassword => $admin_password,
     42     filePerms => 0,
     43     dirPerms => 0});
    2044
    2145`rm -rf installation`;
  • locker/deploy/bin/onserver.pm

    r467 r472  
    1111use URI;
    1212our @ISA = qw(Exporter);
    13 our @EXPORT = qw(setup totmp fetch_uri print_login_info press_enter $server $tmp $USER $HOME $sname $deploy $addrend $admin_username $requires_sql $addrlast $sqlhost $sqluser $sqlpass $sqldb $sqldbcurl $admin_password $scriptsdev $human);
     13our @EXPORT = qw(setup totmp fetch_uri print_login_info press_enter $server $tmp $USER $HOME $sname $deploy $addrend $base_uri $ua $admin_username $requires_sql $addrlast $sqlhost $sqluser $sqlpass $sqldb $sqldbcurl $admin_password $scriptsdev $human);
    1414
    1515our $server = "scripts.mit.edu";
    1616
    17 our ($tmp, $USER, $HOME, $sname, $deploy, $addrend, $admin_username, $requires_sql, $addrlast, $sqlhost, $sqluser, $sqlpass, $sqldb, $sqldbcurl, $admin_password, $scriptsdev, $human);
     17our ($tmp, $USER, $HOME, $sname, $deploy, $addrend, $base_uri, $ua, $admin_username, $requires_sql, $addrlast, $sqlhost, $sqluser, $sqlpass, $sqldb, $sqldbcurl, $admin_password, $scriptsdev, $human);
    1818
    1919$tmp = ".scripts-tmp";
     
    2424}
    2525
    26 my $ua = LWP::UserAgent->new;
    27 my $base_uri;
     26$ua = LWP::UserAgent->new;
    2827
    2928sub fetch_uri {
  • locker/deploy/bin/phpbb

    r127 r472  
    66setup();
    77
    8 totmp("-d \"lang=english&dbms=mysql4&upgrade=0&dbhost=$sqlhost&dbuser=$sqluser&dbname=$sqldbcurl&dbpasswd=$sqlpass&prefix=&board_email=$human\@mit.edu&server_name=$server&server_port=80&script_path=/~$USER/$addrend/&admin_name=$admin_username&admin_pass1=$admin_password&admin_pass2=$admin_password&install_step=1&cur_lang=english\"");
    9 `curl -K $tmp http://$server/~$USER/$addrend/install/install.php 2>/dev/null`;
     8fetch_uri(
     9    'install/install.php',
     10    {},
     11    {lang => 'english',
     12     dbms => 'mysql4',
     13     upgrade => 0,
     14     dbhost => $sqlhost,
     15     dbuser => $sqluser,
     16     dbname => $sqldb,
     17     dbpasswd => $sqlpass,
     18     prefix => '',
     19     board_email => "$human\@mit.edu",
     20     server_name => $server,
     21     server_port => 80,
     22     script_path => "/~$USER/$addrend/",
     23     admin_name => $admin_username,
     24     admin_pass1 => $admin_password,
     25     admin_pass2 => $admin_password,
     26     install_step => 1,
     27     cur_lang => 'english'});
    1028
    1129`rm -rf contrib install`;
Note: See TracChangeset for help on using the changeset viewer.