add aranea stuff

[spider.git] / perl / Aranea.pm

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index bbe24bbd5194e7cd9c565cf9dfb5318564377601..52c622b0088b532877d78c9ff6f1a2c0558b8d7b 100644 (file)
--- 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;