swop.pl

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