Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -N
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	24 Jul 2007 13:21:39 -0000	1.21
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,144 +0,0 @@
-ad_library {
-    XoWiki - Search Service Contracts
-
-    @creation-date 2006-01-10
-    @author Gustaf Neumann
-    @cvs-id $Id: xowiki-sc-procs.tcl,v 1.21 2007/07/24 13:21:39 gustafn Exp $
-}
-
-namespace eval ::xowiki {}
-
-ad_proc -private ::xowiki::datasource { revision_id } {
-    @param revision_id
-
-  returns a datasource for the search package
-} {
-  #ns_log notice "--sc datasource called with revision_id = $revision_id"
-
-  set page [::xowiki::Package instantiate_page_from_id -revision_id $revision_id -user_id 0]
-  $page volatile
-
-  #ns_log notice "--sc package=[[$page package_id] serialize]"
-  ns_log notice "--sc $page [$page set publish_status]"
-
-  if {[$page set publish_status] eq "production"} {
-    # no data source for for pages under construction
-    #ns_log notice "--sc page under construction, no datasource"
-    return   [list object_id $revision_id title "" \
-                  content "" keywords "" \
-                  storage_type text mime text/html]
-  }
-
-  $page absolute_links 1
-  #ns_log notice "--sc setting absolute links for page = $page [$page set name]"
-
-  set html [$page render]
-  set text [ad_html_text_convert -from text/html -to text/plain -- $html]
-  #set text [ad_text_to_html $html]; #this could be used for entity encoded html text in rss entries
-  
-  #::xowiki::notification::do_notifications -page $page -html $html -text $text
-
-  #ns_log notice "--sc INDEXING $revision_id -> $text"
-  #$page set unresolved_references 0
-  $page instvar item_id
-  # cleanup old stuff. This might run into an error, when search is not
-  # configured, and therefore txt does not exist. TODO: we should look for a better
-  # solution, where syndication does not depend on search....
-  catch {
-    db_dml delete_old_revisions {
-      delete from txt where object_id in \
-      (select revision_id from cr_revisions 
-       where item_id = :item_id and revision_id != :revision_id)
-    }
-  }
-  foreach tag {h1 h2 h3 h4 h5 b strong} {
-    foreach {match words} [regexp -all -inline "<$tag>(\[^<\]+)</$tag>" $html] {
-      foreach w [split $words] {
-        if {$w eq ""} continue
-        set word($w) 1
-      }
-    }
-  }
-  #ns_log notice "--sc keywords $revision_id -> [array names word]"
-
-  return [list object_id $revision_id title [$page title] \
-              content $text keywords [array names word] \
-              storage_type text mime text/html \
-              syndication [list \
-                        link [::[$page package_id] pretty_link -absolute 1 [$page set name]] \
-                        description $text \
-                        author [$page set creator] \
-                        category "" \
-                        guid "$item_id" \
-                        pubDate [$page set last_modified]] \
-             ]
-}
-
-ad_proc -private ::xowiki::url { revision_id} {
-    returns a url for a message to the search package
-} {
-  return [::xowiki::Package get_url_from_id -revision_id $revision_id]
-}
-
-
-namespace eval ::xowiki::sc {
-
-  ad_proc -private ::xowiki::sc::register_implementations {} {
-    Register the content type fts contract
-  } {
-    acs_sc::impl::new_from_spec -spec {
-      name "::xowiki::Page"
-      aliases {
-        datasource ::xowiki::datasource
-        url ::xowiki::url
-      }
-      contract_name FtsContentProvider
-      owner xowiki
-    }
-    acs_sc::impl::new_from_spec -spec {
-      name "::xowiki::PlainPage"
-      aliases {
-        datasource ::xowiki::datasource
-        url ::xowiki::url
-      }
-      contract_name FtsContentProvider
-      owner xowiki
-    }
-    acs_sc::impl::new_from_spec -spec {
-      name "::xowiki::PageInstance"
-      aliases {
-        datasource ::xowiki::datasource
-        url ::xowiki::url
-      }
-      contract_name FtsContentProvider
-      owner xowiki
-    }
-    acs_sc::impl::new_from_spec -spec {
-      name "::xowiki::FormPage"
-      aliases {
-        datasource ::xowiki::datasource
-        url ::xowiki::url
-      }
-      contract_name FtsContentProvider
-      owner xowiki
-    }
-    acs_sc::impl::new_from_spec -spec {
-      name "::xowiki::File"
-      aliases {
-        datasource ::xowiki::datasource
-        url ::xowiki::url
-      }
-      contract_name FtsContentProvider
-      owner xowiki
-    }
-}
-
-  ad_proc -private ::xowiki::sc::unregister_implementations {} {
-    acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ::xowiki::Page
-    acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ::xowiki::PlainPage
-    acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ::xowiki::PageInstance
-    acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ::xowiki::FormPage
-    acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ::xowiki::File
-  }
-}
-