cmd/load/baddx.pl

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