#!/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
Wiki::Admin Карта раздела Оглавление Изменения за сутки Изменения за неделю Изменения за месяц