X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FHello.pm;fp=perl%2FThingy%2FHello.pm;h=0000000000000000000000000000000000000000;hb=0154b38552abaaa4e79ebd9f3e647352acacbcc7;hp=111abf8b2a46cc48e05ff1b60a025193055b6d28;hpb=dc305f992d75a6b35edda9e1aefab510a3ed617e;p=spider.git

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
deleted file mode 100644
index 111abf8b..00000000
--- a/perl/Thingy/Hello.pm
+++ /dev/null
@@ -1,47 +0,0 @@
-#
-# Hello Thingy handling
-#
-# $Id$
-#
-# Copyright (c) 2005 Dirk Koopman G1TLH
-#
-
-use strict;
-
-package Thingy::Hello;
-
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
-use DXChannel;
-use DXDebug;
-use Verify;
-use Thingy;
-
-use vars qw(@ISA);
-@ISA = qw(Thingy);
-
-sub gen_Aranea
-{
-	my $thing = shift;
-	unless ($thing->{Aranea}) {
-		my $auth = $thing->{auth} = Verify->new($main::mycall, $main::systime);
-		$thing->{Aranea} = Aranea::genmsg($thing, 'HELLO', sw=>'DXSpider',
-										  v=>$main::version,
-										  b=>$main::build,
-										  auth=>$auth->challenge($main::me->user->passphrase)
-									  );
-	}
-	return $thing->{Aranea};
-}
-
-sub from_Aranea
-{
-	my $line = shift;
-	my $thing = Aranea::input($line);
-	return unless $thing;
-}
-1;