Changeset 467 for locker/deploy

Timestamp:

Oct 14, 2007, 12:23:31 AM (17 years ago)

Author:

andersk

Message:

Right.

File:

• locker/deploy/bin/onserver.pm (modified) (1 diff)

locker/deploy/bin/onserver.pm

@@ -91 +91 @@
     print "\nCreating SQL database for $sname...\n";
    
-    my $getpwd=system("/mit/scripts/sql/bin$scriptsdev/get-password");
-    ($sqlhost, $sqluser, $sqlpass) = split(/\s/, $getpwd);
-    
-    $sqldb=system("/mit/scripts/sql/bin$scriptsdev/get-next-database", $addrlast);
-    $sqldb=system("/mit/scripts/sql/bin$scriptsdev/create-database", $sqldb);
+    open GETPWD, '-|', "/mit/scripts/sql/bin$scriptsdev/get-password";
+    ($sqlhost, $sqluser, $sqlpass) = split(/\s/, <GETPWD>);
+    close GETPWD;
+    open SQLDB, '-|', "/mit/scripts/sql/bin$scriptsdev/get-next-database", $addrlast;
+    $sqldb = <SQLDB>;
+    close SQLDB;
+    open SQLDB, '-|', "/mit/scripts/sql/bin$scriptsdev/create-database", $sqldb;
+    $sqldb = <SQLDB>;
+    close SQLDB;
     if($sqldb eq "") {
       print "\nERROR:\n";