hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

increase interval between auto for/opers and add up to 9 days of randomi-

Browse Source 
ness.
This commit is contained in:
minima 2002-01-06 18:11:48 +00:00
parent 02177c2906
commit aac4d7dbc1
4 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -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.

4
perl/DXCommandmode.pm
View File

@ -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

2
perl/DXMsg.pm
View File

@ -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;
}

2
perl/DXUser.pm
View File

@ -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