tag
print $beforeText;
}
}
# output the list of topics in $thisWebName
my $ntopics = 0;
my $topic = "";
my $head = "";
my $revDate = "";
my $revUser = "";
my $revNum = "";
my $allowView = "";
my $locked = "";
foreach( @topicList ) {
$topic = $_;
my $meta = "";
my $text = "";
my $forceRendering = 0;
# make sure we have date and author
if( exists( $topicRevUser{$topic} ) ) {
$revDate = $topicRevDate{$topic};
$revUser = $topicRevUser{$topic};
$revNum = $topicRevNum{$topic};
$allowView = $topicAllowView{$topic};
} else {
# lazy query, need to do it at last
( $meta, $text ) = &TWiki::Store::readTopic( $thisWebName, $topic );
$text =~ s/%WEB%/$thisWebName/gos;
$text =~ s/%TOPIC%/$topic/gos;
$allowView = &TWiki::Access::checkAccessPermission( "view", $TWiki::wikiUserName, $text, $topic, $thisWebName );
( $revDate, $revUser, $revNum ) = &TWiki::Store::getRevisionInfoFromMeta( $thisWebName, $topic, $meta, 1 );
$revUser = &TWiki::userToWikiName( $revUser );
}
$locked = "";
if( $doShowLock ) {
( $tempVal ) = &TWiki::Store::topicIsLockedBy( $thisWebName, $topic );
if( $tempVal ) {
$revUser = &TWiki::userToWikiName( $tempVal );
$locked = "(LOCKED)";
}
}
# Check security
# FIXME - how deal with user login not available if coming from search script?
if( ! $allowView ) {
next;
}
if( $theFormat ) {
$tempVal = $theFormat;
$tempVal =~ s/([^\n])$/$1\n/gos; # cut last trailing new line
$tempVal =~ s/\$n\(\)/\n/gos; # expand "$n()" to new line
# TODO: i18n fix
$tempVal =~ s/\$n([^a-zA-Z])/\n$1/gos; # expand "$n" to new line
$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/&TWiki::revDate2ISO($revDate)/geos;
$tempVal =~ s/\$rev/1.$revNum/gos;
$tempVal =~ s/\$wikiusername/$revUser/gos;
$tempVal =~ s/\$username/&TWiki::wikiToUserName($revUser)/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;
}
} 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 ) {
$revNum = "r1.$revNum";
} else {
$revNum = "NEW";
}
$tempVal =~ s/%REVISION%/$revNum/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::getRenderedVersion( $tempVal );
}
if( $doRenameView ) { # added JET 19 Feb 2000
my $rawText = &TWiki::Store::readTopicRaw( $thisWebName, $topic );
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
# TODO: i18n fix
my $match = "(^|[^A-Za-z0-9_.])($originalSearch)(?=[^A-Za-z0-9_]|\$)";
# FIXME: Should use /o here since $match is based on
# search string.
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 );
}
$text = &TWiki::handleCommonTags( $text, $topic, $thisWebName );
$text = &TWiki::getRenderedVersion( $text, $thisWebName );
# FIXME: What about meta data rendering?
$tempVal =~ s/%TEXTHEAD%/$text/go;
} elsif( $theFormat ) {
# free format, added PTh 10 Oct 2001
if( ! $text ) {
( $meta, $text ) = &TWiki::Store::readTopic( $thisWebName, $topic );
$text =~ s/%WEB%/$thisWebName/gos;
$text =~ s/%TOPIC%/$topic/gos;
}
$tempVal =~ s/\$summary/&TWiki::makeTopicSummary( $text, $topic, $thisWebName )/geos;
$tempVal =~ s/\$formfield\(\s*([^\)]*)\s*\)/getMetaFormField( $meta, $1 )/geos;
$tempVal =~ s/\$pattern\(\s*(.*?\s*\.\*)\)/getTextPattern( $text, $1 )/geos;
$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;
}
if( $doInline || $theFormat ) {
# print at the end if formatted search because of table rendering
$searchResult .= $tempVal;
} else {
$tempVal = &TWiki::getRenderedVersion( $tempVal, $thisWebName );
$tempVal =~ s|||goi; # remove tag
print $tempVal;
}
$ntopics += 1;
last if $ntopics >= $theLimit;
}
# output footer of $thisWebName
if( $doInline || $theFormat ) {
# print at the end if formatted search because of table rendering
$afterText =~ s/\n$//gos; # remove trailing new line
$searchResult .= $afterText;
} else {
$afterText = &TWiki::getRenderedVersion( $afterText, $thisWebName );
$afterText =~ s|||goi; # remove tag
print $afterText;
}
if( ! $noTotal ) {
# print "Number of topics:" part
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::getRenderedVersion( $thisNumber, $thisWebName );
$thisNumber =~ s|||goi; # remove tag
print $thisNumber;
}
}
}
if( $theFormat ) {
$searchResult =~ s/\n$//gos; # 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::getRenderedVersion( $tmplTail );
$tmplTail =~ s|||goi; # remove tag
print $tmplTail;
}
return $searchResult;
}
#=========================
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 $title = "";
my $value = "";
my @fields = $theMeta->find( "FIELD" );
foreach my $field ( @fields ) {
$title = $field->{"title"};
$value = $field->{"value"};
$value =~ s/^\s*(.*?)\s*$/$1/go;
if( $title eq $name ) {
$value = breakName( $value, $break );
return $value;
}
}
return "";
}
#=========================
sub getTextPattern
{
my( $theText, $thePattern ) = @_;
$thePattern =~ s/([^\\])([\$\@\%\&\#\'\`\/])/$1\\$2/go; # escape some special chars
$thePattern =~ /(.*)/; # untaint
$thePattern = $1;
$theText = "" unless( $theText =~ s/$thePattern/$1/is );
return $theText;
}
#=========================
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.../;
} else {
# split and hyphenate the topic like "ThisIsALo- ngTopic"
$theText =~ s/(.{$len})/$1$sep/g;
$theText =~ s/$sep$//;
}
}
return $theText;
}
#=========================
sub spacedTopic
{
my( $topic ) = @_;
# FindMe -> Find\s*Me
# TODO: i18n fix
$topic =~ s/([a-z])([A-Z])/$1 *$2/go;
return $topic;
}
#=========================
1;
# EOF