fix long callsign checking

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 9fa0086ffa1e5595978a4309638f08d38f61b8f5..8e8f7fd06ea7f29941ea746d2359432540a836e1 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -299,6 +299,7 @@ sub dup
        return 2 if $d < $main::systime - $dupage;
  
        $freq = sprintf "%.1f", $freq;       # normalise frequency
+       $call = substr($call, 0, 12) if length $call > 12;
        chomp $text;
        $text =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
        $text = substr($text, 0, $duplth) if length $text > $duplth;