' else '' end end def submission_form search_form=<<-WOK WOK_SQL end def header_desc <<-WOK_SQL
 |
pg. #{page.to_s}
pg. #{page.to_s}
pg. #{page.to_s}
pg. #{page.to_s}
|
|
Generated by
#{v[:project]} #{v[:version]} #{v[:date]} (#{v[:date_stamp]})
|
#{v[:project]} using:
|
|
|
SiSU is released under GPL v3 or later, http://www.gnu.org/licenses/gpl.html |
#{v[:project]}, developed using
Ruby
on
Debian/Gnu/Linux
software infrastructure,
with the usual GPL (or OSS) suspects.
|
} p_text=p_keywords=p_title=p_author=p_subject=p_description=p_publisher=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_subject=p_filename='' p_text=%{text: #{green}#{@search_for.text1}
} if @search_for.text1 =~/\S+/ p_keywords=%{keywords: #{green}#{@search_for.keywords}
} if @search_for.keywords =~/\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_subject=%{subject: #{green}#{@search_for.subject}
} if @search_for.subject =~/\S+/ p_description=%{description: #{green}#{@search_for.description}
} if @search_for.description =~/\S+/ p_publisher=%{publisher: #{green}#{@search_for.publisher}
} if @search_for.publisher =~/\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_type=%{type: #{green}#{@search_for.type}
} if @search_for.type =~/\S+/ p_format=%{format: #{green}#{@search_for.format}
} if @search_for.format =~/\S+/ p_identifier=%{identifier: #{green}#{@search_for.identifier}
} if @search_for.identifier =~/\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+/ 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_rights=%{rights: #{green}#{@search_for.rights}
} if @search_for.rights =~/\S+/ p_comment=%{comment: #{green}#{@search_for.comment}
} if @search_for.comment =~/\S+/ p_abstract=%{abstract: #{green}#{@search_for.abstract}
} if @search_for.abstract =~/\S+/ p_filename=%{filename: #{green}#{@search_for.filename}
} if @search_for.filename =~/\S+/ search_note=<<-WOK database: #{green}#{@db}; selected view: #{green}#{cgi['view']} search string: "#{green}#{analyze_format}"
#{p_text} #{p_keywords} #{p_title} #{p_author} #{p_subject} #{p_description} #{p_publisher} #{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,checked_index,checked_text,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=if @search_for.text1 =~/\S/ @search_for.text1 else 'Unavailable' end if checked_case=~/\S/ @search[:text]<<%{documents.clean~'#{CGI.unescape(s1)}'} @search[:endnotes]<<%{endnotes.clean~'#{CGI.unescape(s1)}'} else @search[:text]<<%{documents.clean~*'#{CGI.unescape(s1)}'} @search[:endnotes]<<%{endnotes.clean~*'#{CGI.unescape(s1)}'} end #dbi_request dbi_statement=Dbi_search_statement.new(@conn,@search_for,q,checked_case) @text_search_flag=false @text_search_flag=dbi_statement.text_search_flag s_contents=dbi_statement.contents s_endnotes=dbi_statement.endnotes @body_main,@endnotes=[],[] @search_regx=nil oldtid=0 if @text_search_flag if checked_sql =~/\S/ sql_select_body=dbi_statement.sql_select_body_format sql_select_endnotes=dbi_statement.sql_select_endnotes_format else sql_select_body,sql_select_endnotes='','' end @body_main << '
Main Text:
' << sql_select_body @endnotes << '
Endnotes:
' << sql_select_endnotes else end #text_objects_body s_contents.each do |c| #% text body location=c['filename'][/(.+?)\.(?:ssm\.sst|sst)$/,1] file_suffix=c['filename'][/.+?\.(_?sst|ssm)$/,1] lang=if location =~ /\S+?~(\S\S\S?)$/ l=location[/\S+?~(\S\S\S?)$/,1] location.gsub!(/(\S+?)~\S\S\S?/,'\1') l=".#{l}" else '' end #metadata_found_body if c['tid'].to_i != oldtid.to_i ti=if c['subtitle'] =~/\S+/; "#{c['title']} - #{c['subtitle']}" else c['title'] end can_txt_srch=if cgi['view']=~/index/; %{
}
else %{ }
end
title=%{
#{ti} by #{c['creator']} #{can_txt_srch} 
} if file_suffix=~/s/ #hmm watch file_suffix if @text_search_flag; title='
'+title else title='
'+title end @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| if g.to_s =~/(AND|OR)/ search_regex << '|' else search_regex << %{#{g.to_s}} end 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=if (@search_regx.to_s.class==String && @search_regx.to_s=~/\S\S+/) matched=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=if c['seg'] =~/\S+/; title+text
else text
end
else #elsif cgi['view']=~/index/ #% idx body
if c['suffix'] !~/1/ #seg
index=%{#{c['ocn']}, } if @text_search_flag
elsif c['suffix'] =~/1/ #doc
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=unless c['suffix'] =~/1/; title+index
else %{#{title}#{c['ocn'].sort}, }
end
end
end
else output=title
end
@counters_txt=if @counter_txt_doc > 0
if checked_stats =~/\S/
@@lt_t=if @counter_txt_ocn == dbi_statement.sql_limit.to_i
over='over'
true
else
over=''
false
end
%{
Found in the main body of #{@counter_txt_doc} documents, and at #{over} #{@counter_txt_ocn} locations within.
}
else ''
end
else ''
end
@body_main << output #+ details
end
#text_objects_endnote
oldtid = 0
s_endnotes.each do |e| #% endnotes
location=e['filename'][/(.+?)\.(?:ssm\.sst|sst)$/,1]
file_suffix=e['filename'][/.+?\.(_?sst|ssm)$/,1]
lang=if location =~ /\S+?~(\S\S\S?)$/
l=location[/\S+?~(\S\S\S?)$/,1]
location.gsub!(/(\S+?)~\S\S\S?/,'\1')
l=".#{l}"
else ''
end
#metadata_found_endnotes
if @text_search_flag
if e['metadata_tid'].to_i != oldtid.to_i
ti=if e['subtitle'] =~/\S+/; "#{e['title']} - #{e['subtitle']}"
else e['title']
end
can_txt_srch=if cgi['view']=~/index/; %{ }
else %{ }
end
title=%{ #{ti} by #{e['creator']} #{can_txt_srch}
} if file_suffix=~/s/
@counter_endn_doc+=1
oldtid=e['metadata_tid'].to_i
else title = ''
end
if cgi['view']=~/text/ \
or (cgi['view']!~/index/ and cgi['search'] !~/search db/) #% txt endnotes
@counter_endn_ocn+=1
matched_endnote=if (@search_regx.to_s.class==String && @search_regx.to_s=~/\S\S+/)
matched=e['body'].gsub(/(
note #{e['nr']} referred to from ocn #{e['ocn']}: #{matched_endnote}}
else #elsif cgi['view']=~/index/ #% idx endnotes
@counter_endn_ocn+=1
output=%{#{title}#{e['nr']} [§ #{e['ocn']}], }
end
@counters_endn=if @counter_endn_doc > 0
if checked_stats =~/\S/
@@lt_e=if @counter_endn_ocn == dbi_statement.sql_limit.to_i
over='over'
true
else
over=''
false
end
%{Found in the endnotes of #{@counter_endn_doc} documents, and at #{over} #{@counter_endn_ocn} locations within.
}
else ''
end
end
@endnotes << output #+ details
else @endnotes=[] #does not take out yet
end
end
offset=dbi_statement.sql_offset.to_s
limit=dbi_statement.sql_limit.to_s
@@lt_t ||=false; @@lt_e ||=false
canned=if (@@lt_t or @@lt_e)
dbi_statement.pre_next(true,@image_src).to_s
else
dbi_statement.pre_next(false,@image_src).to_s
end
limit=dbi_statement.sql_limit.to_s
cgi.out{@header + @counters_txt + @counters_endn + @body_main.join + @endnotes.join + canned + @tail} #% print cgi_output_header+counters+body+endnotes
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
WOK_SQL
end
end
end
__END__