From dd6f2237fd4d45b8e6686cb4a9cfe57e30c8377c Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 16 Aug 2001 21:56:14 +0000
Subject: [PATCH] now get it right!
---
perl/DXCommandmode.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 8dcb9b6c..6258acb4 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -128,7 +128,7 @@ sub start
# do we need to send a forward/opernam?
my $lastoper = $user->lastoper || 0;
my $homenode = $user->homenode || "";
- if ($homenode eq $main::mycall && $lastoper < $main::systime + $DXUser::lastoperinterval) {
+ if ($homenode eq $main::mycall && $lastoper + $DXUser::lastoperinterval < $main::systime) {
run_cmd($DXProt::me, "forward/opernam $call");
$user->lastoper($main::systime);
}
--
2.43.0