projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
f531b1f
)
added a {lastt} and reducing queueing interval
author
djk
<djk>
Sat, 10 Jul 1999 14:39:34 +0000
(14:39 +0000)
committer
djk
<djk>
Sat, 10 Jul 1999 14:39:34 +0000
(14:39 +0000)
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 94ee829850aec16bf1665fa34bbbff667bb6a0d2..5ab8d4af5dbc60804707884f9001f15fd714283f 100644
(file)
--- 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
@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;
$lastq = 0;
@@
-649,6
+649,7
@@
sub start_msg
$self->{fromnode} = $main::mycall;
$busy{$self->{tonode}} = $self;
$work{$self->{tonode}} = $self;
$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}));
}
$dxchan->send(DXProt::pc28($self->{tonode}, $self->{fromnode}, $self->{to}, $self->{from}, $self->{t}, $self->{private}, $self->{subject}, $self->{origin}, $self->{rrreq}));
}