activerdf_rdflite 1.3 → 1.4

data/CHANGELOG

@@ -1,3 +1,7 @@
+== activerdf_rdflite (1.4) ???
+  * caching subproperty reasoning
+  * added adapter.close method (TODO: not finished)
+
 == activerdf_rdflite (1.3) Tue, 27 Feb 2007 20:53:21 +0000
   * fixed literals with escape characters rdflite 
   * fixed parsing of content-encoded (HTML) literals

data/lib/activerdf_rdflite/rdflite.rb

@@ -46,6 +46,7 @@ class RDFLite < ActiveRdfAdapter
 		@keyword_search &= @@have_ferret
 
 		@reasoning = params[:reasoning] || false
+    @subprops = {} if @reasoning
 
 		if keyword_search?
 			# we initialise the ferret index, either as a file or in memory
@@ -89,6 +90,12 @@ class RDFLite < ActiveRdfAdapter
 		@db.execute('delete from triple')
 	end
 
+  # close adapter and remove it from the ConnectionPool
+  def close
+    ConnectionPool.remove_data_source(self)
+    # TODO: close rdflite data source
+  end
+
 	# deletes triple(s,p,o,c) from datastore
 	# symbol parameters match anything: delete(:s,:p,:o) will delete all triples
 	# you can specify a context to limit deletion to that context: 
@@ -251,12 +258,15 @@ class RDFLite < ActiveRdfAdapter
 
 	# sort query results on variable clause (optionally)
 	def construct_sort(query)
-		return "" if query.sort_clauses.empty?
-
-		sort = query.sort_clauses.collect do |term|
-			variable_name(query, term)
-		end
-		" order by (#{sort.join(',')})"
+    if not query.sort_clauses.empty?
+      sort = query.sort_clauses.collect { |term| variable_name(query, term) }
+      " order by (#{sort.join(',')})"
+    elsif not query.reverse_sort_clauses.empty?
+      sort = query.reverse_sort_clauses.collect { |term| variable_name(query, term) }
+      " order by (#{sort.join(',')}) DESC"
+    else
+      ""
+    end
 	end
 
 	# construct join clause
@@ -368,7 +378,7 @@ class RDFLite < ActiveRdfAdapter
 		end
 
 		# if keyword clause given, convert it using keyword index
-		if query.keyword?
+		if query.keyword? && keyword_search?
 			subjects = []
 			select_subject = query.keywords.collect {|subj,key| subj}.uniq
 			raise ActiveRdfError, "cannot do keyword search over multiple subjects" if select_subject.size > 1
@@ -412,16 +422,21 @@ class RDFLite < ActiveRdfAdapter
 	end
 
 	def subproperties(resource)
-		subproperty = Namespace.lookup(:rdfs,:subPropertyOf)
-		children_query = Query.new.distinct(:sub).where(:sub, subproperty, resource)
-		children_query.reasoning = false
-		children = children_query.execute
-
-		if children.empty?
-			[resource]
-		else
-			[resource] + children.collect{|c| subproperties(c)}.flatten.compact
-		end
+    # compute and store subproperties of this resource 
+    # or use earlier computed value if available
+    unless @subprops[resource]
+      subproperty = Namespace.lookup(:rdfs,:subPropertyOf)
+      children_query = Query.new.distinct(:sub).where(:sub, subproperty, resource)
+      children_query.reasoning = false
+      children = children_query.execute
+
+      if children.empty?
+        @subprops[resource] = [resource]
+      else
+        @subprops[resource] = [resource] + children.collect{|c| subproperties(c)}.flatten.compact
+      end
+    end
+    @subprops[resource]
 	end
 
 	# returns sql variable name for a queryterm
@@ -446,7 +461,7 @@ class RDFLite < ActiveRdfAdapter
 			if query.keywords.keys.include?(term)
 				return "t0.s"
 			else
-				raise ActiveRdfError,'unbound variable in select clause'
+				raise ActiveRdfError, "unbound variable :#{term.to_s} in select of #{query.to_sp}"
 			end
 		end
 
@@ -490,7 +505,7 @@ class RDFLite < ActiveRdfAdapter
 			@db.execute('create index if not exists pidx on triple(p)') if pidx
 			@db.execute('create index if not exists oidx on triple(o)') if oidx
 			@db.execute('create index if not exists spidx on triple(s,p)') if spidx
-			@db.execute('create index if not exists soidx on triple(s,p)') if soidx
+			@db.execute('create index if not exists soidx on triple(s,o)') if soidx
 			@db.execute('create index if not exists poidx on triple(p,o)') if poidx
 			@db.execute('create index if not exists opidx on triple(o,p)') if opidx
 		end

data/test/test_data.nt

@@ -1,32 +1,32 @@
 <http://activerdf.org/test/Person> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Class> .
+<http://activerdf.org/test/Person> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://activerdf.org/test/Person> <http://www.w3.org/2000/01/rdf-schema#subClassOf> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://activerdf.org/test/eyal> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://activerdf.org/test/Person> .
-<http://activerdf.org/test/eyal> <http://activerdf.org/test/age> "27" .
-<http://activerdf.org/test/eyal> <http://activerdf.org/test/name> "Eyal Oren" .
-<http://activerdf.org/test/eyal> <http://activerdf.org/test/eye> "blue" .
-<http://activerdf.org/test/age> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://activerdf.org/test/eye> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://activerdf.org/test/car> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://activerdf.org/test/age> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> .
-<http://activerdf.org/test/eye> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> .
-<http://activerdf.org/test/car> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> .
+<http://activerdf.org/test/age> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://activerdf.org/test/age> <http://www.w3.org/2000/01/rdf-schema#domain> <http://activerdf.org/test/Person> .
+<http://activerdf.org/test/age> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://activerdf.org/test/age> <http://www.w3.org/2000/01/rdf-schema#range> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Literal> .
-<http://activerdf.org/test/eye> <http://www.w3.org/2000/01/rdf-schema#domain> <http://activerdf.org/test/Person> .
-<http://activerdf.org/test/eye> <http://www.w3.org/2000/01/rdf-schema#range> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Literal> .
+<http://activerdf.org/test/car> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> .
+<http://activerdf.org/test/car> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://activerdf.org/test/car> <http://www.w3.org/2000/01/rdf-schema#domain> <http://activerdf.org/test/Person> .
+<http://activerdf.org/test/car> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://activerdf.org/test/car> <http://www.w3.org/2000/01/rdf-schema#range> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Literal> .
-<http://activerdf.org/test/Person> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://activerdf.org/test/eye> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
+<http://activerdf.org/test/eyal> <http://activerdf.org/test/age> "27" .
+<http://activerdf.org/test/eyal> <http://activerdf.org/test/eye> "blue" .
+<http://activerdf.org/test/eyal> <http://activerdf.org/test/name> "Eyal Oren" .
+<http://activerdf.org/test/eyal> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://activerdf.org/test/Person> .
 <http://activerdf.org/test/eyal> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://activerdf.org/test/age> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://activerdf.org/test/car> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
-<http://www.w3.org/2000/01/rdf-schema#Class> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Class> .
-<http://www.w3.org/2000/01/rdf-schema#Class> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
+<http://activerdf.org/test/eye> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> .
+<http://activerdf.org/test/eye> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
+<http://activerdf.org/test/eye> <http://www.w3.org/2000/01/rdf-schema#domain> <http://activerdf.org/test/Person> .
+<http://activerdf.org/test/eye> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
+<http://activerdf.org/test/eye> <http://www.w3.org/2000/01/rdf-schema#range> <http://www.w3.org/1999/02/22-rdf-syntax-ns#Literal> .
 <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Class> .
 <http://www.w3.org/1999/02/22-rdf-syntax-ns#Property> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#domain> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#range> <http://www.w3.org/2000/01/rdf-schema#Class> .
-_:#1 <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://activerdf.org/test/Person> .
+<http://www.w3.org/2000/01/rdf-schema#Class> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Class> .
+<http://www.w3.org/2000/01/rdf-schema#Class> <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://www.w3.org/2000/01/rdf-schema#Resource> .
 _:#1 <http://activerdf.org/test/age> "29" .
 _:#1 <http://activerdf.org/test/name> "Another Person" .
+_:#1 <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://activerdf.org/test/Person> .

data/test/test_fetching.rb

@@ -22,7 +22,7 @@ class TestFetchingAdapter < Test::Unit::TestCase
   
   def test_sioc_schema
     @adapter.fetch("http://rdfs.org/sioc/ns#")
-    assert_equal 461, @adapter.size 
+    assert_equal 560, @adapter.size 
   end
     
   def test_foaf_schema

data/test/test_rdflite.rb

@@ -40,7 +40,6 @@ class TestRdfLiteAdapter < Test::Unit::TestCase
 		assert_equal adapter1.object_id, adapter2.object_id
 	end
 
-
   def test_simple_query
     adapter = ConnectionPool.add_data_source(:type => :rdflite)
 
@@ -260,4 +259,17 @@ class TestRdfLiteAdapter < Test::Unit::TestCase
 		query.where(:Mary, :p, :Anne)
 		assert_equal 1, query.execute.size
 	end
+
+  def test_limit_and_offset
+    adapter = ConnectionPool.add_data_source :type => :rdflite
+		adapter.load(File.dirname(File.expand_path(__FILE__)) + '/test_data.nt')
+    Namespace.register(:test, 'http://activerdf.org/test/')
+
+    assert_equal 7, RDFS::Resource.find(:all).size
+    assert_equal 5, RDFS::Resource.find(:all, :limit => 5).size
+    assert_equal 4, RDFS::Resource.find(:all, :limit => 4, :offset => 3).size
+    assert RDFS::Resource.find(:all, :limit => 4, :offset => 3) != RDFS::Resource.find(:all, :limit => 4)
+
+    assert_equal [TEST::eyal, TEST::age, TEST::car], RDFS::Resource.find(:all, :limit => 3, :order => RDF::type)
+  end
 end

metadata

@@ -1,130 +1,88 @@
---- !ruby/object:Gem::Specification 
-rubygems_version: 0.9.2
-specification_version: 1
-name: activerdf_rdflite
-version: !ruby/object:Gem::Version 
-  version: "1.3"
-date: 2007-02-27 00:00:00 +00:00
-summary: an RDF database for usage in ActiveRDF (based on sqlite3)
-require_paths: 
-- lib
-email: 
+--- !ruby/object:Gem::Specification
 homepage: 
-rubyforge_project: 
-description: an RDF database for usage in ActiveRDF (based on sqlite3)
-autorequire: 
-default_executable: 
-bindir: bin
-has_rdoc: true
-required_ruby_version: !ruby/object:Gem::Version::Requirement 
-  requirements: 
-  - - ">"
-    - !ruby/object:Gem::Version 
-      version: 0.0.0
-  version: 
-platform: ruby
-signing_key: 
-cert_chain: 
+extensions: []
+executables: []
+version: !ruby/object:Gem::Version
+  version: !str 1.4
 post_install_message: 
-authors: 
-- Eyal Oren <eyal.oren@deri.org
+date: 2007-09-01 22:00:00 +00:00
 files: 
 - LICENSE
 - README
 - CHANGELOG
-- doc/rdoc/created.rid
-- doc/rdoc/rdoc-style.css
-- doc/rdoc/files
-- doc/rdoc/classes
-- doc/rdoc/fr_file_index.html
-- doc/rdoc/fr_class_index.html
-- doc/rdoc/fr_method_index.html
-- doc/rdoc/index.html
-- doc/rdoc/files/README.html
-- doc/rdoc/files/LICENSE.html
-- doc/rdoc/files/lib
-- doc/rdoc/files/lib/activerdf_rdflite
-- doc/rdoc/files/lib/activerdf_rdflite/fetching_rb.html
-- doc/rdoc/files/lib/activerdf_rdflite/init_rb.html
-- doc/rdoc/files/lib/activerdf_rdflite/rdflite_rb.html
-- doc/rdoc/files/lib/activerdf_rdflite/suggesting_rb.html
-- doc/rdoc/classes/RDFLite.src
-- doc/rdoc/classes/SuggestingAdapter.src
-- doc/rdoc/classes/FetchingAdapter.src
-- doc/rdoc/classes/RDFLite.html
-- doc/rdoc/classes/SuggestingAdapter.html
-- doc/rdoc/classes/FetchingAdapter.html
-- doc/rdoc/classes/RDFLite.src/M000001.html
-- doc/rdoc/classes/RDFLite.src/M000002.html
-- doc/rdoc/classes/RDFLite.src/M000003.html
-- doc/rdoc/classes/RDFLite.src/M000004.html
-- doc/rdoc/classes/RDFLite.src/M000005.html
-- doc/rdoc/classes/RDFLite.src/M000006.html
-- doc/rdoc/classes/RDFLite.src/M000007.html
-- doc/rdoc/classes/RDFLite.src/M000008.html
-- doc/rdoc/classes/RDFLite.src/M000009.html
-- doc/rdoc/classes/RDFLite.src/M000010.html
-- doc/rdoc/classes/RDFLite.src/M000011.html
-- doc/rdoc/classes/RDFLite.src/M000012.html
-- doc/rdoc/classes/SuggestingAdapter.src/M000013.html
-- doc/rdoc/classes/SuggestingAdapter.src/M000014.html
-- doc/rdoc/classes/FetchingAdapter.src/M000015.html
 - test/test_bnode_data.nt
 - test/test_data.nt
+- test/test_escaped_data.nt
 - test/test_fetching.rb
 - test/test_rdflite.rb
-- test/test_escaped_data.nt
 - lib/activerdf_rdflite
 - lib/activerdf_rdflite/fetching.rb
 - lib/activerdf_rdflite/init.rb
 - lib/activerdf_rdflite/rdflite.rb
 - lib/activerdf_rdflite/suggesting.rb
-test_files: []
-
+rubygems_version: 0.9.4
 rdoc_options: []
-
-extra_rdoc_files: 
-- README
-executables: []
-
-extensions: []
-
-requirements: []
-
+signing_key: 
+cert_chain: 
+name: activerdf_rdflite
+has_rdoc: true
+platform: ruby
+summary: an RDF database for usage in ActiveRDF (based on sqlite3)
+default_executable: 
+bindir: bin
+required_ruby_version: !ruby/object:Gem::Version::Requirement
+  version: 
+  requirements: 
+  - - '>'
+    - !ruby/object:Gem::Version
+      version: 0.0.0
+require_paths: 
+- lib
+specification_version: 1
+test_files: []
 dependencies: 
-- !ruby/object:Gem::Dependency 
+- !ruby/object:Gem::Dependency
   name: gem_plugin
   version_requirement: 
-  version_requirements: !ruby/object:Gem::Version::Requirement 
+  version_requirements: !ruby/object:Gem::Version::Requirement
+    version: 
     requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
+    - - '>='
+      - !ruby/object:Gem::Version
         version: 0.2.1
-    version: 
-- !ruby/object:Gem::Dependency 
+- !ruby/object:Gem::Dependency
   name: uuidtools
   version_requirement: 
-  version_requirements: !ruby/object:Gem::Version::Requirement 
+  version_requirements: !ruby/object:Gem::Version::Requirement
+    version: 
     requirements: 
-    - - ">"
-      - !ruby/object:Gem::Version 
+    - - '>'
+      - !ruby/object:Gem::Version
         version: 0.0.0
-    version: 
-- !ruby/object:Gem::Dependency 
+- !ruby/object:Gem::Dependency
   name: activerdf
   version_requirement: 
-  version_requirements: !ruby/object:Gem::Version::Requirement 
-    requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
-        version: "1.2"
+  version_requirements: !ruby/object:Gem::Version::Requirement
     version: 
-- !ruby/object:Gem::Dependency 
+    requirements: 
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 1.6.4
+- !ruby/object:Gem::Dependency
   name: sqlite3-ruby
   version_requirement: 
-  version_requirements: !ruby/object:Gem::Version::Requirement 
+  version_requirements: !ruby/object:Gem::Version::Requirement
+    version: 
     requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
+    - - '>='
+      - !ruby/object:Gem::Version
         version: 1.2.1
-    version: 
+description: an RDF database for usage in ActiveRDF (based on sqlite3)
+authors: 
+- Eyal Oren <eyal.oren@deri.org
+email: 
+extra_rdoc_files: 
+- README
+requirements: []
+rubyforge_project: 
+autorequire: 

data/doc/rdoc/classes/FetchingAdapter.html

@@ -1,150 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<!DOCTYPE html 
-     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
-     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
-
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
-<head>
-  <title>Class: FetchingAdapter</title>
-  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
-  <meta http-equiv="Content-Script-Type" content="text/javascript" />
-  <link rel="stylesheet" href=".././rdoc-style.css" type="text/css" media="screen" />
-  <script type="text/javascript">
-  // <![CDATA[
-
-  function popupCode( url ) {
-    window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
-  }
-
-  function toggleCode( id ) {
-    if ( document.getElementById )
-      elem = document.getElementById( id );
-    else if ( document.all )
-      elem = eval( "document.all." + id );
-    else
-      return false;
-
-    elemStyle = elem.style;
-    
-    if ( elemStyle.display != "block" ) {
-      elemStyle.display = "block"
-    } else {
-      elemStyle.display = "none"
-    }
-
-    return true;
-  }
-  
-  // Make codeblocks hidden by default
-  document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
-  
-  // ]]>
-  </script>
-
-</head>
-<body>
-
-
-
-    <div id="classHeader">
-        <table class="header-table">
-        <tr class="top-aligned-row">
-          <td><strong>Class</strong></td>
-          <td class="class-name-in-header">FetchingAdapter</td>
-        </tr>
-        <tr class="top-aligned-row">
-            <td><strong>In:</strong></td>
-            <td>
-                <a href="../files/lib/activerdf_rdflite/fetching_rb.html">
-                lib/activerdf_rdflite/fetching.rb
-                </a>
-        <br />
-            </td>
-        </tr>
-
-        <tr class="top-aligned-row">
-            <td><strong>Parent:</strong></td>
-            <td>
-                <a href="RDFLite.html">
-                RDFLite
-               </a>
-            </td>
-        </tr>
-        </table>
-    </div>
-  <!-- banner header -->
-
-  <div id="bodyContent">
-
-
-
-  <div id="contextContent">
-
-    <div id="description">
-      <p>
-<a href="FetchingAdapter.html">FetchingAdapter</a> is an extension to
-rdflite for fetching RDF from online sources.
-</p>
-
-    </div>
-
-
-   </div>
-
-    <div id="method-list">
-      <h3 class="section-bar">Methods</h3>
-
-      <div class="name-list">
-      <a href="#M000015">fetch</a>&nbsp;&nbsp;
-      </div>
-    </div>
-
-  </div>
-
-
-    <!-- if includes -->
-
-    <div id="section">
-
-
-
-
-
-      
-
-
-    <!-- if method_list -->
-    <div id="methods">
-      <h3 class="section-bar">Public Instance methods</h3>
-
-      <div id="method-M000015" class="method-detail">
-        <a name="M000015"></a>
-
-        <div class="method-heading">
-          <a href="FetchingAdapter.src/M000015.html" target="Code" class="method-signature"
-            onclick="popupCode('FetchingAdapter.src/M000015.html');return false;">
-          <span class="method-name">fetch</span><span class="method-args">(url)</span>
-          </a>
-        </div>
-      
-        <div class="method-description">
-          <p>
-fetches RDF/XML data from given url and adds it to the datastore, using the
-source url as context identifier.
-</p>
-        </div>
-      </div>
-
-
-    </div>
-
-
-  </div>
-
-
-<div id="validator-badges">
-  <p><small><a href="http://validator.w3.org/check/referer">[Validate]</a></small></p>
-</div>
-
-</body>
-</html>