added the ability for HDB to use sh/qrz remotely

[spider.git] / cmd / dbcreate.pl

diff --git a/cmd/dbcreate.pl b/cmd/dbcreate.pl
index 8f47b63f6cc71fa063a6779e89990d8b4e100fdc..837141e2142ddaf601229e373335afe6f8cf6d86 100644 (file)
--- 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);