From aac4d7dbc1d3c34bf73147a679673d346894984f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 6 Jan 2002 18:11:48 +0000
Subject: [PATCH] increase interval between auto for/opers and add up to 9 days
 of randomi- ness.

---
 Changes               | 2 ++
 perl/DXCommandmode.pm | 4 ++--
 perl/DXMsg.pm         | 2 +-
 perl/DXUser.pm        | 2 +-
 4 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 16d68507..1b8b9351 100644
--- a/Changes
+++ b/Changes
@@ -8,6 +8,8 @@
 list of commands in "<cmd>") to a file.
 7. Add a new command "echo" which echos its argument to the screen (useful
 for titling in the save command above.
+8. Increase interval between logins causing for/opernam to 60 days (from 30)
++ a random factor between 0 and 9
 02Jan02=======================================================================
 1. updated the copyright dates
 2. modernised and extended the Windows instructions a bit.
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 4601ec21..d562437a 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -155,9 +155,9 @@ 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 + $DXUser::lastoperinterval < $main::systime) {
+	if ($homenode eq $main::mycall && $main::systime >= $lastoper + $DXUser::lastoperinterval) {
 		run_cmd($main::me, "forward/opernam $call");
-		$user->lastoper($main::systime);
+		$user->lastoper($main::systime + ((int rand(10)) * 86400));
 	}
 
 	# run a script send the output to the punter
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bb80e6c1..ff9d45aa 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -724,7 +724,7 @@ sub queue_msg
 			$ref->stop_msg($node);
 			
 			# delay any outgoing messages that fail
-			$ref->{waitt} = $main::systime + $waittime + rand(120) if $node ne $main::mycall;
+			$ref->{waitt} = $main::systime + $waittime + int rand(120) if $node ne $main::mycall;
 			delete $ref->{lastt};
 			next;
 		}
diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index b996e5c5..bfc861de 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -28,7 +28,7 @@ use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime);
 %u = ();
 $dbm = undef;
 $filename = undef;
-$lastoperinterval = 30*24*60*60;
+$lastoperinterval = 60*24*60*60;
 $lasttime = 0;
 
 # hash of valid elements and a simple prompt
-- 
2.34.1