mg-hosts: replace copy command with create-like

diff --git a/mg-hosts b/mg-hosts
index 37888261c6dd70e34ea5e32b35575df4d6b06c55..f9790a5f456d89e4b71888e5a3ca1c5ebe06f38c 100755 (executable)
--- a/mg-hosts
+++ b/mg-hosts
@@ -54,7 +54,7 @@ END
     }
 }
 
-sub cmd_copy () {
+sub cmd_create_like () {
     die unless @ARGV==2;
     my ($src,$dsts) = @ARGV;
 
@@ -70,13 +70,6 @@ sub cmd_copy () {
                          AS owntaskid
                   FROM resources
                  WHERE restype='host' AND resname=?
-END
-            $dbh_tests->do(<<END,{}, $dst,$src);
-                INSERT INTO hostflags
-                SELECT ? AS hostname,
-                       hostflag
-                  FROM hostflags
-                 WHERE hostname=?
 END
         }
     });
@@ -405,6 +398,7 @@ END
 
 die unless @ARGV;
 my $subcmd= shift @ARGV;
+$subcmd =~ s/-/_/g;
 my $subcmdproc;
 {
     $subcmdproc= \&{ "cmd_$subcmd" };