Index: locker/deploy/bin/onserver.pm
===================================================================
--- locker/deploy/bin/onserver.pm	(revision 457)
+++ locker/deploy/bin/onserver.pm	(revision 462)
@@ -60,9 +60,9 @@
     print "\nCreating SQL database for $sname...\n";
    
-    my $getpwd=`/mit/scripts/sql/bin$scriptsdev/get-password`;
+    my $getpwd=system("/mit/scripts/sql/bin$scriptsdev/get-password");
     ($sqlhost, $sqluser, $sqlpass) = split(/\s/, $getpwd);
     
-    $sqldb=`/mit/scripts/sql/bin$scriptsdev/get-next-database "$addrlast"`;
-    $sqldb=`/mit/scripts/sql/bin$scriptsdev/create-database "$sqldb"`;
+    $sqldb=system("/mit/scripts/sql/bin$scriptsdev/get-next-database", $addrlast);
+    $sqldb=system("/mit/scripts/sql/bin$scriptsdev/create-database", $sqldb);
     if($sqldb eq "") {
       print "\nERROR:\n";
@@ -72,5 +72,6 @@
       print "If you cannot determine the cause of the problem, please\n";
       print "feel free to contact sql\@mit.edu for assistance.\n";
-      `touch .failed`;
+      open FAILED, ">.failed";
+      close FAILED;
       exit 1;
     }
@@ -80,6 +81,8 @@
  
   if(-e "$HOME/web_scripts/$addrend/.admin") { 
-    $admin_password=`cat $HOME/web_scripts/$addrend/.admin`;
+    open ADMIN, "<$HOME/web_scripts/$addrend/.admin";
+    $admin_password=<ADMIN>;
     chomp($admin_password);
+    close ADMIN;
     unlink "$HOME/web_scripts/$addrend/.admin";
   } 
@@ -95,8 +98,4 @@
   print VERSION dirname($tarball), "\n";
   close(VERSION);
-  if (0) {
-      `date > .scripts-version`;
-      `stat /mit/scripts/deploy$scriptsdev/$deploy.tar.gz >> .scripts-version`;
-  }
 
   select STDOUT;