mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
9e2fbafcfd
6. Put in the initial DB code (at last), you can create and remove local and standard remote dbs, you can import AK1A style .FUL ascii databases, you can enquire on a local or remote database. 7. A return ping to a node will clear down all outstanding pings to that node (which might cause some confusion if more then one ping is outstanding for a node, but then - shit happens)
19 lines
354 B
Perl
19 lines
354 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# Database update routine
|
|
#
|
|
# Copyright (c) 1999 Dirk Koopman G1TLH
|
|
#
|
|
my ($self, $line) = @_;
|
|
my ($name) = split /\s+/, $line;
|
|
my @out;
|
|
|
|
return (1, $self->msg('e5')) if $self->priv < 9;
|
|
my $db = DXDb::getdesc($name);
|
|
|
|
return (1, $self->msg('db3', $name)) unless $db;
|
|
$db->delete;
|
|
push @out, $self->msg('db9', $name);
|
|
|
|
return (1, @out);
|