cmd/dbcreate.pl

   1 #!/usr/bin/perl
   2 #
   3 # Database update routine
   4 #
   5 # Copyright (c) 1999 Dirk Koopman G1TLH
   6 #
   7 my ($self, $line) = @_;
   8 my ($name, $remote) = split /\s+/, $line;
   9 my @out;
  10
  11 return (1, $self->msg('e5')) if $self->priv < 9;
  12
  13 return (1, $self->msg('db6', $name)) if DXDb::getdesc($name);
  14 DXDb::new($name, $remote);
  15 push @out, $self->msg($remote ? 'db7' : 'db8', $name, $remote);
  16 return (1, @out);