tags and always strip out HTML
$new_text .= "$parastarttag<$shortname index=\"1\">\n";
if ($parastarttag ne "") {
$section_text = $self->preprocess_text($section_text, 1, "$paraendtag$parastarttag<$shortname index=\"1\">");
}
else {
# we don't want to individually tag each paragraph if not doing para indexing
$section_text = $self->preprocess_text($section_text, 1, "");
}
$new_text .= "$section_text$paraendtag\n";
}
else { # leave html stuff in, but escape the tags, and dont add Paragraph tags - never retrieve paras at the moment
$tmp_text .= $doc_obj->get_text ($section);
&ghtml::htmlsafe($tmp_text);
$new_text .= $tmp_text;
}
}
else {
my @section_metadata = @{$doc_obj->get_metadata ($section, $submeta)};
if ($section ne $doc_obj->get_top_section() && $self->{'indexing_text'} && defined ($self->{'sections_index_document_metadata'})) {
if ($self->{'sections_index_document_metadata'} eq "always" || ( scalar(@section_metadata) == 0 && $self->{'sections_index_document_metadata'} eq "unless_section_metadata_exists")) {
push (@section_metadata, @{$doc_obj->get_metadata ($doc_obj->get_top_section(), $submeta)});
}
}
push (@metadata_list, @section_metadata);
}
}
foreach my $item (@metadata_list) {
&ghtml::htmlsafe($item);
$new_text .= "$parastarttag<$shortname index=\"1\">$item$paraendtag\n";
}
}
# filter the text
$self->filter_text ($field, $new_text);
$self->{'num_processed_bytes'} += length ($new_text);
$text .= "$new_text";
} # foreach field
$text .= "\n\n" if ($sectiontag ne "");
$section = $doc_obj->get_next_section($section);
} #while defined section
print $handle "$text\n$documentendtag";
#print STDOUT "$text\n$documentendtag";
}
# /** We make this builder pretend to be a document processor so we can get
# * information back from the plugins.
# *
# * @param $self A reference to this Lucene builder
# * @param $doc_obj A reference to a document object representing what was
# * parsed by the GAPlug
# * @param $file The name of the file parsed as a string
# *
# * @author John Thompson, DL Consulting Ltd
# */
sub process()
{
my $self = shift (@_);
my ($doc_obj, $file) = @_;
# If this is called from any stage other than an incremental infodb we want
# to pass through to the superclass of build
if ($self->get_mode() eq "incinfodb")
{
print STDERR "*** Processing a document added using INCINFODB ***\n";
my ($archivedir) = $file =~ /^(.*?)(?:\/|\\)[^\/\\]*$/;
$archivedir = "" unless defined $archivedir;
$archivedir =~ s/\\/\//g;
$archivedir =~ s/^\/+//;
$archivedir =~ s/\/+$//;
# Number of files
print STDERR "There are " . scalar($doc_obj->get_assoc_files()) . " associated documents...\n";
# resolve the final filenames of the files associated with this document
$self->assoc_files ($doc_obj, $archivedir);
# is this a paged or a hierarchical document
my ($thistype, $childtype) = $self->get_document_type ($doc_obj);
# Determine the actual docnum by checking if we've processed any
# previous incrementally added documents. If so, carry on from there.
# Otherwise we set the counter to be the same as the number of
# sections encountered during the previous build
if ($self->{'numincdocs'} == 0)
{
$self->{'numincdocs'} = $self->{'starting_num_sections'} + 1;
}
my $section = $doc_obj->get_top_section ();
print STDERR "+ top section: '$section'\n";
my $doc_OID = $doc_obj->get_OID();
my $url = "";
while (defined $section)
{
print STDERR "+ processing section: '$section'\n";
# Attach all the other metadata to this document
# output the fact that this document is a document (unless doctype
# has been set to something else from within a plugin
my $dtype = $doc_obj->get_metadata_element ($section, "doctype");
if (!defined $dtype || $dtype !~ /\w/)
{
$doc_obj->add_utf8_metadata($section, "doctype", $dtype);
}
# output whether this node contains text
if ($doc_obj->get_text_length($section) > 0)
{
$doc_obj->add_utf8_metadata($section, "hastxt", 1);
}
else
{
$doc_obj->add_utf8_metadata($section, "hastxt", 0);
}
# output archivedir if at top level
if ($section eq $doc_obj->get_top_section())
{
$doc_obj->add_utf8_metadata($section, "archivedir", $archivedir);
$doc_obj->add_utf8_metadata($section, "thistype", $thistype);
}
# output a list of children
my $children = $doc_obj->get_children ($section);
if (scalar(@$children) > 0)
{
$doc_obj->add_utf8_metadata($section, "childtype", $childtype);
my @contains = ();
foreach my $child (@$children)
{
if ($child =~ /^.*?\.(\d+)$/)
{
push (@contains, "\".$1");
}
else
{
push (@contains, "\".$child");
}
}
$doc_obj->add_utf8_metadata($section, "contains", join(";", @contains));
}
#output the matching doc number
print STDERR "+ docnum=" . $self->{'numincdocs'} . "\n";
$doc_obj->add_utf8_metadata($section, "docnum", $self->{'numincdocs'});
$self->{'numincdocs'}++;
$section = $doc_obj->get_next_section($section);
# if no sections wanted, only add the docs
last if ($self->{'db_level'} eq "document");
}
print STDERR "\n*** incrementally add metadata from document at: " . $file . "\n";
&IncrementalBuildUtils::addDocument($self->{'collection'}, $doc_obj, $doc_obj->get_top_section());
}
else
{
$self->mgppbuildproc::process(@_);
}
}
# /** process() **/
# Following methods seem to be no different to those defined in basebuildproc.pm
# From inspection, it looks like these ones can be removed
sub get_num_docs {
my $self = shift (@_);
#rint STDERR "get_num_docs(): $self->{'num_docs'}\n";
return $self->{'num_docs'};
}
sub get_num_sections {
my $self = shift (@_);
#rint STDERR "get_num_sections(): $self->{'num_sections'}\n";
return $self->{'num_sections'};
}
# num_bytes is the actual number of bytes in the collection
# this is normally the same as what's processed during text compression
sub get_num_bytes {
my $self = shift (@_);
#rint STDERR "get_num_bytes(): $self->{'num_bytes'}\n";
return $self->{'num_bytes'};
}
# This is similar to mgppbuildproc's preprocess_text but adds extra spaces
# Otherwise the removal of tags below might lead to Lucene turning
# "...farming\nEDWARD.." into "farmingedward"
# (example from demo collection b20cre)
# Many thanks to John Thompson, DL Consulting Ltd. (www.dlconsulting.com)
sub preprocess_text
{
my $self = shift (@_);
my ($text, $strip_html, $para) = @_;
# at this stage, we do not do paragraph tags unless have strip_html -
# it will result in a huge mess of non-xml
return unless $strip_html;
my $new_text = $text;
# if we have
tags, we can have < > inside them, need to delete
# the <> before stripping tags
$new_text =~ s/(.*?)<\/pre>/$self->remove_gtlt($1,$para)/gse;
if ($para eq "") {
# just remove all tags
$new_text =~ s/<[^>]*>/ /gs;
} else {
# strip all tags except tags which get turned into $para
$new_text =~ s/<([^>]*)>/$self->process_tags($1, $para)/gse;
}
# It's important that we remove name entities because otherwise the text passed to Lucene for indexing
# may not be valid XML (eg. if HTML-only entities like are used)
$new_text =~ s/&\w{1,10};//g;
# Remove stray '&' characters, except in &#nnnn; or &#xhhhh; entities (which are valid XML)
$new_text =~ s/&([^\#])/ $1/g;
return $new_text;
}
1;