From: minima <minima>
Date: Fri, 11 Mar 2005 22:02:43 +0000 (+0000)
Subject: make sure touser is passed on
X-Git-Tag: R_1_52~96
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=c85cacb2bc438725ee83553226e944f9f605d3b7;p=spider.git

make sure touser is passed on
---

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 079e215a..7765af34 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -405,7 +405,7 @@ sub input
 		$thing = $class->new();
 
 		# reconstitute the header but wth hop increased by one
-		$head = formathead($origin, $dts, ++$hop, $user, $group);
+		$head = formathead($origin, $dts, ++$hop, $user, $group, $tocall);
 		$thing->{Aranea} = "$head|$data";
 
 		# store useful data