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

fix the process issues so that xml pings are automatically sent

Browse Source
This commit is contained in:
minima 2006-01-11 22:41:25 +00:00
parent 0dc2041f5f
commit 84c9ab90df
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
perl/DXXml.pm
View File

@ -90,8 +90,44 @@ sub normal
#
# note that this a function not a method
#
my $last10;
my $last_hour;
sub process
{
my $t = time;
my @dxchan = DXChannel::get_all();
my $dxchan;
foreach $dxchan (@dxchan) {
next unless $dxchan->is_node;
next unless $dxchan->handle_xml;
next if $dxchan == $main::me;
# send a ping out on this channel
if ($dxchan->{pingint} && $t >= $dxchan->{pingint} + $dxchan->{lastping}) {
if ($dxchan->{nopings} <= 0) {
$dxchan->disconnect;
} else {
DXXml::Ping::add($main::me, $dxchan->call);
$dxchan->{nopings} -= 1;
$dxchan->{lastping} = $t;
$dxchan->{lastping} += $dxchan->{pingint} / 2 unless @{$dxchan->{pingtime}};
}
}
}
# every ten seconds
if (!$last10 || $t - $last10 >= 10) {
$last10 = $t;
}
# every hour
if (!$last_hour || $main::systime - 3600 > $last_hour) {
$last_hour = $main::systime;
}
}