]> dxcluster.net Git - spider.git/commitdiff
add aranea stuff
authorminima <minima>
Sat, 19 Feb 2005 02:49:31 +0000 (02:49 +0000)
committerminima <minima>
Sat, 19 Feb 2005 02:49:31 +0000 (02:49 +0000)
perl/Aranea.pm
perl/Thingy/Rt.pm

index bbe24bbd5194e7cd9c565cf9dfb5318564377601..52c622b0088b532877d78c9ff6f1a2c0558b8d7b 100644 (file)
@@ -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;
        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;
        $r .= ",$from" if $from;
        $seqno++;
        $seqno = 0 if $seqno > 0x0ffff;
index ab831de286a1dd43132812b2bec961e7d7b31f9a..69cf3ca2ac39f021b54e699e735071be683ebd90 100644 (file)
@@ -28,7 +28,9 @@ sub gen_Aranea
        my $thing = shift;
        unless ($thing->{Aranea}) {
                my @items;
        my $thing = shift;
        unless ($thing->{Aranea}) {
                my @items;
-               $thing->{Aranea} = Aranea::genmsg($thing, 'RT', @items);
+               push @items, 't', $thing->{t} if $thing->{t};
+               push @items, 'd', $thing->{d} if $thing->{d};
+               $thing->{Aranea} = Aranea::genmsg($thing, 'RT');
        }
        return $thing->{Aranea};
 }
        }
        return $thing->{Aranea};
 }