3 # Database update routine
5 # Copyright (c) 1999 Dirk Koopman G1TLH
7 my ($self, $line) = @_;
8 my @f = split /\s+/, $line;
9 my $name = shift @f if @f;
12 return (1, $self->msg('e5')) if $self->priv < 9;
13 return (1, $self->msg('db6', $name)) if DXDb::getdesc($name);
21 $remote = uc shift @f if @f;
25 $cmd = lc shift @f if @f;
35 DXDb::new($name, $remote, $chain, $cmd);
36 push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);