From e4a83830dc7e9f06779967a5cb8b837a39872c70 Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 10 Jul 1999 14:39:34 +0000 Subject: [PATCH] added a {lastt} and reducing queueing interval --- perl/DXMsg.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 94ee8298..5ab8d4af 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -44,7 +44,7 @@ $last_clean = 0; # last time we did a clean @forward = (); # msg forward table $timeout = 30*60; # forwarding timeout $waittime = 60*60; # time an aborted outgoing message waits before trying again -$queueinterval = 5*60; # run the queue every 5 minutes +$queueinterval = 2*60; # run the queue every 2 minutes $lastq = 0; @@ -649,6 +649,7 @@ sub start_msg $self->{fromnode} = $main::mycall; $busy{$self->{tonode}} = $self; $work{$self->{tonode}} = $self; + $self->{lastt} = $main::systime; $dxchan->send(DXProt::pc28($self->{tonode}, $self->{fromnode}, $self->{to}, $self->{from}, $self->{t}, $self->{private}, $self->{subject}, $self->{origin}, $self->{rrreq})); } -- 2.43.0