;
} elsif ($notincalls && ($f eq 'RR')) {
$loc->{rrreq} = '1';
+ } elsif ($f eq '<' && @f) { # this is bbs syntax for from call
+ $loc->{from} = uc shift @f;
+ } elsif ($f eq '@' && @f) { # this is bbs syntax, for origin
+ $loc->{origin} = uc shift @f;
+ } elsif ($f =~ /^\$/) { # this is bbs syntax for a bid
+ next;
+ } elsif ($f =~ /^<\S+/) { # this is bbs syntax for from call
+ ($loc->{from}) = $f =~ /^<(\S+)$/;
+ } elsif ($f =~ /^\@\S+/) { # this is bbs syntax for origin
+ ($loc->{origin}) = $f =~ /^\@(\S+)$/;
} else {
# callsign ?
$self->func("DXMsg::do_send_stuff");
$self->state('send1');
push @out, $self->msg('m1');
+} else {
+ push @out, $self->msg('m17', $self->state);
}
return (1, @out);