removed DX and RT from groups

[spider.git] / perl / Aranea.pm

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index e90a2a4505e8f6e163df3b4248bc45034fb6702d..7973e6256ccb9b9cb29eee0d71f16dd877676a6d 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -313,7 +313,8 @@ sub input
                $thing = $class->new();
 
                # reconstitute the header but wth hop increased by one
-               $head = join(',', $origin, $group, $dts, ++$hop);
+               $head = join(',', $origin, $dts, ++$hop);
+               $head .= ",$group" if $group;
                $head .= ",$user" if $user;
                $thing->{Aranea} = "$head|$data";