-#!/usr/bin/perl -w
+#!/usr/bin/env perl
#
# this is the operators console.
#
#
require 5.004;
+use warnings;
# search local then perl directories
BEGIN {
use Mojo::IOLoop;
+use DXVars;
+use SysVar;
+
use Msg;
use IntMsg;
-use DXVars;
use DXDebug;
use DXUtil;
use DXDebug;
my $lastmin = 0;
-$conn = IntMsg->connect($clusteraddr, $clusterport, \&rec_socket);
+$conn = IntMsg->connect($clusteraddr, $clusterport, rproc => \&rec_socket);
$conn->{on_connect} = \&on_connect;
$conn->{on_disconnect} = \&on_disconnect;