next if $key eq "";
                 our $bay = $server->accept or next;
                 $bay->close(SSL_no_shutdown=>1);
                 my $ip    = $bay->peerhost();
                 my $ident = _uid();  
                 foreach my $key( keys %clients ) {
                    my $nick = $clients{$key}->{nick}; 
                    my $sock = $clients{$key}->{sock};
                    delete $clients{$key} if !defined $nick or !defined $sock;
                    print "Verbindung von $nick und dem Socket $sock\n";
                 }
                 our $buffer = "";
                 newclient($bay);
                 my $dag= getSecretKey();
                 $bay->sysread($buffer, 1024);
                 print "$buffer\n\n";
                 if($buffer =~ /GET \/\?sid=([a-zA-Z0-9]+)\s/) {
                         if($1) { # if $1
                             my $session = $1;
                             my $safesess = $dbh->quote($session);
                             my $sta = $dbh->prepare("SELECT session FROM Members WHERE session = $safesess LIMIT 1");
                             $sta->execute();
                             my $hassession = $sta->fetchrow_array();
                             $sta->finish();
                             $dbh->disconnect();
                             if($hassession) { # Wenn eine Session existiert dann ..  
                               my %user = loadMemberInfo("", $session);
                               my $showtime= $user{showtime} == 0 ? 0 : 1;
                               my $nosmiles= $user{nosmileys} == 0 ? 0 : 1;
                               my $chatzone = $user{chatzone};            
                               $clients{$ident} = {
                                                       sock => $bay,                    
                                                       nick => $user{nick},
                                                       sockcreated => &Time::HiRes::time(),
                                                       ip => $ip,
                                                       lastsrvpost => time,
                                                       showtime => $showtime,
                                                       nosmileys => $nosmiles,
                                                       chatzone => $chatzone,
                                                       session => $1,
                                                       alivetime => time
                                                };
                               my $rickn = $user{nick};
                               $loggedin{$rickn}{htmlcon} = 1;
                             }
                           }

DEBUG: .../IO/Socket/SSL.pm:487: no socket yet
DEBUG: .../IO/Socket/SSL.pm:489: accept created normal socket IO::Socket::SSL=GLOB(0x1b59b18)
DEBUG: .../IO/Socket/SSL.pm:505: starting sslifying
DEBUG: .../IO/Socket/SSL.pm:545: Net::SSLeay::accept -> 1
DEBUG: .../IO/Socket/SSL.pm:593: handshake done, socket ready
DEBUG: .../IO/Socket/SSL.pm:493: accept_SSL ok
DEBUG: .../IO/Socket/SSL.pm:1203: Undefined SSL objecterror:00000000:lib(0):func(0):reason(0)