From 7dab23babce4a0e1a17e18a1d9b8146d342c75cc Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 31 Jan 1999 13:31:24 +0000 Subject: [PATCH] added load baddx.pl badmsg.pl --- cmd/load/baddx.pl | 8 ++++++++ cmd/load/badmsg.pl | 8 ++++++++ 2 files changed, 16 insertions(+) create mode 100644 cmd/load/baddx.pl create mode 100644 cmd/load/badmsg.pl diff --git a/cmd/load/baddx.pl b/cmd/load/baddx.pl new file mode 100644 index 00000000..3a1dbef3 --- /dev/null +++ b/cmd/load/baddx.pl @@ -0,0 +1,8 @@ +# reload the baddx file +my $self = shift; +my @out; +return (0, $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); diff --git a/cmd/load/badmsg.pl b/cmd/load/badmsg.pl new file mode 100644 index 00000000..44689b54 --- /dev/null +++ b/cmd/load/badmsg.pl @@ -0,0 +1,8 @@ +# reload the badmsg file +my $self = shift; +my @out; +return (0, $self->msg('e5')) if $self->priv < 9; +do "$main::data/badmsg.pl" if -e "$main::data/badmsg.pl"; +push @out, $@ if $@; +@out = ($self->msg('ok')) unless @out; +return (1, @out); -- 2.43.0