projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
00a2286
)
make things appear
author
minima
<minima>
Sat, 19 Feb 2005 02:53:28 +0000
(
02:53
+0000)
committer
minima
<minima>
Sat, 19 Feb 2005 02:53:28 +0000
(
02:53
+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 52c622b0088b532877d78c9ff6f1a2c0558b8d7b..7f0134c33e32bb0b8061d18684245b514d51f6a4 100644
(file)
--- a/
perl/Aranea.pm
+++ b/
perl/Aranea.pm
@@
-326,15
+326,17
@@
sub input
$thing->{user} = $user if $user;
$thing->{hopsaway} = $hop;
$thing->{user} = $user if $user;
$thing->{hopsaway} = $hop;
- for (split(/,/, $rdata)) {
- if (/=/) {
- my ($k,$v) = split /=/, $_, 2;
- $thing->{$k} = tdecode($v);
- } else {
- $thing->{$_} = 1;
+ if ($rdata) {
+ for (split(/,/, $rdata)) {
+ if (/=/) {
+ my ($k,$v) = split /=/, $_, 2;
+ $thing->{$k} = tdecode($v);
+ } else {
+ $thing->{$_} = 1;
+ }
}
}
}
}
-
+
# post process the thing, this generally adds on semantic meaning
# does parameter checking etc. It also adds / prepares the thingy so
# this is compatible with older protocol and arranges data so
# post process the thing, this generally adds on semantic meaning
# does parameter checking etc. It also adds / prepares the thingy so
# this is compatible with older protocol and arranges data so
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 69cf3ca2ac39f021b54e699e735071be683ebd90..7f4072358f90cf45baa64ef47f7abd7174df13ca 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-30,7
+30,7
@@
sub gen_Aranea
my @items;
push @items, 't', $thing->{t} if $thing->{t};
push @items, 'd', $thing->{d} if $thing->{d};
my @items;
push @items, 't', $thing->{t} if $thing->{t};
push @items, 'd', $thing->{d} if $thing->{d};
- $thing->{Aranea} = Aranea::genmsg($thing, 'RT'
)
;
+ $thing->{Aranea} = Aranea::genmsg($thing, 'RT'
, @items) if @items
;
}
return $thing->{Aranea};
}
}
return $thing->{Aranea};
}