projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
27b7373
)
add aranea stuff
author
minima
<minima>
Sat, 19 Feb 2005 02:49:31 +0000
(
02:49
+0000)
committer
minima
<minima>
Sat, 19 Feb 2005 02:49:31 +0000
(
02:49
+0000)
perl/Aranea.pm
patch
|
blob
|
history
perl/Thingy/Rt.pm
patch
|
blob
|
history
diff --git
a/perl/Aranea.pm
b/perl/Aranea.pm
index bbe24bbd5194e7cd9c565cf9dfb5318564377601..52c622b0088b532877d78c9ff6f1a2c0558b8d7b 100644
(file)
--- 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;
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;
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index ab831de286a1dd43132812b2bec961e7d7b31f9a..69cf3ca2ac39f021b54e699e735071be683ebd90 100644
(file)
--- 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;
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};
}