#!/usr/bin/perl -wT
#
# TWiki WikiClone (see TWiki.pm for $wikiversion and other info)
# TWiki WikiClone ($wikiversion has version info)
#
# Based on parts of Ward Cunninghams original Wiki and JosWiki.
# Copyright (C) 1998 Markus Peter - SPiN GmbH (warpi@spin.de)
# Some changes by Dave Harris (drh@bhresearch.co.uk) incorporated
# Copyright (C) 1999-2001 Peter Thoeny, peter@thoeny.com
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details, published at
# http://www.gnu.org/copyleft/gpl.html
use CGI::Carp qw( fatalsToBrowser );
use CGI;
use lib ( '.' );
use lib ( '../lib' );
use TWiki;
use strict;
writeDebugTimes( "view:start" );
##### for debug only: Remove next 2 comments (but redirect does not work)
#print "Content-type: text/html\n\n";
#open(STDERR,'>&STDOUT'); # redirect error to browser
#$| = 1; # no buffering
&main();
sub writeDebug
{
my( $text ) = @_;
# TWiki::writeDebug( $text );
}
sub writeDebugTimes
{
my( $text ) = @_;
# TWiki::writeDebugTimes( $text );
}
sub main
{ my $query= new CGI;
my $thePathInfo = $query->path_info();
my $theRemoteUser = $query->remote_user();
my $theTopic = $query->param( 'topic' );
my $theUrl = $query->url;
my( $topic, $webName, $scriptUrlPath, $userName ) =
&TWiki::initialize( $thePathInfo, $theRemoteUser, $theTopic, $theUrl, $query );
writeDebugTimes( "view - initialized" );
my $tmpl = "";
my $text = "";
my $meta = "";
my $rev = $query->param( "rev" );
my $maxrev = 1;
my $extra = "";
my $wikiUserName = &TWiki::userToWikiName( $userName );
my $revdate = "";
my $revuser = "";
my $viewRaw = $query->param( "raw" ) || "";
my $unlock = $query->param( "unlock" ) || "";
my $skin = $query->param( "skin" ) || &TWiki::Prefs::getPreferencesValue( "SKIN" );
# get view template, standard view or a view with a different skin
$tmpl = &TWiki::Store::readTemplate( "view", $skin );
if( ! $tmpl ) {
TWiki::writeHeader( $query );
print "\n"
. "TWiki Installation Error
\n"
. "Template file view.tmpl not found or template directory \n"
. "$TWiki::templateDir not found.\n"
. "Check the \$templateDir variable in TWiki.cfg.\n"
. "\n";
return;
}
writeDebugTimes( "view - readTemplate" );
if( ! &TWiki::Store::webExists( $webName ) ) {
my $url = &TWiki::getOopsUrl( $webName, $topic, "oopsnoweb" );
TWiki::redirect( $query, $url );
return;
}
writeDebugTimes( "view - webExists" );
if( $unlock eq "on" ) {
# unlock topic, user cancelled out of edit
&TWiki::Store::lockTopic( $topic, "on" );
}
# Most recent topic read in even if earlier topic requested - makes code simpler and performance impact should be minimal
my $topicExists = &TWiki::Store::topicExists( $webName, $topic );
if( $topicExists ) {
if( $viewRaw ) {
$text = &TWiki::Store::readTopicRaw( $webName, $topic );
} else {
( $meta, $text ) = &TWiki::Store::readTopic( $webName, $topic );
}
( $revdate, $revuser, $maxrev ) = &TWiki::Store::getRevisionInfoFromMeta( $webName, $topic, $meta, "isoFormat" );
writeDebug( "maxrev = $maxrev" );
if( $rev ) {
$rev =~ s/1\.//go; # cut major
if( $rev < 1 ) { $rev = 1; }
if( $rev > $maxrev ) { $rev = $maxrev; }
} else {
$rev = $maxrev;
}
if( $rev < $maxrev ) {
if( $viewRaw ) {
$text = &TWiki::Store::readTopicRaw( $webName, $topic, "1.$rev" );
} else {
( $meta, $text ) = &TWiki::Store::readTopicVersion( $webName, $topic, "1.$rev" );
}
( $revdate, $revuser ) = &TWiki::Store::getRevisionInfoFromMeta( $webName, $topic, $meta );
$extra .= "r1.$rev";
}
} else {
$rev = 1;
if( &TWiki::isWikiName( $topic ) ) {
( $meta, $text ) = &TWiki::Store::readTemplateTopic( "WebTopicViewTemplate" );
} else {
( $meta, $text ) = &TWiki::Store::readTemplateTopic( "WebTopicNonWikiTemplate" );
}
$extra .= " (not exist)";
}
if( $viewRaw ) {
my $vtext = "";
if( $viewRaw !~ /debug/i ) {
$text =~ s/%META[\:A-Z]*{[^\}]*}%[\n\r]*//gos;
}
}
writeDebugTimes( "view - get rev info" );
# check access permission
# To Do: Need to protect also %INCLUDE% and search
my $viewAccessOK = &TWiki::Access::checkAccessPermission( "view", $wikiUserName, $text, $topic, $webName );
if( ! $viewAccessOK ) {
# user could not be authenticated, may be not logged in yet?
my $viewauthFile = $ENV{'SCRIPT_FILENAME'};
$viewauthFile =~ s|/view|/viewauth|o;
if( ( ! $theRemoteUser ) && (-e $viewauthFile ) ) {
# try again with authenticated viewauth script
# instead of non authenticated view script
my $url = $ENV{"REQUEST_URI"};
if( $url ) {
# $url i.e. is "twiki/bin/view.cgi/Web/Topic?cms1=val1&cmd2=val2"
$url =~ s|/view|/viewauth|o;
$url = "$TWiki::urlHost$url";
} else {
$url = "$TWiki::urlHost$scriptUrlPath/$viewauthFile/$webName/$topic";
}
TWiki::redirect( $query, $url );
return;
}
}
if( ! $viewAccessOK ) {
my $url = &TWiki::getOopsUrl( $webName, $topic, "oopsaccessview" );
TWiki::redirect( $query, $url );
return;
}
writeDebugTimes( "view - checked access permissions" );
if( ! $viewRaw ) {
$text = &TWiki::handleCommonTags( $text, $topic );
writeDebugTimes( "view - handleCommonTags done" );
$text = &TWiki::getRenderedVersion( $text );
writeDebugTimes( "view - getRendereredVersion done" );
}
if( $TWiki::doLogTopicView ) {
# write log entry
&TWiki::Store::writeLog( "view", "$webName.$topic", $extra );
}
my( $mirrorSiteName, $mirrorViewURL, $mirrorLink, $mirrorNote ) = &TWiki::readOnlyMirrorWeb( $webName );
if( $mirrorSiteName ) {
# disable edit and attach
$tmpl =~ s/%EDITTOPIC%/$mirrorLink | Edit<\/strike>/o;
$tmpl =~ s/]*?>Attach<\/a>/Attach<\/strike>/oi;
if( $topicExists ) {
# remove the NOINDEX meta tag
$tmpl =~ s/]*>//goi;
} else {
$text = "";
}
$tmpl =~ s/%REVTITLE%//go;
} elsif( $rev < $maxrev ) {
# disable edit of previous revisions - FIXME consider change to use two templates
$tmpl =~ s/%EDITTOPIC%/Edit<\/strike>/o;
$tmpl =~ s/]*?>Attach<\/a>/Attach<\/strike>/oi;
$tmpl =~ s|]*?>Rename/move<\/a>|Rename/move<\/strike>|oi;
$tmpl =~ s/%REVTITLE%/\(r1.$rev\)/go;
$tmpl =~ s/%REVARG%/&rev=1.$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;
$tmpl =~ s/%REVARG%//go;
}
my $i = $maxrev;
my $j = $maxrev;
my $revisions = "";
my $breakRev = 0;
if( ( $TWiki::numberOfRevisions > 0 ) && ( $TWiki::numberOfRevisions < $maxrev ) ) {
$breakRev = $maxrev - $TWiki::numberOfRevisions + 1;
}
while( $i > 0 ) {
if( $i eq $rev) {
$revisions = "$revisions | r1.$i";
} else {
$revisions = "$revisions | r1.$i";
}
if( $i != 1 ) {
if( $i == $breakRev ) {
# Now obsolete because of 'More' link
# $revisions = "$revisions | >...";
$i = 1;
} else {
$j = $i - 1;
$revisions = "$revisions | >";
}
}
$i = $i - 1;
}
$tmpl =~ s/%REVISIONS%/$revisions/go;
if( $topicExists ) {
$revuser = &TWiki::userToWikiName( $revuser );
my $temp = &TWiki::getRenderedVersion( "r1.$rev - $revdate GMT - $revuser" );
$tmpl =~ s/%REVINFO%/$temp$mirrorNote/go;
} else {
$tmpl =~ s/%REVINFO%/$mirrorNote/go;
}
$tmpl = &TWiki::handleCommonTags( $tmpl, $topic );
if( $viewRaw ) {
$tmpl =~ s/%META{[^}]*}%//go;
} else {
$tmpl = &TWiki::handleMetaTags( $webName, $topic, $tmpl, $meta );
}
writeDebugTimes( "view - handleCommonTags for template done" );
$tmpl = &TWiki::getRenderedVersion( $tmpl, "", $meta ); ## better to use meta rendering?
$tmpl =~ s/%TEXT%/$text/go;
$tmpl =~ s/%MAXREV%/1.$maxrev/go;
$tmpl =~ s/%CURRREV%/1.$rev/go;
$tmpl =~ s|||goi; # remove tags (PTh 06 Nov 2000)
TWiki::writeHeader( $query );
print $tmpl;
writeDebugTimes( "view - done" );
}
# EOF