Index: /locker/deploy/bin/onserver.pm
===================================================================
--- /locker/deploy/bin/onserver.pm	(revision 466)
+++ /locker/deploy/bin/onserver.pm	(revision 467)
@@ -91,9 +91,13 @@
     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";