- my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
- my ($scall, $ssid) = split /-/, $call;
-
- # adjust the callsign if it has an SSID, SSID <= 8 are legal > 8 are netrom connections
- if ($ssid) {
- $ssid = 15 if $ssid > 15;
- if ($ssid > 8) {
- $ssid = 15 - $ssid;
- $call = "$scall-$ssid";
- }
- }
+ my ($sort, $call, $line) = DXChannel::decode_input(0, $msg);
+ return unless defined $sort;