Стартовый скрипт OddMuse

#!/usr/bin/perl
package OddMuse;
use strict;

umask(006);
use vars qw($DataDir $ConfigFile $UseConfig $ConfigPage $AdminPass $EditPass $RunCGI
	    $PageDir $KeepDir $RefererDir $TempDir $LockDir $NoEditFile $RcFile 
	    $RcOldFile $IndexFile $VisitorFile $PermanentAnchorsFile $ModuleDir $NearDir
	    $ScriptName $FullUrl );

$DataDir='/var/www/site/var/oddmuse/main';
$ConfigFile = $DataDir . "/config.conf";
$UseConfig = 1;
$ConfigPage = '';
$AdminPass = '';
$EditPass = '';
$RunCGI = 0;

do '../oddmuse_base/russian-utf8.pl' unless $INC{'../oddmuse_base/russian-utf8.pl'}; 
do '../oddmuse_base/current' unless $INC{'../oddmuse_base/current'};

$PageDir     = "$DataDir/page";	    # Stores page data
$KeepDir     = "$DataDir/keep";	    # Stores kept (old) page data
$RefererDir  = "$DataDir/referer";  # Stores referer data
$TempDir     = "$DataDir/temp";	    # Temporary files and locks
$LockDir     = "$TempDir/lock";	    # DB is locked if this exists
$NoEditFile  = "$DataDir/noedit";   # Indicates that the site is read-only
$RcFile	     = "$DataDir/rc.log";   # New RecentChanges logfile
$RcOldFile   = "$DataDir/oldrc.log"; # Old RecentChanges logfile
$IndexFile   = "$DataDir/pageidx";  # List of all pages
$VisitorFile = "$DataDir/visitors.log"; # List of recent visitors
$PermanentAnchorsFile = "$DataDir/permanentanchors"; # Store permanent anchors
$ModuleDir   = "../oddmuse_base/modules";  # Directory for extension files (ending in .pm or .pl)
$NearDir     = "$DataDir/near";	    # For page indexes and .png files of other sites

undef $ScriptName;
undef $FullUrl;

DoWikiRequest();

1;

Дата создания: 2006-05-24 16:56:06 (Фетисов Н. А. (naf))
Последнее изменение: 2006-05-24 16:56:06 (Фетисов Н. А. (naf))
Владелец: Фетисов Н. А. (naf)
Версия: 1