X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=c00219ecd780b4354d79fb4d61403ca017fb76ed;hb=fe5f655526588af1e7048c7ef570072eace383f5;hp=6ff479c1b61d9afee3b732b6687ce56bc29cb7be;hpb=9b250c2488bfab7fa9fdc6c90d2dd5d285f5aa34;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 6ff479c1..c00219ec 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -32,26 +32,23 @@ use DXHash; use Route; use Route::Node; use Script; -use Investigate; use RouteDB; use DXProtHandle; use strict; use vars qw($VERSION $BRANCH); -$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); -$main::build += $VERSION; -$main::branch += $BRANCH; - use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restime $eph_pc34_restime $last_hour $last10 %eph %pings %rcmds $ann_to_talk $pingint $obscount %pc19list $chatdupeage $chatimportfn $investigation_int $pc19_version $myprot_version %nodehops $baddx $badspotter $badnode $censorpc $rspfcheck $allowzero $decode_dk0wcy $send_opernam @checklist + $eph_pc15_restime $pc92_update_period $last_pc92_update ); +($VERSION, $BRANCH) = dxver(q$Revision$); + $pc11_max_age = 1*3600; # the maximum age for an incoming 'real-time' pc11 $pc23_max_age = 1*3600; # the maximum age for an incoming 'real-time' pc23 @@ -70,6 +67,7 @@ $ann_to_talk = 1; $rspfcheck = 1; $eph_restime = 180; $eph_info_restime = 60*60; +$eph_pc15_restime = 6*60; $eph_pc34_restime = 30; $pingint = 5*60; $obscount = 2; @@ -77,6 +75,9 @@ $chatdupeage = 20 * 60 * 60; $chatimportfn = "$main::root/chat_import"; $investigation_int = 12*60*60; # time between checks to see if we can see this node $pc19_version = 5466; # the visible version no for outgoing PC19s generated from pc59 +$pc92_update_period = 30*60; # the period between PC92 C updates +$last_pc92_update = time + int rand(180); # the last time a PC92 config update + @checklist = ( @@ -220,6 +221,8 @@ sub init $main::me->{registered} = 1; $main::me->{version} = $main::version; $main::me->{build} = $main::build; + $main::me->{do_pc92} = 1; + $main::me->{via_pc92} = 1; } # @@ -427,8 +430,13 @@ sub process eph_clean(); import_chat(); - + if ($main::systime >= $last_pc92_update + $pc92_update_period) { + send_pc92_update(); + time_out_pc92_routes(); + $last_pc92_update = $main::systime + int rand(180); + } + $last10 = $t; } @@ -763,16 +771,87 @@ sub send_local_config } } -sub send_pc92_config +sub gen_pc92_update { my $self = shift; + my $with_pc92_nodes = shift; my $node; + my @lines; + + dbg('DXProt::send_pc92_update') if isdbg('trace'); + + # send 'my' configuration for all users and pc92 capable nodes + my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all(); + my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan; + push @lines, pc92c($main::routeroot, @localnodes); + + + if ($with_pc92_nodes) { + # send out the configuration of all the directly connected PC92 nodes with current configuration + # but with the dates that the last config came in with. + @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc92} } DXChannel::get_all_nodes(); + @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan; + foreach $node (@localnodes) { + if ($node && $node->lastid->{92}) { + my @rout = map {my $r = Route::get($_); $r ? ($r) : ()} $node->nodes, $node->users; + push @lines, gen_pc92_with_time($node->call, 'C', $node->lastid->{92}, @rout); + } + } + } + + # send the configuration of all the directly connected 'external' nodes that don't handle PC92 + # out with the 'external' marker on the first node. + @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && !$_->{do_pc92} } DXChannel::get_all_nodes(); + @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan; + foreach $node (@localnodes) { + if ($node) { + my @rout = map {my $r = Route::User::get($_); $r ? ($r) : ()} $node->users; + push @lines, pc92c($node, @rout); + } + } + return @lines; +} + + +sub send_pc92_config +{ + my $self = shift; dbg('DXProt::send_pc92_config') if isdbg('trace'); + + my @out = $self->gen_pc92_update(1); - my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all(); - my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan if @dxchan; - $self->send_route_pc92($main::mycall, \&pc92c, scalar @localnodes, @localnodes); + # send the complete config out on this interface + for (@out) { + $self->send($_); + } +} + +sub send_pc92_update +{ + my @out = $main::me->gen_pc92_update(0); + + # broadcast the lines to all PC92 nodes + for (@out) { + $main::me->broadcast_route_pc9x('', undef, $_, 0); + } +} + +sub time_out_pc92_routes +{ + my @nodes = grep {$_->do_pc92 || $_->via_pc92} Route::Node::get_all(); + my @rdel; + foreach my $n (@nodes) { + if ($n->dec_obs <= 0) { + my @parents = map {Route::Node::get($_)} $n->parents; + for (@parents) { + push @rdel, $n->del($_) if $_; + } + } + } + for (@rdel) { + $main::me->route_pc21($main::mycall, undef, $_) if $_; + } } # @@ -1013,7 +1092,7 @@ sub disconnect # broadcast to all other nodes that all the nodes connected to via me are gone unless ($pc39flag && $pc39flag == 2) { $self->route_pc21($main::mycall, undef, @rout) if @rout; - $self->route_pc92d($main::mycall, undef, $node) if $node; + $self->route_pc92d($main::mycall, undef, $main::routeroot, $node) if $node; } # remove outstanding pings @@ -1146,11 +1225,11 @@ sub broadcast_route_pc9x $line = &$generate(@_); } - $line =~ /\^H(\d+)\^$/; + $line =~ /\^H(\d+)\^\~?$/; unless ($1 > 0 && $self->{isolate}) { foreach $dxchan (@dxchan) { - next if $dxchan == $self; - next if $dxchan == $main::me; + next if $dxchan == $self || $main::me; + next if $origin eq $dxchan->{call}; # don't route some from this call back again. next unless $dxchan->{do_pc92}; next unless $dxchan->isa('DXProt');