X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=fc77cc13122fe6f1a7f330c11992e5aedb1ac59f;hb=dcbafa96df9fbad90df86076b6ee9fa6a673a61c;hp=c68b211686b72b83bbd7ad18e7f4c82385de003d;hpb=9247dc52598db705b9cf6cbbec16c3919ac5e1d7;p=spider.git diff --git a/perl/Aranea.pm b/perl/Aranea.pm index c68b2116..fc77cc13 100644 --- a/perl/Aranea.pm +++ b/perl/Aranea.pm @@ -25,6 +25,7 @@ use Script; use Verify; use DXDupe; use Thingy; +use RouteDB; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); @@ -325,7 +326,7 @@ sub input $thing->{touser} = $tus if $tus; $thing->{user} = $user if $user; $thing->{hopsaway} = $hop; - + for (split(/,/, $rdata)) { if (/=/) { my ($k,$v) = split /=/, $_, 2;