my $freq = shift;
my $spotted = shift;
my $t = shift;
+
+ # remove any items above the top of the max spot data
+ pop while @_ > 11;
+
+ # make sure both US states are defined
+ $_[9] ||= '';
+ $_[10] ||= '';
- # remove interface callsign;
- pop;
+ my $spotter_cc = (Prefix::cty_data($spotted))[5];
+ my $spotted_cc = (Prefix::cty_data($_[1]))[5];
- return sprintf("CC11^%0.1f^%s^", $freq, $spotted) . join('^', cldate($t), ztime($t), @_);
+ return sprintf("CC11^%0.1f^%s^", $freq, $spotted) . join('^', cldate($t), ztime($t), @_, $spotter_cc, $spotted_cc);
}
1;