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") {