";
print "Check the \$templateDir variable in wikicfg.pm.";
print "";
return;
}
my $topicExists = &wiki::topicExists( $webName, $topic );
if( $topicExists ) {
$maxrev = &wiki::getRevisionNumber( $topic );
$maxrev =~ s/1\.//go; # cut major
if( $rev ) {
$rev =~ s/1\.//go; # cut major
if( $rev < 1 ) { $rev = 1; }
if( $rev > $maxrev ) { $rev = $maxrev; }
$text= &wiki::readVersion( $topic, "1.$rev" );
$extra .= "r1.$rev";
} else {
$text= &wiki::readTopic( $topic );
$rev= $maxrev;
}
} else {
$rev = 1;
if( &wiki::isWikiName( $topic ) ) {
$text= &wiki::readTemplate( "notext" );
} else {
$text= &wiki::readTemplate( "notwiki" );
}
$extra .= " (not exist)";
}
# commented out because not tested and not finished (protect also %INCLUDE% and search)
# # check access permission
# if( ! &wiki::checkAccessPermission( "view", $wikiUserName, $text, $topic, $webName ) ) {
# my $url = &wiki::getOopsUrl( $webName, $topic, "oopsaccessview" );
# print $query->redirect( $url );
# return;
# }
$text = &wiki::handleCommonTags( $text, $topic );
$text = &wiki::getRenderedVersion( $text );
if( $rev < $maxrev ) {
# disable edit of previous revisions
# $tmpl =~ s/%EDITTOPIC%/Edit/go;
# but allow to show the original text
$tmpl =~ s/%EDITTOPIC%/Show<\/B><\/A>/go;
$tmpl =~ s/%REVTITLE%/\(r1.$rev\)/go;
} else {
if( $topicExists ) {
$tmpl =~ s/%EDITTOPIC%/Edit<\/B><\/A>/go;
# remove the NOINDEX meta tag
$tmpl =~ s/]*>//goi;
} else {
$tmpl =~ s/%EDITTOPIC%/Create<\/B><\/A>/go;
}
$tmpl =~ s/%REVTITLE%//go;
}
my $i = $maxrev;
my $j = $maxrev;
my $revisions = "";
my $breakRev = 0;
if( ( $wiki::numberOfRevisions > 0 ) && ( $wiki::numberOfRevisions < $maxrev ) ) {
$breakRev = $maxrev - $wiki::numberOfRevisions + 1;
}
while( $i > 0 ) {
if( $i eq $rev) {
$revisions = "$revisions | r1.$i";
} else {
$revisions = "$revisions | r1.$i";
}
if( $i != 1 ) {
if( $i == $breakRev ) {
$revisions = "$revisions | >...";
$i = 1;
} else {
$j = $i - 1;
$revisions = "$revisions | >";
}
}
$i = $i - 1;
}
$tmpl =~ s/%REVISIONS%/$revisions/go;
if( $topicExists ) {
my( $date, $user ) = &wiki::getRevisionInfo( $topic, "1.$rev", 1 );
$user = &wiki::userToWikiName( $user );
my $temp = &wiki::getRenderedVersion( "r1.$rev - $date by $user" );
$tmpl =~ s/%REVINFO%/$temp/go;
} else {
$tmpl =~ s/%REVINFO%//go;
}
$tmpl = &wiki::handleCommonTags( $tmpl, $topic );
$tmpl =~ s/%TEXT%/$text/go;
$tmpl =~ s|||goi; # remove