--- bin/ldap-server.pl	2008/06/27 19:09:13	228
+++ bin/ldap-server.pl	2008/06/27 19:31:49	229
@@ -3,42 +3,14 @@
 use strict;
 use warnings;
 
-use IO::Select;
-use IO::Socket;
+#use Jifty;
+#BEGIN { Jifty->new; };
+#Jifty->web->request(Jifty::Request->new);
+#Jifty->web->response(Jifty::Response->new);
 
 use lib 'lib';
 use A3C::LDAP::Server;
 
-my $port = 1389;
-
-my $sock = IO::Socket::INET->new(
-	Listen => 5,
-	Proto => 'tcp',
-	Reuse => 1,
-	LocalPort => $port,
-);
-
-warn "listen on port $port\n";
-
-my $sel = IO::Select->new($sock);
-my %Handlers;
-while (my @ready = $sel->can_read) {
-	foreach my $fh (@ready) {
-		if ($fh == $sock) {
-			# let's create a new socket
-			my $psock = $sock->accept;
-			$sel->add($psock);
-			$Handlers{*$psock} = A3C::LDAP::Server->new($psock);
-		} else {
-			my $result = $Handlers{*$fh}->handle;
-			if ($result) {
-				# we have finished with the socket
-				$sel->remove($fh);
-				$fh->close;
-				delete $Handlers{*$fh};
-			}
-		}
-	}
-}
+A3C::LDAP::Server->run({ port => 1389 });
 
 1;