From 281a4388e9e52aa962292379cf9df9409c18d0e7 Mon Sep 17 00:00:00 2001
From: Thomas Schwery <thomas@schwery.me>
Date: Sun, 15 Aug 2010 19:31:03 +0200
Subject: [PATCH] Removing debug msgs

---
 gopher.pl | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/gopher.pl b/gopher.pl
index d4206e2..c17766d 100644
--- a/gopher.pl
+++ b/gopher.pl
@@ -32,21 +32,16 @@ drop_privileges('nobody');
 
 while (1) {
     my $listen_socket = $socket->accept();
-    print "New incoming connection ...\n";
     my $thr = threads->create(\&connection_thread, $listen_socket);
-    print "Joining ...";
     $thr->join();
-    print "Joined\n";
 }
 
 sub connection_thread {
     my ($listen_socket) = @_;
-    print "New Thread\n";
     $_ = <$listen_socket>;
     s/\r*\n*//g;
     s/\t.*//g; # Don't care about the parameters now ...
     my $directory = $_;
-    print "Client " . $.. ": <" . $_ . ">\n";
     
     if (-f $directory) {
         if (substr($directory, 0, 4) eq "blog") {