X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FSpot.pm;h=b8efd3d17c7af576ef387c908e41acfbb3eef8d5;hp=e7227ab1b2cdff4e313b95266b935756e2d0d5c5;hb=cd5b993f99b52d3c3c51779e9ea1fa150232225e;hpb=2292ddaa6a89373d07cbe9e6f235ab2bb45b1e92

diff --git a/perl/Spot.pm b/perl/Spot.pm
index e7227ab1..b8efd3d1 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -161,7 +161,7 @@ sub prefix
 # fix up the full spot data from the basic spot data
 sub prepare
 {
-	# $freq, $call, $t, $comment, $spotter = @_
+	# $freq, $call, $t, $comment, $spotter, node, ip address = @_
 	my @out = @_[0..4];      # just up to the spotter
 
 	# normalise frequency
@@ -180,7 +180,9 @@ sub prepare
 	my @spt = Prefix::cty_data($out[4]);
 	push @out, $spt[0];
 	push @out, $_[5];
-	return (@out, @spd[1,2], @spt[1,2], $spd[3], $spt[3]);
+	push @out, @spd[1,2], @spt[1,2], $spd[3], $spt[3];
+	push @out, $_[6] if $_[6] && is_ipaddr($_[6]);
+	return @out;
 }
 
 sub add