All filters declare a yp2_filter_struct - used for both static and
[metaproxy-moved-to-github.git] / src / filter_virt_db.cpp
index 9b61465..3ba8487 100644 (file)
@@ -1,4 +1,4 @@
-/* $Id: filter_virt_db.cpp,v 1.6 2005-10-25 21:32:01 adam Exp $
+/* $Id: filter_virt_db.cpp,v 1.16 2006-01-04 11:19:04 adam Exp $
    Copyright (c) 2005, Index Data.
 
 %LICENSE%
 #include "package.hpp"
 
 #include <boost/thread/mutex.hpp>
+#include <boost/thread/condition.hpp>
 
+#include "util.hpp"
 #include "filter_virt_db.hpp"
 
 #include <yaz/zgdu.h>
-#include <yaz/log.h>
 #include <yaz/otherinfo.h>
 #include <yaz/diagbib1.h>
 
-#include <list>
 #include <map>
 #include <iostream>
 
@@ -29,13 +29,14 @@ namespace yp2 {
     namespace filter {
         struct Virt_db_set {
             Virt_db_set(yp2::Session &id, std::string setname,
-                        std::string vhost);
+                        std::string vhost, bool named_result_sets);
             Virt_db_set();
             ~Virt_db_set();
 
-            yp2::Session m_session;
-            std::string m_setname;
+            yp2::Session m_backend_session;
+            std::string m_backend_setname;
             std::string m_vhost;
+            bool m_named_result_sets;
         };
         struct Virt_db_session {
             Virt_db_session(yp2::Session &id, bool use_vhost);
@@ -49,6 +50,19 @@ namespace yp2 {
             Virt_db_map();
             std::string m_vhost;
         };
+        struct Frontend {
+            Frontend();
+            ~Frontend();
+            yp2::Session m_session;
+            bool m_use_vhost;
+            bool m_in_use;
+            std::map<std::string,Virt_db_set> m_sets;
+            void search(Package &package, Z_APDU *apdu,
+                        const std::map<std::string, Virt_db_map> &maps);
+            void present(Package &package, Z_APDU *apdu);
+            void close(Package &package);
+            typedef std::map<std::string,Virt_db_set>::iterator Sets_it;
+        };            
         class Virt_db::Rep {
             friend class Virt_db;
             
@@ -56,6 +70,9 @@ namespace yp2 {
             void init(Package &package, Z_APDU *apdu, bool &move_later);
             void search(Package &package, Z_APDU *apdu, bool &move_later);
             void present(Package &package, Z_APDU *apdu, bool &move_later);
+
+            Frontend *get_frontend(Package &package);
+            void release_frontend(Package &package);
         private:
             boost::mutex m_sessions_mutex;
             std::map<yp2::Session,Virt_db_session>m_sessions;
@@ -63,13 +80,91 @@ namespace yp2 {
 
             typedef std::map<yp2::Session,Virt_db_session>::iterator Ses_it;
             typedef std::map<std::string,Virt_db_set>::iterator Sets_it;
+
+            boost::mutex m_mutex;
+            boost::condition m_cond_session_ready;
+            std::map<yp2::Session,Frontend *> m_clients;
         };
     }
 }
 
+using namespace yp2;
+
+yf::Frontend::Frontend()
+{
+    m_use_vhost = false;
+}
+
+void yf::Frontend::close(Package &package)
+{
+    Sets_it sit = m_sets.begin();
+    for (; sit != m_sets.end(); sit++)
+    {
+        sit->second.m_backend_session.close();
+        Package close_package(sit->second.m_backend_session, package.origin());
+        close_package.copy_filter(package);
+        
+        close_package.move();
+    }
+}
+
+yf::Frontend::~Frontend()
+{
+}
+
+yf::Frontend *yf::Virt_db::Rep::get_frontend(Package &package)
+{
+    boost::mutex::scoped_lock lock(m_mutex);
+
+    std::map<yp2::Session,yf::Frontend *>::iterator it;
+    
+    while(true)
+    {
+        it = m_clients.find(package.session());
+        if (it == m_clients.end())
+            break;
+        
+        if (!it->second->m_in_use)
+        {
+            it->second->m_in_use = true;
+            return it->second;
+        }
+        m_cond_session_ready.wait(lock);
+    }
+    Frontend *f = new Frontend;
+    m_clients[package.session()] = f;
+    f->m_in_use = true;
+    return f;
+}
+
+
+void yf::Virt_db::Rep::release_frontend(Package &package)
+{
+    boost::mutex::scoped_lock lock(m_mutex);
+    std::map<yp2::Session,yf::Frontend *>::iterator it;
+    
+    it = m_clients.find(package.session());
+    if (it != m_clients.end())
+    {
+        if (package.session().is_closed())
+        {
+            std::cout << "Closing IT\n";
+            it->second->close(package);
+            delete it->second;
+            m_clients.erase(it);
+        }
+        else
+        {
+            it->second->m_in_use = false;
+        }
+        m_cond_session_ready.notify_all();
+    }
+}
+
 yf::Virt_db_set::Virt_db_set(yp2::Session &id, std::string setname,
-                             std::string vhost)
-    :   m_session(id), m_setname(setname), m_vhost(vhost)
+                             std::string vhost, bool named_result_sets)
+    :   m_backend_session(id), m_backend_setname(setname), m_vhost(vhost),
+        m_named_result_sets(named_result_sets)
 {
 }
 
@@ -105,42 +200,49 @@ yf::Virt_db_session::Virt_db_session(yp2::Session &id,
 
 }
 
-yf::Virt_db::Virt_db() {
-    m_p = new Virt_db::Rep;
+yf::Virt_db::Virt_db() : m_p(new Virt_db::Rep)
+{
 }
 
 yf::Virt_db::~Virt_db() {
-    delete m_p;
 }
 
 void yf::Virt_db::Rep::release_session(Package &package)
 {
     boost::mutex::scoped_lock lock(m_sessions_mutex);
     
+    Ses_it it = m_sessions.find(package.session());
+    
+    if (it != m_sessions.end())
+    {
+        Sets_it sit = it->second.m_sets.begin();
+        for (; sit != it->second.m_sets.end(); sit++)
+        {
+            sit->second.m_backend_session.close();
+            Package close_package(sit->second.m_backend_session, package.origin());
+            close_package.copy_filter(package);
+
+            close_package.move();
+        }
+    }
     m_sessions.erase(package.session());
 }
 
 void yf::Virt_db::Rep::present(Package &package, Z_APDU *apdu, bool &move_later){
     Session *id = 0;
     Z_PresentRequest *req = apdu->u.presentRequest;
+    std::string resultSetId = req->resultSetId;
+    yp2::odr odr;
     {
         boost::mutex::scoped_lock lock(m_sessions_mutex);
         
         Ses_it it = m_sessions.find(package.session());
         if (it == m_sessions.end())
         {
-            ODR odr = odr_createmem(ODR_ENCODE);
-            
-            Z_APDU *apdu = zget_APDU(odr, Z_APDU_close);
-            
-            *apdu->u.close->closeReason = Z_Close_protocolError;
-            apdu->u.close->diagnosticInformation =
-                odr_strdup(odr, "no session for present request");
-            
-            package.response() = apdu;
+            package.response() = odr.create_close(
+                Z_Close_protocolError,
+                "no session for present request");
             package.session().close();
-            odr_destroy(odr);
-            assert(false);
             return;
         }
         if (it->second.m_use_vhost)
@@ -148,10 +250,9 @@ void yf::Virt_db::Rep::present(Package &package, Z_APDU *apdu, bool &move_later)
             move_later = true;
             return;
         }
-        Sets_it sets_it = it->second.m_sets.find(req->resultSetId);
+        Sets_it sets_it = it->second.m_sets.find(resultSetId);
         if (sets_it == it->second.m_sets.end())
         {
-            ODR odr = odr_createmem(ODR_ENCODE);
             Z_APDU *apdu = zget_APDU(odr, Z_APDU_presentResponse);
             
             Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
@@ -161,14 +262,13 @@ void yf::Virt_db::Rep::present(Package &package, Z_APDU *apdu, bool &move_later)
                 zget_DefaultDiagFormat(
                     odr,
                     YAZ_BIB1_SPECIFIED_RESULT_SET_DOES_NOT_EXIST,
-                    req->resultSetId);
+                    resultSetId.c_str());
             package.response() = apdu;
-            odr_destroy(odr);
+
             return;
         }
-        id = new yp2::Session(sets_it->second.m_session);
+        id = new yp2::Session(sets_it->second.m_backend_session);
     }
-    ODR odr = odr_createmem(ODR_ENCODE);
     
     // sending present to backend
     Package present_package(*id, package.origin());
@@ -176,13 +276,90 @@ void yf::Virt_db::Rep::present(Package &package, Z_APDU *apdu, bool &move_later)
     
     req->resultSetId = odr_strdup(odr, "default");
     present_package.request() = yazpp_1::GDU(apdu);
+
+    present_package.move();
+
+    if (present_package.session().is_closed())
+    {
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_presentResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.presentResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr,
+                YAZ_BIB1_RESULT_SET_NO_LONGER_EXISTS_UNILATERALLY_DELETED_BY_,
+                resultSetId.c_str());
+        package.response() = apdu;
+        
+        boost::mutex::scoped_lock lock(m_sessions_mutex);
+        Ses_it it = m_sessions.find(package.session());
+        if (it != m_sessions.end())
+            it->second.m_sets.erase(resultSetId);
+    }
+    else
+    {
+        package.response() = present_package.response();
+    }
+    delete id;
+}
+
+void yf::Frontend::present(Package &package, Z_APDU *apdu)
+{
+    Session *id = 0;
+    Z_PresentRequest *req = apdu->u.presentRequest;
+    std::string resultSetId = req->resultSetId;
+    yp2::odr odr;
+
+    Sets_it sets_it = m_sets.find(resultSetId);
+    if (sets_it == m_sets.end())
+    {
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_presentResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.presentResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr,
+                YAZ_BIB1_SPECIFIED_RESULT_SET_DOES_NOT_EXIST,
+                resultSetId.c_str());
+        package.response() = apdu;
+        
+        return;
+    }
+    id = new yp2::Session(sets_it->second.m_backend_session);
     
-    odr_destroy(odr);
+    // sending present to backend
+    Package present_package(*id, package.origin());
+    present_package.copy_filter(package);
     
+    req->resultSetId = odr_strdup(odr, "default");
+    present_package.request() = yazpp_1::GDU(apdu);
+
     present_package.move();
 
-    package.response() = present_package.response();
-    // must check for a closed present session..
+    if (present_package.session().is_closed())
+    {
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_presentResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.presentResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr,
+                YAZ_BIB1_RESULT_SET_NO_LONGER_EXISTS_UNILATERALLY_DELETED_BY_,
+                resultSetId.c_str());
+        package.response() = apdu;
+        
+        m_sets.erase(resultSetId);
+    }
+    else
+    {
+        package.response() = present_package.response();
+    }
     delete id;
 }
 
@@ -191,24 +368,20 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
     Z_SearchRequest *req = apdu->u.searchRequest;
     std::string vhost;
     std::string database;
-    Session *id = 0;
+    std::string resultSetId = req->resultSetName;
+    bool support_named_result_sets = false;  // whether backend supports it
+    yp2::odr odr;
     {
         boost::mutex::scoped_lock lock(m_sessions_mutex);
 
         Ses_it it = m_sessions.find(package.session());
         if (it == m_sessions.end())
         {
-            ODR odr = odr_createmem(ODR_ENCODE);
-            
-            Z_APDU *apdu = zget_APDU(odr, Z_APDU_close);
-            
-            *apdu->u.close->closeReason = Z_Close_protocolError;
-            apdu->u.close->diagnosticInformation =
-                odr_strdup(odr, "no session for search request");
-            
-            package.response() = apdu;
+            package.response() = odr.create_close(
+                Z_Close_protocolError,
+                "no session for search request");
             package.session().close();
-            odr_destroy(odr);
+
             return;
         }
         if (it->second.m_use_vhost)
@@ -218,7 +391,6 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
         }
         if (req->num_databaseNames != 1)
         {   // exactly one database must be specified
-            ODR odr = odr_createmem(ODR_ENCODE);
             Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
             
             Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
@@ -229,7 +401,6 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
                     odr, YAZ_BIB1_TOO_MANY_DATABASES_SPECIFIED, 0);
             package.response() = apdu;
             
-            odr_destroy(odr);
             return;
         }
         database = req->databaseNames[0];
@@ -237,7 +408,6 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
         map_it = m_maps.find(database);
         if (map_it == m_maps.end()) 
         {   // no map for database: return diagnostic
-            ODR odr = odr_createmem(ODR_ENCODE);
             Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
             
             Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
@@ -245,10 +415,9 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
             rec->which = Z_Records_NSD;
             rec->u.nonSurrogateDiagnostic =
                 zget_DefaultDiagFormat(
-                    odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
+                    odr, YAZ_BIB1_DATABASE_DOES_NOT_EXIST, database.c_str());
             package.response() = apdu;
             
-            odr_destroy(odr);
             return;
         }
         if (*req->replaceIndicator == 0)
@@ -256,7 +425,6 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
             Sets_it sets_it = it->second.m_sets.find(req->resultSetName);
             if (sets_it != it->second.m_sets.end())
             {
-                ODR odr = odr_createmem(ODR_ENCODE);
                 Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
                 
                 Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
@@ -269,36 +437,52 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
                         0);
                 package.response() = apdu;
                 
-                odr_destroy(odr);
                 return;
             }
         }
+        it->second.m_sets.erase(req->resultSetName);
         vhost = map_it->second.m_vhost;
-        id = new Session;
-
-        it->second.m_sets[req->resultSetName] =
-            Virt_db_set(*id, req->resultSetName, vhost);
     }
+    // we might look for an existing session with same vhost
+    Session id;
     const char *vhost_cstr = vhost.c_str();
     if (true)
     {  // sending init to backend
-        Package init_package(*id, package.origin());
+        Package init_package(id, package.origin());
         init_package.copy_filter(package);
         
-        ODR odr = odr_createmem(ODR_ENCODE);
         Z_APDU *init_apdu = zget_APDU(odr, Z_APDU_initRequest);
         
         yaz_oi_set_string_oidval(&init_apdu->u.initRequest->otherInfo, odr,
                                  VAL_PROXY, 1, vhost_cstr);
         
         init_package.request() = init_apdu;
-        odr_destroy(odr);
 
         init_package.move();  // sending init 
 
         if (init_package.session().is_closed())
         {
-            ODR odr = odr_createmem(ODR_ENCODE);
+            Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+            
+            Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+            apdu->u.searchResponse->records = rec;
+            rec->which = Z_Records_NSD;
+            rec->u.nonSurrogateDiagnostic =
+                zget_DefaultDiagFormat(
+                    odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
+            package.response() = apdu;
+        }
+        Z_GDU *gdu = init_package.response().get();
+        // we hope to get an init response
+        if (gdu && gdu->which == Z_GDU_Z3950 && gdu->u.z3950->which ==
+            Z_APDU_initResponse)
+        {
+            if (ODR_MASK_GET(gdu->u.z3950->u.initResponse->options,
+                             Z_Options_namedResultSets))
+                support_named_result_sets = true;
+        }
+        else
+        {
             Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
             
             Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
@@ -309,30 +493,200 @@ void yf::Virt_db::Rep::search(Package &package, Z_APDU *apdu, bool &move_later)
                     odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
             package.response() = apdu;
             
-            odr_destroy(odr);
             return;
         }
     }
     // sending search to backend
-    Package search_package(*id, package.origin());
+    Package search_package(id, package.origin());
 
     search_package.copy_filter(package);
     const char *sep = strchr(vhost_cstr, '/');
-    ODR odr = odr_createmem(ODR_ENCODE);
     if (sep)
         req->databaseNames[0] = odr_strdup(odr, sep+1);
 
     *req->replaceIndicator = 1;
-    req->resultSetName = odr_strdup(odr, "default");
+
+    std::string backend_resultSetId = "default";
+    req->resultSetName = odr_strdup(odr, backend_resultSetId.c_str());
     search_package.request() = yazpp_1::GDU(apdu);
     
-    odr_destroy(odr);
+    search_package.move();
+
+    if (search_package.session().is_closed())
+    {
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.searchResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
+        package.response() = apdu;
+        
+        return;
+    }
+    package.response() = search_package.response();
+    
+    boost::mutex::scoped_lock lock(m_sessions_mutex);
+    Ses_it it = m_sessions.find(package.session());
+    if (it != m_sessions.end())
+        it->second.m_sets[resultSetId] =
+            Virt_db_set(id, backend_resultSetId, vhost,
+                        support_named_result_sets);
+}
+
+void yf::Frontend::search(Package &package, Z_APDU *apdu,
+                          const std::map<std::string, Virt_db_map> &maps)
+{
+    Z_SearchRequest *req = apdu->u.searchRequest;
+    std::string vhost;
+    std::string database;
+    std::string resultSetId = req->resultSetName;
+    bool support_named_result_sets = false;  // whether backend supports it
+    yp2::odr odr;
+    
+    if (req->num_databaseNames != 1)
+    {   // exactly one database must be specified
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.searchResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr, YAZ_BIB1_TOO_MANY_DATABASES_SPECIFIED, 0);
+        package.response() = apdu;
+        
+        return;
+    }
+    database = req->databaseNames[0];
+    std::map<std::string, Virt_db_map>::const_iterator map_it;
+    map_it = maps.find(database);
+    if (map_it == maps.end()) 
+    {   // no map for database: return diagnostic
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.searchResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr, YAZ_BIB1_DATABASE_DOES_NOT_EXIST, database.c_str());
+        package.response() = apdu;
+        
+        return;
+    }
+    if (*req->replaceIndicator == 0)
+    {
+        Sets_it sets_it = m_sets.find(req->resultSetName);
+        if (sets_it != m_sets.end())
+        {
+            Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+            
+            Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+            apdu->u.searchResponse->records = rec;
+            rec->which = Z_Records_NSD;
+            rec->u.nonSurrogateDiagnostic =
+                zget_DefaultDiagFormat(
+                    odr,
+                    YAZ_BIB1_RESULT_SET_EXISTS_AND_REPLACE_INDICATOR_OFF,
+                    0);
+            package.response() = apdu;
+            
+            return;
+        }
+    }
+    m_sets.erase(req->resultSetName);
+    vhost = map_it->second.m_vhost;
+    // we might look for an existing session with same vhost
+    Session id;
+    const char *vhost_cstr = vhost.c_str();
+    if (true)
+    {  // sending init to backend
+        Package init_package(id, package.origin());
+        init_package.copy_filter(package);
+        
+        Z_APDU *init_apdu = zget_APDU(odr, Z_APDU_initRequest);
+        
+        yaz_oi_set_string_oidval(&init_apdu->u.initRequest->otherInfo, odr,
+                                 VAL_PROXY, 1, vhost_cstr);
+        
+        init_package.request() = init_apdu;
+
+        init_package.move();  // sending init 
+
+        if (init_package.session().is_closed())
+        {
+            Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+            
+            Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+            apdu->u.searchResponse->records = rec;
+            rec->which = Z_Records_NSD;
+            rec->u.nonSurrogateDiagnostic =
+                zget_DefaultDiagFormat(
+                    odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
+            package.response() = apdu;
+        }
+        Z_GDU *gdu = init_package.response().get();
+        // we hope to get an init response
+        if (gdu && gdu->which == Z_GDU_Z3950 && gdu->u.z3950->which ==
+            Z_APDU_initResponse)
+        {
+            if (ODR_MASK_GET(gdu->u.z3950->u.initResponse->options,
+                             Z_Options_namedResultSets))
+                support_named_result_sets = true;
+        }
+        else
+        {
+            Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+            
+            Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+            apdu->u.searchResponse->records = rec;
+            rec->which = Z_Records_NSD;
+            rec->u.nonSurrogateDiagnostic =
+                zget_DefaultDiagFormat(
+                    odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
+            package.response() = apdu;
+            
+            return;
+        }
+    }
+    // sending search to backend
+    Package search_package(id, package.origin());
+
+    search_package.copy_filter(package);
+    const char *sep = strchr(vhost_cstr, '/');
+    if (sep)
+        req->databaseNames[0] = odr_strdup(odr, sep+1);
+
+    *req->replaceIndicator = 1;
+
+    std::string backend_resultSetId = "default";
+    req->resultSetName = odr_strdup(odr, backend_resultSetId.c_str());
+    search_package.request() = yazpp_1::GDU(apdu);
     
     search_package.move();
 
+    if (search_package.session().is_closed())
+    {
+        Z_APDU *apdu = zget_APDU(odr, Z_APDU_searchResponse);
+        
+        Z_Records *rec = (Z_Records *) odr_malloc(odr, sizeof(Z_Records));
+        apdu->u.searchResponse->records = rec;
+        rec->which = Z_Records_NSD;
+        rec->u.nonSurrogateDiagnostic =
+            zget_DefaultDiagFormat(
+                odr, YAZ_BIB1_DATABASE_UNAVAILABLE, database.c_str());
+        package.response() = apdu;
+        
+        return;
+    }
     package.response() = search_package.response();
-    // must check for a closed search session..
-    delete id;
+    
+    m_sets[resultSetId] =
+        Virt_db_set(id, backend_resultSetId, vhost,
+                    support_named_result_sets);
 }
 
 void yf::Virt_db::Rep::init(Package &package, Z_APDU *apdu, bool &move_later)
@@ -346,8 +700,7 @@ void yf::Virt_db::Rep::init(Package &package, Z_APDU *apdu, bool &move_later)
         yaz_oi_get_string_oidval(&req->otherInfo, VAL_PROXY, 1, 0);
     if (!vhost)
     {
-        ODR odr = odr_createmem(ODR_ENCODE);
-        
+        yp2::odr odr;
         Z_APDU *apdu = zget_APDU(odr, Z_APDU_initResponse);
         Z_InitResponse *resp = apdu->u.initResponse;
         
@@ -373,14 +726,12 @@ void yf::Virt_db::Rep::init(Package &package, Z_APDU *apdu, bool &move_later)
 
         package.response() = apdu;
         
-        odr_destroy(odr);
-
         m_sessions[package.session()] = Virt_db_session(package.session(), false);
     }
     else
     {
         m_sessions[package.session()] = Virt_db_session(package.session(), true);
-        move_later = true;
+        package.move();
     }
 }
 
@@ -389,11 +740,89 @@ void yf::Virt_db::add_map_db2vhost(std::string db, std::string vhost)
     m_p->m_maps[db] = Virt_db_map(vhost);
 }
 
+#if 0
 void yf::Virt_db::process(Package &package) const
 {
-    Z_GDU *gdu = package.request().get();
+    yf::Frontend *f = m_p->get_frontend(package);
+    if (f)
+    {
+        Z_GDU *gdu = package.request().get();
+        if (!gdu || gdu->which != Z_GDU_Z3950 || f->m_use_vhost)
+            package.move();
+        else
+        {
+            Z_APDU *apdu = gdu->u.z3950;
+            if (apdu->which == Z_APDU_initRequest)
+            {
+                Z_InitRequest *req = apdu->u.initRequest;
+                
+                const char *vhost =
+                    yaz_oi_get_string_oidval(&req->otherInfo, VAL_PROXY, 1, 0);
+                if (!vhost)
+                {
+                    yp2::odr odr;
+                    Z_APDU *apdu = zget_APDU(odr, Z_APDU_initResponse);
+                    Z_InitResponse *resp = apdu->u.initResponse;
+                    
+                    int i;
+                    static const int masks[] = {
+                        Z_Options_search, Z_Options_present, Z_Options_namedResultSets, -1 
+                    };
+                    for (i = 0; masks[i] != -1; i++)
+                        if (ODR_MASK_GET(req->options, masks[i]))
+                            ODR_MASK_SET(resp->options, masks[i]);
+                    
+                    static const int versions[] = {
+                        Z_ProtocolVersion_1,
+                        Z_ProtocolVersion_2,
+                        Z_ProtocolVersion_3,
+                        -1
+                    };
+                    for (i = 0; versions[i] != -1; i++)
+                        if (ODR_MASK_GET(req->protocolVersion, versions[i]))
+                            ODR_MASK_SET(resp->protocolVersion, versions[i]);
+                        else
+                            break;
+                    
+                    package.response() = apdu;
+                }
+                else
+                {
+                    f->m_use_vhost = true;
+                    package.move();
+                }
+            }
+            else if (apdu->which == Z_APDU_searchRequest)
+            {
+                f->search(package, apdu, m_p->m_maps);
+            }
+            else if (apdu->which == Z_APDU_presentRequest)
+            {
+                f->present(package, apdu);
+            }
+            else
+            {
+                yp2::odr odr;
+                
+                package.response() = odr.create_close(
+                    Z_Close_protocolError,
+                    "unsupported APDU in filter_virt_db");
+                
+                package.session().close();
+            }
+        }
+    }
+    m_p->release_frontend(package);
+}
 
-    if (!gdu || gdu->which != Z_GDU_Z3950)
+#else
+void yf::Virt_db::process(Package &package) const
+{
+    Z_GDU *gdu = package.request().get();
+    
+    if (package.session().is_closed())
+        m_p->release_session(package);
+    else if (!gdu || gdu->which != Z_GDU_Z3950)
         package.move();
     else
     {
@@ -411,26 +840,40 @@ void yf::Virt_db::process(Package &package) const
         {
             m_p->present(package, apdu, move_later);
         }
+        else if (apdu->which == Z_APDU_close)
+        {
+            package.session().close();
+            m_p->release_session(package);
+        }
         else
         {
-            ODR odr = odr_createmem(ODR_ENCODE);
+            yp2::odr odr;
             
-            Z_APDU *apdu = zget_APDU(odr, Z_APDU_close);
-            
-            *apdu->u.close->closeReason = Z_Close_protocolError;
-
-            apdu->u.close->diagnosticInformation =
-                odr_strdup(odr, "unsupported APDU in filter_virt_db");
-            
-            package.response() = apdu;
+            package.response() = odr.create_close(
+                Z_Close_protocolError,
+                "unsupported APDU in filter_virt_db");
+                                                 
             package.session().close();
-            odr_destroy(odr);
+            m_p->release_session(package);
         }
         if (move_later)
             package.move();
     }
-    if (package.session().is_closed())
-        m_p->release_session(package);
+}
+#endif
+
+
+static yp2::filter::Base* filter_creator()
+{
+    return new yp2::filter::Virt_db;
+}
+
+extern "C" {
+    const struct yp2_filter_struct yp2_filter_virt_db = {
+        0,
+        "virt_db",
+        filter_creator
+    };
 }