#!/usr/bin/perl
# UseModWiki version 0.92K2 (2001-12-27)
# Copyright (C) 2000-2001 Clifford A. Adams
#    <caadams@frontiernet.net> or <usemod@usemod.com>
# Based on the GPLed AtisWiki 0.3  (C) 1998 Markus Denker
#    <marcus@ira.uka.de>
# ...which was based on
#    the LGPLed CVWiki CVS-patches (C) 1997 Peter Merel
#    and The Original WikiWikiWeb  (C) Ward Cunningham
#        <ward@c2.com> (code reused with permission)
# Email and ThinLine options by Jim Mahoney <mahoney@marlboro.edu>
#
# 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.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the
#    Free Software Foundation, Inc.
#    59 Temple Place, Suite 330
#    Boston, MA 02111-1307 USA

package UseModWiki;
use strict;
local $| = 1;  # Do not buffer output (localized for mod_perl)

# Configuration/constant variables:
use vars qw(@RcDays @HtmlPairs @HtmlSingle
	$TempDir $LockDir $DataDir $HtmlDir $UserDir $KeepDir $PageDir
	$InterFile $RcFile $RcOldFile $IndexFile $FullUrl $SiteName $HomePage
	$LogoUrl $RcDefault $IndentLimit $RecentTop $EditAllowed $UseDiff
	$UseSubpage $UseCache $RawHtml $SimpleLinks $NonEnglish $LogoLeft
	$KeepDays $HtmlTags $HtmlLinks $UseDiffLog $KeepMajor $KeepAuthor
	$FreeUpper $EmailNotify $SendMail $EmailFrom $FastGlob $EmbedWiki
	$ScriptTZ $BracketText $UseAmPm $UseConfig $UseIndex $UseLookup
	$RedirType $AdminPass $EditPass $UseHeadings $NetworkFile $BracketWiki
	$FreeLinks $WikiLinks $AdminDelete $FreeLinkPattern $RCName $RunCGI
	$ShowEdits $ThinLine $LinkPattern $InterLinkPattern $InterSitePattern
	$UrlProtocols $UrlPattern $ImageExtensions $RFCPattern $ISBNPattern
	$FS $FS1 $FS2 $FS3 $CookieName $SiteBase $StyleSheet $NotFoundPg
	$FooterNote $EditNote $MaxPost $NewText $NotifyDefault $HttpCharset
	$UserGotoBar);

use vars qw($DocID $ImageTag $ClickEdit $UseEmoticon $EmoticonPath $EditPagePos $EditFlag);		# luke
use vars qw($TableOfContents @HeadingNumbers $NamedAnchors $AnchoredLinkPattern);
use vars qw($TableTag $TableMode);

# Note: $NotifyDefault is kept because it was a config variable in 0.90
# Other global variables:
use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
	%KeptRevisions %UserCookie %SetCookie %UserData %IndexHash %Translate
	%LinkIndex $InterSiteInit $SaveUrlIndex $SaveNumUrlIndex $MainPage
	$OpenPageName @KeptList @IndexList $IndexInit
	$q $Now $UserID $TimeZoneOffset $ScriptName $BrowseCode $OtherCode);

# == Configuration =====================================================
$DataDir     = "text"; # Main wiki directory
$UseConfig   = 1;       # 1 = use config file,    0 = do not look for config

# == Configuration =======================================================
# Original version from UseModWiki 0.92 (April 21, 2001)

$CookieName  = "WikiWiki";      # Name for this wiki (for multi-wiki sites)
$SiteName    = "WikiWiki";		# Name of site (used for titles)
$HomePage    = "´ë¹®";          # Home page (change space to _)
$RCName      = "RecentChanges"; # Name of changes page (change space to _)
$LogoUrl     = "";     # URL for site logo ("" for no logo)
$ENV{PATH}   = "/usr/bin/";     # Path used to find "diff"
$ScriptTZ    = "";              # Local time zone ("" means do not print)
$RcDefault   = 30;              # Default number of RecentChanges days
@RcDays      = qw(1 3 7 30 90); # Days for links on RecentChanges
$KeepDays    = 14;              # Days to keep old revisions
$SiteBase    = "";              # Full URL for <BASE> header
$FullUrl     = "";              # Set if the auto-detected URL is wrong
$RedirType   = 1;               # 1 = CGI.pm, 2 = script, 3 = no redirect
$AdminPass   = "abcd1234";      # Set to non-blank to enable password(s)
$EditPass    = "";              # Like AdminPass, but for editing only
$StyleSheet  = "wiki.css";      # URL for CSS stylesheet (like "/wiki.css")
$NotFoundPg  = "";              # Page for not-found links ("" for blank pg)
$EmailFrom   = "wiki";          # Text for "From: " field of email notes.
$SendMail    = "/usr/sbin/sendmail";  # Full path to sendmail executable
$FooterNote  = "";              # HTML for bottom of every page
$EditNote    = "";              # HTML notice above buttons on edit page
$MaxPost     = 1024 * 210;      # Maximum 210K posts (about 200K for pages)
$NewText     = "";              # New page text ("" for default message)
$HttpCharset = "euc-kr";              # Charset for pages, like "iso-8859-2"
$UserGotoBar = "<a href='http://user.chollian.net/~paedros'>Home</a>";              # HTML added to end of goto bar

# Major options:
$UseSubpage  = 1;       # 1 = use subpages,       0 = do not use subpages
$UseCache    = 0;       # 1 = cache HTML pages,   0 = generate every page
$EditAllowed = 1;       # 1 = editing allowed,    0 = read-only
$RawHtml     = 1;       # 1 = allow <HTML> tag,   0 = no raw HTML in pages
$HtmlTags    = 1;       # 1 = "unsafe" HTML tags, 0 = only minimal tags
$UseDiff     = 1;       # 1 = use diff features,  0 = do not use diff
$FreeLinks   = 1;       # 1 = use [[word]] links, 0 = LinkPattern only
$WikiLinks   = 1;       # 1 = use LinkPattern,    0 = use [[word]] only
$AdminDelete = 1;       # 1 = Admin only page,    0 = Editor can delete pages
$RunCGI      = 1;       # 1 = Run script as CGI,  0 = Load but do not run
$EmailNotify = 0;       # 1 = use email notices,  0 = no email on changes
$EmbedWiki   = 0;       # 1 = no headers/footers, 0 = normal wiki pages

# Minor options:
$LogoLeft    = 0;       # 1 = logo on left,       0 = logo on right
$RecentTop   = 1;       # 1 = recent on top,      0 = recent on bottom
$UseDiffLog  = 0;       # 1 = save diffs to log,  0 = do not save diffs
$KeepMajor   = 1;       # 1 = keep major rev,     0 = expire all revisions
$KeepAuthor  = 1;       # 1 = keep author rev,    0 = expire all revisions
$ShowEdits   = 0;       # 1 = show minor edits,   0 = hide edits by default
$HtmlLinks   = 0;       # 1 = allow A HREF links, 0 = no raw HTML links
$SimpleLinks = 1;       # 1 = only letters,       0 = allow _ and numbers
$NonEnglish  = 0;       # 1 = extra link chars,   0 = only A-Za-z chars
$ThinLine    = 1;       # 1 = fancy <hr> tags,    0 = classic wiki <hr>
$BracketText = 1;       # 1 = allow [URL text],   0 = no link descriptions
$UseAmPm     = 0;       # 1 = use am/pm in times, 0 = use 24-hour times
$UseIndex    = 0;       # 1 = use index file,     0 = slow/reliable method
$UseHeadings = 1;       # 1 = allow = h1 text =,  0 = no header formatting
$NetworkFile = 1;       # 1 = allow remote file:, 0 = no file:// links
$BracketWiki = 1;       # 1 = [WikiLnk txt] link, 0 = no local descriptions
$UseLookup   = 0;       # 1 = lookup host names,  0 = skip lookup (IP only)
$FreeUpper   = 0;       # 1 = force upper case,   0 = do not force case
$FastGlob    = 1;       # 1 = new faster code,    0 = old compatible code

# HTML tag lists, enabled if $HtmlTags is set.
# Scripting is currently possible with these tags,
# so they are *not* particularly "safe".
# Tags that must be in <tag> ... </tag> pairs:
@HtmlPairs = qw(b i u font big small sub sup h1 h2 h3 h4 h5 h6 cite code
  em s strike strong tt var div center blockquote ol ul dl table caption);
# Single tags (that do not require a closing /tag)
@HtmlSingle = qw(br p hr li dt dd tr td th);
@HtmlPairs = (@HtmlPairs, @HtmlSingle);  # All singles can also be pairs

# == You should not have to change anything below this line. =============
$IndentLimit = 20;                  # Maximum depth of nested lists
$PageDir     = "$DataDir/page";     # Stores page data
$HtmlDir     = "$DataDir/html";     # Stores HTML versions
$UserDir     = "$DataDir/user";     # Stores user data
$KeepDir     = "$DataDir/keep";     # Stores kept (old) page data
$TempDir     = "$DataDir/temp";     # Temporary files and locks
$LockDir     = "$TempDir/lock";     # DB is locked if this exists
$InterFile   = "$DataDir/intermap"; # Interwiki site->url map
$RcFile      = "$DataDir/rclog";    # New RecentChanges logfile
$RcOldFile   = "$DataDir/rclog.old"; # Old RecentChanges logfile
$IndexFile   = "$DataDir/pageidx";  # List of all pages

# added by luke

$UseEmoticon 	= 1;		# 1 = use emoticon, 0 = not use
$EmoticonPath 	= "http://user.chollian.net/~paedros/wiki/data/emoticon";	# where emoticon stored
$ClickEdit	 	= 1;		# 1 = edit page by double click on page, 0 = no use
$EditPagePos	= 1;		# 1 = bottom, 2 = top, 3 = top & bottom
$NamedAnchors	= 1;		# 0 = no anchors, 1 = enable anchors, 2 = enable but suppress display

# == End of Configuration =================================================

umask 0;

# The "main" program, called at the end of this script file.
sub DoWikiRequest {
	if ($UseConfig && (-f "config.pl")) {
		do "config.pl";  # Later consider error checking?
	}
	&InitLinkPatterns();
	if (!&DoCacheBrowse()) {
		eval $BrowseCode;
		&InitRequest() or return;
		if (!&DoBrowseRequest()) {
			eval $OtherCode;
			&DoOtherRequest();
		}
	}
}

# == Common and cache-browsing code ====================================
sub InitLinkPatterns {
	my ($UpperLetter, $LowerLetter, $AnyLetter, $LpA, $LpB, $QDelim);

	# Field separators are used in the URL-style patterns below.
#  $FS  = "\xb3";      # The FS character is a superscript "3"
	$FS  = "\x7f";
	$FS1 = $FS . "1";   # The FS values are used to separate fields
	$FS2 = $FS . "2";   # in stored hashtables and other data structures.
	$FS3 = $FS . "3";   # The FS character is not allowed in user data.

	$UpperLetter = "[A-Z";
	$LowerLetter = "[a-z";
	$AnyLetter   = "[A-Za-z";
	if ($NonEnglish) {
		$UpperLetter .= "\xc0-\xde";
		$LowerLetter .= "\xdf-\xff";
		$AnyLetter   .= "\xc0-\xff";
	}
	if (!$SimpleLinks) {
		$AnyLetter .= "_0-9";
	}
	$UpperLetter .= "]"; $LowerLetter .= "]"; $AnyLetter .= "]";

	# Main link pattern: lowercase between uppercase, then anything
	$LpA = $UpperLetter . "+" . $LowerLetter . "+" . $UpperLetter
				 . $AnyLetter . "*";
	# Optional subpage link pattern: uppercase, lowercase, then anything
	$LpB = $UpperLetter . "+" . $LowerLetter . "+" . $AnyLetter . "*";

	if ($UseSubpage) {
		# Loose pattern: If subpage is used, subpage may be simple name
		$LinkPattern = "((?:(?:$LpA)?\\/$LpB)|$LpA)";
		# Strict pattern: both sides must be the main LinkPattern
		# $LinkPattern = "((?:(?:$LpA)?\\/)?$LpA)";
	} else {
		$LinkPattern = "($LpA)";
	}
	$QDelim = '(?:"")?';     # Optional quote delimiter (not in output)
	$AnchoredLinkPattern = $LinkPattern . '#(\\w+)' . $QDelim if $NamedAnchors;
	$LinkPattern .= $QDelim;

	# Inter-site convention: sites must start with uppercase letter
	# (Uppercase letter avoids confusion with URLs)
	$InterSitePattern = $UpperLetter . $AnyLetter . "+";
	$InterLinkPattern = "((?:$InterSitePattern:[^\\]\\s\"<>$FS]+)$QDelim)";

	if ($FreeLinks) {
		# Note: the - character must be first in $AnyLetter definition
		#if ($NonEnglish) {
			$AnyLetter = "[-,.()' _0-9A-Za-z\xa0-\xff]";
		#} else {
		#  $AnyLetter = "[-,.()' _0-9A-Za-z]";
		#}
	}
	$FreeLinkPattern = "($AnyLetter+)";
	if ($UseSubpage) {
		$FreeLinkPattern = "((?:(?:$AnyLetter+)?\\/)?$AnyLetter+)";
	}
	$FreeLinkPattern .= $QDelim;

	# Url-style links are delimited by one of:
	#   1.  Whitespace                           (kept in output)
	#   2.  Left or right angle-bracket (< or >) (kept in output)
	#   3.  Right square-bracket (])             (kept in output)
	#   4.  A single double-quote (")            (kept in output)
	#   5.  A $FS (field separator) character    (kept in output)
	#   6.  A double double-quote ("")           (removed from output)

	$UrlProtocols = "http|https|ftp|afs|news|nntp|mid|cid|mailto|wais|"
									. "prospero|telnet|gopher";
	$UrlProtocols .= '|file'  if $NetworkFile;
	$UrlPattern = "((?:(?:$UrlProtocols):[^\\]\\s\"<>$FS]+)$QDelim)";
	$ImageExtensions = "(gif|jpg|png|bmp|jpeg)";
	$RFCPattern = "RFC\\s?(\\d+)";
	$ISBNPattern = "ISBN:?([0-9- xX]{10,})";
}

# Simple HTML cache
sub DoCacheBrowse {
	my ($query, $idFile, $text);

	return 0  if (!$UseCache);
	$query = $ENV{'QUERY_STRING'};
	if (($query eq "") && ($ENV{'REQUEST_METHOD'} eq "GET")) {
		$query = $HomePage;  # Allow caching of home page.
	}
	if (!($query =~ /^$LinkPattern$/)) {
		if (!($FreeLinks && ($query =~ /^$FreeLinkPattern$/))) {
			return 0;  # Only use cache for simple links
		}
	}
	$idFile = &GetHtmlCacheFile($query);
	if (-f $idFile) {
		local $/ = undef;   # Read complete files
		open(INFILE, "<$idFile") or return 0;
		$text = <INFILE>;
		close INFILE;
		print $text;
		return 1;
	}
	return 0;
}

sub GetHtmlCacheFile {
	my ($id) = @_;

	return $HtmlDir . "/" . &GetPageDirectory($id) . "/$id.htm";
}

sub GetPageDirectory {
	my ($id) = @_;

	if ($id =~ /^([a-zA-Z])/) {
		return uc($1);
	}
	return "other";
}

sub T {
	my ($text) = @_;

	if (1) {   # Later make translation optional?
		if (defined($Translate{$text}) && ($Translate{$text} ne ''))  {
			return $Translate{$text};
		}
	}
	return $text;
}

sub Ts {
	my ($text, $string) = @_;

	$text = T($text);
	$text =~ s/\%s/$string/;
	return $text;
}

# == Normal page-browsing and RecentChanges code =======================
$BrowseCode = ""; # Comment next line to always compile (slower)
#$BrowseCode = <<'#END_OF_BROWSE_CODE';
use CGI;
use CGI::Carp qw(fatalsToBrowser);

sub InitRequest {
	my @ScriptPath = split('/', "$ENV{SCRIPT_NAME}");

	$CGI::POST_MAX = $MaxPost;
	$CGI::DISABLE_UPLOADS = 1;  # no uploads
	$q = new CGI;
	$q->autoEscape(undef);

	$Now = time;                     # Reset in case script is persistent
	$ScriptName = pop(@ScriptPath);  # Name used in links
	$IndexInit = 0;                  # Must be reset for each request
	$InterSiteInit = 0;
	%InterSite = ();
	$MainPage = ".";       # For subpages only, the name of the top-level page
	$OpenPageName = "";    # Currently open page
	&CreateDir($DataDir);  # Create directory if it doesn't exist
	if (!-d $DataDir) {
		&ReportError(Ts('Could not create %s', $DataDir) . ": $!");
		return 0;
	}
	&InitCookie();         # Reads in user data
	return 1;
}

sub InitCookie {
	%SetCookie = ();
	$TimeZoneOffset = 0;
	undef $q->{'.cookies'};  # Clear cache if it exists (for SpeedyCGI)
	%UserCookie = $q->cookie($CookieName);
	$UserID = $UserCookie{'id'};
	&LoadUserData($UserID);
	if (($UserData{'id'}       != $UserCookie{'id'})      ||
			($UserData{'randkey'}  != $UserCookie{'randkey'})) {
		$UserID = 113;
		%UserData = ();   # Invalid.  Later consider warning message.
	}
	if ($UserData{'tzoffset'} != 0) {
		$TimeZoneOffset = $UserData{'tzoffset'} * (60 * 60);
	}
}

sub DoBrowseRequest {
	my ($id, $action, $text);

	if (!$q->param) {             # No parameter
		&BrowsePage($HomePage);
		return 1;
	}
	$id = &GetParam('keywords', '');
	if ($id) {                    # Just script?PageName
		if ($FreeLinks && (!-f &GetPageFile($id))) {
			$id = &FreeToNormal($id);
		}
		if (($NotFoundPg ne '') && (!-f &GetPageFile($id))) {
			$id = $NotFoundPg;
		}
		$DocID = $id;
		&BrowsePage($id)  if &ValidIdOrDie($id);
		return 1;
	}
	$action = lc(&GetParam('action', ''));
	$id = &GetParam('id', '');
	$DocID = $id;
	if ($action eq 'browse') {
		if ($FreeLinks && (!-f &GetPageFile($id))) {
			$id = &FreeToNormal($id);
		}
		if (($NotFoundPg ne '') && (!-f &GetPageFile($id))) {
			$id = $NotFoundPg;
		}
		&BrowsePage($id)  if &ValidIdOrDie($id);
		return 1;
	} elsif ($action eq 'rc') {
		&BrowsePage($RCName);
		return 1;
	} elsif ($action eq 'random') {
		&DoRandom();
		return 1;
	} elsif ($action eq 'history') {
		$ClickEdit = 0;								# luke added
		&DoHistory($id)   if &ValidIdOrDie($id);
		return 1;
	}
	return 0;  # Request not handled
}

sub BrowsePage {
	my ($id) = @_;
	my ($fullHtml, $oldId, $allDiff, $showDiff, $openKept);
	my ($revision, $goodRevision, $diffRevision, $newText);

	&OpenPage($id);
	&OpenDefaultText();
	$openKept = 0;
	$revision = &GetParam('revision', '');
	$revision =~ s/\D//g;           # Remove non-numeric chars
	$goodRevision = $revision;      # Non-blank only if exists
	if ($revision ne '') {
		&OpenKeptRevisions('text_default');
		$openKept = 1;
		if (!defined($KeptRevisions{$revision})) {
			$goodRevision = '';
		} else {
			&OpenKeptRevision($revision);
		}
	}
	$newText = $Text{'text'};     # For differences
	# Handle a single-level redirect
	$oldId = &GetParam('oldid', '');
	if (($oldId eq '') && (substr($Text{'text'}, 0, 10) eq '#REDIRECT ')) {
		$oldId = $id;
		if (($FreeLinks) && ($Text{'text'} =~ /\#REDIRECT\s+\[\[.+\]\]/)) {
			($id) = ($Text{'text'} =~ /\#REDIRECT\s+\[\[(.+)\]\]/);
			$id = &FreeToNormal($id);
		} else {
			($id) = ($Text{'text'} =~ /\#REDIRECT\s+(\S+)/);
		}
		if (&ValidId($id) eq '') {
			# Later consider revision in rebrowse?
			&ReBrowsePage($id, $oldId, 0);
			return;
		} else {  # Not a valid target, so continue as normal page
			$id = $oldId;
			$oldId = '';
		}
	}
	$MainPage = $id;
	$MainPage =~ s|/.*||;  # Only the main page name (remove subpage)
	$fullHtml = &GetHeader($id, &QuoteHtml($id), $oldId);

	if ($revision ne '') {
		# Later maybe add edit time?
		if ($goodRevision ne '') {
			$fullHtml .= '<b>' . Ts('Showing revision %s', $revision) . "</b><br>";
		} else {
			$fullHtml .= '<b>' . Ts('Revision %s not available', $revision)
									 . ' (' . T('showing current revision instead')
									 . ')</b><br>';
		}
	}
	$allDiff  = &GetParam('alldiff', 0);
	if ($allDiff != 0) {
		$allDiff = &GetParam('defaultdiff', 1);
	}
	if ((($id eq $RCName) || (T($RCName) eq $id) || (T($id) eq $RCName))
			&& &GetParam('norcdiff', 1)) {
		$allDiff = 0;  # Only show if specifically requested
	}
	$showDiff = &GetParam('diff', $allDiff);
	if ($UseDiff && $showDiff) {
		$diffRevision = $goodRevision;
		$diffRevision = &GetParam('diffrevision', $diffRevision);
		# Later try to avoid the following keep-loading if possible?
		&OpenKeptRevisions('text_default')  if (!$openKept);
		$fullHtml .= &GetDiffHTML($showDiff, $id, $diffRevision, "$revision", $newText);
		$fullHtml .= "<hr>\n";
	}

	if ($EditPagePos >= 2) {
		$fullHtml .= &GetEditGuide($id, $goodRevision);		# luke added
	}

	$fullHtml .= &WikiToHTML($Text{'text'});
	# $fullHtml .= "<hr  noshade size=1>\n"  if (!&GetParam('embed', $EmbedWiki));
	if (($id eq $RCName) || (T($RCName) eq $id) || (T($id) eq $RCName)) {

		if (&GetParam("sincelastvisit", 0)) {
			my $cookie1 = $q->cookie(
				-name	=> $CookieName . "-RC",
				-value	=> time(),
				-expires => '+60d');
			print "Set-Cookie: $cookie1\r\n";
		}

		print $fullHtml;
		&DoRc();
		print "<hr  noshade size=1>\n"  if (!&GetParam('embed', $EmbedWiki));
		print &GetFooterText($id, $goodRevision);
		return;
	}
	$fullHtml .= &GetFooterText($id, $goodRevision);
	print $fullHtml;
	return  if ($showDiff || ($revision ne ''));  # Don't cache special version
	&UpdateHtmlCache($id, $fullHtml)  if $UseCache;
}

sub ReBrowsePage {
	my ($id, $oldId, $isEdit) = @_;

	if ($oldId ne "") {   # Target of #REDIRECT (loop breaking)
		print &GetRedirectPage("action=browse&id=$id&oldid=$oldId",
													 $id, $isEdit);
	} else {
		print &GetRedirectPage($id, $id, $isEdit);
	}
}

sub DoRc {
	my ($fileData, $rcline, $i, $daysago, $lastTs, $ts, $idOnly);
	my (@fullrc, $status, $oldFileData, $firstTs, $errorText);
	my $starttime = 0;
	my $showbar = 0;

	if (&GetParam("sincelastvisit", 0)) {
		$starttime = $q->cookie($CookieName ."-RC");
	} elsif (&GetParam("from", 0)) {
		$starttime = &GetParam("from", 0);
		print "<h2>" . Ts('Updates since %s', &TimeToText($starttime))
					. "</h2>\n";
	} else {
		$daysago = &GetParam("days", 0);
		$daysago = &GetParam("rcdays", 0)  if ($daysago == 0);
		if ($daysago) {
			$starttime = $Now - ((24*60*60)*$daysago);
			print "<h2>" . Ts('Áö³­ %s ÀÏ ÀÌÈĺÎÅÍÀÇ º¯°æ', $daysago) . "</h2>\n";
			# Note: must have two translations (for "day" and "days")
			# Following comment line is for translation helper script
			# Ts('Updates in the last %s days', '');
		}
	}
	if ($starttime == 0) {
		$starttime = $Now - ((24*60*60)*$RcDefault);
		print "<h2>" . Ts('Áö³­ %s ÀÏ ÀÌÈĺÎÅÍÀÇ º¯°æ', $RcDefault) . "</h2>\n";
		# Translation of above line is identical to previous version
	}

	# Read rclog data (and oldrclog data if needed)
	($status, $fileData) = &ReadFile($RcFile);
	$errorText = "";
	if (!$status) {
		# Save error text if needed.
		$errorText = '<p><strong>' . Ts('Could not open %s log file', $RCName)
								 . ":</strong> $RcFile<p>"
								 . T('Error was') . ":\n<pre>$!</pre>\n" . '<p>'
		. T('Note: This error is normal if no changes have been made.') . "\n";
	}
	@fullrc = split(/\n/, $fileData);
	$firstTs = 0;
	if (@fullrc > 0) {  # Only false if no lines in file
		($firstTs) = split(/$FS3/, $fullrc[0]);
	}
	if (($firstTs == 0) || ($starttime <= $firstTs)) {
		($status, $oldFileData) = &ReadFile($RcOldFile);
		if ($status) {
			@fullrc = split(/\n/, $oldFileData . $fileData);
		} else {
			if ($errorText ne "") {  # could not open either rclog file
				print $errorText;
				print "<p><strong>"
							. Ts('Could not open old %s log file', $RCName)
							. ":</strong> $RcOldFile<p>"
							. T('Error was') . ":\n<pre>$!</pre>\n";
				return;
			}
		}
	}
	$lastTs = 0;
	if (@fullrc > 0) {  # Only false if no lines in file
		($lastTs) = split(/$FS3/, $fullrc[$#fullrc]);
	}
	$lastTs++  if (($Now - $lastTs) > 5);  # Skip last unless very recent

	$idOnly = &GetParam("rcidonly", "");
	if ($idOnly ne "") {
		print '<b>(' . Ts('for %s only', &ScriptLink($idOnly, $idOnly))
					. ')</b><br>';
	}
	foreach $i (@RcDays) {
		print " | "  if $showbar;
		$showbar = 1;
		print &ScriptLink("action=rc&days=$i",
											Ts('%s ÀÏÀü' . (($i != 1)?'':''), $i));
			# Note: must have two translations (for "day" and "days")
			# Following comment line is for translation helper script
			# Ts('%s days', '');
	}
	print "<br>" . &ScriptLink("action=rc&from=$lastTs",
														 T('À̳¯ ÀÌÈÄÀÇ º¯°æ ¸®½ºÆ® º¸±â:'));
	print " " . &TimeToText($lastTs) . "<br>\n";

	# Later consider a binary search?
	$i = 0;
	while ($i < @fullrc) {  # Optimization: skip old entries quickly
		($ts) = split(/$FS3/, $fullrc[$i]);
		if ($ts >= $starttime) {
			$i -= 1000  if ($i > 0);
			last;
		}
		$i += 1000;
	}
	$i -= 1000  if (($i > 0) && ($i >= @fullrc));
	for (; $i < @fullrc ; $i++) {
		($ts) = split(/$FS3/, $fullrc[$i]);
		last if ($ts >= $starttime);
	}
	if ($i == @fullrc) {
		print '<br><strong>' . Ts('%s ÀÌÈĺÎÅÍ º¯°æ ³»¿ëÀÌ ¾ø½À´Ï´Ù.',
															&TimeToText($starttime)) . "</strong><br>\n";
	} else {
		splice(@fullrc, 0, $i);  # Remove items before index $i
		# Later consider an end-time limit (items older than X)
		print &GetRcHtml(@fullrc);
	}
	print '<p>' . Ts('ÆäÀÌÁö »ý¼ºÀÏÀÚ: %s', &TimeToText($Now)), "<br>\n";
}

sub GetRcHtml {
	my @outrc = @_;
	my ($rcline, $html, $date, $sum, $edit, $count, $newtop, $author);
	my ($showedit, $inlist, $link, $all, $idOnly);
	my ($ts, $pagename, $summary, $isEdit, $host, $kind, $extraTemp);
	my ($tEdit, $tChanges, $tDiff);
	my %extra = ();
	my %changetime = ();
	my %pagecount = ();

	$tEdit    = T('(edit)');    # Optimize translations out of main loop
	$tDiff    = T('(diff)');
	$tChanges = T('changes');
	$showedit = &GetParam("rcshowedit", $ShowEdits);
	$showedit = &GetParam("showedit", $showedit);
	if ($showedit != 1) {
		my @temprc = ();
		foreach $rcline (@outrc) {
			($ts, $pagename, $summary, $isEdit, $host) = split(/$FS3/, $rcline);
			if ($showedit == 0) {  # 0 = No edits
				push(@temprc, $rcline)  if (!$isEdit);
			} else {               # 2 = Only edits
				push(@temprc, $rcline)  if ($isEdit);
			}
		}
		@outrc = @temprc;
	}

	# Later consider folding into loop above?
	# Later add lines to assoc. pagename array (for new RC display)
	foreach $rcline (@outrc) {
		($ts, $pagename) = split(/$FS3/, $rcline);
		$pagecount{$pagename}++;
		$changetime{$pagename} = $ts;
	}
	$date = "";
	$inlist = 0;
	$html = "";
	$all = &GetParam("rcall", 0);
	$all = &GetParam("all", $all);
	$newtop = &GetParam("rcnewtop", $RecentTop);
	$newtop = &GetParam("newtop", $newtop);
	$idOnly = &GetParam("rcidonly", "");

	@outrc = reverse @outrc if ($newtop);
	foreach $rcline (@outrc) {
		($ts, $pagename, $summary, $isEdit, $host, $kind, $extraTemp)
			= split(/$FS3/, $rcline);
		# Later: need to change $all for new-RC?
		next  if ((!$all) && ($ts < $changetime{$pagename}));
		next  if (($idOnly ne "") && ($idOnly ne $pagename));
		%extra = split(/$FS2/, $extraTemp, -1);
		if ($date ne &CalcDay($ts)) {
			$date = &CalcDay($ts);
			if ($inlist) {
				$html .= "</UL>\n";
				$inlist = 0;
			}
			$html .= "<p><strong>" . $date . "</strong><p>\n";
		}
		if (!$inlist) {
			$html .= "<UL>\n";
			$inlist = 1;
		}
		$host = &QuoteHtml($host);
		if (defined($extra{'name'}) && defined($extra{'id'})) {
			$author = &GetAuthorLink($host, $extra{'name'}, $extra{'id'});
		} else {
			$author = &GetAuthorLink($host, "", 0);
		}
		$sum = "";
		if (($summary ne "") && ($summary ne "*")) {
			$summary = &QuoteHtml($summary);
			$sum = "<strong>[$summary]</strong> ";
		}
		$edit = "";
		$edit = "<em>$tEdit</em> "  if ($isEdit);
		$count = "";
		if ((!$all) && ($pagecount{$pagename} > 1)) {
			$count = "($pagecount{$pagename} ";
			if (&GetParam("rcchangehist", 1)) {
				$count .= &GetHistoryLink($pagename, $tChanges);
			} else {
				$count .= $tChanges;
			}
			$count .= ") ";
		}
		$link = "";
		if ($UseDiff && &GetParam("diffrclink", 1)) {
			$link .= &ScriptLinkDiff(4, $pagename, $tDiff, "") . "  ";
		}
		$link .= &GetPageLink($pagename);
		$html .= "<li>$link ";
		# Later do new-RC looping here.
		$html .=  &CalcTime($ts) . " $count$edit" . " $sum";
		$html .= ". . . . . $author\n";  # Make dots optional?
	}
	$html .= "</UL>\n" if ($inlist);
	return $html;
}

sub DoRandom {
	my ($id, @pageList);

	@pageList = &AllPagesList();  # Optimize?
	$id = $pageList[int(rand($#pageList + 1))];
	&ReBrowsePage($id, "", 0);
}

sub DoHistory {
	my ($id) = @_;
	my ($html, $canEdit, $row, $newText);

	print &GetHeader("",&QuoteHtml(Ts('History of %s', $id)), "") . "<br>";
	&OpenPage($id);
	&OpenDefaultText();
	$canEdit = &UserCanEdit($id);
	$canEdit = 0;  # Turn off direct "Edit" links
	if ( $UseDiff ) {
		print <<FORMEOF ;
			<form action='$ScriptName' METHOD='GET'>
			<input type='hidden' name='action' value='browse'/>
			<input type='hidden' name='diff' value='1'/>
			<input type='hidden' name='id' value='$id'/>
			<table border='0' cellpadding=0 cellspacing=0 width='90%'><tr>
FORMEOF
	}
	$html = &GetHistoryLine($id, $Page{'text_default'}, $canEdit, $row++);
	&OpenKeptRevisions('text_default');
	foreach (reverse sort {$a <=> $b} keys %KeptRevisions) {
		next  if ($_ eq "");  # (needed?)
		$html .= &GetHistoryLine($id, $KeptRevisions{$_}, $canEdit, $row++);
	}
	print $html;
	if( $UseDiff ) {
		my $label = T('º¯°æ ºñ±³');
		print "<tr><td align='center'><input type='submit' value='$label'/>  </td><td>&nbsp;</td></table></form>\n";
		print "<hr>\n";
		print &GetDiffHTML( &GetParam('defaultdiff',1), $id, '', '', $newText );
	}
	
	print &GetCommonFooter();
}

sub GetHistoryLine {
	my ($id, $section, $canEdit, $row) = @_;
	my ($html, $expirets, $rev, $summary, $host, $user, $uid, $ts, $minor);
	my (%sect, %revtext);

	%sect = split(/$FS2/, $section, -1);
	%revtext = split(/$FS3/, $sect{'data'});
	$rev = $sect{'revision'};
	$summary = $revtext{'summary'};
	if ((defined($sect{'host'})) && ($sect{'host'} ne '')) {
		$host = $sect{'host'};
	} else {
		$host = $sect{'ip'};
		$host =~ s/\d+$/xxx/;      # Be somewhat anonymous (if no host)
	}
	$user = $sect{'username'};
	$uid = $sect{'id'};
	$ts = $sect{'ts'};
	$minor = '';
	$minor = '<i>' . T('(edit)') . '</i> '  if ($revtext{'minor'});
	$expirets = $Now - ($KeepDays * 24 * 60 * 60);

	if ($UseDiff) {
		my ($c1, $c2);
		$c1 = 'checked="checked"' if 1 == $row;
		$c2 = 'checked="checked"' if 0 == $row;
		$html .= "<tr><td align='center'><input type='radio' name='diffrevision' value='$rev' $c1/> ";
		$html .= "<input type='radio' name='revision' value='$rev' $c2/></td><td>";
	}
	if (0 == $row) { # current revision
		$html .= &GetPageLinkText($id, Ts('Revision %s', $rev)) . ' ';
		if ($canEdit) {
			$html .= &GetEditLink($id, T('Edit')) . ' ';
		}
	} else {
		$html .= &GetOldPageLink('browse', $id, $rev, Ts('Revision %s', $rev)) . ' ';
		if ($canEdit) {
			$html .= &GetOldPageLink('edit',   $id, $rev, T('Edit')) . ' ';
		}
	}
	$html .= ". . . . " . $minor . &TimeToText($ts) . " ";
	$html .= T('by') . ' ' . &GetAuthorLink($host, $user, $uid) . " ";
	if (defined($summary) && ($summary ne "") && ($summary ne "*")) {
		$summary = &QuoteHtml($summary);   # Thanks Sunir! :-)
		$html .= "<b>[$summary]</b> ";
	}
	$html .= $UseDiff ? "</tr>\n" : "<br>\n";
	return $html;
}

# ==== HTML and page-oriented functions ====
sub ScriptLink {
	my ($action, $text) = @_;

	return "<a href=\"$ScriptName?$action\">$text</a>";
}

# luke added

sub HelpLink {
	my ($id, $text) = @_;
	my $url = "$ScriptName?action=help&index=$id";

	return "<a href=\"javascript:help('$url')\">$text</a>";
}

# end

sub GetPageLink {
	my ($id) = @_;
	my $name = $id;

	$id =~ s|^/|$MainPage/|;
	if ($FreeLinks) {
		$id = &FreeToNormal($id);
		$name =~ s/_/ /g;
	}
	return &ScriptLink($id, $name);
}

sub GetPageLinkText {
	my ($id, $name) = @_;

	$id =~ s|^/|$MainPage/|;
	if ($FreeLinks) {
		$id = &FreeToNormal($id);
		$name =~ s/_/ /g;
	}
	return &ScriptLink($id, $name);
}

sub GetEditLink {
	my ($id, $name) = @_;

	if ($FreeLinks) {
		$id = &FreeToNormal($id);
		$name =~ s/_/ /g;
	}
	return &ScriptLink("action=edit&id=$id", $name);
}

sub GetOldPageLink {
	my ($kind, $id, $revision, $name) = @_;

	if ($FreeLinks) {
		$id = &FreeToNormal($id);
		$name =~ s/_/ /g;
	}
	return &ScriptLink("action=$kind&id=$id&revision=$revision", $name);
}

sub GetPageOrEditAnchoredLink {
	my ($id, $anchor, $name) = @_;
	my (@temp, $exists);

	if ($name eq "") {
		$name = $id;
		if ($FreeLinks) {
			$name =~ s/_/ /g;
		}
	}
	$id =~ s|^/|$MainPage/|;
	if ($FreeLinks) {
		$id = &FreeToNormal($id);
	}
	$exists = 0;
	if ($UseIndex) {
		if (!$IndexInit) {
			@temp = &AllPagesList();          # Also initializes hash
		}
		$exists = 1  if ($IndexHash{$id});
	} elsif (-f &GetPageFile($id)) {      # Page file exists
		$exists = 1;
	}
	if ($exists) {
		$id = "$id#$anchor" if $anchor;
		$name = "$name#$anchor" if $anchor && $NamedAnchors != 2;
		return &GetPageLinkText($id, $name);
	}
	if ($FreeLinks) {
		if ($name =~ m| |) {  # Not a single word
			$name = "[$name]";  # Add brackets so boundaries are obvious
		}
	}
	return $name . &GetEditLink($id,"?");
}

sub GetPageOrEditLink {
	my ($id, $name) = @_;
	return &GetPageOrEditAnchoredLink( $id, "", $name );
}

sub GetSearchLink {
	my ($id) = @_;
	my $name = $id;

	$id =~ s|.+/|/|;   # Subpage match: search for just /SubName
	if ($FreeLinks) {
		$name =~ s/_/ /g;  # Display with spaces
		$id =~ s/_/+/g;    # Search for url-escaped spaces
	}
	return &ScriptLink("search=$id", $name);
}

sub GetPrefsLink {
	return &ScriptLink("action=editprefs", T('ȯ°æ¼³Á¤'));
}

sub GetRandomLink {
	return &ScriptLink("action=random", T('Random Page'));
}

sub ScriptLinkDiff {
	my ($diff, $id, $text, $rev) = @_;

	$rev = "&revision=$rev"  if ($rev ne "");
	$diff = &GetParam("defaultdiff", 1)  if ($diff == 4);
	return &ScriptLink("action=browse&diff=$diff&id=$id$rev", $text);
}

sub ScriptLinkDiffRevision {
	my ($diff, $id, $rev, $text) = @_;

	$rev = "&diffrevision=$rev"  if ($rev ne "");
	$diff = &GetParam("defaultdiff", 1)  if ($diff == 4);
	return &ScriptLink("action=browse&diff=$diff&id=$id$rev", $text);
}

sub ScriptLinkTitle {
	my ($action, $text, $title) = @_;

	if ($FreeLinks) {
		$action =~ s/ /_/g;
	}
	return "<a href=\"$ScriptName?$action\" title=\"$title\">$text</a>";
}

sub GetAuthorLink {
	my ($host, $userName, $uid) = @_;
	my ($html, $title, $userNameShow);

	$userNameShow = $userName;
	if ($FreeLinks) {
		$userName     =~ s/ /_/g;
		$userNameShow =~ s/_/ /g;
	}
	if (&ValidId($userName) ne "") {  # Invalid under current rules
		$userName = "";  # Just pretend it isn't there.
	}
	# Later have user preference for link titles and/or host text?
	if (($uid ne "") && ($userName ne "")) {
		$html = &ScriptLinkTitle($userName, $userNameShow,
						Ts('ID %s', $uid) . ' ' . Ts('from %s', $host));
	} else {
		$html = $host;
	}
	return $html;
}

sub GetHistoryLink {
	my ($id, $text) = @_;

	if ($FreeLinks) {
		$id =~ s/ /_/g;
	}
	return &ScriptLink("action=history&id=$id", $text);
}

sub GetHeader {
	my ($id, $title, $oldId) = @_;
	my $header = "";
	my $logoImage = "";
	my $result = "";
	my $embed = &GetParam('embed', $EmbedWiki);
	my $altText = T('[Home]');

	$result = &GetHttpHeader();
	if ($FreeLinks) {
		$title =~ s/_/ /g;   # Display as spaces
	}
	$result .= &GetHtmlHeader("$SiteName: $title", $title);
	return $result  if ($embed);

	if ($oldId ne '') {
		$result .= $q->h3('(' . Ts('redirected from %s',
															 &GetEditLink($oldId, $oldId)) . ')');
	}
	if ((!$embed) && ($LogoUrl ne "")) {
		$logoImage = "img src=\"$LogoUrl\" alt=\"$altText\" border=0";
		if (!$LogoLeft) {
			$logoImage .= " align=\"right\"";
		}
		$header = &ScriptLink($HomePage, "<$logoImage>");
	}

	if ($id ne '') {
		$result .= $q->h1(&GetSearchLink($id));
	} else {
		$result .= $q->h1($header . $title);
	}

	if (&GetParam("toplinkbar", 1)) {
		# Later consider smaller size?
		$result .= &GetGotoBar($id);
	}

	return $result;
}

sub GetHttpHeader {
	my $cookie;
	my $t;

	$t = gmtime;
	if (defined($SetCookie{'id'})) {
		$cookie = "$CookieName="
						. "rev&" . $SetCookie{'rev'}
						. "&id&" . $SetCookie{'id'}
						. "&randkey&" . $SetCookie{'randkey'};
		$cookie .= ";expires=Fri, 08-Sep-2010 19:48:23 GMT";
		if ($HttpCharset ne '') {
			return $q->header(-cookie=>$cookie,
				-pragma=>"no-cache",
				-cache_control=>"no-cache",
				-last_modified=>"$t",
				-expires=>"+10s",
				-type=>"text/html; charset=$HttpCharset");
		}
		return $q->header(-cookie=>$cookie);
	}
	if ($HttpCharset ne '') {
		return $q->header(-type=>"text/html; charset=$HttpCharset",
			-pragma=>"no-cache",
			-cache_control=>"no-cache",
			-last_modified=>"$t",
			-expires=>"+10s");
	}
	return $q->header();
}

sub GetHtmlHeader {
	my ($title, $id) = @_;
	my ($dtd, $bgcolor, $html, $bodyExtra);

	$html = '';
	$dtd = '-//IETF//DTD HTML//EN';
	$bgcolor = 'white';  # Later make an option
	$html = qq(<!DOCTYPE HTML PUBLIC "$dtd">\n);
	$title = $q->escapeHTML($title);
	$html .= "<HTML><HEAD><TITLE>$title</TITLE>\n";

	if ($SiteBase ne "") {
		$html .= qq(<BASE HREF="$SiteBase">\n);
	}
	if ($StyleSheet ne '') {
		$html .= qq(<LINK REL="stylesheet" HREF="$StyleSheet">\n);
	}
	# Insert other header stuff here (like inline style sheets?)
	$bodyExtra = '';
	if ($bgcolor ne '') {
		$bodyExtra = qq( BGCOLOR="$bgcolor");
	}

	# added luke

	if ($ClickEdit) {
		if ($FreeLinks) {
			$id = &FreeToNormal($id);
		}
		$bodyExtra .= qq(ondblclick="location.href='$ScriptName?action=edit&id=$id'");
	}

	# end

	# Insert any other body stuff (like scripts) into $bodyExtra here
	# (remember to add a space at the beginning to separate from prior text)
	$html .= "</HEAD><BODY $bodyExtra>\n";
	return $html;
}

sub GetEditGuide {
	my ($id, $rev) = @_;
	my $result = "<div align=right>";

	if (&UserCanEdit($id, 0)) {
		if ($rev ne '') {
			$result .= &GetOldPageLink('edit',   $id, $rev,
																 Ts('Edit revision %s of this page', $rev));
		} else {
			$result .= &GetEditLink($id, T('ÆäÀÌÁö °íÄ¡±â'));
		}
	} else {
		$result .= T('Àбâ Àü¿ë ÆäÀÌÁö');
	}
	$result .= ' | ';
	$result .= &GetHistoryLink($id, T('º¯°æ»çÇ×'));
	if ($rev ne '') {
		$result .= ' | ';
		$result .= &GetPageLinkText($id, T('ÇöÀç ¹öÀü º¸±â'));
	}
	if ($Section{'revision'} > 0) {
		$result .= '<br>';
		if ($rev eq '') {  # Only for most current rev
			$result .= T('¸¶Áö¸· ¼öÁ¤:');
		} else {
			$result .= T('¼öÁ¤');
		}
		$result .= ' ' . &TimeToText($Section{ts});
	}
	if ($UseDiff) {
		$result .= ' ' . &ScriptLinkDiff(4, $id, T('(ÃÖ±Ù º¯°æ ³»¿ë)'), $rev);
	}

	$result .= "</div>";

	return $result;
}

sub GetFooterText {
	my ($id, $rev) = @_;
	my $result = '';

	if (&GetParam('embed', $EmbedWiki)) {
		return $q->end_html;
	}

	if ($EditPagePos eq 1 or $EditPagePos eq 3) {
		$result .= &GetEditGuide($id, $rev);
	}

	if ($DataDir =~ m|/tmp/|) {
		$result .= '<br><b>' . T('Warning') . ':</b> '
							 . Ts('Database is stored in temporary directory %s',
										$DataDir) . '<br>';
	}
	$result .= "<hr>";
	$result .= &GetMinimumFooter();
	return $result;
}

sub GetCommonFooter {
	return "<hr>" .  &GetMinimumFooter();
}

sub GetMinimumFooter {
	if ($FooterNote ne '') {
		return T($FooterNote) . $q->end_html;  # Allow local translations
	}
	return $q->end_html;
}

sub GetFormStart {
	#return $q->startform("POST", "$ScriptName", "");
	return $q->startform("POST", "$ScriptName", "application/x-www-form-urlencoded");
}

sub GetGotoBar {
	my ($id) = @_;
	my ($main, $bartext);

	$bartext = &GetFormStart();
	$bartext .= "|";
	$bartext .= &GetPageLink($HomePage);
	$bartext .= "|" . &ScriptLink("action=index", T('¸ñ·Ï'));
	if ($id =~ m|/|) {
		$main = $id;
		$main =~ s|/.*||;  # Only the main page name (remove subpage)
		$bartext .= "|" . &GetPageLink($main);
	}
	$bartext .= "|" . &GetPageLink($RCName);
	$bartext .= "|" . &GetPrefsLink();
	if (&GetParam("linkrandom", 0)) {
		$bartext .= "|" . &GetRandomLink();
	}
	if (&UserIsAdmin()) {
		$bartext .= "|" . &ScriptLink("action=editlinks", T('°ü¸®ÀÚ'));
	}
#	$bartext .= '|' . &GetHistoryLink($id, T('º¯°æ³»¿ª'));
	$bartext .= '|' . &ScriptLink("action=links", T('ÂüÁ¶'));
	$bartext .= '|' . &ScriptLink("action=login", T('·Î±×ÀÎ'));
	$bartext .= '|' . &GetSearchForm();
	if ($UserGotoBar ne '') {
		$bartext .= "|" . $UserGotoBar;
	}
	$bartext .= "|";
	$bartext .= "<hr>";
	$bartext .= $q->endform;
	$bartext .= "\n";
	return $bartext;
}

sub GetSearchForm {
	my ($result);

	$result = "ã±â: <input class=text type=text name='search' size=10>" # . $q->textfield(-name=>'search', -size=>12)
						. &GetHiddenValue("dosearch", 1);
	return $result;
}

sub GetRedirectPage {
	my ($newid, $name, $isEdit) = @_;
	my ($url, $html);
	my ($nameLink);

	# Normally get URL from script, but allow override.
	$FullUrl = $q->url(-full=>1)  if ($FullUrl eq "");
	$url = $FullUrl . "?" . $newid;
	$nameLink = "<a href=\"$url\">$name</a>";
	if ($RedirType < 3) {
		if ($RedirType == 1) {             # Use CGI.pm
			# NOTE: do NOT use -method (does not work with old CGI.pm versions)
			# Thanks to Daniel Neri for fixing this problem.
			$html = $q->redirect(-uri=>$url);
		} else {                           # Minimal header
			$html  = "Status: 302 Moved\n";
			$html .= "Location: $url\n";
			$html .= "Content-Type: text/html\n";  # Needed for browser failure
			$html .= "\n";
		}
		$html .= "\n" . Ts('Your browser should go to the %s page.', $newid);
		$html .= ' ' . Ts('If it does not, click %s to continue.', $nameLink);
	} else {
		if ($isEdit) {
			$html  = &GetHeader('', T('Thanks for editing...'), '');
			$html .= Ts('Thank you for editing %s.', $nameLink);
		} else {
			$html  = &GetHeader('', T('Link to another page...'), '');
		}
		$html .= "\n<p>";
		$html .= Ts('Follow the %s link to continue.', $nameLink);
		$html .= &GetMinimumFooter();
	}
	return $html;
}

# ==== Common wiki markup ====
sub WikiToHTML {
	my ($pageText) = @_;

	$TableMode = 0;
	%SaveUrl = ();
	%SaveNumUrl = ();
	$SaveUrlIndex = 0;
	$SaveNumUrlIndex = 0;
	$pageText =~ s/$FS//g;              # Remove separators (paranoia)
	if ($RawHtml) {
		$pageText =~ s/<html>((.|\n)*?)<\/html>/&StoreRaw($1)/ige;
	}
	$pageText = &QuoteHtml($pageText);
	$pageText =~ s/\\\\ *\r?\n/<BR>/g;		# double backslash for forced <BR> - comes in handy for <LI>
	$pageText =~ s/\\ *\r?\n/ /g;			# Join lines with backslash at end

	$pageText = &WikiLinesToHtml($pageText);      # Line-oriented markup
	$pageText = &CommonMarkup($pageText, 1, 0);   # Multi-line markup # line wraped. luke

	$pageText =~ s/$FS(\d+)$FS/$SaveUrl{$1}/ge;   # Restore saved text
	$pageText =~ s/$FS(\d+)$FS/$SaveUrl{$1}/ge;   # Restore nested saved text

	while (@HeadingNumbers) {
		pop @HeadingNumbers;
		$TableOfContents .= "</dd></dl>\n\n";
	}
	$pageText =~ s/&lt;toc&gt;/$TableOfContents/gi;
	return &RestoreSavedText($pageText);

#	return $pageText;
}

sub CommonMarkup {
	my ($text, $useImage, $doLines) = @_;
	local $_ = $text;

	if ($doLines < 2) { # 2 = do line-oriented only

		# The <nowiki> tag stores text with no markup (except quoting HTML)
		s/\&lt;nowiki\&gt;((.|\n)*?)\&lt;\/nowiki\&gt;/&StoreRaw($1)/ige;
		# The <pre> tag wraps the stored text with the HTML <pre> tag
		s/\&lt;pre\&gt;((.|\n)*?)\&lt;\/pre\&gt;/&StorePre($1, "pre")/ige;
		s/\&lt;code\&gt;((.|\n)*?)\&lt;\/code\&gt;/&StorePre($1, "code")/ige;
		s/\[\#(\w+)\]/&StoreHref(" name=\"$1\"")/ge if $NamedAnchors;
		if ($HtmlTags) {
			my ($t);
			foreach $t (@HtmlPairs) {
				s/\&lt;$t(\s[^<>]+?)?\&gt;(.*?)\&lt;\/$t\&gt;/<$t$1>$2<\/$t>/gis;
			}
			foreach $t (@HtmlSingle) {
				s/\&lt;$t(\s[^<>]+?)?\&gt;/<$t$1>/gi;
			}
		} else {
			# Note that these tags are restricted to a single line
			s/\&lt;b\&gt;(.*?)\&lt;\/b\&gt;/<b>$1<\/b>/gi;
			s/\&lt;i\&gt;(.*?)\&lt;\/i\&gt;/<i>$1<\/i>/gi;
			s/\&lt;strong\&gt;(.*?)\&lt;\/strong\&gt;/<strong>$1<\/strong>/gi;
			s/\&lt;em\&gt;(.*?)\&lt;\/em\&gt;/<em>$1<\/em>/gi;
		}
		s/\&lt;tt\&gt;(.*?)\&lt;\/tt\&gt;/<tt>$1<\/tt>/gis;  # <tt> (MeatBall)
		if ($HtmlLinks) {
			s/\&lt;A(\s[^<>]+?)\&gt;(.*?)\&lt;\/a\&gt;/&StoreHref($1, $2)/gise;
		}
		if ($FreeLinks) {
			# Consider: should local free-link descriptions be conditional?
			# Also, consider that one could write [[Bad Page|Good Page]]?
			s/\[\[$FreeLinkPattern\|([^\]]+)\]\]/&StorePageOrEditLink($1, $2)/geo;
			s/\[\[$FreeLinkPattern\]\]/&StorePageOrEditLink($1, "")/geo;
		}
		if ($BracketText) {  # Links like [URL text of link]
			s/\[$UrlPattern\s+([^\]]+?)\]/&StoreBracketUrl($1, $2)/geos;
			s/\[$InterLinkPattern\s+([^\]]+?)\]/&StoreBracketInterPage($1, $2)/geos;
			if ($WikiLinks && $BracketWiki) {  # Local bracket-links
				s/\[$LinkPattern\s+([^\]]+?)\]/&StoreBracketLink($1, $2)/geos;
				s/\[$AnchoredLinkPattern\s+([^\]]+?)\]/&StoreBracketAnchoredLink($1, $2, $3)/geos if $NamedAnchors;
			}
		}


		if ($useImage) {
			$_ = &EmoticonSubst($_);			# luke added
		}

		s/\[$UrlPattern\]/&StoreBracketUrl($1, "")/geo;
		s/\[$InterLinkPattern\]/&StoreBracketInterPage($1, "")/geo;
		s/$UrlPattern/&StoreUrl($1, $useImage)/geo;
		s/$InterLinkPattern/&StoreInterPage($1)/geo;

		if ($WikiLinks) {
			s/$AnchoredLinkPattern/&StoreRaw(&GetPageOrEditAnchoredLink($1, $2, ""))/geo if $NamedAnchors;
			s/$LinkPattern/&GetPageOrEditLink($1, "")/geo;
		}

		s/$RFCPattern/&StoreRFC($1)/geo;
		s/$ISBNPattern/&StoreISBN($1)/geo;
		s/CD:\s*(\d+)/&StoreHotTrack($1)/geo;

		$_ = &MacroSubst($_); 				# luke added

		if ($ThinLine) {
			s/----+/<hr noshade size=1>/g;
			s/====+/<hr noshade size=2>/g;
		} else {
			s/----+/<hr>/g;
		}

	}
	if ($doLines) { # 0 = no line-oriented, 1 or 2 = do line-oriented
		# The quote markup patterns avoid overlapping tags (with 5 quotes)
		# by matching the inner quotes for the strong pattern.
		s/('*)'''(.*?)'''/$1<strong>$2<\/strong>/g;
		s/''(.*?)''/<em>$1<\/em>/g;
		if ($UseHeadings) {
			s/(^|\n)\s*(\=+)\s+([^\n]+)\s+\=+/&WikiHeading($1, $2, $3)/geo;
			s/((\|\|)+)/"<\/TD><TD COLSPAN=\"" . (length($1)\/2) . "\">"/ge if $TableMode;
		}

	}

	s/^\|([^|]+)[^|]/<TR><TD>$1<\/TD>\n/g;      # start of line: new table-row -- luke
	s/\|([^|]+)[^|]/<td>$1<\/td>\n/g;           # new field -- luke

	return $_;
}

# luke added

sub EmoticonSubst {

	my ($txt) = @_;

	if ($UseEmoticon) {
		my ($e, $e1, $e2, $e3, $e4, $e5, $e6, $e7, $e8);

		$e1 = $EmoticonPath . "/emoticon-ambivalent.gif ";
		$e2 = $EmoticonPath . "/emoticon-laugh.gif ";
		$e3 = $EmoticonPath . "/emoticon-sad.gif ";
		$e4 = $EmoticonPath . "/emoticon-smile.gif ";
		$e5 = $EmoticonPath . "/emoticon-surprised.gif ";
		$e6 = $EmoticonPath . "/emoticon-tongue-in-cheek.gif ";
		$e7 = $EmoticonPath . "/emoticon-unsure.gif ";
		$e8 = $EmoticonPath . "/emoticon-wink.gif ";

		$txt =~ s/\^[oO_\-]*\^[;]*/$e2/g;
		$txt =~ s/-[_]+-[;]*/$e7/g;
		$txt =~ s/o\.O/$e5/g;
		$txt =~ s/\*\.\*/$e5/g;
		$txt =~ s/\=\.\=[;]*/$e7/g;
		$txt =~ s/\:-[sS]/$e7/g;

		$txt =~ s/\:[-]*D/$e2/g;
		$txt =~ s/\:[-]*\(/$e3/g;
		$txt =~ s/\:[-]*\)/$e4/g;
		$txt =~ s/\:[-]*[oO]/$e5/g;
		$txt =~ s/\:[-]*[pP]/$e6/g;
		$txt =~ s/\;[-]*\)/$e8/g;
	}

	return $txt;
}

sub MacroSubst {
	my ($txt) = @_;

	$txt =~ s/\&lt;Date\&gt;/&MacroDate()/gei;
	$txt =~ s/\&lt;time\&gt;/&MacroTime()/gei;
	$txt =~ s/\&lt;DateTime\&gt;/&MacroDateTime()/gei;
	$txt =~ s/\&lt;PageCount\&gt;/&MacroPageCount()/gei;
	$txt =~ s/\&lt;Anchor\((.*)\)\&gt;/&MacroAnchor($1)/gei;
	$txt =~ s/\&lt;RandomPage\((.*)\)\&gt;/&MacroRandom($1)/gei;
	$txt =~ s/\&lt;Include\((.*)\)\&gt;/&MacroInclude($1)/gei;
	$txt =~ s/\&lt;FullSearch\((.*)\)\&gt;/&MacroFullSearch($1)/gei;
	$txt =~ s/\&lt;titlesearch\((.*)\)\&gt;/&MacroTitleSearch($1)/gei;
	$txt =~ s/\&lt;goto\((.*)\)\&gt;/&MacroGoto($1)/gei;
	$txt =~ s/\&lt;history\((.*)\)\&gt;/&MacroHistory($1)/gei;
	return $txt;
}

sub MacroHistory {
	my ($n) = @_;
	my ($html, $i);

	&OpenPage($DocID);
	&OpenDefaultText();

	$html = "<form action='$ScriptName' METHOD='GET'>";
	$html .= "<input type='hidden' name='action' value='browse'/>";
	$html .= "<input type='hidden' name='diff' value='1'/>";
	$html .= "<input type='hidden' name='id' value='$DocID'/>";
	$html .= "<table border='0' cellpadding=0 cellspacing=0 width='90%'><tr>";
	$html .= &GetHistoryLine($DocID, $Page{'text_default'}, 0, 1);
	&OpenKeptRevisions('text_default');
	$i = 0;
	foreach (reverse sort {$a <=> $b} keys %KeptRevisions) {
		if (++$i > $n) {
			$html .= "<tr><td align='center'><input type='submit' value='º¯°æ ºñ±³'/>  </td><td>&nbsp;</td></table></form>\n";
			return $html;
		}
		next  if ($_ eq "");  # (needed?)
		$html .= &GetHistoryLine($DocID, $KeptRevisions{$_}, 0, 0);
	}

	$html .= "<tr><td align='center'><input type='submit' value='º¯°æ ºñ±³'/>  </td><td>&nbsp;</td></table></form>\n";
	return $html;
}

sub MacroGoto {
	my ($string) = @_;

	return
		"<form name=goto><input name=wkl type=text size=10 value=$string>" .
		"<input type=button value=¹Ù·Î°¡±â onclick='javascript:document.location.href=\"$ScriptName?\"+document.goto.wkl.value'>" .
		"</form>";
}

sub MacroTitleSearch {
	my ($string) = @_;
	my ($name, $freeName, $txt);

	foreach $name (&AllPagesList()) {
		if ($name =~ /$string/i) {
			$txt .= &GetPageLink($name) . " ";
		} elsif ($FreeLinks && ($name =~ m/_/)) {
			$freeName = $name;
			$freeName =~ s/_/ /g;
			if ($freeName =~ /$string/i) {
				$txt .= &GetPageLink($name) . " ";
			}
		}
	}
	return $txt;
}

sub MacroFullSearch()
{
	my $pagename;
	my ($string) = @_;
	my @x = &SearchTitleAndBody($string);
	my $txt;

	foreach $pagename (@x) {
		$txt .= "<li>";
		$txt .= ".... " if ($pagename =~ m|/|);
		$txt .= &GetPageLink($pagename) . "<br>";
	}

	return $txt;
}

sub MacroDate() { return &CalcDay(time); }
sub MacroTime() { return &CalcTime(time); }
sub MacroDateTime() { return &CalcDay(time) . " " . &CalcTime(time); }
sub MacroAnchor() {	return "<a name=\"\#@_\">"; }

sub MacroPageCount() {
	my @pageList = &AllPagesList();
	return $#pageList + 1;
}

sub MacroRandom() {
	my ($count) = @_;
	my @pageList = &AllPagesList();
	my ($txt);

	srand($Now);
	while ($count-- > 0) {
		$txt .= &GetPageLink($pageList[int(rand($#pageList + 1))]) . " ";
	}
	return $txt;
}

sub MacroInclude {
	my ($name) = @_;

	&OpenPage($name);
	if (!defined($Page{"text_default"})) {
		return "";
	}
	&OpenSection("text_default");
	%Text = split(/$FS3/, $Section{'data'}, -1);
	return $Text{'text'};
	return &WikiToHTML($Text{'text'});
}

# end

sub WikiLinesToHtml {
	my ($pageText) = @_;
	my ($pageHtml, @htmlStack, $code, $depth, $oldCode);
	my ($tag);

	@htmlStack = ();
	$depth = 0;
	$pageHtml = "";
	foreach (split(/\n/, $pageText)) {  # Process lines one-at-a-time
		$_ .= "\n";
		if (s/^(\;+)([^:]+\:?)\:/<dt>$2<dd>/) {
			$code = "DL";
			$depth = length $1;
		} elsif (s/^(\:+)/<dt><dd>/) {
			$code = "DL";
			$depth = length $1;
		} elsif (s/^(\*+)/<li>/) {
			$code = "UL";
			$depth = length $1;
		} elsif (s/^(\#+)/<li>/) {
			$code = "OL";
			$depth = length $1;
		} elsif (/^[ \t].*\S/) {
			$code = "PRE";
			$depth = 1;
		} elsif (s/^((\|\|)+)(.*)\|\|\s*$/"<TR VALIGN='CENTER' ALIGN='CENTER'><TD colspan='" . (length($1)\/2) . "'>$3<\/TD><\/TR>\n"/e) {
			$code = 'TABLE';
			$TableMode = 1;
			$depth = 1;
		} elsif (/^IMG:(.*)$/) {		# luke added
			StoreImageTag($1);
			$_ = "";
		} elsif (/^TABLE:(.*)$/) {		# luke added
			StoreTableTag($1);
			$_ = "";
		} else {
			$depth = 0;
		}

		while (@htmlStack > $depth) {   # Close tags as needed
		#  $pageHtml .=  "</" . pop(@htmlStack) . ">\n";		-- deleted luke
			$tag = pop(@htmlStack);								# added luke
			if ($tag eq "TABLE") {
				$pageHtml .=  "</TR>\n";
				$tag = "table"
			};
			$pageHtml .=  "</" . $tag . ">\n";					# added end luke
		}
		if ($depth > 0) {
			$depth = $IndentLimit  if ($depth > $IndentLimit);
			if (@htmlStack) {  # Non-empty stack
				$oldCode = pop(@htmlStack);
				if ($oldCode ne $code) {
					$pageHtml .= "</$oldCode><$code>\n";
				}
				push(@htmlStack, $code);
			}
			while (@htmlStack < $depth) {
				push(@htmlStack, $code);
				if ($code eq "TABLE") {					# added luke
					$pageHtml .= "<TABLE $TableTag >\n";
				} else {
					$pageHtml .= "<$code>\n";
				};										# added luke
				# $pageHtml .= "<$code>\n";				# deleted luke
			}
		}
		s/^\s*$/<p>\n/;                        # Blank lines become <p> tags
		$pageHtml .= &CommonMarkup($_, 1, 2);  # Line-oriented common markup
	}
	while (@htmlStack > 0) {       # Clear stack
		$pageHtml .=  "</" . pop(@htmlStack) . ">\n";
	}


	return $pageHtml;
}

sub QuoteHtml {
	my ($html) = @_;

	$html =~ s/&/&amp;/g;
	$html =~ s/</&lt;/g;
	$html =~ s/>/&gt;/g;
	if (1) {   # Make an official option?
		$html =~ s/&amp;([#a-zA-Z0-9]+);/&$1;/g;  # Allow character references
	}
	return $html;
}

sub StoreInterPage {
	my ($id) = @_;
	my ($link, $extra);

	($link, $extra) = &InterPageLink($id);
	# Next line ensures no empty links are stored
	$link = &StoreRaw($link)  if ($link ne "");
	return $link . $extra;
}

sub InterPageLink {
	my ($id) = @_;
	my ($name, $site, $remotePage, $url, $punct);

	($id, $punct) = &SplitUrlPunct($id);

	$name = $id;
	($site, $remotePage) = split(/:/, $id, 2);
	$url = &GetSiteUrl($site);
	return ("", $id . $punct)  if ($url eq "");
	$remotePage =~ s/&amp;/&/g;  # Unquote common URL HTML
	$url .= $remotePage;
	return ("<a href=\"$url\">$name</a>", $punct);
}

sub StoreBracketInterPage {
	my ($id, $text) = @_;
	my ($site, $remotePage, $url, $index);

	($site, $remotePage) = split(/:/, $id, 2);
	$remotePage =~ s/&amp;/&/g;  # Unquote common URL HTML
	$url = &GetSiteUrl($site);
	if ($text ne "") {
		return "[$id $text]"  if ($url eq "");
	} else {
		return "[$id]"  if ($url eq "");
		$text = &GetBracketUrlIndex($id);
	}
	$url .= $remotePage;
	return &StoreRaw("<a href=\"$url\">[$text]</a>");
}

sub GetBracketUrlIndex {
	my ($id) = @_;
	my ($index, $key);

	# Consider plain array?
	if ($SaveNumUrl{$id} > 0) {
		return $SaveNumUrl{$id};
	}
	$SaveNumUrlIndex++;  # Start with 1
	$SaveNumUrl{$id} = $SaveNumUrlIndex;
	return $SaveNumUrlIndex;
}

sub GetSiteUrl {
	my ($site) = @_;
	my ($data, $url, $status);

	if (!$InterSiteInit) {
		$InterSiteInit = 1;
		($status, $data) = &ReadFile($InterFile);
		return ""  if (!$status);
		%InterSite = split(/\s+/, $data);  # Later consider defensive code

	}
	$url = $InterSite{$site}  if (defined($InterSite{$site}));
	return $url;
}

sub StoreRaw {
	my ($html) = @_;

	$SaveUrl{$SaveUrlIndex} = $html;
	return $FS . $SaveUrlIndex++ . $FS;
}

sub StorePre {
	my ($html, $tag) = @_;

	return &StoreRaw("<$tag>" . $html . "</$tag>");
}

sub StoreHref {
	my ($anchor, $text) = @_;

	return "<a" . &StoreRaw($anchor) . ">$text</a>";
}

sub StoreUrl {
	my ($name, $useImage) = @_;
	my ($link, $extra);

	($link, $extra) = &UrlLink($name, $useImage);
	# Next line ensures no empty links are stored
	$link = &StoreRaw($link)  if ($link ne "");
	return $link . $extra;
}

sub UrlLink {
	my ($rawname, $useImage) = @_;
	my ($name, $punct);

	($name, $punct) = &SplitUrlPunct($rawname);
	if ($NetworkFile && $name =~ m|^file:|) {
		# Only do remote file:// links. No file:///c|/windows.
		if ($name =~ m|^file://[^/]|) {
			return ("<a href=\"$name\">$name</a>", $punct);
		}
		return $rawname;
	}
	# Restricted image URLs so that mailto:foo@bar.gif is not an image
	if ($useImage && ($name =~ /^(http:|https:|ftp:).+\.$ImageExtensions$/)) {
		$name = $1 if ($name =~ /^https?:(.*)/ && $1 !~ /^\/\//);
		return ("<img $ImageTag src=\"$name\">", $punct);
	}
	return ("<a href=\"$name\">$name</a>", $punct);
}

sub StoreBracketUrl {
	my ($url, $text) = @_;

	$url = $1 if ($url =~ /^https?:(.*)/ && $1 !~ /^\/\//);
	if ($text eq "") {
		$text = &GetBracketUrlIndex($url);
	}
	return &StoreRaw("<a href=\"$url\">[$text]</a>");
}

sub StoreBracketLink {
	my ($name, $text) = @_;

	return &StoreRaw(&GetPageLinkText($name, "[$text]"));
}

sub StoreBracketAnchoredLink {
	my ($name, $anchor, $text) = @_;

	return &StoreRaw(&GetPageLinkText("$name#$anchor", "[$text]"));
}

sub StorePageOrEditLink {
	my ($page, $name) = @_;

	if ($FreeLinks) {
		$page =~ s/^\s+//;      # Trim extra spaces
		$page =~ s/\s+$//;
		$page =~ s|\s*/\s*|/|;  # ...also before/after subpages
	}
	$name =~ s/^\s+//;
	$name =~ s/\s+$//;
	return &StoreRaw(&GetPageOrEditLink($page, $name));
}

sub StoreRFC {
	my ($num) = @_;

	return &StoreRaw(&RFCLink($num));
}

sub RFCLink {
	my ($num) = @_;

	return "<a href=\"http://www.faqs.org/rfcs/rfc${num}.html\">RFC $num</a>";
}

# luke add begin

sub StoreImageTag {
	my ($x) = @_;
	$ImageTag = $x;
	return "";
}

sub StoreTableTag {
	my ($x) = @_;
	$TableTag = $x;
	return "";
}

sub StoreHotTrack {
	my ($id) = @_;

	return "<a href=\"http://www.hottracks.co.kr/cgi-bin/hottracks.storefront/Product/View/$id\">" .
	"<img src=\"http://210.123.8.23/hottracks/cdimg/$id.jpg\"></a>";
}

# luke add end

sub StoreISBN {
	my ($num) = @_;

	return &StoreRaw(&ISBNLink($num));
}

sub ISBNLink {
	my ($rawnum) = @_;
	my ($rawprint, $html, $num, $first, $second, $third);

	$num = $rawnum;
	$rawprint = $rawnum;
	$rawprint =~ s/ +$//;
	$num =~ s/[- ]//g;
	if (length($num) != 10) {
		return "ISBN $rawnum";
	}

	if ($num =~ /^89/) {
	return "<a href=\"http://www.aladdin.co.kr/catalog/book.asp?ISBN=$num\"><img $ImageTag src=\"http://www.aladdin.co.kr/Cover/$num\_1.gif\" border=1></a>";
	}

	$first  = "<a href=\"http://shop.barnesandnoble.com/bookSearch/"
						. "isbnInquiry.asp?isbn=$num\">";
	$second = "<a href=\"http://www.amazon.com/exec/obidos/"
						. "ISBN=$num\">" . T('alternate') . "</a>";
	$third  = "<a href=\"http://www.pricescan.com/books/"
						. "BookDetail.asp?isbn=$num\">" . T('search') . "</a>";
	$html  = $first . "ISBN " . $rawprint . "</a> ";
	$html .= "($second, $third)";
	$html .= " "  if ($rawnum =~ / $/);  # Add space if old ISBN had space.
	return $html;
}

sub SplitUrlPunct {
	my ($url) = @_;
	my ($punct);

	if ($url =~ s/\"\"$//) {
		return ($url, "");   # Delete double-quote delimiters here
	}
	$punct = "";
	($punct) = ($url =~ /([^a-zA-Z0-9\/\xc0-\xff]+)$/);
	$url =~ s/([^a-zA-Z0-9\/\xc0-\xff]+)$//;
	return ($url, $punct);
}

sub StripUrlPunct {
	my ($url) = @_;
	my ($junk);

	($url, $junk) = &SplitUrlPunct($url);
	return $url;
}

sub WikiHeadingNumber {
	my ($depth,$text) = @_;
	my ($anchor, $number);
	return '' unless --$depth > 0;  # Don't number H1s because it looks stupid

	while (scalar @HeadingNumbers < ($depth-1)) {
		push @HeadingNumbers, 1;
		$TableOfContents .= '<dl><dt> </dt><dd>';
		}
	if (scalar @HeadingNumbers < $depth) {
		push @HeadingNumbers, 0;
		$TableOfContents .= '<dl><dt> </dt><dd>';
	}
	while (scalar @HeadingNumbers > $depth) {
		pop @HeadingNumbers;
		$TableOfContents .= "</dd></dl>\n\n";
	}
	$HeadingNumbers[$#HeadingNumbers]++;
	$number = (join '.', @HeadingNumbers) . '. ';

	# Remove embedded links. THIS IS FRAGILE!
	$text = &RestoreSavedText($text);
	$text =~ s/\<a\s.*?\>\?\<\/a\>//si; # No such page syntax
	$text =~ s/\<a\s.*?\>(.*?)\<\/a\>/$1/si;

	# Cook anchor by canonicalizing $text.
	$anchor = $text;
	$anchor =~ s/\<.*?\>//g;
	$anchor =~ s/\W/_/g;
	$anchor =~ s/__+/_/g;
	$anchor =~ s/^_//;
	$anchor =~ s/_$//;
	$anchor = '_' . (join '_', @HeadingNumbers) unless $anchor; # Last ditch effort

	$TableOfContents .= $number . &ScriptLink("$OpenPageName#$anchor",$text) . "</dd>\n<dt> </dt><dd>";

	return &StoreHref(" name=\"$anchor\"") . $number;
}

sub WikiHeading {
	my ($pre, $depth, $text) = @_;

	$depth = length($depth);
	$depth = 6  if ($depth > 6);
	$text =~ s/^#\s+/&WikiHeadingNumber($depth,$')/e; # $' == $POSTMATCH
	return $pre . "<H$depth>$text</H$depth>\n";
}

sub RestoreSavedText
{
	my ($text) = @_;
	$text =~ s/$FS(\d+)$FS/$SaveUrl{$1}/ge;   # Restore saved text
	$text =~ s/$FS(\d+)$FS/$SaveUrl{$1}/ge;   # Restore nested saved text
	return $text;
}

# ==== Difference markup and HTML ====
sub GetDiffHTML {
	my ($diffType, $id, $revOld, $revNew, $newText) = @_;
	my ($html, $diffText, $diffTextTwo, $priorName, $links, $usecomma);
	my ($major, $minor, $author, $useMajor, $useMinor, $useAuthor, $cacheName);

	$links = "(";
	$usecomma = 0;
	$major  = &ScriptLinkDiff(1, $id, T('major diff'), "");
	$minor  = &ScriptLinkDiff(2, $id, T('minor diff'), "");
	$author = &ScriptLinkDiff(3, $id, T('author diff'), "");
	$useMajor  = 1;
	$useMinor  = 1;
	$useAuthor = 1;
	if ($diffType == 1) {
		$priorName = T('major');
		$cacheName = 'major';
		$useMajor  = 0;
	} elsif ($diffType == 2) {
		$priorName = T('minor');
		$cacheName = 'minor';
		$useMinor  = 0;
	} elsif ($diffType == 3) {
		$priorName = T('author');
		$cacheName = 'author';
		$useAuthor = 0;
	}
	if ($revOld ne "") {
		# Note: OpenKeptRevisions must have been done by caller.
		# Later optimize if same as cached revision
		$diffText = &GetKeptDiff($newText, $revOld, 1);  # 1 = get lock
		if ($diffText eq "") {
			$diffText = T('(The revisions are identical or unavailable.)');
		}
	} else {
		$diffText  = &GetCacheDiff($cacheName);
	}
	$useMajor  = 0  if ($useMajor  && ($diffText eq &GetCacheDiff("major")));
	$useMinor  = 0  if ($useMinor  && ($diffText eq &GetCacheDiff("minor")));
	$useAuthor = 0  if ($useAuthor && ($diffText eq &GetCacheDiff("author")));
	$useMajor  = 0  if ((!defined(&GetPageCache('oldmajor'))) ||
											(&GetPageCache("oldmajor") < 1));
	$useAuthor = 0  if ((!defined(&GetPageCache('oldauthor'))) ||
											(&GetPageCache("oldauthor") < 1));
	if ($useMajor) {
		$links .= $major;
		$usecomma = 1;
	}
	if ($useMinor) {
		$links .= ", "  if ($usecomma);
		$links .= $minor;
		$usecomma = 1;
	}
	if ($useAuthor) {
		$links .= ", "  if ($usecomma);
		$links .= $author;
	}
	if (!($useMajor || $useMinor || $useAuthor)) {
		$links .= T('´õ ÀÌ»ó ¾øÀ½');
	}
	$links .= ")";

	if ((!defined($diffText)) || ($diffText eq "")) {
		$diffText = T('º¯°æ»çÇ× ¾øÀ½.');
	}
	if ($revOld ne "") {
		my $currentRevision = T('ÇöÀç ¹öÀü');
		$currentRevision = Ts('revision %s', $revNew) if $revNew;
		$html = '<b>'
					. Ts('(º¯°æ»çÇ× %s', $revOld) . Ts('ºÎÅÍ %s ¹öÀü ±îÁö)', $currentRevision)
					. "</b>\n$links<br>" . &DiffToHTML($diffText);
	} else {
		if (($diffType != 2) &&
				((!defined(&GetPageCache("old$cacheName"))) ||
				 (&GetPageCache("old$cacheName") < 1))) {
			$html = '<b>'
							. Ts('º¯°æ»çÇ× ¾øÀ½ -- ÀÌ°ÍÀÌ %s ÀÇ Ã¹¹ø° ¹öÀüÀÓ.',
									 $priorName) . "</b>\n$links";
		} else {
			$html = '<b>'
							. Ts('º¯°æ»çÇ× (ÀÌÀü %s ¹öÀüºÎÅÍ)', $priorName)
							. "</b>\n$links<br>" . &DiffToHTML($diffText);
		}
	}
	return $html;
}

sub GetCacheDiff {
	my ($type) = @_;
	my ($diffText);

	$diffText = &GetPageCache("diff_default_$type");
	$diffText = &GetCacheDiff('minor')  if ($diffText eq "1");
	$diffText = &GetCacheDiff('major')  if ($diffText eq "2");
	return $diffText;
}

# Must be done after minor diff is set and OpenKeptRevisions called
sub GetKeptDiff {
	my ($newText, $oldRevision, $lock) = @_;
	my (%sect, %data, $oldText);

	$oldText = "";
	if (defined($KeptRevisions{$oldRevision})) {
		%sect = split(/$FS2/, $KeptRevisions{$oldRevision}, -1);
		%data = split(/$FS3/, $sect{'data'}, -1);
		$oldText = $data{'text'};
	}
	return ""  if ($oldText eq "");  # Old revision not found
	return &GetDiff($oldText, $newText, $lock);
}

sub GetDiff {
	my ($old, $new, $lock) = @_;
	my ($diff_out, $oldName, $newName);

	&CreateDir($TempDir);
	$oldName = "$TempDir/old_diff";
	$newName = "$TempDir/new_diff";
	if ($lock) {
		&RequestDiffLock() or return "";
		$oldName .= "_locked";
		$newName .= "_locked";
	}
	&WriteStringToFile($oldName, $old);
	&WriteStringToFile($newName, $new);
	$diff_out = `diff $oldName $newName`;
	&ReleaseDiffLock()  if ($lock);
	$diff_out =~ s/\\ No newline.*\n//g;   # Get rid of common complaint.
	# No need to unlink temp files--next diff will just overwrite.
	return $diff_out;
}

sub DiffToHTML {
	my ($html) = @_;
	my ($tChanged, $tRemoved, $tAdded);

	$tChanged = T('º¯°æ:');
	$tRemoved = T('»èÁ¦:');
	$tAdded   = T('Ãß°¡:');
	$html =~ s/\n--+//g;
	# Note: Need spaces before <br> to be different from diff section.
	$html =~ s/(^|\n)(\d+.*c.*)/$1 <br><strong>$tChanged $2<\/strong><br>/g;
	$html =~ s/(^|\n)(\d+.*d.*)/$1 <br><strong>$tRemoved $2<\/strong><br>/g;
	$html =~ s/(^|\n)(\d+.*a.*)/$1 <br><strong>$tAdded $2<\/strong><br>/g;
	$html =~ s/\n((<.*\n)+)/&ColorDiff($1,"ffffaf")/ge;
	$html =~ s/\n((>.*\n)+)/&ColorDiff($1,"cfffcf")/ge;
	return $html;
}

sub ColorDiff {
	my ($diff, $color) = @_;

	$diff =~ s/(^|\n)[<>]/$1/g;
	$diff = &QuoteHtml($diff);
	# Do some of the Wiki markup rules:
	%SaveUrl = ();
	%SaveNumUrl = ();
	$SaveUrlIndex = 0;
	$SaveNumUrlIndex = 0;
	$diff =~ s/$FS//g;
	$diff =  &CommonMarkup($diff, 0, 1);      # No images, all patterns
	$diff =~ s/$FS(\d+)$FS/$SaveUrl{$1}/ge;   # Restore saved text
	$diff =~ s/$FS(\d+)$FS/$SaveUrl{$1}/ge;   # Restore nested saved text
	$diff =~ s/\r?\n/<br>/g;
	return "<table width=\"95\%\" bgcolor=#$color><tr><td>\n" . $diff
				 . "</td></tr></table>\n";
}

# ==== Database (Page, Section, Text, Kept, User) functions ====
sub OpenNewPage {
	my ($id) = @_;

	%Page = ();
	$Page{'version'} = 3;      # Data format version
	$Page{'revision'} = 0;     # Number of edited times
	$Page{'tscreate'} = $Now;  # Set once at creation
	$Page{'ts'} = $Now;        # Updated every edit
}

sub OpenNewSection {
	my ($name, $data) = @_;

	%Section = ();
	$Section{'name'} = $name;
	$Section{'version'} = 1;      # Data format version
	$Section{'revision'} = 0;     # Number of edited times
	$Section{'tscreate'} = $Now;  # Set once at creation
	$Section{'ts'} = $Now;        # Updated every edit
	$Section{'ip'} = $ENV{REMOTE_ADDR};
	$Section{'host'} = '';        # Updated only for real edits (can be slow)
	$Section{'id'} = $UserID;
	$Section{'username'} = &GetParam("username", "");
	$Section{'data'} = $data;
	$Page{$name} = join($FS2, %Section);  # Replace with save?
}

sub OpenNewText {
	my ($name) = @_;  # Name of text (usually "default")
	%Text = ();
	# Later consider translation of new-page message? (per-user difference?)
	if ($NewText ne '') {
		$Text{'text'} = T($NewText);
	} else {
		$Text{'text'} = T('³»¿ëÀ» ¾²¼¼¿ä.') . "\n";
	}
	$Text{'text'} .= "\n"  if (substr($Text{'text'}, -1, 1) ne "\n");
	$Text{'minor'} = 0;      # Default as major edit
	$Text{'newauthor'} = 1;  # Default as new author
	$Text{'summary'} = '';
	&OpenNewSection("text_$name", join($FS3, %Text));
}

sub GetPageFile {
	my ($id) = @_;

	return $PageDir . "/" . &GetPageDirectory($id) . "/$id.db";
}

sub OpenPage {
	my ($id) = @_;
	my ($fname, $data);

	if ($OpenPageName eq $id) {
		return;
	}
	%Section = ();
	%Text = ();
	$fname = &GetPageFile($id);
	if (-f $fname) {
		$data = &ReadFileOrDie($fname);
		%Page = split(/$FS1/, $data, -1);  # -1 keeps trailing null fields
	} else {
		&OpenNewPage($id);
	}
	if ($Page{'version'} != 3) {
		&UpdatePageVersion();
	}
	$OpenPageName = $id;
}

sub OpenSection {
	my ($name) = @_;

	if (!defined($Page{$name})) {
		&OpenNewSection($name, "");
	} else {
		%Section = split(/$FS2/, $Page{$name}, -1);
	}
}

sub OpenText {
	my ($name) = @_;

	if (!defined($Page{"text_$name"})) {
		&OpenNewText($name);
	} else {
		&OpenSection("text_$name");
		%Text = split(/$FS3/, $Section{'data'}, -1);
	}
}

sub OpenDefaultText {
	&OpenText('default');
}

# Called after OpenKeptRevisions
sub OpenKeptRevision {
	my ($revision) = @_;

	%Section = split(/$FS2/, $KeptRevisions{$revision}, -1);
	%Text = split(/$FS3/, $Section{'data'}, -1);
}

sub GetPageCache {
	my ($name) = @_;

	return $Page{"cache_$name"};
}

# Always call SavePage within a lock.
sub SavePage {
	my $file = &GetPageFile($OpenPageName);

	$Page{'revision'} += 1;    # Number of edited times
	$Page{'ts'} = $Now;        # Updated every edit
	&CreatePageDir($PageDir, $OpenPageName);
	&WriteStringToFile($file, join($FS1, %Page));
}

sub SaveSection {
	my ($name, $data) = @_;

	$Section{'revision'} += 1;   # Number of edited times
	$Section{'ts'} = $Now;       # Updated every edit
	$Section{'ip'} = $ENV{REMOTE_ADDR};
	$Section{'id'} = $UserID;
	$Section{'username'} = &GetParam("username", "");
	$Section{'data'} = $data;
	$Page{$name} = join($FS2, %Section);
}

sub SaveText {
	my ($name) = @_;

	&SaveSection("text_$name", join($FS3, %Text));
}

sub SaveDefaultText {
	&SaveText('default');
}

sub SetPageCache {
	my ($name, $data) = @_;

	$Page{"cache_$name"} = $data;
}

sub UpdatePageVersion {
	&ReportError(T('Bad page version (or corrupt page).'));
}

sub KeepFileName {
	return $KeepDir . "/" . &GetPageDirectory($OpenPageName)
				 . "/$OpenPageName.kp";
}

sub SaveKeepSection {
	my $file = &KeepFileName();
	my $data;

	return  if ($Section{'revision'} < 1);  # Don't keep "empty" revision
	$Section{'keepts'} = $Now;
	$data = $FS1 . join($FS2, %Section);
	&CreatePageDir($KeepDir, $OpenPageName);
	&AppendStringToFile($file, $data);
}

sub ExpireKeepFile {
	my ($fname, $data, @kplist, %tempSection, $expirets);
	my ($anyExpire, $anyKeep, $expire, %keepFlag, $sectName, $sectRev);
	my ($oldMajor, $oldAuthor);

	$fname = &KeepFileName();
	return  if (!(-f $fname));
	$data = &ReadFileOrDie($fname);
	@kplist = split(/$FS1/, $data, -1);  # -1 keeps trailing null fields
	return  if (length(@kplist) < 1);  # Also empty
	shift(@kplist)  if ($kplist[0] eq "");  # First can be empty
	return  if (length(@kplist) < 1);  # Also empty
	%tempSection = split(/$FS2/, $kplist[0], -1);
	if (!defined($tempSection{'keepts'})) {
#   die("Bad keep file." . join("|", %tempSection));
		return;
	}
	$expirets = $Now - ($KeepDays * 24 * 60 * 60);
	return  if ($tempSection{'keepts'} >= $expirets);  # Nothing old enough

	$anyExpire = 0;
	$anyKeep   = 0;
	%keepFlag  = ();
	$oldMajor  = &GetPageCache('oldmajor');
	$oldAuthor = &GetPageCache('oldauthor');
	foreach (reverse @kplist) {
		%tempSection = split(/$FS2/, $_, -1);
		$sectName = $tempSection{'name'};
		$sectRev = $tempSection{'revision'};
		$expire = 0;
		if ($sectName eq "text_default") {
			if (($KeepMajor  && ($sectRev == $oldMajor)) ||
					($KeepAuthor && ($sectRev == $oldAuthor))) {
				$expire = 0;
			} elsif ($tempSection{'keepts'} < $expirets) {
				$expire = 1;
			}
		} else {
			if ($tempSection{'keepts'} < $expirets) {
				$expire = 1;
			}
		}
		if (!$expire) {
			$keepFlag{$sectRev . "," . $sectName} = 1;
			$anyKeep = 1;
		} else {
			$anyExpire = 1;
		}
	}

	if (!$anyKeep) {  # Empty, so remove file
		unlink($fname);
		return;
	}
	return  if (!$anyExpire);  # No sections expired
	open (OUT, ">$fname") or die (Ts('cant write %s', $fname) . ": $!");
	foreach (@kplist) {
		%tempSection = split(/$FS2/, $_, -1);
		$sectName = $tempSection{'name'};
		$sectRev = $tempSection{'revision'};
		if ($keepFlag{$sectRev . "," . $sectName}) {
			print OUT $FS1, $_;
		}
	}
	close(OUT);
}

sub OpenKeptList {
	my ($fname, $data);

	@KeptList = ();
	$fname = &KeepFileName();
	return  if (!(-f $fname));
	$data = &ReadFileOrDie($fname);
	@KeptList = split(/$FS1/, $data, -1);  # -1 keeps trailing null fields
}

sub OpenKeptRevisions {
	my ($name) = @_;  # Name of section
	my ($fname, $data, %tempSection);

	%KeptRevisions = ();
	&OpenKeptList();

	foreach (@KeptList) {
		%tempSection = split(/$FS2/, $_, -1);
		next  if ($tempSection{'name'} ne $name);
		$KeptRevisions{$tempSection{'revision'}} = $_;
	}
}

sub LoadUserData {
	my ($data, $status);

	%UserData = ();
	($status, $data) = &ReadFile(&UserDataFilename($UserID));
	if (!$status) {
		$UserID = 112;  # Could not open file.  Later warning message?
		return;
	}
	%UserData = split(/$FS1/, $data, -1);  # -1 keeps trailing null fields
}

sub UserDataFilename {
	my ($id) = @_;

	return $UserDir . "/" . "$id.db";
}
	
# ==== Misc. functions ====
sub ReportError {
	my ($errmsg) = @_;

	print $q->header, "<H2>", $errmsg, "</H2>", $q->end_html;
}

sub ValidId {
	my ($id) = @_;

	if (length($id) > 120) {
		return Ts('Page name is too long: %s', $id);
	}
	if ($id =~ m| |) {
		return Ts('Page name may not contain space characters: %s', $id);
	}
	if ($UseSubpage) {
		if ($id =~ m|.*/.*/|) {
			return Ts('Too many / characters in page %s', $id);
		}
		if ($id =~ /^\//) {
			return Ts('Invalid Page %s (subpage without main page)', $id);
		}
		if ($id =~ /\/$/) {
			return Ts('Invalid Page %s (missing subpage name)', $id);
		}
	}
	if ($FreeLinks) {
		$id =~ s/ /_/g;
		if (!$UseSubpage) {
			if ($id =~ /\//) {
				return Ts('Invalid Page %s (/ not allowed)', $id);
			}
		}
		if (!($id =~ m|^$FreeLinkPattern$|)) {
			return Ts('Invalid Page %s', $id);
		}
		if ($id =~ m|\.db$|) {
			return Ts('Invalid Page %s (must not end with .db)', $id);
		}
		if ($id =~ m|\.lck$|) {
			return Ts('Invalid Page %s (must not end with .lck)', $id);
		}
		return "";
	} else {
		if (!($id =~ /^$LinkPattern$/)) {
			return Ts('Invalid Page %s', $id);
		}
	}
	return "";
}

sub ValidIdOrDie {
	my ($id) = @_;
	my $error;

	$error = &ValidId($id);
	if ($error ne "") {
		&ReportError($error);
		return 0;
	}
	return 1;
}

sub UserCanEdit {
	my ($id, $deepCheck) = @_;

	# Optimized for the "everyone can edit" case (don't check passwords)
	if (($id ne "") && (-f &GetLockedPageFile($id))) {
		return 1  if (&UserIsAdmin());  # Requires more privledges
		# Later option for editor-level to edit these pages?
		return 0;
	}
	if (!$EditAllowed) {
		return 1  if (&UserIsEditor());
		return 0;
	}
	if (-f "$DataDir/noedit") {
		return 1  if (&UserIsEditor());
		return 0;
	}
	if ($deepCheck) {   # Deeper but slower checks (not every page)
		return 1  if (&UserIsEditor());
		return 0  if (&UserIsBanned());
	}
	return 1;
}

sub UserIsBanned {
	my ($host, $ip, $data, $status);

	($status, $data) = &ReadFile("$DataDir/banlist");
	return 0  if (!$status);  # No file exists, so no ban
	$ip = $ENV{'REMOTE_ADDR'};
	$host = &GetRemoteHost(0);
	foreach (split(/\n/, $data)) {
		next  if ((/^\s*$/) || (/^#/));  # Skip empty, spaces, or comments
		return 1  if ($ip   =~ /$_/i);
		return 1  if ($host =~ /$_/i);
	}
	return 0;
}

sub UserIsAdmin {
	my (@pwlist, $userPassword);

	return 0  if ($AdminPass eq "");
	$userPassword = &GetParam("adminpw", "");
	return 0  if ($userPassword eq "");
	foreach (split(/\s+/, $AdminPass)) {
		next  if ($_ eq "");
		return 1  if ($userPassword eq $_);
	}
	return 0;
}

sub UserIsEditor {
	my (@pwlist, $userPassword);

	return 1  if (&UserIsAdmin());             # Admin includes editor
	return 0  if ($EditPass eq "");
	$userPassword = &GetParam("adminpw", "");  # Used for both
	return 0  if ($userPassword eq "");
	foreach (split(/\s+/, $EditPass)) {
		next  if ($_ eq "");
		return 1  if ($userPassword eq $_);
	}
	return 0;
}

sub GetLockedPageFile {
	my ($id) = @_;

	return $PageDir . "/" . &GetPageDirectory($id) . "/$id.lck";
}

sub RequestLockDir {
	my ($name, $tries, $wait, $errorDie) = @_;
	my ($lockName, $n);

	&CreateDir($TempDir);
	$lockName = $LockDir . $name;
	$n = 0;
	while (mkdir($lockName, 0555) == 0) {
		if ($! != 17) {
			die(Ts('can not make %s', $LockDir) . ": $!\n")  if $errorDie;
			return 0;
		}
		return 0  if ($n++ >= $tries);
		sleep($wait);
	}
	return 1;
}

sub ReleaseLockDir {
	my ($name) = @_;
	rmdir($LockDir . $name);
}

sub RequestLock {
	# 10 tries, 3 second wait, die on error
	return &RequestLockDir("main", 10, 3, 1);
}

sub ReleaseLock {
	&ReleaseLockDir('main');
}

sub ForceReleaseLock {
	my ($name) = @_;
	my $forced;

	# First try to obtain lock (in case of normal edit lock)
	# 5 tries, 3 second wait, do not die on error
	$forced = !&RequestLockDir($name, 5, 3, 0);
	&ReleaseLockDir($name);  # Release the lock, even if we didn't get it.
	return $forced;
}

sub RequestCacheLock {
	# 4 tries, 2 second wait, do not die on error
	return &RequestLockDir('cache', 4, 2, 0);
}

sub ReleaseCacheLock {
	&ReleaseLockDir('cache');
}

sub RequestDiffLock {
	# 4 tries, 2 second wait, do not die on error
	return &RequestLockDir('diff', 4, 2, 0);
}

sub ReleaseDiffLock {
	&ReleaseLockDir('diff');
}

# Index lock is not very important--just return error if not available
sub RequestIndexLock {
	# 1 try, 2 second wait, do not die on error
	return &RequestLockDir('index', 1, 2, 0);
}

sub ReleaseIndexLock {
	&ReleaseLockDir('index');
}

sub ReadFile {
	my ($fileName) = @_;
	my ($data);
	local $/ = undef;   # Read complete files

	if (open(IN, "<$fileName")) {
		$data=<IN>;
		close IN;
		return (1, $data);
	}
	return (0, "");
}

sub ReadFileOrDie {
	my ($fileName) = @_;
	my ($status, $data);

	($status, $data) = &ReadFile($fileName);
	if (!$status) {
		die(Ts('Can not open %s', $fileName) . ": $!");
	}
	return $data;
}

sub WriteStringToFile {
	my ($file, $string) = @_;

	open (OUT, ">$file") or die(Ts('cant write %s', $file) . ": $!");
	print OUT  $string;
	close(OUT);
}

sub AppendStringToFile {
	my ($file, $string) = @_;

	open (OUT, ">>$file") or die(Ts('cant write %s', $file) . ": $!");
	print OUT  $string;
	close(OUT);
}

sub CreateDir {
	my ($newdir) = @_;

	mkdir($newdir, 0775)  if (!(-d $newdir));
}

sub CreatePageDir {
	my ($dir, $id) = @_;
	my $subdir;

	&CreateDir($dir);  # Make sure main page exists
	$subdir = $dir . "/" . &GetPageDirectory($id);
	&CreateDir($subdir);
	if ($id =~ m|([^/]+)/|) {
		$subdir = $subdir . "/" . $1;
		&CreateDir($subdir);
	}
}

sub UpdateHtmlCache {
	my ($id, $html) = @_;
	my $idFile;

	$idFile = &GetHtmlCacheFile($id);
	&CreatePageDir($HtmlDir, $id);
	if (&RequestCacheLock()) {
		&WriteStringToFile($idFile, $html);
		&ReleaseCacheLock();
	}
}

sub GenerateAllPagesList {
	my (@pages, @dirs, $id, $dir, @pageFiles, @subpageFiles, $subId);

	@pages = ();
	if ($FastGlob) {
		# The following was inspired by the FastGlob code by Marc W. Mengel.
		# Thanks to Bob Showalter for pointing out the improvement.
		opendir(PAGELIST, $PageDir);
		@dirs = readdir(PAGELIST);
		closedir(PAGELIST);
		@dirs = sort(@dirs);
		foreach $dir (@dirs) {
			next  if (($dir eq '.') || ($dir eq '..'));
			opendir(PAGELIST, "$PageDir/$dir");
			@pageFiles = readdir(PAGELIST);
			closedir(PAGELIST);
			foreach $id (@pageFiles) {
				next  if (($id eq '.') || ($id eq '..'));
				if (substr($id, -3) eq '.db') {
					push(@pages, substr($id, 0, -3));
				} elsif (substr($id, -4) ne '.lck') {
					opendir(PAGELIST, "$PageDir/$dir/$id");
					@subpageFiles = readdir(PAGELIST);
					closedir(PAGELIST);
					foreach $subId (@subpageFiles) {
						if (substr($subId, -3) eq '.db') {
							push(@pages, "$id/" . substr($subId, 0, -3));
						}
					}
				}
			}
		}
	} else {
		# Old slow/compatible method.
		@dirs = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z other);
		foreach $dir (@dirs) {
			if (-e "$PageDir/$dir") {  # Thanks to Tim Holt
				while (<$PageDir/$dir/*.db $PageDir/$dir/*/*.db>) {
					s|^$PageDir/||;
					m|^[^/]+/(\S*).db|;
					$id = $1;
					push(@pages, $id);
				}
			}
		}
	}
	return sort(@pages);
}

sub AllPagesList {
	my ($rawIndex, $refresh, $status);

	if (!$UseIndex) {
		return &GenerateAllPagesList();
	}
	$refresh = &GetParam("refresh", 0);
	if ($IndexInit && !$refresh) {
		# Note for mod_perl: $IndexInit is reset for each query
		# Eventually consider some timestamp-solution to keep cache?
		return @IndexList;
	}
	if ((!$refresh) && (-f $IndexFile)) {
		($status, $rawIndex) = &ReadFile($IndexFile);
		if ($status) {
			%IndexHash = split(/\s+/, $rawIndex);
			@IndexList = sort(keys %IndexHash);
			$IndexInit = 1;
			return @IndexList;
		}
		# If open fails just refresh the index
	}
	@IndexList = ();
	%IndexHash = ();
	@IndexList = &GenerateAllPagesList();
	foreach (@IndexList) {
		$IndexHash{$_} = 1;
	}
	$IndexInit = 1;  # Initialized for this run of the script
	# Try to write out the list for future runs
	&RequestIndexLock() or return @IndexList;
	&WriteStringToFile($IndexFile, join(" ", %IndexHash));
	&ReleaseIndexLock();
	return @IndexList;
}

sub CalcDay {
	my ($ts) = @_;

	$ts += $TimeZoneOffset;
	my ($sec, $min, $hour, $mday, $mon, $year) = localtime($ts);

	return ($year + 1900) . "-" . ($mon+1) . "-" . $mday; # luke added

	return ("January", "February", "March", "April", "May", "June",
					"July", "August", "September", "October", "November",
					"December")[$mon]. " " . $mday . ", " . ($year+1900);
}

sub CalcDayNow {
	return CalcDay($Now);
}

sub CalcTime {
	my ($ts) = @_;
	my ($ampm, $mytz);

	$ts += $TimeZoneOffset;
	my ($sec, $min, $hour, $mday, $mon, $year) = localtime($ts);

	$mytz = "";
	if (($TimeZoneOffset == 0) && ($ScriptTZ ne "")) {
		$mytz = " " . $ScriptTZ;
	}
	$ampm = "";
	if ($UseAmPm) {
		$ampm = " am";
		if ($hour > 11) {
			$ampm = " pm";
			$hour = $hour - 12;
		}
		$hour = 12   if ($hour == 0);
	}
	$min = "0" . $min   if ($min<10);
	return $hour . ":" . $min . $ampm . $mytz;
}

sub TimeToText {
	my ($t) = @_;

	return &CalcDay($t) . " " . &CalcTime($t);
}

sub GetParam {
	my ($name, $default) = @_;
	my $result;

	$result = $q->param($name);
	if (!defined($result)) {
		if (defined($UserData{$name})) {
			$result = $UserData{$name};
		} else {
			$result = $default;
		}
	}
	return $result;
}

sub GetHiddenValue {
	my ($name, $value) = @_;

	$q->param($name, $value);
	return $q->hidden($name);
}

sub GetRemoteHost {
	my ($doMask) = @_;
	my ($rhost, $iaddr);

	$rhost = $ENV{REMOTE_HOST};
	if ($UseLookup && ($rhost eq "")) {
		# Catch errors (including bad input) without aborting the script
		eval 'use Socket; $iaddr = inet_aton($ENV{REMOTE_ADDR});'
				 . '$rhost = gethostbyaddr($iaddr, AF_INET)';
	}
	if ($rhost eq "") {
		$rhost = $ENV{REMOTE_ADDR};
		$rhost =~ s/\d+$/xxx/  if ($doMask);      # Be somewhat anonymous
	}
	return $rhost;
}

sub FreeToNormal {
	my ($id) = @_;

	$id =~ s/ /_/g;
	$id = ucfirst($id);
	if (index($id, '_') > -1) {  # Quick check for any space/underscores
		$id =~ s/__+/_/g;
		$id =~ s/^_//;
		$id =~ s/_$//;
		if ($UseSubpage) {
			$id =~ s|_/|/|g;
			$id =~ s|/_|/|g;
		}
	}
	if ($FreeUpper) {
		# Note that letters after ' are *not* capitalized
		if ($id =~ m|[-_.,\(\)/][a-z]|) {    # Quick check for non-canonical case
			$id =~ s|([-_.,\(\)/])([a-z])|$1 . uc($2)|ge;
		}
	}
	return $id;
}
#END_OF_BROWSE_CODE

# == Page-editing and other special-action code ========================
$OtherCode = ""; # Comment next line to always compile (slower)
#$OtherCode = <<'#END_OF_OTHER_CODE';

# luke added

sub DoPreview {
	$ClickEdit = 0;
	print &GetHttpHeader();
	print &GetHtmlHeader("$SiteName: Preview", "Preview");
	print &WikiToHTML(&GetParam("text", undef));
}

sub DoHelp {
	my $idx = &GetParam("index", "");
	my $text;

	if ($idx eq 1) {
		$text = qq(
= ÆäÀÌÁö ¸¸µé±â =

=== ÇѱÛÀ̸§ÆäÀÌÁö ===

ÇѱÛÆäÀÌÁöÀ̸§ ¸¸µå´Â ¹ýÀÔ´Ï´Ù.

ÀÌ·¸°Ô ÆíÁý â¿¡ ÀÔ·ÂÇϸé... <nowiki>[[»õÇѱÛÀ̸§]] [[ÇѱÛÀ̸§ÆäÀÌÁö]]</nowiki>

*[[»õÇѱÛÀ̸§]] <- ±âÁ¸ ÆäÀÌÁö°¡ ¾ø´Â °æ¿ì ¹°À½Ç¥°¡ »ý±é´Ï´Ù. ¹°À½Ç¥¸¦ Ŭ¸¯ÇÏ¸é »õÆäÀÌÁö âÀÌ ¿­¸³´Ï´Ù.
*[[ÇѱÛÀ̸§ÆäÀÌÁö]] <- ÀÌ¹Ì ÆäÀÌÁö°¡ ÀÖÀ¸¸é ÀÚµ¿¸µÅ©°¡ »ý±é´Ï´Ù.

=== ¿µ¾îÀ̸§ÆäÀÌÁö ===

1. ÆäÀÌÁöÀ̸§À¸·Î ¾²°íÀÚ ÇÏ´Â ¿µ¾î¸¦ °ø¹é¾øÀÌ ¾¹´Ï´Ù. À̶§ ´ë¼Ò¹®ÀÚ¸¦ ¼¯¾î¼­ ¾²¸é ÀÚµ¿À¸·Î ¹°À½Ç¥°¡ »ý±é´Ï´Ù. ÀÌ ÆäÀÌÁö À̸§ÀÌ ÀÌ¹Ì ÀÖ´Ù¸é ¹°À½Ç¥´Â »ý±âÁö ¾Ê½À´Ï´Ù.

ÆíÁýâ¿¡ <nowiki>NewPage WikiSandBox</nowiki>¶ó°í ÀÔ·ÂÇÏ¸é ´ÙÀ½°ú °°ÀÌ Ç¥½ÃµË´Ï´Ù.

*NewPage <- ¹°À½Ç¥°¡ ÀÖÀ¸¸é ¾ÆÁ÷ ¾ø´Â ÆäÀÌÁö
*WikiSandBox <- ÀÌ¹Ì ÀÖ´Â ÆäÀÌÁö

À̶§ ¹°À½Ç¥¸¦ Ŭ¸¯ÇÏ¸é »õÆäÀÌÁö ÆíÁýâÀÌ »ý±é´Ï´Ù. ÀÌ ÆäÀÌÁöÀ̸§Àº 'a href=' ÀÌ·±Ç¥½Ã ¾øÀÌ ±×³É ¾²±â¸¸ Çصµ ¾îµð¼­³ª ÀÚµ¿À¸·Î ¸µÅ©°¡ µÇ¾î ¹Ù·Î À̵¿ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ°ÍÀÌ À§Å°ÀÇ Å« ÀåÁ¡ÀÔ´Ï´Ù.

2. ´ë¼Ò¹®ÀÚ¸¦ ¼¯¾î¾²Áö ¾Ê´Â °æ¿ì, Áï ¸ðµÎ ¼Ò¹®Àڰųª ¸ðµÎ ´ë¹®ÀÚÀÎ °æ¿ì´Â ÀÚµ¿À¸·Î ¹°À½Ç¥°¡ »ý±âÁö ¾Ê½À´Ï´Ù. ÀÌ·± °æ¿ì´Â µÎ°³ÀÇ ²©¼è"[[", "]]"·Î ¹­¾îÁÝ´Ï´Ù. ¶ÇÇÑ ÀÌ¹Ì ÆäÀÌÁö°¡ ÀÖ´Ù°í Çصµ ÀÚµ¿¸µÅ©°¡ µÇÁö ¾ÊÀ¸´Ï ¸µÅ©¸¦ ÇÏ°í ½ÍÀ¸¸é ¿ª½Ã ÀÌÁß ²©¼è·Î µÑ·¯½×¾Æ¾ß ÇÕ´Ï´Ù. º¸Åë ·Î±×Àνà ¾ÆÀ̵ð´Â ¸µÅ©Çϱâ ÆíÇ϶ó°í ¼Ò¹®Àڷθ¸ ½áÁÖ°í, ´Ù¸¥ ÆäÀÌÁö À̸§µéÀº ´ë¼Ò¹®ÀÚ ¼¯¾î ¾²´Â °ÍÀÌ ÀÚµ¿¸µÅ© ¸¸µé±â°¡ ÁÁ½À´Ï´Ù.

ÆíÁýÇÒ ¶§ <nowiki>[[ika]] [[tommy]]</nowiki> ½ÄÀ¸·Î ÀÔ·ÂÇÏ¸é ´ÙÀ½°ú °°Àº ÇüÅ·Πº¸ÀÔ´Ï´Ù. [[ika]] [[tommy]]

*ika <- ´ë¼Ò¹®ÀÚ ¼¯¾î¾²Áö ¾Ê¾Ò±â ¶§¹®¿¡ ²©¼è¾øÀÌ´Â ÀÌ¹Ì ÆäÀÌÁö°¡ À־ ÀÚµ¿¸µÅ©°¡ µÇÁö ¾Ê½À´Ï´Ù.
*tommy <- ´ë¼Ò¹®ÀÚ ¼¯¾î¾²Áö ¾Ê¾Ò±â ¶§¹®¿¡ ²©¼è¾øÀÌ´Â »õÆäÀÌÁö°¡ ¸¸µé¾îÁöÁö ¾Ê½À´Ï´Ù.
*[[ika]] <- ±âÁ¸ÆäÀÌÁö°¡ ÀÌ¹Ì Àֱ⠶§¹®¿¡ ÀÚµ¿¸µÅ©°¡ »ý±é´Ï´Ù.
*[[tommy]] <- ±âÁ¸ÆäÀÌÁö°¡ ¾ø±â ¶§¹®¿¡ ¹°À½Ç¥°¡ ÀÖ½À´Ï´Ù. ¹°À½Ç¥¸¦ ´©¸£¸é »õÆäÀÌÁö°¡ »ý±é´Ï´Ù.

=== ÇÏÀ§ÆäÀÌÁö ¸¸µé±â ===

"/"¸¦ ÇÏ°í ÆäÀÌÁö À̸§À» ¸¸µé¸é ÇöÀç ÆíÁýÇÏ°í ÀÖ´Â ¹®¼­ ¹ØÀ¸·Î ÆäÀÌÁö°¡ ¸¸µé¾îÁý´Ï´Ù. ÀÌ °ÍÀ» È®ÀÎÇÏ·Á¸é À§ÀÇ ¸Þ´º¹Ù¿¡ ÀÖ´Â Index¸¦ ´­·¯º¸½Ã¸é µË´Ï´Ù. ¶ÇÇÑ ÇÏÀ§ÆäÀÌÁö·Î µé¾î°¡¸é ¸Þ´º¹Ù¿¡ »óÀ§ÆäÀÌÁöÀ̸§ÀÌ º¸Àδä´Ï´Ù. Áö±Ý À§, ¾Æ·¡ ¸Þ´º¹Ù¿¡ '¹®¼­ÀÛ¼º¹ý¿¬½À'À̶ó°í º¸ÀÌÁö¿ä?
 [[/¿¬½ÀÆäÀÌÁö]]
¶ó°í ÀÔ·ÂÇϸé [[/¿¬½ÀÆäÀÌÁö]]¶ó°í º¸ÀÔ´Ï´Ù. ±×·¯¸é ÀÌ ÆäÀÌÁöÀÇ ÁÖ¼Ò´Â ¹®¼­ÀÛ¼º¹ý¿¬½À/»õÆäÀÌÁö¸¸µé±â¿¬½À/¿¬½ÀÆäÀÌÁö ¶ó´Â À̸§À» °®°Ô µË´Ï´Ù. À̸§ÀÌ ³Ê¹« ±æ¸é µý °÷¿¡¼­ ¸µÅ©¸¦ °É ¶§ Èûµé¾îÁö¹Ç·Î ÇÏÀ§ÆäÀÌÁö´Â ²À ÇÊ¿äÇÒ ¶§¸¸ ¸¸µå¼¼¿ä.
		);
	} elsif ($idx eq 2) {
		$text = qq|
= ¹®Àå ±¸¼º =

=== ±ÛÀÚ Àå½Ä ===

UseModWiki´Â "µû¿ÈÇ¥(')"¸¦ »ç¿ëÇÕ´Ï´Ù. (htmlµµ »ç¿ëÇÒ ¼ö ÀÖÁö¸¸, ´Ù¸¥ À§Å°¿¡¼­µµ ¾²ÀÌ´Â ¹æ¹ýÀÌ´Ï µÉ ¼ö ÀÖÀ¸¸é ÀÌ ¹æ¹ýÀ» ÀÍÈ÷¼¼¿ä.)

ÀÌ·¸°Ô ÀÔ·ÂÇϸé

 *&#39;&#39;ÇÑ°³ µû¿ÈÇ¥(') µÎ°³·Î ÀÌÅŸ¯Ã¼ ¸¸µé±â&#39;&#39;
 *&#39;&#39;&#39;ÇÑ°³ µû¿ÈÇ¥(') ¼¼°³·Î ±½°Ô ¸¸µé±â&#39;&#39;&#39;
 *&#39;&#39;&#39;&#39;&#39;ÇÑ°³ µû¿ÈÇ¥(') ´Ù¼¸°³·Î ±½Àº ÀÌÅŸ¯Ã¼ ¸¸µé±â&#39;&#39;&#39;&#39;&#39;

Preview³ª ÀúÀå½Ã ÀÌ·¸°Ô º¸ÀÔ´Ï´Ù.

*''ÇÑ°³ µû¿ÈÇ¥(') µÎ°³·Î ÀÌÅŸ¯Ã¼ ¸¸µé±â''
*'''ÇÑ°³ µû¿ÈÇ¥(') ¼¼°³·Î ±½°Ô ¸¸µé±â'''
*'''''ÇÑ°³ µû¿ÈÇ¥(') ´Ù¼¸°³·Î ±½Àº ÀÌÅŸ¯Ã¼ ¸¸µé±â'''''

=== Á¦¸ñÁÙ ¾²±â ===

Á¦¸ñ(Heading)Àº 1~6°³ÀÇ ÀÌÄ÷Ç¥½Ã(=)·Î ÀÌ·ç¾îÁý´Ï´Ù. ÀÌ°ÍÀº HTML &lth1&gt - &lt;h6&gt ű׿¡ »óÀÀÇÕ´Ï´Ù. ÀÌÄ÷Ç¥½Ã¸¦ ½ÃÀÛÇÒ ¶§´Â ¿ÞÂʺÎÅÍ ºóÄ­¾øÀÌ µü ºÙ¿©¼­ ½ÃÀÛÇϽðí ÀÌÄ÷Ç¥½Ã¿Í Á¦¸ñ±Û°ú´Â ºóÄ­À» ÇÑÄ­¾¿ µÎ¾î¾ß ÇÕ´Ï´Ù. ¾Æ·¡ ¿¹Á¦¸¦ Àß º¸¼¼¿ä.

= = Headline size 1 = =
== == Headline size 2 == ==
=== === Headline size 3 === ===

'''Á¦¸ñÀÌ ³ªÅ¸³ªÁö ¾Ê´Â °æ¿ì ´ÙÀ½À» »ìÆ캸¼¼¿ä.'''
*Á¿ì ÀÌÄ÷Ç¥½Ã °³¼ö°¡ ¶È°°¾Æ¾ßÇÕ´Ï´Ù.
*¿ÞÂÊ¿¡ ºóÄ­¾øÀÌ ÀÌÄ÷Ç¥½Ã°¡ ½ÃÀ۵Ǿî¾ß ÇÕ´Ï´Ù.
*ÀÌÄ÷°ú ¾ÈÂÊ Á¦¸ñ±Û°ú´Â ºóÄ­À» ÇÑÄ­¾¿ µÎ¾î¾ß ÇÕ´Ï´Ù.
----
¼öÆò¼±À» ±ß°í ½ÍÀ¸¸é '-'(»©±â, ÇÏÀÌÇÂ, ´ë½Ã)¸¦ ¿ÞÂÊÀ¸·ÎºÎÅÍ µü ºÙ¿©¼­ 4°³ ½áÁÖ¸é µË´Ï´Ù.

<nowiki>----</nowiki><br>
 ¡è ÀÌ·¸°Ô ¾²¸é

----
 ¡è ÀÌ·¸°Ô º¸ÀÔ´Ï´Ù.

=== µé¿©¾²±â ===

´Ù¸¥ À§Å°(¿¹¸¦ µé¸é ¸ðÀθðÀÎ)¿¡¼­´Â ½ºÆäÀ̽º °ø¹éÀ¸·Î µé¿©¾²±â¸¦ Çϱ⵵ ÇÏÁö¸¸ UseModWiki¿¡¼­´Â ±×·¸Áö ¾Ê½À´Ï´Ù. ¿ÞÂÊ¿¡¼­ ½ºÆäÀ̽º ÇÑÄ­À» ¶ç¿ì¸é pre ÅÂ±× ¾È¿¡ ³ÖÀº °Í°ú °°Àº È¿°ú¸¦ ³À´Ï´Ù.

'''±âº» µé¿©¾²±â ¹æ¹ý'''

ÀÌ·¸°Ô ÆíÁýâ¿¡ ¾²¸é

 : ÇÑÄ­ µé¿© ³Ö°í ½ÍÀ» ¶§
 :: µÎÄ­ µé¿© ³Ö°í ½ÍÀ» ¶§
 ::: ¼¼Ä­ µé¿© ³Ö°í ½ÍÀ» ¶§

Preview³ª Save ÇßÀ» ¶§ ÀÌ·¸°Ô º¸ÀÔ´Ï´Ù:

: ÇÑÄ­ µé¿© ³Ö°í ½ÍÀ» ¶§
:: µÎÄ­ µé¿© ³Ö°í ½ÍÀ» ¶§
::: ¼¼Ä­ µé¿© ³Ö°í ½ÍÀ» ¶§

=== Bullet ³Ö±â ===

ÀÌ·¸°Ô ÆíÁýâ¿¡ ¾²¸é

 * ÇÑÄ­ µé¿©¾²±â
 ** µÎÄ­ µé¿©¾²±â
 *** ¼¼Ä­ µé¿©¾²±â

Preview³ª Save ÇßÀ» ¶§ ÀÌ·¸°Ô º¸ÀÔ´Ï´Ù:

* ÇÑÄ­ µé¿©¾²±â
** µÎÄ­ µé¿©¾²±â
*** ¼¼Ä­ µé¿©¾²±â

=== ¼ýÀÚ ¸®½ºÆ® ===

ÀÌ·¸°Ô ÆíÁýâ¿¡ ¾²¸é

 # ¼ýÀÚ¸®½ºÆ® ÇÑ°³ ³Ö¾úÀ» ¶§
 ## ¼ýÀÚ¸®½ºÆ®¸¦ µÎ°³ ³Ö¾úÀ» ¶§
 ### ¼ýÀÚ ¸®½ºÆ®¸¦ ¼¼°³ ³Ö¾úÀ» ¶§
 ## ¼ýÀÚ¸®½ºÆ®¸¦ µÎ°³ ³Ö¾úÀ» ¶§

Preview³ª Save ÇßÀ» ¶§ ÀÌ·¸°Ô º¸ÀÔ´Ï´Ù:

# ¼ýÀÚ¸®½ºÆ® ÇÑ°³ ³Ö¾úÀ» ¶§
## ¼ýÀÚ¸®½ºÆ®¸¦ µÎ°³ ³Ö¾úÀ» ¶§
### ¼ýÀÚ ¸®½ºÆ®¸¦ ¼¼°³ ³Ö¾úÀ» ¶§
## ¼ýÀÚ¸®½ºÆ®¸¦ µÎ°³ ³Ö¾úÀ» ¶§

		|;
	} elsif ($idx eq 3) {
		$text = qq(
= ¸µÅ©¿Í À̹ÌÁö =

=== À̹ÌÁö ³Ö±â ===

À̹ÌÁö´Â ±×³É ÁÖ¼Ò¸¸ ¾²¸é µË´Ï´Ù.

ÀÌ·¸°Ô ¾²¸é <nowiki>http://www.usemod.com/wiki.gif</nowiki>

http://www.usemod.com/wiki.gif ±×¸²ÀÌ ³ª¿É´Ï´Ù.

=== ¸µÅ© ³Ö±â ===

'''À§Å°¸µÅ©'''

*´ë¼Ò¹®ÀÚ ¼¯¾î ÀÖ´Â À̸§Àº ÆäÀÌÁö À̸§¸¸ ½áÁÖ¸é µË´Ï´Ù. ¿¹: WikiSandBox
*´ë¹®ÀÚ¸¸, ȤÀº ¼Ò¹®ÀÚ¸¸ ÀÖ´Â À̸§°ú ÇѱÛÀ̸§ÆäÀÌÁö´Â ÀÌÁß ²©¼è¸¦ µÑ·¯ÁÖ¼¼¿ä. ¿¹: <nowiki>[[ika]]</nowiki> -> [[ika]], <nowiki>[[¹æ¸í·Ï]]</nowiki> -> [[¹æ¸í·Ï]]
*¹®¼­³»ÀÇ Æ¯Á¤ À§Ä¡¿¡ °¡±â À§Çؼ­´Â '#'À» »ç¿ëÇÕ´Ï´Ù. ¿¹: <nowiki>SandBox#test</nowiki>. ±×¸®°í <nowiki>SandBox</nowiki>¿¡¼­ À§Ä¡ ÁöÁ¤Àº <nowiki>[#test]</nowiki> À¸·Î ÇØ ÁÝ´Ï´Ù.

'''ÀÎÅͳݸµÅ©'''

*ÁÖ¼Ò ±×³É ¾²±â
**<nowiki>http://www.yahoo.com</nowiki> -> http://www.yahoo.com

*ÁÖ¼Ò¿¡ ¶óº§ ºÙÀ̱â : Url°ú ¶óº§»çÀÌ¿¡ °ø¹éÀ» Çϳª µÎ°í ²©¼è"[", "]"·Î µÑ·¯ ½Ô´Ï´Ù.
**<nowiki>[http://www.yahoo.com YahooÆäÀÌÁö·Î À̵¿]</nowiki> -> [http://www.yahoo.com YahooÆäÀÌÁö·Î À̵¿]

'''¸ÞÀÏÁÖ¼Ò³Ö±â'''

¸ÞÀÏÁÖ¼Ò¸¦ ÀÚµ¿¸µÅ©½ÃÅ°·Á¸é ¸ÞÀÏ ¾Õ¿¡ <nowiki>mailto:</nowiki>¸¦ ³Ö¾îÁÖ¼¼¿ä.
 mailto:honggildong\@mail.net
À̶ó°í ¾²¸é  mailto:honggildong\@mail.net ¶ó°í ÀÚµ¿¸µÅ©µÇ¾î Ŭ¸¯¸¸ ÇÏ¸é ¸ÞÀÏâÀÌ ¶å´Ï´Ù.

'''ÀÎÅÍÀ§Å° ¸µÅ©'''

<nowiki>NoSmok:TextFormatting</nowiki> NoSmok:TextFormatting

=== Ã¥¼Ò°³ ³Ö±â ===

ÁÁ¾ÆÇϴ åÀ̳ª, Âü°íÇÒ Ã¥¿¡ ´ëÇØ Áñ°Üã±â¸¦ ÇÏ°í ½ÍÀ¸¸é ÀÌ ¹æ¹ýÀ» ÀÌ¿ëÇϼ¼¿ä.  Ã¥¸¶´Ù °íÀ¯ÀÇ ISBN(International Standard Book Number)°¡ ÀÖ½À´Ï´Ù. ÀÌ °ÍÀ» ÀÎÅÍ³Ý ¼­Á¡ µî¿¡¼­ ¾Ë¾Æ³»¾î ´ë¹®ÀÚ·Î ISBNÀ» ¾´ ´ÙÀ½ ÄÝ·Ð(: )ÇÏ°í ¹øÈ£¸¦ °°ÀÌ ½áÁÖ¼¼¿ä.

Áï, ÆíÁýâ¿¡ ÀÌ·¸°Ô ÀÔ·ÂÇϸé

<nowiki>ISBN:8930705987</nowiki>

ISBN:8930705987 <- ÀÌ·¸°Ô ³ªÅ¸³ª°í À̹ÌÁö¸¦ Ŭ¸¯ÇϽøé [http://www.aladin.co.kr ¾Ë¶óµò]À¸·Î À̵¿ÇÕ´Ï´Ù. Ã¥¸µÅ©ÇÑ ÈÄ¿¡ ¼Ò°³¸¦ µû·Î Çϼŵµ ÁÁ°ÚÁö¿ä.

=== À½¹Ý ¼Ò°³ ³Ö±â ===

<nowiki>CD:2231815</nowiki>

CD:2231815 <-- ÀÌ·¸°Ô ³ªÅ¸³ª°í À̹ÌÁö¸¦ Ŭ¸¯Çϸé [http://www.hottracks.co.kr ÇÖÆ®·¢]À¸·Î À̵¿ÇÕ´Ï´Ù.

=== Å×ÀÌºí ±×¸®±â ===

Å×À̺íÀº ÇàÀÇ Ã¹ ¿¬´ÞÀº µÎ ±ÛÀÚ°¡ <nowiki>ll(vertical bar, ¿µ¹® L ¼Ò¹®ÀÚ³ª ¼ýÀÚ 1ÀÌ ¾Æ´Ï¶ó È­Æó´ÜÀ§ ¿ø ¸¶Å©¸¦ ½ÃÇÁÆ® ´©¸¥ »óÅ¿¡¼­ ŸÀÌÇÎ ÇÑ °Í)</nowiki> ·Î ½ÃÀÛÇϸé Àνĵ˴ϴÙ. ÇàÀ» ÇÕÄ¥ ¶§´Â <nowki>ll</nowiki> ¹®ÀÚ¸¦ ¿©·¯¹ø ¹Ýº¹ÇÏ¿© Àû¾îÁÝ´Ï´Ù.
¿¹¸¦ µé¾î 3°³ÀÇ ÇàÀ» ÇÕÄ¥ ¶§´Â <nowiki>llllll</nowiki>°¡ µË´Ï´Ù. Å×ÀÌºí ¿¹Á¦:

<nowiki>
 ll first ll second ll third ll
 llll span four ll five ll
</nowiki>
|| first || second || third ||
|||| span four || five ||

<b>Å×ÀÌºí ²Ù¹Ì±â</b>

 TABLE: <table tag>

 TABLE:À¸·Î ÁÙÀÌ ½ÃÀÛÇÏ¸é ±× Çà Àüü´Â table tag°¡ µË´Ï´Ù.

* table tag =
** width=<number percent>
** align=<center left right>
** cellpadding=<number>
** cellspacing=<number>
** border=<number>
** bgcolor=<html color value>

¿¹:
 TABLE: bgcolor=yellow cellspacing=5 border=1 width=90% align=center
<nowiki>
 ll first ll second ll third ll
 llll span four ll five ll
</nowiki>
TABLE: bgcolor=yellow cellpadding=2 cellspacing=5 border=1 width=90% align=center

|| first || second || third ||
|||| span four || five ||

		);
	} elsif ($idx eq 4) {
		$text = qq|
== ¸ÅÅ©·Î ==
¸ÅÅ©·Î´Â ²©¼è·Î µÑ·¯½ÎÀÎ ÀÌ·± Àú·± ¸ñÀûÀÇ Å°¿öµåÀÔ´Ï´Ù. * À§Å° ¸µÅ©¿Í Çò°¥¸®¹Ç·Î ´ë¼Ò¹®ÀÚ¸¦ ¼¯¾î ¾²Áö ¾Êµµ·Ï ÇÏ¼Å¾ß ÇÕ´Ï´Ù.

=== <nowiki><date>, <time>, <datetime></nowiki> ===

Áö±ÝÀº <datetime>, ¿À´ÃÀº <date>, Áö±Ý ½Ã°¢Àº <time>

=== <nowiki><pagecount></nowiki> ===

ÀÌ À§Å°¿¡´Â ÃÑ <pagecount>°³ÀÇ ¹®¼­°¡ ÀÖ½À´Ï´Ù.

=== <nowiki><include(¹®¼­¸í)</nowiki> ===

À§Å° ³»ÀÇ Æ¯Á¤ ¹®¼­¸¦ ÇöÀç ¹®¼­¿¡ Æ÷ÇÔ. < include(¹ä) > ÇÏ¸é ¾Æ·¡Ã³·³ ³ª¿Â´Ù. [[¹ä]] Âü°í.

<include(¹ä)>

=== <nowiki><history(¼ýÀÚ)></nowiki> ===

Çö ¹®¼­ÀÇ ¼öÁ¤ ³»¿ª(º¯°æ È÷½ºÅ丮)¸¦ Ãâ·Â. À̶§ °ýÈ£¾ÈÀÇ ¼ýÀÚ´Â Ãâ·ÂÇÒ °¡Àå ÃÖ±ÙÀÇ º¯°æ ³»¿ªÀÇ °¹¼ö.

<history(5)>

=== <nowiki><titlesearch(¹®ÀÚ¿­)></nowiki> ===

À§Å° ³»ÀÇ ¹®¼­Á¦¸ñÁß¿¡¼­ ¹®ÀÚ¿­À» °Ë»öÇÏ¿© ¸µÅ© ÆÐÅÏÀ» Ãâ·Â. Á¤±Ô½ÄÀ» »ç¿ëÇÑ´Ù. ¿¹¸¦ µé¾î À§Å°³»¿¡ SF-»çº¯¼Ò¼³, SF-»çÀ̹öÆãÅ©, ½ºÆÀÆãÅ© ¶ó´Â ¹®¼­°¡ ÀÖÀ» ¶§,

* titlesearch(^SF)¶ó°í Çϸé SF-»çº¯¼Ò¼³, SF-»çÀ̹öÆãÅ©¸¦ Ãâ·Â. ^´Â ù ±ÛÀÚºÎÅÍ ÀÏÄ¡
* titlesearch(ÆãÅ©$)¶ó°í Çϸé SF-»çÀ̹öÆãÅ©¿Í ½ºÆÀÆãÅ©¸¦ Ãâ·Â. $´Â ¸¶Áö¸·ºÎÅÍ ÀÏÄ¡
* titlesearch(»çº¯) À̶ó°í Çϸé SF-»çº¯¼Ò¼³ Ãâ·Â. Á¦¸ñÁß¿¡ '»çº¯'°ú ÀÏÄ¡ÇÏ´Â ¸ðµç Ç׸ñ
* titlesearch(.*) À̶ó°í ÇÏ¸é ¸ðµç ¹®¼­ Ãâ·Â. .*´Â ¸ðµç ¹®ÀÚ¿Í ÀÏÄ¡.

See Also: <TitleSearch(¸Á³â)>

=== <nowiki><fullsearch(¹®ÀÚ¿­)></nowiki> ===

ŸÀÌƲ¼­Ä¡¿Í ¸¶Âù°¡ÁöÀε¥, ¹®¼­ Á¦¸ñ »Ó¸¸ ¾Æ´Ï¶ó ¹®¼­ ³»¿ëµµ °°ÀÌ °Ë»ö. ÆäÀÌÁö°¡ ´Ã¾î³ª¸é ¼Óµµ°¡ ´À·ÁÁü.

=== <nowiki><randompage(¼ýÀÚ)></nowiki> ===

À§Å° ³»ÀÇ ¹®¼­Áß¿¡¼­ '¼ýÀÚ'·Î ÁöÁ¤ÇÑ ¼ö ¸¸Å­ ¹«ÀÛÀ§·Î Ãâ·Â

¿À´ÃÀÇ ÆäÀÌÁö: <randompage(2)>

=== <nowiki><goto(¹®ÀÚ¿­)></nowiki> ===

ÆäÀÌÁö¸¦ ã¾Æ°¡´Â ÆûÀ» Ãâ·Â. ¹®ÀÚ¿­Àº µðÆúÆ®...

<goto(¹Ùº¸)>
	|;
	}

	$ClickEdit = 0;
	print &GetHttpHeader();
	print &GetHtmlHeader("$SiteName: Preview", "Preview");
	print &WikiToHTML($text);
}

# end

sub DoOtherRequest {
	my ($id, $action, $text, $search);

	$ClickEdit = 0;									# luke added
	$action = &GetParam("action", "");
	$id = &GetParam("id", "");
	if ($action ne "") {
		$action = lc($action);
		if ($action eq "edit") {
			&DoEdit($id, 0, 0, "", 0)  if &ValidIdOrDie($id);
		} elsif ($action eq "unlock") {
			&DoUnlock();
		} elsif ($action eq "index") {
			&DoIndex();
		} elsif ($action eq "help") {				# luke added
			&DoHelp();								# luke added
		} elsif ($action eq "preview") {			# luke added
			&DoPreview();							# luke added
		} elsif ($action eq "links") {
			&DoLinks();
		} elsif ($action eq "maintain") {
			&DoMaintain();
		} elsif ($action eq "pagelock") {
			&DoPageLock();
		} elsif ($action eq "editlock") {
			&DoEditLock();
		} elsif ($action eq "editprefs") {
			&DoEditPrefs();
		} elsif ($action eq "editbanned") {
			&DoEditBanned();
		} elsif ($action eq "editlinks") {
			&DoEditLinks();
		} elsif ($action eq "login") {
			&DoEnterLogin();
		} elsif ($action eq "newlogin") {
			$UserID = 0;
			&DoEditPrefs();  # Also creates new ID
		} elsif ($action eq "version") {
			&DoShowVersion();
		} else {
			# Later improve error reporting
			&ReportError(Ts('Invalid action parameter %s', $action));
		}
		return;
	}
	if (&GetParam("edit_prefs", 0)) {
		&DoUpdatePrefs();
		return;
	}
	if (&GetParam("edit_ban", 0)) {
		&DoUpdateBanned();
		return;
	}
	if (&GetParam("enter_login", 0)) {
		&DoLogin();
		return;
	}
	if (&GetParam("edit_links", 0)) {
		&DoUpdateLinks();
		return;
	}
	$search = &GetParam("search", "");
	if (($search ne "") || (&GetParam("dosearch", "") ne "")) {
		&DoSearch($search);
		return;
	}
	# Handle posted pages
	if (&GetParam("oldtime", "") ne "") {
		$id = &GetParam("title", "");
		&DoPost()  if &ValidIdOrDie($id);
		return;
	}
	# Later improve error message
	&ReportError(T('Invalid URL.'));
}

sub DoEdit {
	my ($id, $isConflict, $oldTime, $newText, $preview) = @_;
	my ($header, $editRows, $editCols, $userName, $revision, $oldText);
	my ($summary, $isEdit, $pageTime);

	if (!&UserCanEdit($id, 1)) {
		print &GetHeader("", T('Editing Denied'), "");
		if (&UserIsBanned()) {
			print T('Editing not allowed: user, ip, or network is blocked.');
			print "<p>";
			print T('Contact the wiki administrator for more information.');
		} else {
			print Ts('Editing not allowed: %s is read-only.', $SiteName);
		}
		print &GetCommonFooter();
		return;
	}
	# Consider sending a new user-ID cookie if user does not have one
	&OpenPage($id);
	&OpenDefaultText();
	$pageTime = $Section{'ts'};
	$header = Ts('Editing %s', $id);
	# Old revision handling
	$revision = &GetParam('revision', '');
	$revision =~ s/\D//g;  # Remove non-numeric chars
	if ($revision ne '') {
		&OpenKeptRevisions('text_default');
		if (!defined($KeptRevisions{$revision})) {
			$revision = '';
			# Later look for better solution, like error message?
		} else {
			&OpenKeptRevision($revision);
			$header = Ts('Editing revision %s of', $revision) . " $id";
		}
	}
	$oldText = $Text{'text'};
	if ($preview && !$isConflict) {
		$oldText = $newText;
	}
	$editRows = &GetParam("editrows", 20);
	$editCols = &GetParam("editcols", 65);
	print &GetHeader('', &QuoteHtml($header), '');
	if ($revision ne '') {
		print "\n<b>"
					. Ts('Editing old revision %s.', $revision) . "  "
		. T('Saving this page will replace the latest revision with this text.')
					. '</b><br>'
	}
	if ($isConflict) {
		$editRows -= 10  if ($editRows > 19);
		print "\n<H1>" . T('Edit Conflict!') . "</H1>\n";
		if ($isConflict>1) {
			# The main purpose of a new warning is to display more text
			# and move the save button down from its old location.
			print "\n<H2>" . T('(This is a new conflict)') . "</H2>\n";
		}
		print "<p><strong>",
					T('Someone saved this page after you started editing.'), " ",
					T('The top textbox contains the saved text.'), " ",
					T('Only the text in the top textbox will be saved.'),
					"</strong><br>\n",
					T('Scroll down to see your edited text.'), "<br>\n";
		print T('Last save time:'), ' ', &TimeToText($oldTime),
					" (", T('Current time is:'), ' ', &TimeToText($Now), ")<br>\n";
	}

	# luke added

	print qq|
<script language="javascript" type="text/javascript">
<!--
function preview()
{
	var w = window.open("", "Preview", "width=640,height=480,resizable=1,statusbar=1,scrollbars=1");
	w.focus();

	var body = '<html><head><title>Wiki Preview</title><meta http-equiv="Content-Type" content="text/html; charset=euc-kr"></head>';
	body += '<body><form method="post" action="$ScriptName">';
	body += '<input type="hidden" name="action" value="preview"><input type=hidden name="text"></form></body></html>';

	w.document.open();
	w.document.charset = '$HttpCharset';
	w.document.write(body);
	w.document.close();
	w.document.forms[0].elements['text'].value = window.document.forms[1].elements['text'].value;
	w.document.forms[0].submit();
}
function help(s)
{
	var w = window.open(s, "Help", "width=500,height=400, resizable=1, scrollbars=1");
	w.focus();
}
//-->
</script>
|;

	print "µµ¿ò¸»: ";
	print &HelpLink(1, "ÆäÀÌÁö ¸¸µé±â") . " | ";
	print &HelpLink(2, "¹®Àå ±¸¼º") . " | ";
	print &HelpLink(3, "¸µÅ©¿Í À̹ÌÁö") . " | ";
	print &HelpLink(4, "¸ÅÅ©·Î") . "<br>";

	print &GetFormStart();

	print &GetHiddenValue("title", $id), "\n",
				&GetHiddenValue("oldtime", $pageTime), "\n",
				&GetHiddenValue("oldconflict", $isConflict), "\n";
	if ($revision ne "") {
		print &GetHiddenValue("revision", $revision), "\n";
	}
	print &GetTextArea('text', $oldText, $editRows, $editCols);
	$summary = &GetParam("summary", "*");
	print "<p>", T('¿ä¾à:'),
				$q->textfield(-name=>'summary',
											-default=>$summary, -override=>1,
											-size=>60, -maxlength=>200);
	if (&GetParam("recent_edit") eq "on") {
		print "<br>", $q->checkbox(-name=>'recent_edit', -checked=>1,
															 -label=>T('This change is a minor edit.'));
	} else {
		print "<br>", $q->checkbox(-name=>'recent_edit',
															 -label=>T('This change is a minor edit.'));
	}
	if ($EmailNotify) {
		print "&nbsp;&nbsp;&nbsp;" .
					 $q->checkbox(-name=> 'do_email_notify',
			-label=>Ts('Send email notification that %s has been changed.', $id));
	}
	print "<br>";
	if ($EditNote ne '') {
		print T($EditNote) . '<br>';  # Allow translation
	}
	print $q->submit(-name=>'Save', -value=>T('ÀúÀå')), "\n";
	$userName = &GetParam("username", "");
	if ($userName ne "") {
		print ' (', T('Your user name is'), ' ',
					&GetPageLink($userName) . ') ';
	} else {
		print ' (', Ts('Visit %s to set your user name.', &GetPrefsLink()), ') ';
	}
	#print $q->submit(-name=>'Preview', -value=>T('¹Ì¸®º¸±â'));	# luke delete
	print q(<input type="button" name="prev1" value="¹Ì¸®º¸±â" onclick="javascript:preview();">); # luke added

	if ($isConflict) {
		print "\n<br><hr noshade size=1><p><strong>", T('This is the text you submitted:'),
					"</strong><p>",
					&GetTextArea('newtext', $newText, $editRows, $editCols),
					"<p>\n";
	}
	print "<hr noshade size=1>\n";
	if ($preview) {
		print "<h2>", T('Preview:'), "</h2>\n";
		if ($isConflict) {
			print "<b>",
						T('NOTE: This preview shows the revision of the other author.'),
						"</b><hr noshade size=1>\n";
		}
		$MainPage = $id;
		$MainPage =~ s|/.*||;  # Only the main page name (remove subpage)
		print &WikiToHTML($oldText) . "<hr noshade size=1>\n";
		print "<h2>", T('Preview only, not yet saved'), "</h2>\n";
	}
	print &GetHistoryLink($id, T('View other revisions')) . "<br>\n";
	# print &GetGotoBar($id);
	print $q->endform;
	print &GetMinimumFooter();
}

sub GetTextArea {
	my ($name, $text, $rows, $cols) = @_;

	if (&GetParam("editwide", 1)) {
		return $q->textarea(-name=>$name, -default=>$text,
												-rows=>$rows, -columns=>$cols, -override=>1,
												-style=>'width:100%', -wrap=>'virtual');
	}
	return $q->textarea(-name=>$name, -default=>$text,
											-rows=>$rows, -columns=>$cols, -override=>1,
											-wrap=>'virtual');
}

sub DoEditPrefs {
	my ($check, $recentName, %labels);

	$recentName = $RCName;
	$recentName =~ s/_/ /g;
	&DoNewLogin()  if ($UserID eq "");
	print &GetHeader('', T('Edit Preferences'), "");
	print &GetFormStart();
	print GetHiddenValue("edit_prefs", 1), "\n";
	print '<b>' . T('»ç¿ëÀÚ Á¤º¸:') . "</b>\n";
	print '<br>' . T('»ç¿ëÀÚID:') . ' ', &GetFormText('username', "", 20, 50);
	print ' ' . T('(»èÁ¦ÇÏ·Á¸é ¾Æ¹« °Íµµ ÀÔ·ÂÇÏÁö ¸¶¼¼¿ä)');
	print '<br>' . T('¾ÏÈ£ ¼³Á¤:') . ' ',
				$q->password_field(-name=>'p_password', -value=>'*',
													 -size=>15, -maxlength=>50),
				' ', T('(¾ÏÈ£¸¦ Á¦°ÅÇÏ·Á¸é °ø¶õÀ¸·Î ³²°ÜµÎ½Ã¾Ð)'), '<br>(',
				T('¾ÏÈ£´Â ¾î·¯ ½Ã½ºÅÛ¿¡¼­ »ç¿ëÀÚ Á¤º¸¸¦ °øÀ¯Çϵµ·Ï ÇÕ´Ï´Ù.'),
				' ', T('¾ÏÈ£´Â ¼±ÅûçÇ×ÀÔ´Ï´Ù.'), ')';
	if ($AdminPass ne '') {
		print '<br>', T('°ü¸®ÀÚ ¾ÏÈ£:'), ' ',
					$q->password_field(-name=>'p_adminpw', -value=>'*',
														 -size=>15, -maxlength=>50),
					' ', T('(blank to remove password)'), '<br>',
					T('(°ü¸®ÀÚ ¾ÏÈ£´Â Ưº°ÇÑ °ü¸®¸¦ À§ÇØ »ç¿ëµË´Ï´Ù. °ø¶õÀ¸·Î ³²°ÜµÎ¼¼¿ä)');
	}
	if ($EmailNotify) {
		print "<br>";
		print &GetFormCheck('notify', 1,
					T('Include this address in the site email list.')), ' ',
					T('(Uncheck the box to remove the address.)');
		print '<br>', T('Email Address:'), ' ',
					&GetFormText('email', "", 30, 60);
	}
	print "<hr noshade size=1><b>$recentName:</b>\n";
	print '<br>', T('¸çÄ¥ µ¿¾ÈÀÇ º¯°æ³»¿ëÀ» º¸°í ½Í½À´Ï±î:'), ' ',
				&GetFormText('rcdays', $RcDefault, 4, 9);
	print "<br>", &GetFormCheck('rcnewtop', $RecentTop,
															T('°¡Àå ÃÖ±Ù º¯°æÀÌ ¸Ç À§¿¡ ¿Àµµ·Ï'));
	print "<br>", &GetFormCheck('rcall', 0,
															T('¸ðµç º¯°æ³»¿ëÀ» º¸¿©ÁÜ'));
	%labels = (0=>T('°¨Ãã'), 1=>T('º¸¿©ÁÜ'),
						 2=>T('±×°Í¸¸ º¸¿©ÁÜ'));
	print '<br>', T('¼Ò¼ÒÇÑ ¼öÁ¤(minor edit) Ãâ·Â ¹æ½Ä:'), ' ';
	print $q->popup_menu(-name=>'p_rcshowedit',
											 -values=>[0,1,2], -labels=>\%labels,
											 -default=>&GetParam("rcshowedit", $ShowEdits));
	print "<br>", &GetFormCheck('rcchangehist', 1,
															T('Use "changes" as link to history'));
	if ($UseDiff) {
		print '<hr noshade size=1><b>', T('Â÷ÀÌÁ¡(differences):'), "</b>\n";
		print "<br>", &GetFormCheck('diffrclink', 1,
																Ts('%s ¿¡ Â÷ÀÌÁ¡(diff) º¸À̱â', $recentName));
		print "<br>", &GetFormCheck('alldiff', 0,
																T('¸ðµç ÆäÀÌÁö¿¡ Â÷ÀÌÁ¡ º¸À̱â'));
		print "  (",  &GetFormCheck('norcdiff', 1,
																Ts('%s¿¡ Â÷ÀÌ ¾øÀ½(no differences)', $recentName)), ")";
		%labels = (1=>T('Major'), 2=>T('Minor'), 3=>T('Author'));
		print '<br>', T('Default difference type:'), ' ';
		print $q->popup_menu(-name=>'p_defaultdiff',
												 -values=>[1,2,3], -labels=>\%labels,
												 -default=>&GetParam("defaultdiff", 1));
	}
	print '<hr noshade size=1><b>', T('Misc:'), "</b>\n";
	# Note: TZ offset is added by TimeToText, so pre-subtract to cancel.
	print '<br>', T('ÇöÀç ¼­¹ö ½Ã°¢:'), ' ', &TimeToText($Now-$TimeZoneOffset);
	print '<br>', T('Time Zone offset (hours):'), ' ',
				&GetFormText('tzoffset', 0, 4, 9);
	print '<br>', &GetFormCheck('editwide', 1,
															T('ÆíÁý °ø°£À» È­¸é¿¡ °¡µæ ä¿ò'));
	print '<br>',
				T('ÆíÁý °ø°£ ÁÙ¼ö:'), ' ', &GetFormText('editrows', 20, 4, 4),
				' ', T('Çà¼ö:'),   ' ', &GetFormText('editcols', 65, 4, 4);

	print '<br>', &GetFormCheck('toplinkbar', 1,
															T('¸Þ´º¸¦ º¸¿©ÁÜ'));
	print '<br>', &GetFormCheck('linkrandom', 0,
															T('¹«ÀÛÀ§ ÆäÀÌÁö¸¦ ¸Þ´º¿¡ º¸¿©ÁÜ'));
	print '<br>', $q->submit(-name=>'Save', -value=>T('Save')), "\n";
	print "<hr>\n";
	print &GetGotoBar('');
	print $q->endform;
	print &GetMinimumFooter();
}

sub GetFormText {
	my ($name, $default, $size, $max) = @_;
	my $text = &GetParam($name, $default);

	return $q->textfield(-name=>"p_$name", -default=>$text,
											 -override=>1, -size=>$size, -maxlength=>$max);
}

sub GetFormCheck {
	my ($name, $default, $label) = @_;
	my $checked = (&GetParam($name, $default) > 0);

	return $q->checkbox(-name=>"p_$name", -override=>1, -checked=>$checked,
											-label=>$label);
}

sub DoUpdatePrefs {
	my ($username, $password);

	# All link bar settings should be updated before printing the header
	&UpdatePrefCheckbox("toplinkbar");
	&UpdatePrefCheckbox("linkrandom");
	print &GetHeader('',T('»ç¿ëÀÚ ¼³Á¤ ÀúÀå'), '');
	print '<br>';

	$UserID = &GetParam("p_username",  "");
	$username = &GetParam("p_username",  "");
	if ($FreeLinks) {
		$username =~ s/^\[\[(.+)\]\]/$1/;  # Remove [[ and ]] if added
		$username =  &FreeToNormal($username);
		$username =~ s/_/ /g;
	}
	if ($username eq "") {
		print T('»ç¿ëÀÚ¸¦ Áö¿ü½À´Ï´Ù.'), '<br>';
		undef $UserData{'username'};
	} elsif ((!$FreeLinks) && (!($username =~ /^$LinkPattern$/))) {
		print Ts('%s´Â À߸øµÈ »ç¿ëÀÚ¸í: ÀúÀåÇÏÁö ¾ÊÀ½.', $username), "<br>\n";
	} elsif ($FreeLinks && (!($username =~ /^$FreeLinkPattern$/))) {
		print Ts('%s´Â À߸øµÈ »ç¿ëÀÚ¸í: ÀúÀåÇÏÁö ¾ÊÀ½.', $username), "<br>\n";
	} elsif (length($username) > 50) {  # Too long
		print T('»ç¿ëÀÚ¸íÀº 50±ÛÀÚº¸´Ù ÀÛ¾Æ¾ß ÇÔ. ÀúÀåÇÏÁö ¾ÊÀ½.'), "<br>\n";
	} else {
		print Ts('»ç¿ëÀÚ¸í %s À» ÀúÀåÇßÀ½.', $username), '<br>';
		$UserData{'username'} = $username;
	}
	$password = &GetParam("p_password",  "");
	if ($password eq "") {
		print T('»ç¿ëÀÚ ¾ÏÈ£ Áö¿ò.'), '<br>';
		undef $UserData{'password'};
	} elsif ($password ne "*") {
		print T('»ç¿ëÀÚ ¾ÏÈ£ º¯°æ.'), '<br>';
		$UserData{'password'} = $password;
	}
	if ($AdminPass ne "") {
		$password = &GetParam("p_adminpw",  "");
		if ($password eq "") {
			print T('°ü¸®ÀÚ ¾ÏÈ£ Áö¿ò.'), '<br>';
			undef $UserData{'adminpw'};
		} elsif ($password ne "*") {
			print T('°ü¸®ÀÚ ¾ÏÈ£ º¯°æ.'), '<br>';
			$UserData{'adminpw'} = $password;
			if (&UserIsAdmin()) {
				print T('»ç¿ëÀÚ´Â °ü¸®ÀÚ ±ÇÇÑÀ» °¡Áö°Ô µÊ.'), '<br>';
			} elsif (&UserIsEditor()) {
				print T('»ç¿ëÀÚ´Â ÆíÁýÀÚ(editor) ±ÇÇÑÀ» °¡Áö°Ô µÊ.'), '<br>';
			} else {
				print T('»ç¿ëÀÚ¿¡°Ô´Â °ü¸®ÀÚ ±ÇÇÑÀÌ ¾øÀ½.'), ' ',
							T('(°ü¸®ÀÚ ¾ÏÈ£°¡ ÀÏÄ¡ÇÏÁö ¾ÊÀ½.)'),
							'<br>';
			}
		}
	}
	if ($EmailNotify) {
		&UpdatePrefCheckbox("notify");
		&UpdateEmailList();
	}
	&UpdatePrefNumber("rcdays", 0, 0, 999999);
	&UpdatePrefCheckbox("rcnewtop");
	&UpdatePrefCheckbox("rcall");
	&UpdatePrefCheckbox("rcchangehist");
	&UpdatePrefCheckbox("editwide");
	if ($UseDiff) {
		&UpdatePrefCheckbox("norcdiff");
		&UpdatePrefCheckbox("diffrclink");
		&UpdatePrefCheckbox("alldiff");
		&UpdatePrefNumber("defaultdiff", 1, 1, 3);
	}
	&UpdatePrefNumber("rcshowedit", 1, 0, 2);
	&UpdatePrefNumber("tzoffset", 0, -999, 999);
	&UpdatePrefNumber("editrows", 1, 1, 999);
	&UpdatePrefNumber("editcols", 1, 1, 999);
	print T('¼­¹ö ½Ã°¢:'), ' ', &TimeToText($Now-$TimeZoneOffset), '<br>';
	$TimeZoneOffset = &GetParam("tzoffset", 0) * (60 * 60);
	print T('Áö¿ª ½Ã°¢:'), ' ', &TimeToText($Now), '<br>';

	$UserData{'id'} = $UserID;
	&SaveUserData();
	print '<b>', T('»ç¿ëÀÚ ¼³Á¤ÀÌ ÀúÀåµÇ¾úÀ½.'), '</b>';
	print &GetCommonFooter();
}

# add or remove email address from preferences to $DatDir/emails
sub UpdateEmailList {
	my (@old_emails);

	local $/ = "\n";  # don't slurp whole files in this sub.
	if (my $new_email = $UserData{'email'} = &GetParam("p_email", "")) {
		my $notify = $UserData{'notify'};
		if (-f "$DataDir/emails") {
			open(NOTIFY, "$DataDir/emails")
				or die(Ts('Could not read from %s:', "$DataDir/emails") . " $!\n");
			@old_emails = <NOTIFY>;
			close(NOTIFY);
		} else {
			@old_emails = ();
		}
		my $already_in_list = grep /$new_email/, @old_emails;
		if ($notify and (not $already_in_list)) {
			&RequestLock() or die(T('Could not get mail lock'));
			open(NOTIFY, ">>$DataDir/emails")
				or die(Ts('Could not append to %s:', "$DataDir/emails") . " $!\n");
			print NOTIFY $new_email, "\n";
			close(NOTIFY);
			&ReleaseLock();
		}
		elsif ((not $notify) and $already_in_list) {
			&RequestLock() or die(T('Could not get mail lock'));
			open(NOTIFY, ">$DataDir/emails")
				or die(Ts('Could not overwrite %s:', "$DataDir/emails") . " $!\n");
			foreach (@old_emails) {
				print NOTIFY "$_" unless /$new_email/;
			}
			close(NOTIFY);
			&ReleaseLock();
		}
	}
}

sub UpdatePrefCheckbox {
	my ($param) = @_;
	my $temp = &GetParam("p_$param", "*");

	$UserData{$param} = 1  if ($temp eq "on");
	$UserData{$param} = 0  if ($temp eq "*");
	# It is possible to skip updating by using another value, like "2"
}

sub UpdatePrefNumber {
	my ($param, $integer, $min, $max) = @_;
	my $temp = &GetParam("p_$param", "*");

	return  if ($temp eq "*");
	$temp =~ s/[^-\d\.]//g;
	$temp =~ s/\..*//  if ($integer);
	return  if ($temp eq "");
	return  if (($temp < $min) || ($temp > $max));
	$UserData{$param} = $temp;
	# Later consider returning status?
}

sub DoIndex {
	print &GetHeader('', T('Index of all pages'), '');
	print '<br>';
	&PrintPageList(&AllPagesList());
	print &GetCommonFooter();
}

# Create a new user file/cookie pair
sub DoNewLogin {
	# Later consider warning if cookie already exists
	# (maybe use "replace=1" parameter)
	$SetCookie{'randkey'} = int(rand(1000000000));
	$SetCookie{'rev'} = 1;
	%UserCookie = %SetCookie;
	$UserID = $SetCookie{'id'};
	# The cookie will be transmitted in the next header
	%UserData = %UserCookie;
	$UserData{'createtime'} = $Now;
	$UserData{'createip'} = $ENV{REMOTE_ADDR};
	&SaveUserData();
}

sub DoEnterLogin {
	print &GetHeader('', T('Login'), "");
	print &GetFormStart();
	print &ScriptLink("action=newlogin", T('»õ·Î µî·ÏÇϱâ<br>'));
	print &GetHiddenValue('enter_login', 1), "\n";
	print '<br>', T('»ç¿ëÀÚ¹øÈ£:'), ' ',
				$q->textfield(-name=>'p_userid', -value=>'',
											-size=>15, -maxlength=>50);
	print '<br>', T('»ç¿ëÀÚ¾ÏÈ£:'), ' ',
				$q->password_field(-name=>'p_password', -value=>'',
													 -size=>15, -maxlength=>50);
	print '<br>', $q->submit(-name=>'Login', -value=>T('Login')), "\n";
	print "<hr>\n";
	print &GetGotoBar('');
	print $q->endform;
	print &GetMinimumFooter();
}

sub DoLogin {
	my ($uid, $password, $success);

	$success = 0;
	$uid = &GetParam("p_userid", "");
	$password = &GetParam("p_password",  "");
	if (($password ne "") && ($password ne "*")) {
		$UserID = $uid;

		&LoadUserData();
		if (defined($UserData{'password'}) &&
				($UserData{'password'} eq $password)) {
			$SetCookie{'id'} = $uid;
			$SetCookie{'randkey'} = $UserData{'randkey'};
			$SetCookie{'rev'} = 1;
			$success = 1;
		}
		else {
			$SetCookie{'id'} = $uid;
		}
	}
	print &GetHeader('', T('Login Results'), '');

	if ($success) {
		print Ts('Login for user ID %s complete.', $uid);
	} else {
		print Ts('Login for user ID %s failed.', $uid);
	}
	print "<hr>\n";
	%UserCookie = %SetCookie;
	print &GetGotoBar('');
	print $q->endform;
	print &GetMinimumFooter();
}

# Later get user-level lock
sub SaveUserData {
	my ($userFile, $data);

	$userFile = &UserDataFilename($UserID);
	$data = join($FS1, %UserData);
	&WriteStringToFile($userFile, $data);
}

sub DoSearch {
	my ($string) = @_;
	my @x;

	if ($string eq '') {
		&DoIndex();
		return;
	}
	print &GetHeader('', &QuoteHtml(Ts('Search for: %s', $string)), '');
	print '<br>';
	@x = &SearchTitleAndBody($string);
	&PrintPageList(@x);

	if ($#x eq -1) {
		print &ScriptLink("action=edit&id=$string","$string À¸·Î »õ ÆäÀÌÁö ¸¸µé±â");
	}

	print &GetCommonFooter();
}

sub PrintPageList {
	my $pagename;

	print "<h2>", Ts('ÆäÀÌÁö ¼ö: %s', ($#_ + 1)), "</h2>\n";
	foreach $pagename (@_) {
		print ".... "  if ($pagename =~ m|/|);
		print &GetPageLink($pagename);

		if (&UserIsAdmin()) {
			print " | " . &ScriptLink("action=pagelock&set=1&id=" . $pagename, T('lock'));
			print " | " . &ScriptLink("action=pagelock&set=0&id=" . $pagename, T('unlock'));
		}
		print "<br>\n";
	}
}

sub DoLinks {
	print &GetHeader('', &QuoteHtml(T('Full Link List')), '');
	print "<pre>\n";  # Extra lines to get below the logo
	&PrintLinkList(&GetFullLinkList());
	print "</pre><hr>\n";
	print &GetMinimumFooter();
}

sub PrintLinkList {
	my ($pagelines, $page, $names, $editlink);
	my ($link, $extra, @links, %pgExists);

	%pgExists = ();
	foreach $page (&AllPagesList()) {
		$pgExists{$page} = 1;
	}
	$names = &GetParam("names", 1);
	$editlink = &GetParam("editlink", 0);
	foreach $pagelines (@_) {
		@links = ();
		foreach $page (split(' ', $pagelines)) {
			if ($page =~ /\:/) {  # URL or InterWiki form
				if ($page =~ /$UrlPattern/) {
					($link, $extra) = &UrlLink($page);
				} else {
					($link, $extra) = &InterPageLink($page);
				}
			} else {
				if ($pgExists{$page}) {
					$link = &GetPageLink($page);
				} else {
					$link = $page;
					if ($editlink) {
						$link .= &GetEditLink($page, "?");
					}
				}
			}
			push(@links, $link);
		}
		if (!$names) {
			shift(@links);
		}
		print join(' ', @links), "\n";
	}
}

sub GetFullLinkList {
	my ($name, $unique, $sort, $exists, $empty, $link, $search);
	my ($pagelink, $interlink, $urllink);
	my (@found, @links, @newlinks, @pglist, %pgExists, %seen);

	$unique = &GetParam("unique", 1);
	$sort = &GetParam("sort", 1);
	$pagelink = &GetParam("page", 1);
	$interlink = &GetParam("inter", 0);
	$urllink = &GetParam("url", 0);
	$exists = &GetParam("exists", 2);
	$empty = &GetParam("empty", 0);
	$search = &GetParam("search", "");
	if (($interlink == 2) || ($urllink == 2)) {
		$pagelink = 0;
	}

	%pgExists = ();
	@pglist = &AllPagesList();
	foreach $name (@pglist) {
		$pgExists{$name} = 1;
	}
	%seen = ();
	foreach $name (@pglist) {
		@newlinks = ();
		if ($unique != 2) {
			%seen = ();
		}
		@links = &GetPageLinks($name, $pagelink, $interlink, $urllink);

		foreach $link (@links) {
			$seen{$link}++;
			if (($unique > 0) && ($seen{$link} != 1)) {
				next;
			}
			if (($exists == 0) && ($pgExists{$link} == 1)) {
				next;
			}
			if (($exists == 1) && ($pgExists{$link} != 1)) {
				next;
			}
			if (($search ne "") && !($link =~ /$search/)) {
				next;
			}
			push(@newlinks, $link);
		}
		@links = @newlinks;
		if ($sort) {
			@links = sort(@links);
		}
		unshift (@links, $name);
		if ($empty || ($#links > 0)) {  # If only one item, list is empty.
			push(@found, join(' ', @links));
		}
	}
	return @found;
}

sub GetPageLinks {
	my ($name, $pagelink, $interlink, $urllink) = @_;
	my ($text, @links);

	@links = ();
	&OpenPage($name);
	&OpenDefaultText();
	$text = $Text{'text'};
	$text =~ s/<html>((.|\n)*?)<\/html>/ /ig;
	$text =~ s/<nowiki>(.|\n)*?\<\/nowiki>/ /ig;
	$text =~ s/<pre>(.|\n)*?\<\/pre>/ /ig;
	$text =~ s/<code>(.|\n)*?\<\/code>/ /ig;
	if ($interlink) {
		$text =~ s/''+/ /g;  # Quotes can adjacent to inter-site links
		$text =~ s/$InterLinkPattern/push(@links, &StripUrlPunct($1)), ' '/ge;
	} else {
		$text =~ s/$InterLinkPattern/ /g;
	}
	if ($urllink) {
		$text =~ s/''+/ /g;  # Quotes can adjacent to URLs
		$text =~ s/$UrlPattern/push(@links, &StripUrlPunct($1)), ' '/ge;
	} else {
		$text =~ s/$UrlPattern/ /g;
	}
	if ($pagelink) {
		if ($FreeLinks) {
			my $fl = $FreeLinkPattern;
			$text =~ s/\[\[$fl\|[^\]]+\]\]/push(@links, &FreeToNormal($1)), ' '/ge;
			$text =~ s/\[\[$fl\]\]/push(@links, &FreeToNormal($1)), ' '/ge;
		}
		if ($WikiLinks) {
			$text =~ s/$LinkPattern/push(@links, &StripUrlPunct($1)), ' '/ge;
		}
	}
	return @links;
}

sub DoPost {
	my ($editDiff, $old, $newAuthor, $pgtime, $oldrev, $preview, $user);
	my $string = &GetParam("text", undef);
	my $id = &GetParam("title", "");
	my $summary = &GetParam("summary", "");
	my $oldtime = &GetParam("oldtime", "");
	my $oldconflict = &GetParam("oldconflict", "");
	my $isEdit = 0;
	my $editTime = $Now;
	my $authorAddr = $ENV{REMOTE_ADDR};

	if (!&UserCanEdit($id, 1)) {
		# This is an internal interface--we don't need to explain
		&ReportError(Ts('Editing not allowed for %s.', $id));
		return;
	}

	if (($id eq 'SampleUndefinedPage') || ($id eq T('SampleUndefinedPage'))) {
		&ReportError(Ts('%s cannot be defined.', $id));
		return;
	}
	if (($id eq 'Sample_Undefined_Page')
			|| ($id eq T('Sample_Undefined_Page'))) {
		&ReportError(Ts('[[%s]] cannot be defined.', $id));
		return;
	}
	$string =~ s/$FS//g;
	$summary =~ s/$FS//g;
	$summary =~ s/[\r\n]//g;
	# Add a newline to the end of the string (if it doesn't have one)
	$string .= "\n"  if (!($string =~ /\n$/));

	# Remove "\r"-s (0x0d) from the string
	$string =~ s/\r//g;
	
	# Lock before getting old page to prevent races
	&RequestLock() or die(T('Could not get editing lock'));
	# Consider extracting lock section into sub, and eval-wrap it?
	# (A few called routines can die, leaving locks.)
	&OpenPage($id);
	&OpenDefaultText();
	$old = $Text{'text'};
	$oldrev = $Section{'revision'};
	$pgtime = $Section{'ts'};

	$preview = 0;
	$preview = 1  if (&GetParam("Preview", "") ne "");
	if (!$preview && ($old eq $string)) {  # No changes (ok for preview)
		&ReleaseLock();
		&ReBrowsePage($id, "", 1);
		return;
	}
	# Later extract comparison?
#	if (($UserID > 399) || ($Section{'id'} > 399))  {
	if (($UserID ne "") || ($Section{'id'} ne ""))  {
		$newAuthor = ($UserID ne $Section{'id'});       # known user(s)
	} else {
		$newAuthor = ($Section{'ip'} ne $authorAddr);  # hostname fallback
	}
	$newAuthor = 1  if ($oldrev == 0);  # New page
	$newAuthor = 0  if (!$newAuthor);   # Standard flag form, not empty
	# Detect editing conflicts and resubmit edit
	if (($oldrev > 0) && ($newAuthor && ($oldtime != $pgtime))) {
		&ReleaseLock();
		if ($oldconflict>0) {  # Conflict again...
			&DoEdit($id, 2, $pgtime, $string, $preview);
		} else {
			&DoEdit($id, 1, $pgtime, $string, $preview);
		}
		return;
	}
	if ($preview) {
		&ReleaseLock();
		&DoEdit($id, 0, $pgtime, $string, 1);
		return;
	}

	$user = &GetParam("username", "");
	# If the person doing editing chooses, send out email notification
	if ($EmailNotify) {
		EmailNotify($id, $user) if &GetParam("do_email_notify", "") eq 'on';
	}
	if (&GetParam("recent_edit", "") eq 'on') {
		$isEdit = 1;
	}
	if (!$isEdit) {
		&SetPageCache('oldmajor', $Section{'revision'});
	}
	if ($newAuthor) {
		&SetPageCache('oldauthor', $Section{'revision'});
	}
	&SaveKeepSection();
	&ExpireKeepFile();
	if ($UseDiff) {
		&UpdateDiffs($id, $editTime, $old, $string, $isEdit, $newAuthor);
	}
	$Text{'text'} = $string;
	$Text{'minor'} = $isEdit;
	$Text{'newauthor'} = $newAuthor;
	$Text{'summary'} = $summary;
	$Section{'host'} = &GetRemoteHost(1);
	&SaveDefaultText();
	&SavePage();
	&WriteRcLog($id, $summary, $isEdit, $editTime, $user, $Section{'host'});
	if ($UseCache) {
		UnlinkHtmlCache($id);          # Old cached copy is invalid
		if ($Page{'revision'} < 2) {   # If this is a new page...
			&NewPageCacheClear($id);     # ...uncache pages linked to this one.
		}
	}
	if ($UseIndex && ($Page{'revision'} == 1)) {
		unlink($IndexFile);  # Regenerate index on next request
	}
	&ReleaseLock();
	&ReBrowsePage($id, "", 1);
}

sub UpdateDiffs {
	my ($id, $editTime, $old, $new, $isEdit, $newAuthor) = @_;
	my ($editDiff, $oldMajor, $oldAuthor);

	$editDiff  = &GetDiff($old, $new, 0);     # 0 = already in lock
	$oldMajor  = &GetPageCache('oldmajor');
	$oldAuthor = &GetPageCache('oldauthor');
	if ($UseDiffLog) {
		&WriteDiff($id, $editTime, $editDiff);
	}
	&SetPageCache('diff_default_minor', $editDiff);
	if ($isEdit || !$newAuthor) {
		&OpenKeptRevisions('text_default');
	}
	if (!$isEdit) {
		&SetPageCache('diff_default_major', "1");
	} else {
		&SetPageCache('diff_default_major', &GetKeptDiff($new, $oldMajor, 0));
	}
	if ($newAuthor) {
		&SetPageCache('diff_default_author', "1");
	} elsif ($oldMajor == $oldAuthor) {
		&SetPageCache('diff_default_author', "2");
	} else {
		&SetPageCache('diff_default_author', &GetKeptDiff($new, $oldAuthor, 0));
	}
}

# Translation note: the email messages are still sent in English
# Send an email message.
sub SendEmail {
	my ($to, $from, $reply, $subject, $message) = @_;
		### debug
		## print "Content-type: text/plain\n\n";
		## print " to: '$to'\n";
		## return;
	# sendmail options:
	#    -odq : send mail to queue (i.e. later when convenient)
	#    -oi  : do not wait for "." line to exit
	#    -t   : headers determine recipient.
	open (SENDMAIL, "| $SendMail -oi -t ") or die "Can't send email: $!\n";
	print SENDMAIL <<"EOF";
From: $from
To: $to
Reply-to: $reply
Subject: $subject\n
$message
EOF
	close(SENDMAIL) or warn "sendmail didn't close nicely";
}

## Email folks who want to know a note that a page has been modified. - JimM.
sub EmailNotify {
	local $/ = "\n";   # don't slurp whole files in this sub.
	if ($EmailNotify) {
		my ($id, $user) = @_;
		if ($user) {
			$user = " by $user";
		}
		my $address;
		open(EMAIL, "$DataDir/emails")
			or die "Can't open $DataDir/emails: $!\n";
		$address = join ",", <EMAIL>;
		$address =~ s/\n//g;
		close(EMAIL);
		my $home_url = $q->url();
		my $page_url = $home_url . "?$id";
		my $editors_summary = $q->param("summary");
		if (($editors_summary eq "*") or ($editors_summary eq "")){
			$editors_summary = "";
		}
		else {
			$editors_summary = "\n Summary: $editors_summary";
		}
		my $content = <<"END_MAIL_CONTENT";

 The $SiteName page $id at
	 $page_url
 has been changed$user to revision $Page{revision}. $editors_summary

 (Replying to this notification will
	send email to the entire mailing list,
	so only do that if you mean to.

	To remove yourself from this list, visit
	${home_url}?action=editprefs .)
END_MAIL_CONTENT
		my $subject = "The $id page at $SiteName has been changed.";
		# I'm setting the "reply-to" field to be the same as the "to:" field
		# which seems appropriate for a mailing list, especially since the
		# $EmailFrom string needn't be a real email address.
		&SendEmail($address, $EmailFrom, $address, $subject, $content);
	}
}

sub SearchTitleAndBody {
	my ($string) = @_;
	my ($name, $freeName, @found);

	foreach $name (&AllPagesList()) {
		&OpenPage($name);
		&OpenDefaultText();
		if (($Text{'text'} =~ /$string/i) || ($name =~ /$string/i)) {
			push(@found, $name);
		} elsif ($FreeLinks && ($name =~ m/_/)) {
			$freeName = $name;
			$freeName =~ s/_/ /g;
			if ($freeName =~ /$string/i) {
				push(@found, $name);
			}
		}
	}
	return @found;
}

sub SearchBody {
	my ($string) = @_;
	my ($name, @found);

	foreach $name (&AllPagesList()) {
		&OpenPage($name);
		&OpenDefaultText();
		if ($Text{'text'} =~ /$string/i){
			push(@found, $name);
		}
	}
	return @found;
}

sub UnlinkHtmlCache {
	my ($id) = @_;
	my $idFile;

	$idFile = &GetHtmlCacheFile($id);
	if (-f $idFile) {
		unlink($idFile);
	}
}

sub NewPageCacheClear {
	my ($id) = @_;
	my $name;

	return if (!$UseCache);
	$id =~ s|.+/|/|;  # If subpage, search for just the subpage
	# The following code used to search the body for the $id
	foreach $name (&AllPagesList()) {  # Remove all to be safe
		&UnlinkHtmlCache($name);
	}
}

# Note: all diff and recent-list operations should be done within locks.
sub DoUnlock {
	my $LockMessage = T('Normal Unlock.');

	print &GetHeader('', T('Removing edit lock'), '');
	print '<p>', T('This operation may take several seconds...'), "\n";
	if (&ForceReleaseLock('main')) {
		$LockMessage = T('Forced Unlock.');
	}
	# Later display status of other locks?
	&ForceReleaseLock('cache');
	&ForceReleaseLock('diff');
	&ForceReleaseLock('index');
	print "<br><h2>$LockMessage</h2>";
	print &GetCommonFooter();
}

# Note: all diff and recent-list operations should be done within locks.
sub WriteRcLog {
	my ($id, $summary, $isEdit, $editTime, $name, $rhost) = @_;
	my ($extraTemp, %extra);

	%extra = ();
	$extra{'id'} = $UserID  if ($UserID ne "");
	$extra{'name'} = $name  if ($name ne "");
	$extraTemp = join($FS2, %extra);
	# The two fields at the end of a line are kind and extension-hash
	my $rc_line = join($FS3, $editTime, $id, $summary,
										 $isEdit, $rhost, "0", $extraTemp);
	if (!open(OUT, ">>$RcFile")) {
		die(Ts('%s log error:', $RCName) . " $!");
	}
	print OUT  $rc_line . "\n";
	close(OUT);
}

sub WriteDiff {
	my ($id, $editTime, $diffString) = @_;

	open (OUT, ">>$DataDir/diff_log") or die(T('can not write diff_log'));
	print OUT  "------\n" . $id . "|" . $editTime . "\n";
	print OUT  $diffString;
	close(OUT);
}

sub DoMaintain {
	my ($name, $fname, $data);
	print &GetHeader('', T('Maintenance on all pages'), '');
	print "<br>";
	$fname = "$DataDir/maintain";
	if (!&UserIsAdmin()) {
		if ((-f $fname) && ((-M $fname) < 0.5)) {
			print T('Maintenance not done.'), ' ';
			print T('(Maintenance can only be done once every 12 hours.)');
			print ' ', T('Remove the "maintain" file or wait.');
			print &GetCommonFooter();
			return;
		}
	}
	&RequestLock() or die(T('Could not get maintain-lock'));
	foreach $name (&AllPagesList()) {
		&OpenPage($name);
		&OpenDefaultText();
		&ExpireKeepFile();
		print ".... "  if ($name =~ m|/|);
		print &GetPageLink($name), "<br>\n";
	}
	&WriteStringToFile($fname, "Maintenance done at " . &TimeToText($Now));
	&ReleaseLock();
	# Do any rename/deletion commands
	# (Must be outside lock because it will grab its own lock)
	$fname = "$DataDir/editlinks";
	if (-f $fname) {
		$data = &ReadFileOrDie($fname);
		print '<hr>', T('Processing rename/delete commands:'), "<br>\n";
		&UpdateLinksList($data, 1, 1);  # Always update RC and links
		unlink("$fname.old");
		rename($fname, "$fname.old");
	}
	print &GetCommonFooter();
}

sub UserIsEditorOrError {
	if (!&UserIsEditor()) {
		print '<p>', T('This operation is restricted to site editors only...');
		print &GetCommonFooter();
		return 0;
	}
	return 1;
}

sub UserIsAdminOrError {
	if (!&UserIsAdmin()) {
		print '<p>', T('This operation is restricted to administrators only...');
		print &GetCommonFooter();
		return 0;
	}
	return 1;
}

sub DoEditLock {
	my ($fname);

	print &GetHeader('', T('Set or Remove global edit lock'), '');
	return  if (!&UserIsAdminOrError());
	$fname = "$DataDir/noedit";
	if (&GetParam("set", 1)) {
		&WriteStringToFile($fname, "editing locked.");
	} else {
		unlink($fname);
	}
	if (-f $fname) {
		print '<p>', T('Edit lock created.'), '<br>';
	} else {
		print '<p>', T('Edit lock removed.'), '<br>';
	}
	print &GetCommonFooter();
}

sub DoPageLock {
	my ($fname, $id);

	print &GetHeader('', T('Set or Remove page edit lock'), '');
	# Consider allowing page lock/unlock at editor level?
	return  if (!&UserIsAdminOrError());
	$id = &GetParam("id", "");
	if ($id eq "") {
		print '<p>', T('Missing page id to lock/unlock...');
		return;
	}
	return  if (!&ValidIdOrDie($id));       # Later consider nicer error?
	$fname = &GetLockedPageFile($id);
	if (&GetParam("set", 1)) {
		&WriteStringToFile($fname, "editing locked.");
	} else {
		unlink($fname);
	}
	if (-f $fname) {
		print '<p>', Ts('Lock for %s created.', $id), '<br>';
	} else {
		print '<p>', Ts('Lock for %s removed.', $id), '<br>';
	}
	print &GetCommonFooter();
}

sub DoEditBanned {
	my ($banList, $status);

	print &GetHeader("", "Editing Banned list", "");
	return  if (!&UserIsAdminOrError());
	($status, $banList) = &ReadFile("$DataDir/banlist");
	$banList = ""  if (!$status);
	print &GetFormStart();
	print GetHiddenValue("edit_ban", 1), "\n";
	print "<b>Banned IP/network/host list:</b><br>\n";
	print "<p>Each entry is either a commented line (starting with #), ",
				"or a Perl regular expression (matching either an IP address or ",
				"a hostname).  <b>Note:</b> To test the ban on yourself, you must ",
				"give up your admin access (remove password in Preferences).";
	print "<p>Examples:<br>",
				"\\.foocorp.com\$  (blocks hosts ending with .foocorp.com)<br>",
				"^123.21.3.9\$  (blocks exact IP address)<br>",
				"^123.21.3.  (blocks whole 123.21.3.* IP network)<p>";
	print &GetTextArea('banlist', $banList, 12, 50);
	print "<br>", $q->submit(-name=>'Save'), "\n";
	print "<hr>\n";
	print &GetGotoBar("");
	print $q->endform;
	print &GetMinimumFooter();
}

sub DoUpdateBanned {
	my ($newList, $fname);

	print &GetHeader("", "Updating Banned list", "");
	return  if (!&UserIsAdminOrError());
	$fname = "$DataDir/banlist";
	$newList = &GetParam("banlist", "#Empty file");
	if ($newList eq "") {
		print "<p>Empty banned list or error.";
		print "<p>Resubmit with at least one space character to remove.";
	} elsif ($newList =~ /^\s*$/s) {
		unlink($fname);
		print "<p>Removed banned list";
	} else {
		&WriteStringToFile($fname, $newList);
		print "<p>Updated banned list";
	}
	print &GetCommonFooter();
}

# ==== Editing/Deleting pages and links ====
sub DoEditLinks {
	print &GetHeader("", "Editing Links", "");
	if ($AdminDelete) {
		return  if (!&UserIsAdminOrError());
	} else {
		return  if (!&UserIsEditorOrError());
	}
	print &GetFormStart();
	print GetHiddenValue("edit_links", 1), "\n";
	print "<b>ÆäÀÌÁö Á¦¸ñ ¼öÁ¤ ¶Ç´Â ÆäÀÌÁö »èÁ¦:</b><br>\n";
	print "<p>ÇÑ ÁÙ¿¡ ÇÑ ¸í·É¾¿ ÀÔ·ÂÇϽÿÀ. ¸í·ÉÀº ´ÙÀ½°ú °°½À´Ï´Ù:<br>",
				"<tt>!ÆäÀÌÁö¸í</tt> -- 'ÆäÀÌÁö¸í'¿¡ ÇØ´çÇÏ´Â ÆäÀÌÁö »èÁ¦<br>\n",
				"<tt>=ÀÌÀüÆäÀÌÁö¸í=»õÆäÀÌÁö¸í</tt> -- 'ÀÌÀüÆäÀÌÁö¸í'À» '»õÆäÀÌÁö¸í'À¸·Î º¯°æ. 'ÀÌÀüÆäÀÌÁö¸í'À» °®´Â ¸ðµç ¸µÅ© º¯°æ<br>\n",
				"<tt>|ÀÌÀüÆäÀÌÁö¸í|»õÆäÀÌÁö¸í</tt> -- 'ÀÌÀüÆäÀÌÁö¸í'À» ÂüÁ¶ÇÏ´Â ¸ðµç ¸µÅ©¸¦ '»õÆäÀÌÁö¸í'À¸·Î º¯°æ",
				" (Á¸ÀçÇÏÁö ¾Ê´Â ÆäÀÌÁö·Î ÇâÇÏ´Â ¸µÅ©¸¦ ¼öÁ¤ÇÒ ¶§ »ç¿ë.)<br>\n";
	print &GetTextArea('commandlist', "", 12, 50);
	print $q->checkbox(-name=>"p_changerc", -override=>1, -checked=>1,
											-label=>"Edit $RCName");
	print "<br>\n";
	print $q->checkbox(-name=>"p_changetext", -override=>1, -checked=>1,
											-label=>"Substitute text for rename");
	print "<br>", $q->submit(-name=>'Edit'), "\n";
	print "<hr>\n";
	print &GetGotoBar("");
	print $q->endform;
	print &GetMinimumFooter();
}

sub UpdateLinksList {
	my ($commandList, $doRC, $doText) = @_;

	if ($doText) {
		&BuildLinkIndex();
	}
	&RequestLock() or die "UpdateLinksList could not get main lock";
	unlink($IndexFile)  if ($UseIndex);
	foreach (split(/\n/, $commandList)) {
		s/\s+$//g;
		next  if (!(/^[=!|]/));  # Only valid commands.
		print "Processing $_<br>\n";
		if (/^\!(.+)/) {
			&DeletePage($1, $doRC, $doText);
		} elsif (/^\=(?:\[\[)?([^]=]+)(?:\]\])?\=(?:\[\[)?([^]=]+)(?:\]\])?/) {
			&RenamePage($1, $2, $doRC, $doText);
		} elsif (/^\|(?:\[\[)?([^]|]+)(?:\]\])?\|(?:\[\[)?([^]|]+)(?:\]\])?/) {
			&RenameTextLinks($1, $2);
		}
	}
	&NewPageCacheClear(".");  # Clear cache (needs testing?)
	unlink($IndexFile)  if ($UseIndex);
	&ReleaseLock();
}

sub BuildLinkIndex {
	my (@pglist, $page, @links, $link, %seen);

	@pglist = &AllPagesList();
	%LinkIndex = ();
	foreach $page (@pglist) {
		&BuildLinkIndexPage($page);
	}
}

sub BuildLinkIndexPage {
	my ($page) = @_;
	my (@links, $link, %seen);

	@links = &GetPageLinks($page, 1, 0, 0);
	%seen = ();
	foreach $link (@links) {
		if (defined($LinkIndex{$link})) {
			if (!$seen{$link}) {
				$LinkIndex{$link} .= " " . $page;
			}
		} else {
			$LinkIndex{$link} .= " " . $page;
		}
		$seen{$link} = 1;
	}
}

sub DoUpdateLinks {
	my ($commandList, $doRC, $doText);

	print &GetHeader("", "Updating Links", "");
	if ($AdminDelete) {
		return  if (!&UserIsAdminOrError());
	} else {
		return  if (!&UserIsEditorOrError());
	}
	$commandList = &GetParam("commandlist", "");
	$doRC   = &GetParam("p_changerc", "0");
	$doRC   = 1  if ($doRC eq "on");
	$doText = &GetParam("p_changetext", "0");
	$doText = 1  if ($doText eq "on");
	if ($commandList eq "") {
		print "<p>Empty command list or error.";
	} else {
		&UpdateLinksList($commandList, $doRC, $doText);
		print "<p>Finished command list.";
	}
	print &GetCommonFooter();
}

sub EditRecentChanges {
	my ($action, $old, $new) = @_;

	&EditRecentChangesFile($RcFile,    $action, $old, $new);
	&EditRecentChangesFile($RcOldFile, $action, $old, $new);
}

sub EditRecentChangesFile {
	my ($fname, $action, $old, $new) = @_;
	my ($status, $fileData, $errorText, $rcline, @rclist);
	my ($outrc, $ts, $page, $junk);

	($status, $fileData) = &ReadFile($fname);
	if (!$status) {
		# Save error text if needed.
		$errorText = "<p><strong>Could not open $RCName log file:"
								 . "</strong> $fname<p>Error was:\n<pre>$!</pre>\n";
		print $errorText;   # Maybe handle differently later?
		return;
	}
	$outrc = "";
	@rclist = split(/\n/, $fileData);
	foreach $rcline (@rclist) {
		($ts, $page, $junk) = split(/$FS3/, $rcline);
		if ($page eq $old) {
			if ($action == 1) {  # Delete
				; # Do nothing (don't add line to new RC)
			} elsif ($action == 2) {
				$junk = $rcline;
				$junk =~ s/^(\d+$FS3)$old($FS3)/"$1$new$2"/ge;
				$outrc .= $junk . "\n";
			}
		} else {
			$outrc .= $rcline . "\n";
		}
	}
	&WriteStringToFile($fname . ".old", $fileData);  # Backup copy
	&WriteStringToFile($fname, $outrc);
}

# Delete and rename must be done inside locks.
sub DeletePage {
	my ($page, $doRC, $doText) = @_;
	my ($fname, $status);

	$page =~ s/ /_/g;
	$page =~ s/\[+//;
	$page =~ s/\]+//;
	$status = &ValidId($page);
	if ($status ne "") {
		print "Delete-Page: page $page is invalid, error is: $status<br>\n";
		return;
	}

	$fname = &GetPageFile($page);
	unlink($fname)  if (-f $fname);
	$fname = $KeepDir . "/" . &GetPageDirectory($page) .  "/$page.kp";
	unlink($fname)  if (-f $fname);
	unlink($IndexFile)  if ($UseIndex);
	&EditRecentChanges(1, $page, "")  if ($doRC);  # Delete page
	# Currently don't do anything with page text
}

# Given text, returns substituted text
sub SubstituteTextLinks {
	my ($old, $new, $text) = @_;

	# Much of this is taken from the common markup
	%SaveUrl = ();
	$SaveUrlIndex = 0;
	$text =~ s/$FS//g;              # Remove separators (paranoia)
	if ($RawHtml) {
		$text =~ s/(<html>((.|\n)*?)<\/html>)/&StoreRaw($1)/ige;
	}
	$text =~ s/(<pre>((.|\n)*?)<\/pre>)/&StoreRaw($1)/ige;
	$text =~ s/(<code>((.|\n