X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=SimpleServer.pm;h=1dc36d25f5ba83212c41e3215655e1d61423c791;hb=d3c8279feaf771c739ee6507c261114729a901bb;hp=f870558c24ad975474560fae90c64b2e89040325;hpb=a731fd6cf785bc627d387f1352f34cf8baafd260;p=simpleserver-moved-to-github.git

diff --git a/SimpleServer.pm b/SimpleServer.pm
index f870558..1dc36d2 100644
--- a/SimpleServer.pm
+++ b/SimpleServer.pm
@@ -25,7 +25,7 @@
 ##
 ##
 
-## $Id: SimpleServer.pm,v 1.25 2006-04-19 12:38:49 mike Exp $
+## $Id: SimpleServer.pm,v 1.27 2006-06-02 16:03:25 quinn Exp $
 
 package Net::Z3950::SimpleServer;
 
@@ -83,6 +83,12 @@ sub launch_server {
 	if (defined($self->{SCAN})) {
 		set_scan_handler($self->{SCAN});
 	}
+	if (defined($self->{SORT})) {
+		set_sort_handler($self->{SORT});
+	}
+	if (defined($self->{EXPLAIN})) {
+		set_explain_handler($self->{EXPLAIN});
+	}
 
 	start_server(@args);
 }
@@ -209,7 +215,8 @@ means of the SimpleServer object constructor
 			SEARCH	=>	\&my_search_handler,
 			PRESENT	=>	\&my_present_handler,
 			SCAN	=>	\&my_scan_handler,
-			FETCH	=>	\&my_fetch_handler);
+			FETCH	=>	\&my_fetch_handler,
+  			EXPLAIN =>	\&my_explain_handler);
 
 If you want your SimpleServer to start a thread (threaded mode) to
 handle each incoming Z39.50 request instead of forking a process