From 00a2286d015f9c14bca150de6957057588b4a0f6 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 19 Feb 2005 02:49:31 +0000
Subject: [PATCH] add aranea stuff

---
 perl/Aranea.pm    | 1 +
 perl/Thingy/Rt.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

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};
 }
-- 
2.34.1