X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=SimpleServer.pm;h=1dc36d25f5ba83212c41e3215655e1d61423c791;hb=d3c8279feaf771c739ee6507c261114729a901bb;hp=ba88897477f096e51705ead9efeb3af7f48b8cc6;hpb=937031659a82316ddfb1e71475d4b02b468226e3;p=simpleserver-moved-to-github.git diff --git a/SimpleServer.pm b/SimpleServer.pm index ba88897..1dc36d2 100644 --- a/SimpleServer.pm +++ b/SimpleServer.pm @@ -25,7 +25,7 @@ ## ## -## $Id: SimpleServer.pm,v 1.26 2006-04-19 13:17:52 sondberg Exp $ +## $Id: SimpleServer.pm,v 1.27 2006-06-02 16:03:25 quinn Exp $ package Net::Z3950::SimpleServer; @@ -86,6 +86,9 @@ sub launch_server { if (defined($self->{SORT})) { set_sort_handler($self->{SORT}); } + if (defined($self->{EXPLAIN})) { + set_explain_handler($self->{EXPLAIN}); + } start_server(@args); } @@ -212,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