- return;
- }
-
- if ($pcno == 37) {last SWITCH;}
-
- if ($pcno == 38) { # node connected list from neighbour
- return;
- }
-
- if ($pcno == 39) { # incoming disconnect
- $self->disconnect();
- return;
- }
-
- if ($pcno == 41) { # user info
- # add this station to the user database, if required
- $field[1] =~ s/-\d+$//o;
- my $user = DXUser->get_current($field[1]);
- $user = DXUser->new($field[1]) if !$user;
-
- if ($field[2] == 1) {
- $user->name($field[3]);
- } elsif ($field[2] == 2) {
- $user->qth($field[3]);
- } elsif ($field[2] == 3) {
- my ($latd, $latm, $latl, $longd, $longm, $longl) = split /\s+/, $field[3];
- $longd += ($longm/60);
- $longd = 0-$longd if (uc $longl) eq 'W';
- $user->long($longd);
- $latd += ($latm/60);
- $latd = 0-$latd if (uc $latl) eq 'S';
- $user->lat($latd);
- } elsif ($field[2] == 4) {
- $user->node($field[3]);
- }
- $user->put;
- last SWITCH;
- }
- if ($pcno == 43) {last SWITCH;}
- if ($pcno == 44) {last SWITCH;}
- if ($pcno == 45) {last SWITCH;}
- if ($pcno == 46) {last SWITCH;}
- if ($pcno == 47) {last SWITCH;}
- if ($pcno == 48) {last SWITCH;}
- if ($pcno == 49) {last SWITCH;}
-
- if ($pcno == 50) { # keep alive/user list
- my $ref = DXCluster->get($field[1]);
- $ref->update_users($field[2]) if $ref;
- last SWITCH;
- }
-
- if ($pcno == 51) { # incoming ping requests/answers
-
- # is it for us?
- if ($field[1] eq $main::mycall) {
- my $flag = $field[3];
- $flag ^= 1;
- $self->send($self->pc51($field[2], $field[1], $flag));
- } else {
- # route down an appropriate thingy
- route($field[1], $line);
- }
- return;