-#!/usr/bin/perl -w
+#!/usr/bin/env perl
#
# This is the DX cluster 'daemon'. It sits in the middle of its little
# web of client routines sucking and blowing data where it may.
#
require 5.10.1;
+use warnings;
# make sure that modules are searched in the order local then perl
BEGIN {
$clusterport $mycall $decease $is_win $routeroot $me $reqreg $bumpexisting
$allowdxby $dbh $dsn $dbuser $dbpass $do_xml $systime_days $systime_daystart
$can_encode $maxconnect_user $maxconnect_node $idle_interval $log_flush_interval
+ $broadcast_debug
);
@inqueue = (); # the main input queue, an array of hashes
$idle_interval = 0.500; # the wait between invocations of the main idle loop processing.
$log_flush_interval = 2; # interval to wait between log flushes
-our $ending; # signal that we are ending;
+our $ending; # signal that we are ending;
+our $broadcast_debug; # allow broadcasting of debug info down "enhanced" user connections
+
# send a message to call on conn and disconnect
}
# open the debug file, set various FHs to be unbuffered
- dbginit(\&DXCommandmode::broadcast_debug);
+ dbginit($broadcast_debug ? \&DXCommandmode::broadcast_debug : undef);
foreach (@debug) {
dbgadd($_);
}