projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make the character handling better for spanish?
[spider.git]
/
cmd
/
dbcreate.pl
diff --git
a/cmd/dbcreate.pl
b/cmd/dbcreate.pl
index 5ef4fe7d3890224aafc61f28d931b592292b5f76..8f47b63f6cc71fa063a6779e89990d8b4e100fdc 100644
(file)
--- a/
cmd/dbcreate.pl
+++ b/
cmd/dbcreate.pl
@@
-5,12
+5,28
@@
# Copyright (c) 1999 Dirk Koopman G1TLH
#
my ($self, $line) = @_;
# 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;
my @out;
return (1, $self->msg('e5')) if $self->priv < 9;
-
return (1, $self->msg('db6', $name)) if DXDb::getdesc($name);
return (1, $self->msg('db6', $name)) if DXDb::getdesc($name);
-DXDb::new($name, $remote);
+
+my $remote;
+my $chain;
+while (@f) {
+ my $f = lc shift @f;
+ if ($f eq 'remote') {
+ $remote = uc shift @f if @f;
+ next;
+ }
+ if ($f eq 'chain') {
+ if (@f) {
+ $chain = [ @f ];
+ last;
+ }
+ }
+}
+DXDb::new($name, $remote, $chain);
push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
return (1, @out);
push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
return (1, @out);