From aac4d7dbc1d3c34bf73147a679673d346894984f Mon Sep 17 00:00:00 2001 From: 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 "") 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.43.0