spider/cmd/debug.pl

#
# go INSTANTLY into debug mode (if you are in the debugger!)
#
# remember perl -d cluster.pl to use this
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
# $Id$
#

my $self = shift;
return (1, $self->msg('e5')) if $self->priv < 9;

$DB::single = 1;
a mostly working send message implementation also added set privilege debug sb sp 1998-10-03 22:30:56 +00:00			`#`
			`# go INSTANTLY into debug mode (if you are in the debugger!)`
			`#`
			`# remember perl -d cluster.pl to use this`
			`#`
			`# Copyright (c) 1998 Dirk Koopman G1TLH`
			`#`
			`# $Id$`
			`#`

			`my $self = shift;`
1. Added msg command to allow the changing of To, From, Subject and so on the messages. This seems particularly important just now as a whole raft of G3's seem to be putting out non private bulls to callsigns. 2. While I am at set messages to TO fields that appear to be users to private if they have been sent as bulls. 3. Add DISTROs, if a callsign field appears in /spider/msg/distro in upper use that as a list of callsigns to send further. Note this is potentially recursive as callsigns in a distro can be distros. 1999-08-29 20:18:29 +00:00			`return (1, $self->msg('e5')) if $self->priv < 9;`
a mostly working send message implementation also added set privilege debug sb sp 1998-10-03 22:30:56 +00:00
			`$DB::single = 1;`