projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added better anti spot-sucking
[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 $remote;
my $chain;
+my $cmd;
while (@f) {
my $f = lc shift @f;
if ($f eq 'remote') {
$remote = uc shift @f if @f;
next;
}
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 ];
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);
push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
return (1, @out);