summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d6f6422)
This is only relevant for converting old spots into new ones and will only happen once.
It will now convert old <14 field spots to modern 14 field ones (and not only 12 field ones)
while (<$fh>) {
chomp;
my @s = split /\^/;
while (<$fh>) {
chomp;
my @s = split /\^/;
my @a = (Prefix::cty_data($s[1]))[1..3];
my @b = (Prefix::cty_data($s[4]))[1..3];
push @s, $b[1] if @s < 7;
push @s, '' if @s < 8;
push @s, @a[0,1], @b[0,1] if @s < 12;
my @a = (Prefix::cty_data($s[1]))[1..3];
my @b = (Prefix::cty_data($s[4]))[1..3];
push @s, $b[1] if @s < 7;
push @s, '' if @s < 8;
push @s, @a[0,1], @b[0,1] if @s < 12;
- push @s, $a[2], $a[2] if @s < 14;
+ push @s, $a[2], $b[2] if @s < 14;
$main::dbh->spot_insert(\@s, $sth);
$count++;
}
$main::dbh->spot_insert(\@s, $sth);
$count++;
}
push @out, $_[5];
push @out, @spd[1,2], @spt[1,2], $spd[3], $spt[3];
push @out, $_[6] if $_[6] && is_ipaddr($_[6]);
push @out, $_[5];
push @out, @spd[1,2], @spt[1,2], $spd[3], $spt[3];
push @out, $_[6] if $_[6] && is_ipaddr($_[6]);
+
+ # thus we now have:
+ # freq, call, time, comment, spotter, call country code, call itu, call cqzone, spotter country code, spotter itu, spotter cqzone, call state, spotter state, node, spotter ip address