WIKIT_ADMIN

Set this to ignore the protected-pages list, which normally prevents editing certain pages

WIKIT_BASE

Set this to define the URL of the wiki pages - this causes generated pages to always refer to wiki pages with this base location (no more cgi-bin URLs), see below for more info.

WIKIT_CACHE

Set this to a writable dir, and wikit will save new pages in HTML form in this area. This can be used with Apache to maintain a fast-access page cache so most accesses never launch CGI.

WIKIT_CSS

Set this to the URL of the style sheet to use, and wikit will become CSS-enabled.

WIKIT_DUMP

This is a debug facility, set this to a writable file and all accesses will append info to that file.

WIKIT_EMAIL

Set this to email address to use to report CGI failures (default goes nowhere).

WIKIT_HIST

Set this to a writable directory, and wikit will save every modified page in raw text form, under a unique name. It also appends entries to a ".index" text file in there. This is used by the Tcl'ers Wiki to move all page edits into a CVS repository (this is an independent cron script).

WIKIT_REVS

This is a URL prefix. When set, wikit will append "/<N>" to it as a link on each editable page, called "Revisions".

WIKIT_SAVE

If this is set to "0", and WIKIT_CACHE is set as well, then clear the cache on edit changes, but do not save changes back to it. This is needed in special cases, i.e. when accessing the same wiki from two different URLs, one using CSS and the other not. The format which should not be saved back in the cache should use WIKIT_SAVE=0 in the corresponding CGI script.

WIKIT_WRU

This variable is special-purpose, it allows the Tcler's Wiki to interact with the wru utility ("who are you, see [1]) to pick up cookie which add the initials of the poster to page edits and recent changes.

• say the area you want to present is "mywiki"
• create a "mywiki/" dir, writable for CGI (usually user apache, www, or nobody)
• create a file "mywiki/.htaccess" containing:

        ErrorDocument 404 /mywiki/nph-blah.cgi
        DirectoryIndex /mywiki/nph-blah.cgi/0
        Options MultiViews

• create a file "mywiki/nph-blah.cgi" containing:

        #!/bin/sh
        echo HTTP/1.0 200 OK
        cd /path/to/my/datafile
        WIKIT_BASE=http://<mysite>/mywiki/
        export WIKIT_BASE
        WIKIT_CACHE=/path/to/mywiki
        export WIKIT_CACHE
        #WIKIT_CSS=http://url/of/my/style/sheet.css
        #export WIKIT_CSS
        # uncomment following as needed
        #WIKIT_DUMP=/path/to/mywikilogfile
        #export WIKIT_DUMP
        #WIKIT_HIST=/path/to/mywikihistdir
        #export WIKIT_HIST
        exec /path/to/tclkit wikit.kit mywikit.tkd

• (add "-readonly" at the end to make the wiki readonly)

 # DirectoryIndex: Name of the file or files to use as a pre-written HTML
 # directory index.  Separate multiple entries with spaces.
 #
 <IfModule mod_dir.c>
     DirectoryIndex index.html 0.html
 </IfModule>

        ErrorDocument 404 /mywiki/nph-blah.cgi
        DirectoryIndex /mywiki/nph-blah.cgi/0
        Options MultiViews execCGI

 <VirtualHost *>
        ServerName www.mywiki.com
        AddHandler cgi-script .cgi
        <Directory />
                ErrorDocument 404 /mywiki/wiki.cgi
                DirectoryIndex /mywiki/wiki.cgi/0
                Options ExecCGI MultiViews
        </Directory>
 </VirtualHost>

 set ::script_name $::env(SCRIPT_NAME)

 if { [string first "AOLserver/3" $::env(SERVER_SOFTWARE)] > -1 } {
    #Aolserver does not provide a correct SCRIPT_NAME
    #fix this by parsing the WIKIT_BASE (which is mandatory anyway)
    catch {
        regexp -nocase {^http://[^/]+(/.+)/$} $::env(WIKIT_BASE) -> ::env(SCRIPT_NAME)
    }
 }

 if { the_static_page_exists } {
     ns_returnfile 200 text/html $static_file
 } else {
     ns_returnredirect /mywiki/wiki.cgi/$pagenumber
 }

 set wikitCacheDir mywiki ;# above mentioned as WIKIT_CACHE
 set wikitCgiDir /cgi-bin/wikit.cgi

 Url_PrefixInstall /$wikitCacheDir [list wikit_handler $wikitCacheDir $wikitCgiDir]

 proc wikit_handler {wikitCacheDir wikitCgiDir sock suffix} {
     global Config
     upvar #0 Httpd$sock data

     # make suffix "relative"
     regsub {^/} $suffix {} suffix

     # redirect to "homepage" of wikit, if no "page"/suffix is given
     if {![string length $suffix]} {
         set suffix "0"
     }
     set cachefile [file join $Config(docRoot) $wikitCacheDir $suffix]

     # the url is http://xyz/0, but the cached file will be "0.html"
     # only append ".html" if request has no extension
     # (this avoids appending ".html" for other files in cache-dir, like
     # wikit.css
     if {[string equal [file extension $cachefile] ""]} {
         append cachefile ".html"
     }

     # check if file is in cache
     if {[file exists $cachefile]} {
         # file is in cache, so simply return cached file
         Httpd_ReturnFile $sock text/html $cachefile
     } else {
         # REDIRECT_URL must be set, because WIKIT checks it for caching
         # and tclhttpd doesn't set it itself
         set ::env(REDIRECT_URL) [file join $wikitCgiDir $suffix]
         Httpd_Redirect $::env(REDIRECT_URL) $sock
     }
 }

  tclhttpd = D:/tclhttpd3.4.2

 WIKIT_CACHE = D:/tclhttpd3.4.2/mywiki/
 WIKIT_BASE = http://localhost:8015/mywiki/

  WIKIT_CSS = http://localhost:8015/mywiki/wikit.css

 #!/bin/sh

 WIKIT_BASE=http://cobra:8015/mywiki/
 export WIKIT_BASE
 WIKIT_CACHE=/usr/local/tclkit/mywiki
 export WIKIT_CACHE
 exec /usr/local/tclkit/tclkit /usr/local/tclkit/wikit.kit

 lappend Cgi(env-pass) REDIRECT_URL

 set wikitCacheDir mywiki ;# above mentioned as WIKIT_CACHE

 # Create a tclhttpd domain that wires directly into the wiki cgi script
 # I deploy this as wiki/custom/wiki_startup.tcl
 # and I have the CGI script in wiki/bin
 # Start bin/httpd.tcl with the -library wiki/custom option

 set here [file dirname [info script]]
 set WikiCGI [file join $here ../bin/wiki.cgi]

 Url_PrefixRemove /      ;# Remove normal doc domain
 Url_PrefixInstall / [list WikiDomain /]

 proc WikiDomain {prefix sock suffix} {
   global WikiCGI
   upvar #0 Httpd$sock data
   set extra /$suffix
   # er, extra == $data(url)
   WikiHandle $data(url) $extra $WikiCGI $sock
 }
 proc WikiHandle {url extra path sock} {
   global Doc env
   # We pass in / for the url argument because that turns
   # into the SCRIPT_NAME env var, which the wikit's web.tcl glues
   # onto $extra.
   # extra -> PATH_INFO
   # url -> SCRIPT_NAME
   Cgi_SetEnvAll $sock $path $extra / env
   CgiSpawn $sock $path
 }

 # We need a few files, like images and the stylesheet

 Doc_AddRoot /htdocs [file join $here ../htdocs]
 Doc_AddRoot /images [file join $here ../htdocs/images]

 # Set up logging

 file mkdir [file join $here ../log]
 set config::Config(LogFile) [file join $here ../log/log]

http://localhost/wikiccsas/

 # support more than one wiki
 Url_PrefixInstall /wikiccsas [list wikiHandler ccsas]
 Url_PrefixInstall /wikiccpm  [list wikiHandler ccpm]

 proc wikiHandler {prefix sock suffix} {

      # additional vars for wikit
     set ::env(WIKIT_CACHE)  [file join [Doc_Root] wikicache $prefix]
     set ::env(WIKIT_HIST)   [file join [Doc_Root] wikihist  $prefix]
     set ::env(WIKIT_BASE)   [Httpd_SelfUrl /wiki$prefix/]; # scheint problematisch (localhost?)
     # prevent WIKIT_HIST from beeing overwritten late in patched cgi.tcl's (internal regarding to my own tclhttpd.exe..., not of interest here)
     set ::Config(WIKIT_HIST) $::env(WIKIT_HIST)

     global Config
     upvar #0 Httpd$sock data
     set wikitCgiDir /cgi-bin/wiki/${prefix}.exe; # PB-Wrapper to tclkitsh wikit.kit because with wikitsh.exe there are search-problems...

     # make suffix "relative"
     regsub {^/} $suffix {} suffix

     # redirect to "homepage" of wikit, if no "page"/suffix is given
     if {![string length $suffix]} {
         set suffix "0"
     }
     set cachefile [file join [Doc_Root] $::env(WIKIT_CACHE) $suffix]

     # the url is http://xyz/0, but the cached file will be "0.html"
     # only append ".html" if request has no extension
     # (this avoids appending ".html" for other files in cache-dir, like
     # wikit.css
     if {[string equal [file extension $cachefile] ""]} {
         append cachefile ".html"
     }

     # check if file is in cache
     if {[file exists $cachefile]} {
         # file is in cache, so simply return cached file
         Httpd_ReturnFile $sock text/html $cachefile
     } else {
         # REDIRECT_URL must be set, because WIKIT checks it for caching
         # and tclhttpd doesn't set it itself
         set ::env(REDIRECT_URL) [file join $wikitCgiDir $suffix]
         Httpd_RedirectSelf $::env(REDIRECT_URL) $sock
     }
 }

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References