# reload the baddx file
my $self = shift;
my @out;
return (1, $self->msg('e5')) if $self->priv < 9;
do "$main::data/baddx.pl" if -e "$main::data/baddx.pl";
push @out, $@ if $@;
@out = ($self->msg('ok')) unless @out;
return (1, @out); 
