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 ];
}
}
}
-DXDb::new($name, $remote, $chain);
+DXDb::new($name, $remote, $chain, $cmd);
push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
return (1, @out);