X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=52c622b0088b532877d78c9ff6f1a2c0558b8d7b;hb=00a2286d015f9c14bca150de6957057588b4a0f6;hp=bbe24bbd5194e7cd9c565cf9dfb5318564377601;hpb=393e17fd3a08dd94596f1c02d4d20f6f9a44954f;p=spider.git

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index bbe24bbd..52c622b0 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -206,6 +206,7 @@ sub genheader
 	my $date = ((($dayno << 1) | $ntpflag) << 18) |  ($main::systime % 86400);
 	my $r = "$mycall," . sprintf('%6X%04X,0', $date, $seqno);
 	$r .= ",$to" if $to;
+	$r .= "," if $from && !$to;
 	$r .= ",$from" if $from;
 	$seqno++;
 	$seqno = 0 if $seqno > 0x0ffff;