- if ($pcno == 38) {last SWITCH;}
- if ($pcno == 39) {last SWITCH;}
- if ($pcno == 40) {last SWITCH;}
- if ($pcno == 41) {last SWITCH;}
- if ($pcno == 42) {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;
+ }