2 # VE7CC variations for DXCommandmode
4 # This is done this way because a) there aren't very many and
5 # b) because it isn't easy to reliably rebless the object in
21 use vars qw($VERSION $BRANCH);
22 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
23 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
24 $main::build += $VERSION;
25 $main::branch += $BRANCH;
29 my $self = shift; # this may be useful some day
34 # remove interface callsign;
37 my $spotted_cc = (Prefix::cty_data($spotted))[5];
38 my $spotter_cc = (Prefix::cty_data($_[1]))[5];
40 return sprintf("CC11^%0.1f^%s^", $freq, $spotted) . join('^', cldate($t), ztime($t), @_, $spotter_cc, $spotted_cc);