From: minima Date: Sat, 19 Feb 2005 02:49:31 +0000 (+0000) Subject: add aranea stuff X-Git-Tag: R_1_52~188 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=00a2286d015f9c14bca150de6957057588b4a0f6;p=spider.git add aranea stuff --- 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; diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index ab831de2..69cf3ca2 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -28,7 +28,9 @@ sub gen_Aranea 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}; }