# $Id$
#
-my $self = shift;
+my ($self, $line) = @_;
my @out;
return (1, $self->msg('e5')) if $self->priv < 9;
-push @out, (USDB::load());
-@out = ($self->msg('ok')) unless @out;
+my $r = USDB::load($line) if $line;
+USDB::init() if undef $r || $r =~ /^\d+ rec/;
return (1, @out);