1 files changed, 0 insertions, 65 deletions
diff --git a/search/bin/listener.pl b/search/bin/listener.pl
deleted file mode 100755
index 0f0f2d9..0000000
--- a/search/bin/listener.pl
+++ /dev/null
@@ -1,65 +0,0 @@
-#!/usr/bin/perl
-    use IO::Socket;
-    use IO::Select;
-    
-    # Create a socket to listen on.
-    #
-    my $listener = 
-      IO::Socket::INET->new( LocalPort => 8008, Listen => 5, Reuse => 1 );
-    
-    die "Can't create socket for listening: $!" unless $listener;
-    print "Listening for connections on port 8008\n";
-    
-    my $readable = IO::Select->new;     # Create a new IO::Select object
-    $readable->add($listener);          # Add the listener to it
-    
-    while(1) {
-    
-        # Get a list of sockets that are ready to talk to us.
-        #
-        my ($ready) = IO::Select->select($readable, undef, undef, undef);
-        foreach my $s (@$ready) {
-            
-            # Is it a new connection?
-            #
-            if($s == $listener) {
-            
-                # Accept the connection and add it to our readable list.
-                #
-                my $new_sock = $listener->accept;
-                $readable->add($new_sock) if $new_sock;
-                
-                print $new_sock "Welcome!\r\n";
-		print "connection :-o\n\n";
-                
-            } else {  # It's an established connection
-            
-                my $buf = <$s>;   # Try to read a line
-                
-                # Was there anyone on the other end?
-                #
-                if( defined $buf ) {
-                    
-                    # If they said goodbye, close the socket. If not,
-                    # echo what they said to us.
-                    #
-                    if ($buf =~ /(good)?bye/i) {
-                        print $s "See you later!\n";
-                        $readable->remove($s);
-                        $s->close;
-                    } else {
-                        print $s "You said: $buf\n";
-			print "$buf\n";
-                    }
-                    
-                } else { # The client disconnected.
-                
-                    $readable->remove($s);
-                    $s->close;
-                    print STDERR "Client Connection closed\n";
-                    
-                }
-            }
-        }
-    }
-