Changeset 462


Ignore:
Timestamp:
Oct 13, 2007, 10:18:07 PM (15 years ago)
Author:
andersk
Message:
Things that give me nightmares, volume 462.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • locker/deploy/bin/onserver.pm

    r456 r462  
    6060    print "\nCreating SQL database for $sname...\n";
    6161   
    62     my $getpwd=`/mit/scripts/sql/bin$scriptsdev/get-password`;
     62    my $getpwd=system("/mit/scripts/sql/bin$scriptsdev/get-password");
    6363    ($sqlhost, $sqluser, $sqlpass) = split(/\s/, $getpwd);
    6464   
    65     $sqldb=`/mit/scripts/sql/bin$scriptsdev/get-next-database "$addrlast"`;
    66     $sqldb=`/mit/scripts/sql/bin$scriptsdev/create-database "$sqldb"`;
     65    $sqldb=system("/mit/scripts/sql/bin$scriptsdev/get-next-database", $addrlast);
     66    $sqldb=system("/mit/scripts/sql/bin$scriptsdev/create-database", $sqldb);
    6767    if($sqldb eq "") {
    6868      print "\nERROR:\n";
     
    7272      print "If you cannot determine the cause of the problem, please\n";
    7373      print "feel free to contact sql\@mit.edu for assistance.\n";
    74       `touch .failed`;
     74      open FAILED, ">.failed";
     75      close FAILED;
    7576      exit 1;
    7677    }
     
    8081 
    8182  if(-e "$HOME/web_scripts/$addrend/.admin") {
    82     $admin_password=`cat $HOME/web_scripts/$addrend/.admin`;
     83    open ADMIN, "<$HOME/web_scripts/$addrend/.admin";
     84    $admin_password=<ADMIN>;
    8385    chomp($admin_password);
     86    close ADMIN;
    8487    unlink "$HOME/web_scripts/$addrend/.admin";
    8588  }
     
    9598  print VERSION dirname($tarball), "\n";
    9699  close(VERSION);
    97   if (0) {
    98       `date > .scripts-version`;
    99       `stat /mit/scripts/deploy$scriptsdev/$deploy.tar.gz >> .scripts-version`;
    100   }
    101100
    102101  select STDOUT;
Note: See TracChangeset for help on using the changeset viewer.