From: minima <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};
 }