From 00a2286d015f9c14bca150de6957057588b4a0f6 Mon Sep 17 00:00:00 2001 From: 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.43.0