tschwery/perl-gopher-server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removing debug msgs

Browse source
This commit is contained in:
Thomas Schwery 2010-08-15 19:31:03 +02:00
parent bd2ba4b7da
commit 281a4388e9
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gopher.pl
View file

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