' else '' end end #+END_SRC ***** submission form #+HEADER: :tangle "../sundry/util/rb/cgi/spine.search.cgi" #+BEGIN_SRC ruby def submission_form search_form =<<-WOK
|
pg. #{page.to_s}
pg. #{page.to_s}
pg. #{page.to_s}
pg. #{page.to_s}
|
Generated by
SiSU 6.3.1 2014-10-19 (2014w41/7)
|
SiSU using:
| |
|
SiSU is released under GPL v3 or later, https://www.gnu.org/licenses/gpl.html |
SiSU, developed using Ruby on Debian/Gnu/Linux software infrastructure, with the usual GPL (or OSS) suspects. |
} p_text=p_fulltext=p_keywords=p_title=p_author=p_topic_register=p_subject=p_description=p_publisher=p_editor=p_contributor=p_date=p_type=p_format=p_identifier=p_source=p_language=p_relation=p_coverage=p_rights=p_comment=p_abstract=p_filename='' p_filename = %{src_filename_base: #{green}#{@search_for.src_filename_base}
} if @search_for.src_filename_base =~ /\S+/ p_text = %{text: #{green}#{@search_for.text1}
} if @search_for.text1 =~ /\S+/ p_fulltext = %{fulltxt: #{green}#{@search_for.fulltext}
} if @search_for.fulltext =~ /\S+/ p_title = %{title: #{green}#{@search_for.title}
} if @search_for.title =~ /\S+/ p_author = %{author: #{green}#{@search_for.author}
} if @search_for.author =~ /\S+/ p_editor = %{editor: #{green}#{@search_for.editor}
} if @search_for.editor =~ /\S+/ p_contributor = %{contributor: #{green}#{@search_for.contributor}
} if @search_for.contributor =~ /\S+/ p_date = %{date: #{green}#{@search_for.date}
} if @search_for.date =~ /\S+/ p_rights = %{rights: #{green}#{@search_for.rights}
} if @search_for.rights =~ /\S+/ p_topic_register = %{topic_register: #{green}#{@search_for.topic_register}
} if @search_for.topic_register =~ /\S+/ p_subject = %{subject: #{green}#{@search_for.subject}
} if @search_for.subject =~ /\S+/ p_keywords = %{keywords: #{green}#{@search_for.keywords}
} if @search_for.keywords =~ /\S+/ p_identifier = %{identifier: #{green}#{@search_for.identifier}
} if @search_for.identifier =~ /\S+/ p_type = %{type: #{green}#{@search_for.type}
} if @search_for.type =~ /\S+/ p_format = %{format: #{green}#{@search_for.format}
} if @search_for.format =~ /\S+/ p_relation = %{relation: #{green}#{@search_for.relation}
} if @search_for.relation =~ /\S+/ p_coverage = %{coverage: #{green}#{@search_for.coverage}
} if @search_for.coverage =~ /\S+/ p_description = %{description: #{green}#{@search_for.description}
} if @search_for.description =~ /\S+/ p_abstract = %{abstract: #{green}#{@search_for.abstract}
} if @search_for.abstract =~ /\S+/ p_comment = %{comment: #{green}#{@search_for.comment}
} if @search_for.comment =~ /\S+/ p_publisher = %{publisher: #{green}#{@search_for.publisher}
} if @search_for.publisher =~ /\S+/ p_source = %{source: #{green}#{@search_for.source}
} if @search_for.source =~ /\S+/ p_language = %{language: #{green}#{@search_for.language}
} if @search_for.language =~ /\S+/ search_note=<<-WOK database: #{green}#{@db}; selected view: #{green}#{cgi['view']} search string: "#{green}#{analyze_format}"
#{p_text} #{p_fulltext} #{p_keywords} #{p_title} #{p_author} #{p_topic_register} #{p_subject} #{p_description} #{p_publisher} #{p_editor} #{p_contributor} #{p_date} #{p_type} #{p_format} #{p_identifier} #{p_source} #{p_language} #{p_relation} #{p_coverage} #{p_rights} #{p_comment} #{p_abstract} #{p_filename} WOK #eg = %{canned search e.g.:
#{url}
find: #{analyze}
database: #{database}} #% dbi_canning #+END_SRC ***** submission form #+HEADER: :tangle "../sundry/util/rb/cgi/spine.search.cgi" #+BEGIN_SRC ruby @header = Form.new(@base,search_field,selected_db,result_type,checked_sql_limit,checked_tip,checked_stats,checked_searched,checked_url,checked_case,checked_echo,checked_sql,checked_all,checked_none,checked_selected,checked_default,search_note,the_can).submission_form #% form unless q['s1'] =~/\S/ or q['au'] =~/\S/ or @search[:text][1] =~/\S/ print "Content-type: text/html\n\n" puts (@header+@tail) else #% searches s1=(@search_for.text1 =~/\S/) \ ? @search_for.text1 : 'Unavailable' if checked_case=~/\S/ @search[:text]<<%{doc_objects.clean~'#{CGI.unescape(s1)}'} else @search[:text]<<%{doc_objects.clean~*'#{CGI.unescape(s1)}'} end #% dbi_request dbi_statement=DBI_SearchStatement.new(@conn,@search_for,q,checked_case) @text_search_flag=false @text_search_flag=dbi_statement.text_search_flag s_contents=dbi_statement.contents @body_main='' @search_regx=nil olduid="" if @text_search_flag if checked_sql =~/\S/ sql_select_body=dbi_statement.sql_select_body_format else sql_select_body='' end @body_main << sql_select_body #@body_main << '
Main Text:
' << sql_select_body else end @hostpath = "#{@hosturl_files}" #@hostpath="#{@hosturl_files}/#{@stub}" def path_manifest(fn,ln=nil) case @output_dir_structure_by when 'filename' @lingual =='mono' \ ? "#{@hostpath}/#{fn}/sisu_manifest.html" : "#{@hostpath}/#{fn}/sisu_manifest.#{ln}.html" when 'filetype' @lingual =='mono' \ ? "#{@hostpath}/manifest/#{fn}.html" : "#{@hostpath}/manifest/#{fn}.#{ln}.html" else "#{@hostpath}/#{ln}/manifest/#{fn}.html" end end def path_html_seg(fn,ln=nil) case @output_dir_structure_by when 'filename' "#{@hostpath}/#{fn}" when 'filetype' "#{@hostpath}/html/#{fn}" else "#{@hostpath}/#{ln}/html/#{fn}" end end def path_toc(fn,ln=nil) if @output_dir_structure_by =='filename' \ or @output_dir_structure_by =='filetype' @lingual =='mono' \ ? "#{path_html_seg(fn,ln)}/toc.html" : "#{path_html_seg(fn,ln)}/toc.#{ln}.html" else "#{path_html_seg(fn,ln)}/toc.html" end end def path_filename(fn,seg_name,ln=nil) if @output_dir_structure_by =='filename' \ or @output_dir_structure_by =='filetype' @lingual =='mono' \ ? "#{path_html_seg(fn,ln)}/#{seg_name}.html" : "#{path_html_seg(fn,ln)}/#{seg_name}.#{ln}.html" else "#{path_html_seg(fn,ln)}/#{seg_name}.html" end end def path_html_doc(fn,ln=nil) case @output_dir_structure_by when 'filename' @lingual =='mono' \ ? "#{path_html_seg(fn,ln)}/scroll.html" : "#{path_html_seg(fn,ln)}/scroll.#{ln}.html" when 'filetype' @lingual =='mono' \ ? "#{@hostpath}/html/#{fn}.html" : "#{@hostpath}/html/#{fn}.#{ln}.html" else "#{@hostpath}/#{ln}/html/#{fn}.html" end end #+END_SRC ***** contents each, text body #+HEADER: :tangle "../sundry/util/rb/cgi/spine.search.cgi" #+BEGIN_SRC ruby #% text_objects_body s_contents.each do |c| #% text body location=c['src_filename_base'][/(.+?)\.(?:ssm\.sst|sst)$/,1] file_suffix=c['src_filename_base'][/.+?\.(ssm\.sst|sst)$/,1] lang=if location =~ /\S+?~(\S\S\S?)$/ l=location[/\S+?~(\S\S\S?)$/,1] location=location.gsub(/(\S+?)~\S\S\S?/,'\1') l=".#{l}" else '' end #% metadata_found_body if c['uid'] != olduid ti=c['title'] can_txt_srch=(cgi['view']=~/index/) \ ? %{
}
: %{ }
title = %{
#{ti} [#{c['language_document_char']}] by #{c['creator_author']} 
#{can_txt_srch}} title=@text_search_flag \ ? '
'+title : '
'+title @counter_txt_doc+=1 olduid=c['uid'] else title='' end if @text_search_flag if cgi['view']=~/text/ \ or (cgi['view']!~/index/ and cgi['search'] !~/search db/) #% txt body text=if c['suffix'] !~/1/ #seg if @search_for.text1 =~/\S+/ \ or q['s1'] =~/\S+/ #% only this branch is working !! unescaped_search=if @search_for.text1 =~/\S+/ CGI.unescape(@search_for.text1) elsif q['s1'] =~/\S+/ CGI.unescape(q['s1']) else nil end @search_regx=if unescaped_search #check search_regex=[] build=unescaped_search.scan(/\S+/).each do |g| (g.to_s =~/(AND|OR)/) \ ? (search_regex << '|') : (search_regex << %{#{g.to_s}}) end search_regex=search_regex.join(' ') search_regex=search_regex.gsub(/\s*\|\s*/,'|') Regexp.new(search_regex, Regexp::IGNORECASE) else nil end else nil end matched_para=(@search_regx.to_s.class==String && @search_regx.to_s=~/\S\S+/) \ ? (c['body'].gsub(/(
ocn #{c['ocn']}:
#{matched_para}} elsif c['suffix'] =~/1/ #doc %{#{title}ocn #{c['ocn']}:#{c['body']}}
end
@counter_txt_ocn+=1
output=title+text
else #elsif cgi['view']=~/index/ #% idx body
if c['suffix'] !~/1/ #seg
index=%{#{c['ocn']}, } if @text_search_flag
elsif c['suffix'] =~/1/ #doc #FIX
index=%{#{c['ocn']}, }
end
if c['seg_name'] =~/\S+/
if @text_search_flag
@counter_txt_ocn+=1
output=title+index
end
else
@counter_txt_ocn+=1
output=c['suffix'] !~/1/ \
? title+index
: %{#{title}#{c['ocn'].sort}, }
end
end
else output=title
end
@counters_txt=if @counter_txt_doc > 0
if checked_stats =~/\S/
@@lt_t=(@counter_txt_ocn==dbi_statement.sql_match_limit.to_i) ? true : false
start=(@@offset.to_i+1).to_s
range=(@@offset.to_i+@counter_txt_ocn.to_i).to_s
%{
Found #{@counter_txt_ocn} times in the main body of #{@counter_txt_doc} documents [ matches #{start} to #{range} ]
}
else ''
end
else ''
end
@body_main << output #+ details
end
#+END_SRC
***** after
#+HEADER: :tangle "../sundry/util/rb/cgi/spine.search.cgi"
#+BEGIN_SRC ruby
olduid = ""
offset=dbi_statement.sql_offset.to_s
limit=dbi_statement.sql_match_limit.to_s
@@lt_t ||=false; @@lt_e ||=false
canned=(@@lt_t or @@lt_e) \
? dbi_statement.pre_next(true,@image_src).to_s
: dbi_statement.pre_next(false,@image_src).to_s
limit=dbi_statement.sql_match_limit.to_s
cgi.out{
@header.force_encoding("UTF-8") \
+ @counters_txt.force_encoding("UTF-8") \
+ @counters_endn.force_encoding("UTF-8") \
+ canned.force_encoding("UTF-8") \
+ @body_main.force_encoding("UTF-8") \
+ canned.force_encoding("UTF-8") \
+ @tail.force_encoding("UTF-8")
} #% print cgi_output_header+counters+body
end
rescue Exception => e
s='' + CGI::escapeHTML(e.backtrace.reverse.join("\n"))
s << CGI::escapeHTML(e.message) + ''
cgi.out{s}
next
ensure # eg. disconnect from server
@conn.disconnect if @conn
end
end
#+END_SRC