http://snippets.dzone.com/posts Thu, 28 Aug 2008 21:12:15 GMT DZone Snippets: verse code http://snippets.dzone.com/posts/show/2185 <code> <br />require 'net/http' <br /> <br />LS_BASE_URL = 'http://www.seek-first.com/Bible.php?q=&passage=Seek' <br /> <br />def lookup_ls(reference, translation) # living stones (KJV, ASV, YLT, AKJV, WEB) <br /> return if reference.nil? or reference.empty? <br /> url = LS_BASE_URL + '&p=' + URI.escape(reference) + '&version=' + translation <br /> result = Net::HTTP.get(URI.parse(url)) <br /> url = /<!\-\-\s*(http:\/\/api\.seek\-first\.com.+?)\s*\-\->/.match(result)[1] <br /> result = Net::HTTP.get(URI.parse(url)).gsub(/\s+/, ' ').gsub(/“|�/, '"').gsub(/‘|’/, "'").gsub('*', '') <br /> text = result.scan(/<Text>(.+?)<\/Text>/).map { |p| p[0].strip.gsub(/<.+?>/, '') }.join(' ') rescue nil <br /> return {:reference => reference, :text => text} <br />end <br /></code> Wed, 14 Jun 2006 20:53:11 GMT http://snippets.dzone.com/posts/show/2185 timmorgan (Tim Morgan) http://snippets.dzone.com/posts/show/2068 <code> <br />require 'net/http' <br /> <br />BASE_URL = 'http://www.gnpcb.org/esv/share/get/' <br />OPTIONS = { <br /> 'key' => 'IP', <br /> 'action' => 'doPassageQuery', <br /> 'include-verse-numbers' => '0', <br /> 'include-short-copyright' => '0', <br /> 'output-format' => 'plain-text', <br /> 'include-passage-horizontal-lines' => '0', <br /> 'include-heading-horizontal-lines' => '0', <br /> 'include-passage-references' => '1', <br /> 'include-first-verse-numbers' => '0', <br /> 'include-footnotes' => '0', <br /> 'include-footnote-links' => '0', <br /> 'include-headings' => '0', <br /> 'include-subheadings' => '0', <br /> 'line-length' => '0', <br />} <br /> <br />def combine_refs(refs) <br /> combined = refs.first <br /> refs[1..-1].each do |ref| <br /> if combined.index(ref.gsub(/\:.*$/, '')) == 0 <br /> combined += ',' + /\:(.*)$/.match(ref)[1] <br /> elsif combined.index(ref.gsub(/\d+\:.*$/, '')) == 0 <br /> combined += ';' + /\d+\:.*$/.match(ref)[0] <br /> else <br /> return nil # couldn't do it - fail *not* gracefully <br /> end <br /> end <br /> combined <br />end <br /> <br />def lookup_esv(reference) <br /> return if reference.nil? or reference.empty? <br /> url = BASE_URL + '?' + OPTIONS.map { |name, value| "#{name}=#{value}" }.join('&') + '&passage=' + URI.escape(reference) <br /> result = Net::HTTP.get(URI.parse(url)) <br /> if result =~ /^ERROR/ <br /> puts 'Error retrieving verse from web service' <br /> nil <br /> else <br /> refs = [] <br /> result.scan(/^\S.+$/) {|ref| refs << ref } <br /> refs.each {|ref| result.gsub! ref, '' } <br /> reference = combine_refs(refs) <br /> text = result.gsub(/\s+/, ' ').strip <br /> text = text.gsub(/"/, '') if (text.count('"') == 1 and text[0..0] == '"') <br /> return {:reference => reference, :text => text} <br /> end <br />end <br /></code> <br /> <br /><strong>Usage:</strong> <br /> <br /><code> <br />> lookup_esv('John 3:16') <br />=> {:text=>"For God so loved the world, that he gave his only Son, that whoever <br />believes in him should not perish but have eternal life.", :reference=>"John 3:16"} <br /></code> Thu, 18 May 2006 03:24:42 GMT http://snippets.dzone.com/posts/show/2068 timmorgan (Tim Morgan)