-#!/usr/bin/perl -w
+#!/usr/bin/env perl
#
# this is the operators console.
#
#
require 5.004;
+use warnings;
# search local then perl directories
BEGIN {
$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
}
+$clusteraddr = '127.0.0.1';
+$clusterport = 27754;
+
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;