- 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";
- }
- }