--- nfo/perl/scripts/umltools/uml_setup.pl	2002/11/03 01:20:19	1.2
+++ nfo/perl/scripts/umltools/uml_setup.pl	2004/09/20 22:08:17	1.4
@@ -195,7 +195,7 @@
   system(\"$sudo -u $owner $uml_boot --start --vhost=$vhost_name\");
 }
 if (\$action eq \"stop\") {
-  system(\"$uml_boot --stop --vhost=$vhost_name\");
+  system(\"$uml_boot --kill --vhost=$vhost_name\");
 }
 ";
 
@@ -205,12 +205,12 @@
 
   # runlevel init scripts
   $filename = "$runlevel_base/S30$daemon";
-  $cmd = "rm $filename; ln $initscript_path -s $filename";
+  $cmd = "test -e $filename && rm $filename; ln $initscript_path -s $filename";
   askCmd("do it?", $cmd, "create $filename");
   chmod S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, $filename;
 
   $filename = "$runlevel_base/K01$daemon";
-  $cmd = "rm $filename; ln $initscript_path -s $filename";
+  $cmd = "test -e $filename && rm $filename; ln $initscript_path -s $filename";
   askCmd("do it?", $cmd, "create $filename");
   chmod S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, $filename;