SEARCH/g;
}
$text = &TWiki::handleCommonTags( $text, $topic, $thisWebName );
}
}
my @multipleHitLines = ();
if( $doMultiple ) {
my $pattern = $tokens[$#tokens]; # last token in an AND search
$pattern = quotemeta( $pattern ) if( $theType ne "regex" );
( $meta, $text ) = &TWiki::Store::readTopic( $thisWebName, $topic ) unless $text;
if( $caseSensitive ) {
@multipleHitLines = reverse grep { /$pattern/ } split( /[\n\r]+/, $text );
} else {
@multipleHitLines = reverse grep { /$pattern/i } split( /[\n\r]+/, $text );
}
}
do { # multiple=on loop
$text = pop( @multipleHitLines ) if( scalar( @multipleHitLines ) );
if( $theFormat ) {
$tempVal = $theFormat;
$tempVal =~ s/\$web/$thisWebName/gos;
$tempVal =~ s/\$topic\(([^\)]*)\)/breakName( $topic, $1 )/geos;
$tempVal =~ s/\$topic/$topic/gos;
$tempVal =~ s/\$locked/$locked/gos;
$tempVal =~ s/\$date/$revDate/gos;
$tempVal =~ s/\$isodate/&revDate2ISO($revDate)/geos;
$tempVal =~ s/\$rev/1.$revNum/gos;
$tempVal =~ s/\$wikiusername/$revUser/gos;
$tempVal =~ s/\$wikiname/wikiName($revUser)/geos;
$tempVal =~ s/\$username/&TWiki::wikiToUserName($revUser)/geos;
$tempVal =~ s/\$createdate/_getRev1Info( $thisWebName, $topic, "date" )/geos;
$tempVal =~ s/\$createusername/_getRev1Info( $thisWebName, $topic, "username" )/geos;
$tempVal =~ s/\$createwikiname/_getRev1Info( $thisWebName, $topic, "wikiname" )/geos;
$tempVal =~ s/\$createwikiusername/_getRev1Info( $thisWebName, $topic, "wikiusername" )/geos;
if( $tempVal =~ m/\$text/ ) {
# expand topic text
( $meta, $text ) = &TWiki::Store::readTopic( $thisWebName, $topic ) unless $text;
if( $topic eq $TWiki::topicName ) {
# defuse SEARCH in current topic to prevent loop
$text =~ s/%SEARCH{.*?}%/SEARCH{...}/go;
}
$tempVal =~ s/\$text/$text/gos;
$forceRendering = 1 unless( $doMultiple );
}
} else {
$tempVal = $repeatText;
}
$tempVal =~ s/%WEB%/$thisWebName/go;
$tempVal =~ s/%TOPICNAME%/$topic/go;
$tempVal =~ s/%LOCKED%/$locked/o;
$tempVal =~ s/%TIME%/$revDate/o;
if( $revNum > 1 ) {
$revNumText = "r1.$revNum";
} else {
$revNumText = "NEW";
}
$tempVal =~ s/%REVISION%/$revNumText/o;
$tempVal =~ s/%AUTHOR%/$revUser/o;
if( ( $doInline || $theFormat ) && ( ! ( $forceRendering ) ) ) {
# print at the end if formatted search because of table rendering
# do nothing
} else {
$tempVal = &TWiki::handleCommonTags( $tempVal, $topic );
$tempVal = &TWiki::Render::getRenderedVersion( $tempVal );
}
if( $doRenameView ) { # added JET 19 Feb 2000
# Permission check done below, so force this read to succeed with "internal" parameter
my $rawText = &TWiki::Store::readTopicRaw( $thisWebName, $topic, "", "internal" );
my $changeable = "";
my $changeAccessOK = &TWiki::Access::checkAccessPermission( "change", $TWiki::wikiUserName, $text, $topic, $thisWebName );
if( ! $changeAccessOK ) {
$changeable = "(NO CHANGE PERMISSION)";
$tempVal =~ s/%SELECTION%.*%SELECTION%//o;
} else {
$tempVal =~ s/%SELECTION%//go;
}
$tempVal =~ s/%CHANGEABLE%/$changeable/o;
$tempVal =~ s/%LABEL%/$doRenameView/go;
my $reducedOutput = "";
# Remove lines that don't contain the topic and highlight matched string
my $insidePRE = 0;
my $insideVERBATIM = 0;
my $noAutoLink = 0;
foreach( split( /\n/, $rawText ) ) {
next if( /^%META:TOPIC(INFO|MOVED)/ );
s//>/go;
# This code is in far too many places
m||i && ( $insidePRE = 1 );
m||i && ( $insidePRE = 0 );
if( m||i ) {
$insideVERBATIM = 1;
}
if( m||i ) {
$insideVERBATIM = 0;
}
m||i && ( $noAutoLink = 1 );
m||i && ( $noAutoLink = 0 );
if( ! ( $insidePRE || $insideVERBATIM || $noAutoLink ) ) {
# Case insensitive option is required to get [[spaced Word]] to match
# I18N: match non-alpha before and after topic name in renameview searches
my $alphaNum = $TWiki::regex{mixedAlphaNum};
my $match = "(^|[^${alphaNum}_.])($originalSearch)(?=[^${alphaNum}]|\$)";
# NOTE: Must *not* use /o here, since $match is based on
# search string that will vary during lifetime of
# compiled code with mod_perl.
my $subs = s|$match|$1$2 |g;
$match = '(\[\[)' . "($spacedTopic)" . '(?=\]\])';
$subs += s|$match|$1$2 |gi;
if( $subs ) {
$topicCount++ if( ! $reducedOutput );
$reducedOutput .= "$_
\n" if( $subs );
}
}
}
$tempVal =~ s/%TOPIC_NUMBER%/$topicCount/go;
$tempVal =~ s/%TEXTHEAD%/$reducedOutput/go;
next if ( ! $reducedOutput );
} elsif( $doBookView ) {
# BookView, added PTh 20 Jul 2000
if( ! $text ) {
( $meta, $text ) = &TWiki::Store::readTopic( $thisWebName, $topic );
}
if( "$thisWebName.$topic" eq "$baseWeb.$baseTopic" ) {
# primitive way to prevent recursion
$text =~ s/%SEARCH/%SEARCH/g;
}
$text = &TWiki::handleCommonTags( $text, $topic, $thisWebName );
$text = &TWiki::Render::getRenderedVersion( $text, $thisWebName );
# FIXME: What about meta data rendering?
$tempVal =~ s/%TEXTHEAD%/$text/go;
} elsif( $theFormat ) {
# free format, added PTh 10 Oct 2001
$tempVal =~ s/\$summary\(([^\)]*)\)/&TWiki::makeTopicSummary( $text, $topic, $thisWebName, $1 )/geos;
$tempVal =~ s/\$summary/&TWiki::makeTopicSummary( $text, $topic, $thisWebName )/geos;
$tempVal =~ s/\$parent\(([^\)]*)\)/breakName( getMetaParent( $meta ), $1 )/geos;
$tempVal =~ s/\$parent/getMetaParent( $meta )/geos;
$tempVal =~ s/\$formfield\(\s*([^\)]*)\s*\)/getMetaFormField( $meta, $1 )/geos;
$tempVal =~ s/\$formname/_getMetaFormName( $meta )/geos;
$tempVal =~ s/\$pattern\((.*?\s*\.\*)\)/getTextPattern( $text, $1 )/geos;
$tempVal =~ s/\r?\n/$newLine/gos if( $newLine );
if( $theSeparator ) {
$tempVal .= $theSeparator;
} else {
$tempVal =~ s/([^\n])$/$1\n/os; # add new line at end if needed
}
$tempVal =~ s/\$n\(\)/\n/gos; # expand "$n()" to new line
$tempVal =~ s/\$n([^$mixedAlpha]|$)/\n$1/gos; # expand "$n" to new line
$tempVal =~ s/\$nop(\(\))?//gos; # remove filler, useful for nested search
$tempVal =~ s/\$quot(\(\))?/\"/gos; # expand double quote
$tempVal =~ s/\$percnt(\(\))?/\%/gos; # expand percent
$tempVal =~ s/\$dollar(\(\))?/\$/gos; # expand dollar
} elsif( $noSummary ) {
$tempVal =~ s/%TEXTHEAD%//go;
$tempVal =~ s/ //go;
} else {
# regular search view
if( $text ) {
$head = $text;
} else {
$head = &TWiki::Store::readFileHead( "$TWiki::dataDir\/$thisWebName\/$topic.txt", 16 );
}
$head = &TWiki::makeTopicSummary( $head, $topic, $thisWebName );
$tempVal =~ s/%TEXTHEAD%/$head/go;
}
# lazy output of header (only if needed for the first time)
unless( $headerDone || $noHeader ) {
$headerDone = 1;
$beforeText =~ s/%WEBBGCOLOR%/$thisWebBGColor/go;
$beforeText =~ s/%WEB%/$thisWebName/go;
$beforeText = &TWiki::handleCommonTags( $beforeText, $topic );
if( $doInline || $theFormat ) {
# print at the end if formatted search because of table rendering
$searchResult .= $beforeText;
} else {
$beforeText = &TWiki::Render::getRenderedVersion( $beforeText, $thisWebName );
$beforeText =~ s|||goi; # remove tag
print $beforeText;
}
}
# output topic (or line if multiple=on)
if( $doInline || $theFormat ) {
# print at the end if formatted search because of table rendering
$searchResult .= $tempVal;
} else {
$tempVal = &TWiki::Render::getRenderedVersion( $tempVal, $thisWebName );
$tempVal =~ s|||goi; # remove tag
print $tempVal;
}
} while( @multipleHitLines ); # multiple=on loop
$ntopics += 1;
last if( $ntopics >= $theLimit );
} # end topic loop in a web
# output footer only if hits in web
if( $ntopics ) {
# output footer of $thisWebName
$afterText = &TWiki::handleCommonTags( $afterText, $topic );
if( $doInline || $theFormat ) {
# print at the end if formatted search because of table rendering
$afterText =~ s/\n$//os; # remove trailing new line
$searchResult .= $afterText;
} else {
$afterText = &TWiki::Render::getRenderedVersion( $afterText, $thisWebName );
$afterText =~ s|||goi; # remove tag
print $afterText;
}
}
# output number of topics (only if hits in web or if search only one web)
if( $ntopics || @webList < 2 ) {
unless( $noTotal ) {
my $thisNumber = $tmplNumber;
$thisNumber =~ s/%NTOPICS%/$ntopics/go;
if( $doInline || $theFormat ) {
# print at the end if formatted search because of table rendering
$searchResult .= $thisNumber;
} else {
$thisNumber = &TWiki::Render::getRenderedVersion( $thisNumber, $thisWebName );
$thisNumber =~ s|||goi; # remove tag
print $thisNumber;
}
}
}
}
if( $theFormat ) {
if( $theSeparator ) {
$searchResult =~ s/$theSeparator$//s; # remove separator at end
} else {
$searchResult =~ s/\n$//os; # remove trailing new line
}
}
if( $doInline ) {
# return formatted search result
return $searchResult;
} else {
if( $theFormat ) {
# finally print $searchResult which got delayed because of formatted search
$tmplTail = "$searchResult$tmplTail";
}
# print last part of full HTML page
$tmplTail = &TWiki::Render::getRenderedVersion( $tmplTail );
$tmplTail =~ s|||goi; # remove tag
print $tmplTail;
}
return $searchResult;
}
#=========================
=pod
---++ sub _getRev1Info( $theWeb, $theTopic, $theAttr )
Returns the topic revision info of version 1.1, attributes are "date", "username", "wikiname",
"wikiusername". Revision info is cached for speed
=cut
sub _getRev1Info
{
my( $theWeb, $theTopic, $theAttr ) = @_;
unless( $cacheRev1webTopic eq "$theWeb.$theTopic" ) {
# refresh cache
$cacheRev1webTopic = "$theWeb.$theTopic";
( $cacheRev1date, $cacheRev1user ) = &TWiki::Store::getRevisionInfo( $theWeb, $theTopic, "1.1" );
}
if( $theAttr eq "username" ) {
return $cacheRev1user;
}
if( $theAttr eq "wikiname" ) {
return &TWiki::userToWikiName( $cacheRev1user, 1 );
}
if( $theAttr eq "wikiusername" ) {
return &TWiki::userToWikiName( $cacheRev1user );
}
if( $theAttr eq "date" ) {
return &TWiki::formatTime( $cacheRev1date );
}
# else assume attr "key"
return "1.1";
}
#=========================
=pod
---++ sub getMetaParent( $theMeta )
Not yet documented.
=cut
sub getMetaParent
{
my( $theMeta ) = @_;
my $value = "";
my %parent = $theMeta->findOne( "TOPICPARENT" );
$value = $parent{"name"} if( %parent );
return $value;
}
#=========================
=pod
---++ sub getMetaFormField ( $theMeta, $theParams )
Not yet documented.
=cut
sub getMetaFormField
{
my( $theMeta, $theParams ) = @_;
my $name = $theParams;
my $break = "";
my @params = split( /\,\s*/, $theParams, 2 );
if( @params > 1 ) {
$name = $params[0] || "";
$break = $params[1] || 1;
}
my $value = "";
my @fields = $theMeta->find( "FIELD" );
foreach my $field ( @fields ) {
$value = $field->{"value"};
$value =~ s/^\s*(.*?)\s*$/$1/go;
if( $name =~ /^($field->{"name"}|$field->{"title"})$/ ) {
$value = breakName( $value, $break );
return $value;
}
}
return "";
}
#=========================
=pod
---++ sub _getMetaFormName ( $theMeta )
Returns the name of the form attached to the topic
=cut
sub _getMetaFormName
{
my( $theMeta ) = @_;
my %aForm = $theMeta->findOne( "FORM" );
if( %aForm ) {
return $aForm{"name"};
}
return "";
}
#=========================
=pod
---++ sub getTextPattern ( $theText, $thePattern )
Not yet documented.
=cut
sub getTextPattern
{
my( $theText, $thePattern ) = @_;
$thePattern =~ s/([^\\])([\$\@\%\&\#\'\`\/])/$1\\$2/go; # escape some special chars
$thePattern =~ /(.*)/; # untaint
$thePattern = $1;
my $OK = 0;
eval {
$OK = ( $theText =~ s/$thePattern/$1/is );
};
$theText = "" unless( $OK );
return $theText;
}
#=========================
=pod
---++ sub wikiName ( $theWikiUserName )
Not yet documented.
=cut
sub wikiName
{
my( $theWikiUserName ) = @_;
$theWikiUserName =~ s/^.*\.//o;
return $theWikiUserName;
}
#=========================
=pod
---++ sub breakName ( $theText, $theParams )
Not yet documented.
=cut
sub breakName
{
my( $theText, $theParams ) = @_;
my @params = split( /[\,\s]+/, $theParams, 2 );
if( @params ) {
my $len = $params[0] || 1;
$len = 1 if( $len < 1 );
my $sep = "- ";
$sep = $params[1] if( @params > 1 );
if( $sep =~ /^\.\.\./i ) {
# make name shorter like "ThisIsALongTop..."
$theText =~ s/(.{$len})(.+)/$1.../s;
} else {
# split and hyphenate the topic like "ThisIsALo- ngTopic"
$theText =~ s/(.{$len})/$1$sep/gs;
$theText =~ s/$sep$//;
}
}
return $theText;
}
#=========================
# Turn a topic into a spaced-out topic, with space before each part of
# the WikiWord.
=pod
---++ sub spacedTopic ( $topic )
Not yet documented.
=cut
sub spacedTopic
{
my( $topic ) = @_;
# FindMe -> Find\s*Me
# I18N fix
my $upperAlpha = $TWiki::regex{singleUpperAlphaRegex};
my $lowerAlpha = $TWiki::regex{singleLowerAlphaRegex};
$topic =~ s/($lowerAlpha)($upperAlpha)/$1 *$2/go;
return $topic;
}
#=========================
1;
# EOF