# -*- mode: cperl -*- do '/home/alex/password.pl'; $Translate{'You are a normal user on this site.'} = 'You are a normal user on this site.' . ' You can request an editor password' . ' ' . 'via mail.'; # $SurgeProtectionTime = 100; # Size of the protected window in seconds # $SurgeProtectionViews = 10; # How many page views to allow in this window $ENV{PATH} = '/bin:/usr/bin'; $ScriptName = "http://www.communitywiki.org/en"; $FullUrl = "http://www.communitywiki.org/cgi-bin/cw-en.pl"; # for POST @QuestionaskerQuestions = (['Please say HELLO.' => sub { shift =~ /^\s*hello!*\s*$/i }], ); $SvgEditorUrl = '/editor/svg-editor.html'; $UploadAllowed = 1; $InstanceThrottleLimit = 10; push(@UploadTypes, 'application/x-xfig', 'image/x-xfig', 'text/plain', 'image/svg+xml', 'application/pdf', ); push(@MyInitVariables, sub { # delete $AdminPages{$BannedContent}; delete $AdminPages{$BannedHosts}; }); $ImageUrlPath = '/pics'; $NetworkFile = 0; $BracketWiki = 1; $CookieName = "Community"; $SiteName = "CommunityWiki"; $HomePage = "FrontPage"; $LocalNamesPage = "CommunityLocalNames"; $LogoUrl = "http://www.communitywiki.org/pics/comwiki7-150.png"; $StyleSheet = 'http://www.communitywiki.org/green.css'; $RssStyleSheet = $StyleSheet; $RcDefault = 7; @RcDays = qw(1 3 7 14 21 28); $KeepDays = 21; $RefererTimeLimit = 60 * 60 * 24; # twenty four hours $SummaryHours = 14*24; $CommentsPrefix = ''; $CalendarOnEveryPage = 0; $MarkupSingles{'=>'} = '⇒'; # RIGHTWARDS DOUBLE ARROW $MarkupForcedPairs{'++'} = $MarkupPairs{'+'} = ['em', {'class'=>'highlight'}]; $FooterNote = qq{
This work is licensed under a Creative Commons License. Furthermore, permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation. See CommunityWikiLicense for more.
Please make sure you contribute only your own work, unless you fully understand the copyright implications of submitting someone else's work. By contributing here, you grant CommunityWiki permission to publish your work under the terms of the CommunityWikiLicense.
Empty lines separate paragraphs. Paragraphs may span several lines. Asterixes ('*') introduce list items. One list item per line. Plain URLs get hyperlinked. Words in camel case (mixed case) are transformed into local links. Indent source code with four spaces. If the first line contains nothing but a local link, then the page will belong to that Cluster.
Please UseRealNames when contributing. See DenotingAuthor for more info about the faces of contributors you see on some pages. IP numbers are made available via the page history. If you want to keep it a secret, you need to use Tor.
}; $InterWikiMoniker = "CommunityWiki"; $SiteDescription = "The multilingual copyleft wiki on communities."; $RssImageUrl = ""; $RssPublisher = "Alex Schroeder"; $RssContributor = "The CommunityWiki community"; $RssRights = "Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation. This text is also licensed under the Creative Commons ShareAlike license."; $HtmlHeaders .= qq{ }; # No purple numbers anymore! 2006-08-17_Feature_Karma # $HtmlHeaders .= ''; $SearchFreeTextTagUrl = '/cw?search=tag%3a'; $SisterSiteLogoUrl = '/pics/%s.png'; @UserGotoBarPages = ($HomePage, 'SiteMap', $RCName, 'RecentNearChanges', 'HowTo', 'Blog'); push (@MyInitVariables, sub { $UserGotoBar .= qq{ '; $UserGotoBar .= '
';
});
# This is a read-only copy of the real site while we move!
# update http://www.communitywiki.org/cgi-bin/wiki.pl?LanguageIdentification
# watch out: non-ascii characters are more than one byte, so in perl [ж] may
# match other combinations of these two bytes.
%Languages = (
'en' => ' (the|that|and|why|what) ',
'de' => ' (der|das|und|oder) ',
'fr' => ' (et|une|les|ou|est|je|avec|même) ',
'it' => ' (gli|che|perchè|così) ',
'es' => '(¡|¿|ñ)',
'ru' => '(т|р|а|н|ц|э|о|м|е|в|л|ы|ч|ж)',
'zh' => '(是|但|這|这|你|了|啊|沒)',
'pt' => '(ã|õ)',
'se' => ' (är|från|för) ',
'ja' => '(ま|す|ん|し|ょ|う|の|は)',
);
# *OldGetCommentForm = *GetCommentForm;
# *GetCommentForm = *NewGetCommentForm;
# sub NewGetCommentForm {
# return OldGetCommentForm(@_)
# . $q->div({-class=>'placeholder'}, '');
# }
sub MyRules {
if (m/\G<br>/gc) {
return '