use strict;
+# order here is important - DXDebug snarfs Carp et al so that Mojo errors go into the debug log
+use DXDebug;
+
+use Mojolicious 7.26;
use Mojo::IOLoop;
use Msg;
use ExtMsg;
use AGWConnect;
use AGWMsg;
-use DXDebug;
use DXLog;
use DXLogPrint;
use DXUtil;
use IsoTime;
use BPQMsg;
+
+
use Data::Dumper;
use IO::File;
use Fcntl ':flock';
return;
}
if ($bumpexisting) {
- my $ip = $conn->peerhost || 'unknown';
+ my $ip = $dxchan->hostname;
$dxchan->send_now('D', DXM::msg($lang, 'conbump', $call, $ip));
LogDbg('DXCommand', "$call bumped off by $ip, disconnected");
$dxchan->disconnect;
my $lock = $user->lockout if $user;
if ($baseuser && $baseuser->lockout || $lock) {
if (!$user || !defined $lock || $lock) {
- my $host = $conn->peerhost || "unknown";
+ my $host = $conn->peerhost;
LogDbg('DXCommand', "$call on $host is locked out, disconnected");
$conn->disconnect;
return;
sub idle_loop
{
BPQMsg::process();
+# DXCommandmode::process(); # process ongoing command mode stuff
+# DXProt::process(); # process ongoing ak1a pcxx stuff
if (defined &Local::process) {
eval {
$systime_daystart = $days * 86400;
}
IsoTime::update($systime);
- DXCron::process(); # do cron jobs
DXCommandmode::process(); # process ongoing command mode stuff
- DXXml::process();
DXProt::process(); # process ongoing ak1a pcxx stuff
+ DXCron::process(); # do cron jobs
+ DXXml::process();
DXConnect::process();
DXMsg::process();
DXDb::process();
DXDupe::process();
DXCron::process(); # do cron jobs
IsoTime::update($systime);
- DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();
DXUser::process();
AGWMsg::process();