X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy.pm;h=785428cf42c6d7365a9d125405716c7de8e85ba9;hb=refs%2Fremotes%2Fserver%2Fspider2;hp=7ae3d8f44bb87e2fa093f347224f48be2213e7cd;hpb=40e8bb424384f2aa4f772e02cb2caedbc41525cd;p=spider.git

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 7ae3d8f4..785428cf 100644
--- a/perl/Thingy.pm
+++ b/perl/Thingy.pm
@@ -22,6 +22,7 @@ $main::branch += $BRANCH;
 use DXChannel;
 use DXDebug;
 
+use Thingy::Hi;
 use Thingy::Route;
 
 use vars qw(@queue);
@@ -38,7 +39,6 @@ sub new
 	bless $self, $class;
 	$self->{_tonode} ||= '*';
 	$self->{_fromnode} ||= $main::mycall;
-	$self->{_hoptime} ||= 0;
 	while (my ($k,$v) = each %$self) {
 		delete $self->{$k} unless defined $v;
 	}
@@ -46,7 +46,7 @@ sub new
 }
 
 # add the Thingy to the queue
-sub add
+sub queue
 {
 	push @queue, shift;
 }
@@ -59,7 +59,7 @@ sub process
 	if ($t) {
 
 		# go directly to this class's t= handler if there is one
-		my $type = $t->{t};
+		my $type = lc $t->{t};
 		if ($type) {
 			# remove extraneous characters put there by the ungodly
 			$type =~ s/[^\w]//g;