Changeset 467 for locker/deploy


Ignore:
Timestamp:
Oct 14, 2007, 12:23:31 AM (17 years ago)
Author:
andersk
Message:
Right.
File:
1 edited

Legend:

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

    r466 r467  
    9191    print "\nCreating SQL database for $sname...\n";
    9292   
    93     my $getpwd=system("/mit/scripts/sql/bin$scriptsdev/get-password");
    94     ($sqlhost, $sqluser, $sqlpass) = split(/\s/, $getpwd);
    95    
    96     $sqldb=system("/mit/scripts/sql/bin$scriptsdev/get-next-database", $addrlast);
    97     $sqldb=system("/mit/scripts/sql/bin$scriptsdev/create-database", $sqldb);
     93    open GETPWD, '-|', "/mit/scripts/sql/bin$scriptsdev/get-password";
     94    ($sqlhost, $sqluser, $sqlpass) = split(/\s/, <GETPWD>);
     95    close GETPWD;
     96    open SQLDB, '-|', "/mit/scripts/sql/bin$scriptsdev/get-next-database", $addrlast;
     97    $sqldb = <SQLDB>;
     98    close SQLDB;
     99    open SQLDB, '-|', "/mit/scripts/sql/bin$scriptsdev/create-database", $sqldb;
     100    $sqldb = <SQLDB>;
     101    close SQLDB;
    98102    if($sqldb eq "") {
    99103      print "\nERROR:\n";
Note: See TracChangeset for help on using the changeset viewer.