X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdbcreate.pl;h=837141e2142ddaf601229e373335afe6f8cf6d86;hb=51fc2b9134d2e3bf91daf970c36bb8a80590e34f;hp=8f47b63f6cc71fa063a6779e89990d8b4e100fdc;hpb=97ed91562320bf23d3ca62194a732fb9d89bb8ba;p=spider.git

diff --git a/cmd/dbcreate.pl b/cmd/dbcreate.pl
index 8f47b63f..837141e2 100644
--- a/cmd/dbcreate.pl
+++ b/cmd/dbcreate.pl
@@ -14,12 +14,17 @@ return (1, $self->msg('db6', $name)) if DXDb::getdesc($name);
 
 my $remote;
 my $chain;
+my $cmd;
 while (@f) {
 	my $f = lc shift @f;
 	if ($f eq 'remote') {
 		$remote = uc shift @f if @f;
 		next;
 	}
+	if ($f eq 'cmd') {
+		$cmd = lc shift @f if @f;
+		next;
+	}
 	if ($f eq 'chain') {
 		if (@f) {
 			$chain = [ @f ];
@@ -27,6 +32,6 @@ while (@f) {
 		}
 	}
 }
-DXDb::new($name, $remote, $chain);
+DXDb::new($name, $remote, $chain, $cmd);
 push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
 return (1, @out);