X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdbcreate.pl;h=837141e2142ddaf601229e373335afe6f8cf6d86;hb=51fc2b9134d2e3bf91daf970c36bb8a80590e34f;hp=5ef4fe7d3890224aafc61f28d931b592292b5f76;hpb=9e2fbafcfdab1ee45e581524311f1a97ac41f6ad;p=spider.git

diff --git a/cmd/dbcreate.pl b/cmd/dbcreate.pl
index 5ef4fe7d..837141e2 100644
--- a/cmd/dbcreate.pl
+++ b/cmd/dbcreate.pl
@@ -5,12 +5,33 @@
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
 my ($self, $line) = @_;
-my ($name, $remote) = split /\s+/, $line;
+my @f = split /\s+/, $line;
+my $name = shift @f if @f;
 my @out;
 
 return (1, $self->msg('e5')) if $self->priv < 9;
-
 return (1, $self->msg('db6', $name)) if DXDb::getdesc($name);
-DXDb::new($name, $remote);
+
+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 ];
+			last;
+		}
+	}
+}
+DXDb::new($name, $remote, $chain, $cmd);
 push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
 return (1, @out);