cmd/load/db.pl

   1 #
   2 # Reload the DB list
   3 #
   4 my ($self, $line) = @_;
   5 return (1, $self->msg('e5')) if $self->priv < 9;
   6 DXDb::closeall();
   7 DXDb::load();
   8 return (1, 'Ok');