2 # Generate route Thingies
6 # Copyright (c) 2004 Dirk Koopman G1TLH
13 use vars qw($VERSION $BRANCH);
14 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
15 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
16 $main::build += $VERSION;
17 $main::branch += $BRANCH;
23 # this is node connect
30 my $t = $pkg->SUPER::new(_fromnode=>$fromnode, _msgid=>$msgid,
32 t=>'nc', n=>join('|', @_));
36 # this is node disconnect
37 sub new_node_disconnect
43 my $t = $pkg->SUPER::new(_fromnode=>$fromnode, _msgid=>$msgid,
45 t=>'nd', n=>join('|', @_));
55 my @nodes = grep {$_ ne $main::mycall} DXChannel::get_all_node_calls();
56 my @users = DXChannel::get_all_user_calls();
58 my $t = $pkg->SUPER::new(_msgid=>$msgid, t=>'nu',
59 id=>"DXSpider $main::version $main::build",
60 n=>join('|', @nodes), u=>join('|', @users));