spider/cmd/load/swop.pl
djk a8b7d0b77f added swop file
extended badmsg file to allow regexes on various fields
detail changes to all load/* commands
1999-11-24 15:27:38 +00:00

8 lines
190 B
Perl

# reload the swop file
my $self = shift;
my @out;
return (1, $self->msg('e5')) if $self->priv < 9;
push @out, (DXMsg::load_swop());
@out = ($self->msg('ok')) unless @out;
return (1, @out);