' else '' end end 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, http://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=%{filename: #{green}#{@search_for.filename}
} if @search_for.filename =~/\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 @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 oldtid=0 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}/#{@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,ln=nil) if @output_dir_structure_by =='filename' \ or @output_dir_structure_by =='filetype' @lingual =='mono' \ ? "#{path_html_seg(fn,ln)}/#{seg}.html" : "#{path_html_seg(fn,ln)}/#{seg}.#{ln}.html" else "#{path_html_seg(fn,ln)}/#{seg}.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 #% text_objects_body s_contents.each do |c| #% text body location=c['src_filename'][/(.+?)\.(?:ssm\.sst|sst)$/,1] file_suffix=c['src_filename'][/.+?\.(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['tid'].to_i != oldtid.to_i ti=c['title'] can_txt_srch=(cgi['view']=~/index/) \ ? %{
}
: %{ }
title=%{
#{ti} [#{c['language_document_char']}] by #{c['creator_author']} 
#{can_txt_srch}} if file_suffix=~/s/ #hmm watch file_suffix title=@text_search_flag \ ? '
'+title : '
'+title @counter_txt_doc+=1 oldtid=c['tid'].to_i 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'] =~/\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
oldtid = 0
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