lock-expiration.t: test fake time

Fake time requires changes to wiki.pl. We created a test-wiki.pl with a
preamble that changes how the time and sleep builtins work. This is used
in lock-expiration.t as a proof of concept.

.gitignore

@@ -1,10 +1,8 @@
 *~
 /build/
 \#*\#
-/test-data*
+/test-data
 /Mac/pkg/
 *.dmg
 *.pkg
 .DS_Store
-wiki.log
-.prove

Makefile

@@ -3,7 +3,7 @@
 # subdirectory.
 
 VERSION_NO=$(shell git describe --tags)
-TRANSLATIONS=$(wildcard modules/translations/[a-z]*-utf8.pl$)
+TRANSLATIONS=$(wildcard modules/translations/[a-z]*.pl$)
 MODULES=$(wildcard modules/*.pl)
 BUILD=build/wiki.pl $(foreach file, $(notdir $(MODULES)) $(notdir $(TRANSLATIONS)), build/$(file))
 
@@ -38,21 +38,11 @@ build/month-names-%.pl: modules/translations/month-names-%.pl
 build/%.pl: modules/%.pl
 	perl -lne "s/(AddModuleDescription\('[^']+', '[^']+')\)/\$$1, undef, '$(VERSION_NO)')/; print" < $< > $@
 
-modules/translations/new-utf8.pl: wiki.pl $(MODULES)
-	cp $@ $@-old
-	perl stuff/oddtrans -l $@-old wiki.pl $(MODULES) > $@
-	rm -f $@-old
-
 translations: $(TRANSLATIONS)
 	for f in $^; do \
 	  echo updating $$f...; \
-	  perl stuff/oddtrans -l $$f wiki.pl $(MODULES) > $$f-new && mv $$f-new $$f; \
+	  perl oddtrans -l $$f wiki.pl $(MODULES) > $$f-new && mv $$f-new $$f; \
 	done
 
-# Running four jobs in parallel, but clean up data directories without
-# race conditions!
-
-jobs ?= 4
 test:
-	prove t/setup.pl
-	prove --jobs=$(jobs) --state=slow,save t
+	prove t

README.creole

@@ -1,5 +1,5 @@
 This is the README file distributed together with the
-[[https://oddmuse.org/|Oddmuse]] script.
+[[http://oddmuse.org/|Oddmuse]] script.
 
 == Installing Oddmuse on a Debian System running Apache
 
@@ -82,7 +82,7 @@ putting their names in {{{[[double square brackets]]}}}.
 
 Enjoy your wiki experience.
 
-Visit https://www.oddmuse.org/ to learn more about the translation
+Visit http://www.oddmuse.org/ to learn more about the translation
 files and modules that are part of this package.
 
 == Apache
@@ -136,7 +136,7 @@ simply restart it all:
 sudo service apache2 graceful
 }}}
 
-== License
+----------------------------------------------------------------------
 
 Permission is granted to copy, distribute and/or modify this document
 under the terms of the GNU Free Documentation License, Version 1.1 or
@@ -153,7 +153,5 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 General Public License for more details.
 
 Both the GNU Free Documentation License, and the GNU General Public
-License are distributed together with this script. See the files
-[[https://github.com/kensanata/oddmuse/blob/master/FDL|FDL]] and
-[[https://github.com/kensanata/oddmuse/blob/master/GPL|GPL]],
-respectively.
+License are distributed together with this script.  See the files FDL
+and GPL, respectively.

contrib/campaignwiki/README

@@ -1,4 +1,4 @@
-The files in this directory are used to run https://campaignwiki.org/
+The files in this directory are used to run http://campaignwiki.org/
 
 add-link.pl
 ===========
@@ -8,7 +8,7 @@ bookmark site: A few pages make up a big unordered list of links in
 wiki format. add-link is a tool to help users contribute new links to
 the list.
 
-https://campaignwiki.org/wiki/LinksToWisdom/HomePage
+http://campaignwiki.org/wiki/LinksToWisdom/HomePage
 
 copy.pl
 =======
@@ -17,7 +17,7 @@ This is used to copy the text from a web page to a wiki page. The idea
 was to keep archive copies of cool pages somewhere. The Blog Archive
 never got used, though.
 
-https://campaignwiki.org/wiki/BlogArchive/HomePage
+http://campaignwiki.org/wiki/BlogArchive/HomePage
 
 monster-tag.pl
 ==============
@@ -25,7 +25,7 @@ monster-tag.pl
 This is used to quickly tag many pages in the Monsters wiki. The
 Monsters wiki hasn't been used in a long time, though.
 
-https://campaignwiki.org/wiki/Monsters/HomePage
+http://campaignwiki.org/wiki/Monsters/HomePage
 
 submit.pl
 =========
@@ -34,4 +34,4 @@ This used to be used to add sites to the Old School RPG Planet. The
 aggregator was configured via a wiki page on the Planet wiki. It's now
 abandoned.
 
-https://campaignwiki.org/wiki/Planet/HomePage
+http://campaignwiki.org/wiki/Planet/HomePage

contrib/campaignwiki/add-link.pl

@@ -292,7 +292,6 @@ sub main {
   Init();                          # read config file (no modules!)
   $ScriptName = $site;             # undo setting in the config file
   $FullUrl = $site;                #
-  InitPageVariables();             # call again: $ScriptName was wrong
   binmode(STDOUT,':utf8');
   $q->charset('utf8');
   if ($q->path_info eq '/source') {

contrib/oddmuse-curl.el

@@ -602,7 +602,7 @@ This command is used to reflect new pages to `oddmuse-pages-hash'."
     ("{{{.*?}}}"
      0 '(face shadow
 	      help-echo "Creole code"))
-    ("^{{{\\(.*\n\\)+?}}}\n"
+    ("^{{{\n\\(.*\n\\)+?}}}\n"
      0 '(face shadow
 	      help-echo "Creole multiline code")))
     "Implement markup rules for the Creole markup extension.
@@ -841,9 +841,7 @@ WIKI is the name of the wiki as defined in `oddmuse-wikis',
 PAGENAME is the pagename of the page you want to edit. If the
 page is already in a buffer, pop to that buffer instead of
 loading the page Use a prefix argument to force a reload of the
-page. Use \\[oddmuse-reload] to reload the list of pages
-available if you changed the URL in `oddmuse-wikis' or if other
-people have been editing the wiki in the mean time."
+page."
   (interactive (oddmuse-pagename))
   (make-directory (concat oddmuse-directory "/" wiki) t)
   (let ((name (concat wiki ":" pagename)))

contrib/undo-double-quotes.pl

@@ -1,114 +0,0 @@
-#! /usr/bin/perl -w
-
-# Copyright (C) 2015  Alex Schroeder <alex@gnu.org>
-#
-# 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 3 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, see <http://www.gnu.org/licenses/>.
-
-use utf8;
-use strict;
-use warnings;
-undef $/; # slurp
-
-my %index = ();
-my $verbose = '';
-
-sub write_file {
-  my ($file, $data) = @_;
-  return unless $data;
-  open(my $fh, '>:utf8', $file) or die "Cannot write $file: $!";
-  print $fh $data;
-  close($fh);
-}  
-
-sub replacement_block {
-  my ($block, $pos, @no_go) = @_;
-
-  while (@no_go) {
-    my $first = shift @no_go;
-    print "Is $pos between " . $first->[0] . " and " . $first->[1] . "?\n" if $verbose;
-    return $block if $pos >= $first->[0] and $pos <= $first->[1];
-  }
-
-  return "";
-}
-
-sub translate_file {
-  my ($data) = @_;
-  my @no_go = ();
-
-  while ($data =~ /( <nowiki>.*?<\/nowiki>
-                   | <code>.*?<\/code>
-                   | ^ <pre> (.*\n)+ <\/pre>
-                   | ^ {{{ (.*\n)+ }}} )/gmx) {
-    push @no_go, [pos($data) - length $1, pos($data)];
-    print "no go from " . $no_go[-1]->[0] . ".." . $no_go[-1]->[1] . " for $1\n" if $verbose;
-  }
-
-  # The problem is that these replacements don't adjust @no_go! Perhaps it is good enough?
-  my $subs = '';
-  $subs = $subs || $data =~ s/ ( \[\/quote\] \n \n \[quote\] ) /replacement_block($1, pos($data), @no_go)/gex;
-  return $data if $subs;
-}
-
-sub read_file {
-  my $file = shift;
-  open(my $fh, '<:utf8', $file) or die "Cannot read $file: $!";
-  my $data = <$fh>;
-  close($fh);
-  return $data;
-}
-
-sub main {
-  my ($dir) = @_;
-  mkdir($dir . '-new') or die "Cannot create $dir-new: $!";
-  print "Indexing files\n";
-  foreach my $file (glob("$dir/.* $dir/*")) {
-    next unless $file =~ /$dir\/(.+)/;
-    my $id = $1;
-    next if $id eq ".";
-    next if $id eq "..";
-    $index{$id} = 1;
-  }
-  print "Converting files\n";
-  foreach my $id (sort keys %index) {
-    # this is where you debug a particular page
-    # $verbose = $id eq '2014-12-18_Emacs_Wiki_Migration';
-    write_file("$dir-new/$id", translate_file(read_file("$dir/$id")));
-  }
-}
-
-use Getopt::Long;
-
-my $dir = 'raw';
-my $help = '';
-
-GetOptions ("dir=s"    => \$dir,
-	    "help"     => \$help);
-
-if ($help) {
-  print qq{
-Usage: $0 [--dir=DIR]
-
-You need to use the raw.pl script to create a directory full of raw
-wiki text files.
-
---dir=DIR is where the raw wiki text files are. Default: raw. The
-  converted files will be stored in DIR-new, ie. in raw-new by
-  default.
-
-Example: $0 --dir=~/alexschroeder/raw
-}
-} else {
-  main ($dir);
-}

contrib/undo-local-names.pl

@@ -1,170 +0,0 @@
-#! /usr/bin/perl -w
-
-# Copyright (C) 2015  Alex Schroeder <alex@gnu.org>
-#
-# 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 3 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, see <http://www.gnu.org/licenses/>.
-
-use utf8;
-use strict;
-use warnings;
-undef $/; # slurp
-
-my %index = ();
-my $verbose = '';
-
-my $LinkPattern = '(\p{Uppercase}+\p{Lowercase}+\p{Uppercase}\p{Alphabetic}*)';
-my $FreeLinkPattern = "([-,.()'%&?;<> _1-9A-Za-z\x{0080}-\x{fffd}]|[-,.()'%&?;<> _0-9A-Za-z\x{0080}-\x{fffd}][-,.()'%&?;<> _0-9A-Za-z\x{0080}-\x{fffd}]+)";
-my $UrlProtocols = 'http|https|ftp|afs|news|nntp|mid|cid|mailto|wais|prospero|telnet|gopher|irc|feed';
-my $UrlChars = '[-a-zA-Z0-9/@=+$_~*.,;:?!\'"()&#%]'; # see RFC 2396
-my $FullUrlPattern="((?:$UrlProtocols):$UrlChars+)"; # when used in square brackets
-
-# either a single letter, or a string that begins with a single letter and ends with a non-space
-my $words = '([A-Za-z\x{0080}-\x{fffd}](?:[-%.,:;\'"!?0-9 A-Za-z\x{0080}-\x{fffd}]*?[-%.,:;\'"!?0-9A-Za-z\x{0080}-\x{fffd}])?)';
-# zero-width assertion to prevent km/h from counting
-my $nowordstart = '(?:(?<=[^-0-9A-Za-z\x{0080}-\x{fffd}])|^)';
-# zero-width look-ahead assertion to prevent km/h from counting
-my $nowordend = '(?=[^-0-9A-Za-z\x{0080}-\x{fffd}]|$)';
-
-my $IrcNickRegexp = qr{[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*};
-
-sub FreeToNormal {    # trim all spaces and convert them to underlines
-  my $id = shift;
-  return '' unless $id;
-  $id =~ s/ /_/g;
-  $id =~ s/__+/_/g;
-  $id =~ s/^_//;
-  $id =~ s/_$//;
-  return $id;
-}
-
-sub parse_local_names {
-  my $filename = shift;
-  print "Reading $filename\n";
-  open(my $fh, '<:utf8', $filename) or die "Cannot read $filename: $!";
-  my $data = <$fh>;
-  close($fh);
-  print "Parsing $filename\n";
-  my %names = ();
-  while ($data =~ m/\[$FullUrlPattern\s+([^\]]+?)\]/g) {
-    my ($page, $url) = ($2, $1);
-    my $id = FreeToNormal($page);
-    $names{$id} = $url;
-  }
-  return \%names;
-}
-
-sub write_file {
-  my ($file, $data) = @_;
-  return unless $data;
-  open(my $fh, '>:utf8', $file) or die "Cannot write $file: $!";
-  print $fh $data;
-  close($fh);
-}  
-
-sub replacement {
-  my ($names, $id, $pos, @no_go) = @_;
-
-  while (@no_go) {
-    my $first = shift @no_go;
-    print "Is $pos between " . $first->[0] . " and " . $first->[1] . "?\n" if $verbose;
-    return $id if $pos >= $first->[0] and $pos <= $first->[1];
-  }
-
-  return "[[$id]]" if exists $index{$id}; # local page exists
-  return $id unless $names->{$id};
-  return '[' . $names->{$id} . ' ' . $id . ']';
-}
-
-sub translate_file {
-  my ($names, $data) = @_;
-  my @no_go = ();
-
-  while ($data =~ /( <nowiki>.*?<\/nowiki>
-                   | <code>.*?<\/code>
-                   | ^ <pre> (.*\n)+ <\/pre>
-                   | ^ {{{ (.*\n)+ }}}
-                   | ${nowordstart} \* ${words} \* ${nowordend}
-                   | ${nowordstart} \/ ${words} \/ ${nowordend}
-                   | ${nowordstart} \_ ${words} \_ ${nowordend}
-                   | ${nowordstart} \! ${words} \! ${nowordend}
-                   | \[\[ $FreeLinkPattern .*? \]\]
-                   | \[ $FullUrlPattern \s+ [^\]]+? \]
-                   | ^( \h+.+\n )+
-                   | ^(?: \[? \d\d?:\d\d (?:am|pm)?  \]? )? \s* < $IrcNickRegexp > )/gmx) {
-    push @no_go, [pos($data) - length $1, pos($data)];
-    print "no go from " . $no_go[-1]->[0] . ".." . $no_go[-1]->[1] . " for $1\n" if $verbose;
-  }
-
-  my $subs = $data =~ s/(?<![:![])\b$LinkPattern(?![:])/replacement($names, $1, pos($data), @no_go)/ge;
-  return $data if $subs;
-}
-
-sub read_file {
-  my $file = shift;
-  open(my $fh, '<:utf8', $file) or die "Cannot read $file: $!";
-  my $data = <$fh>;
-  close($fh);
-  return $data;
-}
-
-sub main {
-  my ($dir, $local_names) = @_;
-  mkdir($dir . '-new') or die "Cannot create $dir-new: $!";
-  my $names = parse_local_names("$dir/$local_names");
-  print "Indexing files\n";
-  foreach my $file (glob("$dir/.* $dir/*")) {
-    next unless $file =~ /$dir\/(.+)/;
-    my $id = $1;
-    next if $id eq ".";
-    next if $id eq "..";
-    next if $id eq "$local_names";
-    $index{$id} = 1;
-  }
-  print "Converting files\n";
-  foreach my $id (sort keys %index) {
-    # this is where you debug a particular page
-    # $verbose = $id eq '2014-12-18_Emacs_Wiki_Migration';
-    write_file("$dir-new/$id", translate_file($names, read_file("$dir/$id")));
-  }
-}
-
-use Getopt::Long;
-
-my $names = 'LocalNames';
-my $dir = 'raw';
-my $help = '';
-
-GetOptions ("names=s"   => \$names,
-	    "dir=s"    => \$dir,
-	    "help"     => \$help);
-
-if ($help) {
-  print qq{
-Usage: $0 [--dir=DIR] [--names=LocalNames]
-
-You need to use the raw.pl script to create a directory full of raw
-wiki text files.
-
---dir=DIR is where the raw wiki text files are. Default: raw. The
-  converted files will be stored in DIR-new, ie. in raw-new by
-  default.
-
---names=LocalNames is the page name with all the local names on
-  it. Default: LocalNames
-
-Example: $0 --dir=~/alexschroeder/raw --names=Names
-}
-} else {
-  main ($dir, $names);
-}

contrib/undo-usemod.pl

@@ -1,128 +0,0 @@
-#! /usr/bin/perl -w
-
-# Copyright (C) 2015  Alex Schroeder <alex@gnu.org>
-#
-# 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 3 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, see <http://www.gnu.org/licenses/>.
-
-use utf8;
-use strict;
-use warnings;
-undef $/; # slurp
-
-my %index = ();
-my $verbose = '';
-
-sub write_file {
-  my ($file, $data) = @_;
-  return unless $data;
-  open(my $fh, '>:utf8', $file) or die "Cannot write $file: $!";
-  print $fh $data;
-  close($fh);
-}  
-
-sub replacement_block {
-  my ($block, $pos, @no_go) = @_;
-
-  while (@no_go) {
-    my $first = shift @no_go;
-    print "Is $pos between " . $first->[0] . " and " . $first->[1] . "?\n" if $verbose;
-    return $block if $pos >= $first->[0] and $pos <= $first->[1];
-  }
-
-  return "[quote]\n" . join("\n", split(/ \n :+ \h? /x, $block)) . "[/quote]\n";
-}
-
-sub replacement {
-  my ($block, $tag, $pos, @no_go) = @_;
-
-  while (@no_go) {
-    my $first = shift @no_go;
-    print "Is $pos between " . $first->[0] . " and " . $first->[1] . "?\n" if $verbose;
-    return $block if $pos >= $first->[0] and $pos <= $first->[1];
-  }
-
-  return $tag . $block . $tag;
-}
-
-sub translate_file {
-  my ($data) = @_;
-  my @no_go = ();
-
-  while ($data =~ /( <nowiki>.*?<\/nowiki>
-                   | <code>.*?<\/code>
-                   | ^ <pre> (.*\n)+ <\/pre>
-                   | ^ {{{ (.*\n)+ }}} )/gmx) {
-    push @no_go, [pos($data) - length $1, pos($data)];
-    print "no go from " . $no_go[-1]->[0] . ".." . $no_go[-1]->[1] . " for $1\n" if $verbose;
-  }
-
-  # The problem is that these replacements don't adjust @no_go! Perhaps it is good enough?
-  my $subs = '';
-  $subs = $subs || $data =~ s/ ''' (.*?) ''' /replacement($1, '**', pos($data), @no_go)/gxe;
-  $subs = $subs || $data =~ s/  '' (.*?) ''  /replacement($1, '\/\/', pos($data), @no_go)/gxe;
-  $subs = $data =~ s/ ^ :+ \h? ( .* \n (?: .+ \n ) * ) /replacement_block($1, pos($data), @no_go)/gmxe;
-  return $data if $subs;
-}
-
-sub read_file {
-  my $file = shift;
-  open(my $fh, '<:utf8', $file) or die "Cannot read $file: $!";
-  my $data = <$fh>;
-  close($fh);
-  return $data;
-}
-
-sub main {
-  my ($dir) = @_;
-  mkdir($dir . '-new') or die "Cannot create $dir-new: $!";
-  print "Indexing files\n";
-  foreach my $file (glob("$dir/.* $dir/*")) {
-    next unless $file =~ /$dir\/(.+)/;
-    my $id = $1;
-    next if $id eq ".";
-    next if $id eq "..";
-    $index{$id} = 1;
-  }
-  print "Converting files\n";
-  foreach my $id (sort keys %index) {
-    # this is where you debug a particular page
-    # $verbose = $id eq '2014-12-18_Emacs_Wiki_Migration';
-    write_file("$dir-new/$id", translate_file(read_file("$dir/$id")));
-  }
-}
-
-use Getopt::Long;
-
-my $dir = 'raw';
-my $help = '';
-
-GetOptions ("dir=s"    => \$dir,
-	    "help"     => \$help);
-
-if ($help) {
-  print qq{
-Usage: $0 [--dir=DIR]
-
-You need to use the raw.pl script to create a directory full of raw
-wiki text files.
-
---dir=DIR is where the raw wiki text files are. Default: raw. The
-  converted files will be stored in DIR-new, ie. in raw-new by
-  default.
-
-Example: $0 --dir=~/alexschroeder/raw
-}
-} else {
-  main ($dir);
-}

css/alex-2015.css

@@ -1,7 +1,110 @@
 /* This file is in the public domain. */
 
+/* @import url(https://fonts.googleapis.com/css?family=Noticia+Text:400,400italic,700italic,700&subset=latin,latin-ext); */
+
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 400;
+  src: local('Noticia Text'), local('NoticiaText-Regular)'), url('/fonts/NoticiaText-Regular.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 400;
+  src: local('Noticia Text'), local('NoticiaText-Regular)'), url('/fonts/NoticiaText-Regular.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 400;
+  src: local('Noticia Text'), local('NoticiaText-Regular)'), url('/fonts/NoticiaText-Regular.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 700;
+  src: local('Noticia Text Bold'), local('NoticiaText-Bold)'), url('/fonts/NoticiaText-Bold.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 700;
+  src: local('Noticia Text Bold'), local('NoticiaText-Bold)'), url('/fonts/NoticiaText-Bold.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 700;
+  src: local('Noticia Text Bold'), local('NoticiaText-Bold)'), url('/fonts/NoticiaText-Bold.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 400;
+  src: local('Noticia Text Italic'), local('NoticiaText-Italic)'), url('/fonts/NoticiaText-Italic.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 400;
+  src: local('Noticia Text Italic'), local('NoticiaText-Italic)'), url('/fonts/NoticiaText-Italic.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 400;
+  src: local('Noticia Text Italic'), local('NoticiaText-Italic)'), url('/fonts/NoticiaText-Italic.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 700;
+  src: local('Noticia Text Bold Italic'), local('NoticiaText-BoldItalic)'), url('/fonts/NoticiaText-BoldItalic.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 700;
+  src: local('Noticia Text Bold Italic'), local('NoticiaText-BoldItalic)'), url('/fonts/NoticiaText-BoldItalic.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 700;
+  src: local('Noticia Text Bold Italic'), local('NoticiaText-BoldItalic)'), url('/fonts/NoticiaText-BoldItalic.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+@font-face {
+  font-family: 'Symbola';
+  src: local('Symbola'), url('/fonts/Symbola.woff') format('woff') url('/fonts/Symbola.ttf') format('truetype');
+}
+
 body, rss {
-    font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif;
+    font-family: "Noticia Text", Symbola, serif;
     font-style: normal;
     font-size: 14pt;
     margin: 1em 3em;
@@ -168,7 +271,7 @@ label[for="searchlang"], #searchlang, .header input[type="submit"] {
     visibility: hidden; position: absolute;
 }
 /* wrap on the iphone */
-@media only screen and (max-device-width: 480px) {
+@media media only screen and (max-device-width: 480px) {
 }
 
 .header input {

css/light.css

@@ -8,8 +8,110 @@
 
    @import url(https://fonts.googleapis.com/css?family=Noticia+Text:400,400italic,700italic,700&subset=latin,latin-ext); */
 
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 400;
+  src: local('Noticia Text'), local('NoticiaText-Regular)'), url('/fonts/NoticiaText-Regular.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 400;
+  src: local('Noticia Text'), local('NoticiaText-Regular)'), url('/fonts/NoticiaText-Regular.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 400;
+  src: local('Noticia Text'), local('NoticiaText-Regular)'), url('/fonts/NoticiaText-Regular.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 700;
+  src: local('Noticia Text Bold'), local('NoticiaText-Bold)'), url('/fonts/NoticiaText-Bold.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 700;
+  src: local('Noticia Text Bold'), local('NoticiaText-Bold)'), url('/fonts/NoticiaText-Bold.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: normal;
+  font-weight: 700;
+  src: local('Noticia Text Bold'), local('NoticiaText-Bold)'), url('/fonts/NoticiaText-Bold.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 400;
+  src: local('Noticia Text Italic'), local('NoticiaText-Italic)'), url('/fonts/NoticiaText-Italic.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 400;
+  src: local('Noticia Text Italic'), local('NoticiaText-Italic)'), url('/fonts/NoticiaText-Italic.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 400;
+  src: local('Noticia Text Italic'), local('NoticiaText-Italic)'), url('/fonts/NoticiaText-Italic.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+/* vietnamese */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 700;
+  src: local('Noticia Text Bold Italic'), local('NoticiaText-BoldItalic)'), url('/fonts/NoticiaText-BoldItalic.woff') format('woff');
+  unicode-range: U+0102-0103, U+1EA0-1EF1, U+20AB;
+}
+/* latin-ext */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 700;
+  src: local('Noticia Text Bold Italic'), local('NoticiaText-BoldItalic)'), url('/fonts/NoticiaText-BoldItalic.woff') format('woff');
+  unicode-range: U+0100-024F, U+1E00-1EFF, U+20A0-20AB, U+20AD-20CF, U+2C60-2C7F, U+A720-A7FF;
+}
+/* latin */
+@font-face {
+  font-family: 'Noticia Text';
+  font-style: italic;
+  font-weight: 700;
+  src: local('Noticia Text Bold Italic'), local('NoticiaText-BoldItalic)'), url('/fonts/NoticiaText-BoldItalic.woff') format('woff');
+  unicode-range: U+0000-00FF, U+0131, U+0152-0153, U+02C6, U+02DA, U+02DC, U+2000-206F, U+2074, U+20AC, U+2212, U+2215, U+E0FF, U+EFFD, U+F000;
+}
+
+@font-face {
+  font-family: 'Symbola';
+  src: local('Symbola'), url('/fonts/Symbola.woff') format('woff');
+}
+
 body {
-	font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif;
+	font-family: "Noticia Text", Symbola, serif;
 	font-size: 14pt;
 	color: #000;
 	background-color: #eed;
@@ -17,13 +119,13 @@ body {
 }
 
 textarea, pre, code, tt {
-	font-family: "Andale Mono", Monaco, "Courier New", Courier, monospace, Symbola;
-	font-size: 80%;
+    font-family: "Andale Mono", Monaco, "Courier New", Courier, monospace, Symbola;
+    font-size: 80%;
 }
 
 @media print {
 	body {
-		background-color: white;
+        	background-color: white;
 		font-family: Times, serif;
 		font-size:10pt;
 	}
@@ -73,9 +175,9 @@ input#mail, input#homepage, input#username {
 
 /* titles */
 h1 {
-	font-weight: bold;
-	font-size: 150%;
-	padding: 1em 0;
+    font-weight: bold;
+    font-size: 150%;
+    padding: 1em 0;
 }
 h1 a:link, h1 a:visited {
 	color: inherit;
@@ -115,7 +217,7 @@ a:active {
 	border: 1px solid #9d8;
 	border-radius: 5px;
 	box-shadow: 0px 1px 3px white inset,
-			0px 1px 3px black;
+	            0px 1px 3px black;
 }
 .button a {
 	text-decoration: none;
@@ -129,6 +231,10 @@ a:active {
 		font-weight: normal;
 	}
 	a.edit, div.footer, form, span.gotobar, a.number span { display:none; }
+	a[class="url number"]:after, a[class="inter number"]:after {
+		content:"[" attr(href) "]";
+	}
+	a[class="local number"]:after { content:"[" attr(title) "]"; }
 	img[smiley] { line-height: inherit; }
 }
 
@@ -137,15 +243,15 @@ a.pencil { display: none; }
 
 /* table of contents */
 .toc {
-	font-size: smaller;
-	border-left: 1em solid #886;
+    font-size: smaller;
+    border-left: 1em solid #886;
 }
 .toc ol {
-	list-style-type: none;
-	padding-left: 1em;
+    list-style-type: none;
+    padding-left: 1em;
 }
 .toc a {
-	font-weight: normal;
+    font-weight: normal;
 }
 
 /* images with links, captions, etc */
@@ -208,19 +314,19 @@ div.rc li { padding-bottom: 0.5em; }
 
 /* Tables */
 table.user {
-	margin: 1em 0;
-	padding: 0 1em;
-	border-top: 1px solid black;
-	border-bottom: 1px solid black;
+    margin: 1em 0;
+    padding: 0 1em;
+    border-top: 1px solid black;
+    border-bottom: 1px solid black;
  }
 div.aside table.user {
-	margin: 1em 0;
-	padding: 0;
+	    margin: 1em 0;
+	    padding: 0;
 }
 table.user td, table.user th {
-	border-style: none;
-	padding:5px 10px;
-	vertical-align: top; 
+    border-style: none;
+    padding:5px 10px;
+    vertical-align: top; 
 }
 table.user th { font-weight:bold; }
 table.user td.r { text-align:right; }
@@ -231,7 +337,7 @@ table.user td.mark { background-color:yellow; }
 tr:empty { display: block; height: 0.5em; }
 @media print {
 	table {
-		font-size: 9pt;
+        	font-size: 9pt;
 		margin: 0;
 	}
 	table.user td, table.user th {

css/wiki.css

@@ -188,7 +188,7 @@ div.footer hr {
 
 div.content > div.comment {
     border-top: none;
-    padding-top: 0;
+    padding-top: none;
     border-left: 1ex solid #bbb;
     padding-left: 1ex;
 }
@@ -213,12 +213,7 @@ pre {
 
 tt, pre, code {
     font-size: 80%;
-}
-
-code {
-    background: #eee;
-    white-space: pre-wrap;
-}
+};
 
 @font-face {
   font-family: 'Gentium Basic';

modules/404handler.pl

@@ -27,7 +27,7 @@ my @path = split(/\//, $ENV{REDIRECT_URL});
 my $file = $path[$#path];
 
 # for dynamic pages
-our ($NotFoundHandlerExceptionsPage);
+use vars qw($NotFoundHandlerExceptionsPage);
 $NotFoundHandlerExceptionsPage = 'NoCachePages';
 $RunCGI = 0;
 do $script;

modules/aawrapperdiv.pl

@@ -0,0 +1,42 @@
+# Copyright (C) 2004, 2005  Fletcher T. Penney <fletcher@freeshell.org>
+#
+# 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
+
+use strict;
+
+AddModuleDescription('aawrapperdiv.pl', 'WrapperDiv Module');
+
+our ($q);
+
+*OldGetHeader = \&GetHeader;
+*GetHeader = \&WrapperGetHeader;
+
+sub WrapperGetHeader {
+  my ($id, $title, $oldId, $nocache, $status) = @_;
+  my $result = OldGetHeader ($id, $title, $oldId, $nocache, $status);
+  $result .= $q->start_div({-class=>'wrapper'});
+}
+
+*OldPrintFooter = \&PrintFooter;
+*PrintFooter = \&WrapperPrintFooter;
+
+sub WrapperPrintFooter {
+  my ($id, $rev, $comment) = @_;
+  print $q->start_div({-class=>'wrapper close'});
+  print $q->end_div(), $q->end_div();
+  OldPrintFooter($id, $rev, $comment);
+}

modules/accesskeys.pl

@@ -14,7 +14,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('accesskeys.pl', 'Links With AccessKeys Extension');
 
@@ -22,7 +21,7 @@ our (@MyRules, $FreeLinkPattern);
 
 push(@MyRules, \&LinksWithAccessKeys);
 sub LinksWithAccessKeys {
-  if (m/\G(\[\[$FreeLinkPattern\{(.)\}\]\])/cg) {
+  if (m/\G(\[\[$FreeLinkPattern\{(.)\}\]\])/cog) {
     my ($id, $key) = ($2, $3);
     Dirty($1);
     $id = FreeToNormal($id);

modules/admin.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 our ($q, %Page, %Action, $IndexFile, $PageDir, $KeepDir, @MyAdminCode, $RefererDir);
 
@@ -36,11 +35,11 @@ sub AdminPowerDelete {
   OpenPage($id);
   my $status = DeletePage($id);
   if ($status) {
-    print $q->p(GetPageLink($id) . ' ' . T('not deleted:') . ' ' . $status);
+    print $q->p(GetPageLink($id) . ' ' . T('not deleted: ')) . $status;
   } else {
     print $q->p(GetPageLink($id) . ' ' . T('deleted'));
     WriteRcLog($id, Ts('Deleted %s', $id), 0, $Page{revision},
-	       GetParam('username', ''), $q->remote_addr(), $Page{languages},
+	       GetParam('username', ''), GetRemoteHost(), $Page{languages},
 	       GetCluster($Page{text}));
   }
   # Regenerate index on next request
@@ -89,10 +88,10 @@ sub AdminPowerRename {
   # RecentChanges
   OpenPage($new);
   WriteRcLog($id, Ts('Renamed to %s', $new), 0, $Page{revision},
-	     GetParam('username', ''), $q->remote_addr(), $Page{languages},
+	     GetParam('username', ''), GetRemoteHost(), $Page{languages},
 	     GetCluster($Page{text}));
   WriteRcLog($new, Ts('Renamed from %s', $id), 0, $Page{revision},
-	     GetParam('username', ''), $q->remote_addr(), $Page{languages},
+	     GetParam('username', ''), GetRemoteHost(), $Page{languages},
 	     GetCluster($Page{text}));
   print $q->p(Tss('Renamed %1 to %2.', GetPageLink($id), GetPageLink($new)));
   ReleaseLock();

modules/adsense.pl

@@ -15,7 +15,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('adsense.pl', 'AdSense Module');
 

modules/advanced-uploads.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('advanced-uploads.pl', 'Advanced File Upload Extension');
 

modules/age.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('age.pl', 'Age Indication Extension');
 

modules/aggregate.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('aggregate.pl', 'Front Page Extension');
 
@@ -26,7 +25,7 @@ our ($q, $bol, %Action, %Page, $OpenPageName, $UseDiff, $UsePathInfo, $RssStyleS
 push(@MyRules, \&AggregateRule);
 
 sub AggregateRule {
-  if ($bol && m/\G(<aggregate\s+((("[^\"&]+",?\s*)+)|(sort\s+)?search\s+(.+?))>)/cg) {
+  if ($bol && m/\G(<aggregate\s+((("[^\"&]+",?\s*)+)|(sort\s+)?search\s+(.+?))>)/gc) {
     Clean(CloseHtmlEnvironments());
     Dirty($1);
     my ($oldpos, $old_, $str, $sort, $search) = ((pos), $_, $3, $5, $6);
@@ -126,8 +125,8 @@ sub DoAggregate {
       }
     }
     foreach my $id (@pages) {
-      my $data = ParseData(ReadFileOrDie(GetPageFile(FreeToNormal($id))));
-      my $page = $data->{text};
+      my %data = ParseData(ReadFileOrDie(GetPageFile(FreeToNormal($id))));
+      my $page = $data{text};
       my $size = length($page);
       my $i = index($page, "\n=");
       my $j = index($page, "\n----");
@@ -136,13 +135,13 @@ sub DoAggregate {
       $page =~ s/^=.*\n//; # if it starts with a header
       my $name = $id;
       $name =~ s/_/ /g;
-      my $date = TimeToRFC822($data->{ts});
-      my $host = $data->{host};
-      my $username = $data->{username};
+      my $date = TimeToRFC822($data{ts});
+      my $host = $data{host};
+      my $username = $data{username};
       $username = QuoteHtml($username);
       $username = $host unless $username;
-      my $minor = $data->{minor};
-      my $revision = $data->{revision};
+      my $minor = $data{minor};
+      my $revision = $data{revision};
       my $cluster = GetCluster($page);
       my $description = ToString(sub { ApplyRules(QuoteHtml($page), 1, 0, undef, 'p') });
       $description .= $q->p(GetPageLink($id, T('Learn more...')))

modules/agree-disagree.pl

@@ -1,119 +0,0 @@
-# Copyright (C) 2005  Bayle Shanks http://purl.net/net/bshanks
-#
-# 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
-
-use strict;
-use v5.10;
-
-our ($Now, @MyMacros, @MyRules, $DefaultStyleSheet, $q, $bol);
-
-AddModuleDescription('agree-disagree.pl', 'AgreeDisagreePlugin');
-
-push(@MyRules, \&AgreeDisagreeSupportRule);
-
-push(@MyMacros, sub{ s/\[\+\]/"[+:" . GetParam('username', T('Anonymous'))
-                       . ':' . TimeToText($Now) . "]"/eg });
-push(@MyMacros, sub{ s/\[\+(:[^]:]+)\]/"[+$1:" . TimeToText($Now) . "]"/eg });
-push(@MyMacros, sub{ s/\[\-\]/"[-:" . GetParam('username', T('Anonymous'))
-                       . ':' . TimeToText($Now) . "]"/eg });
-push(@MyMacros, sub{ s/\[\-(:[^]:]+)\]/"[-$1:" . TimeToText($Now) . "]"/eg });
-
-
-$DefaultStyleSheet .= <<'EOT' unless $DefaultStyleSheet =~ /div\.agree/; # mod_perl?
-    div.agreeCount {
- float: left;
- clear: left;
-background-color: Green;
-padding-left: .5em;
-padding-right: .5em;
-padding-top: .5em;
-padding-bottom: .5em;
-}
-div.disagreeCount {
-  float: left;
- clear: right;
-background-color: Red;
-padding-left: .5em;
-padding-right: .5em;
-padding-top: .5em;
-padding-bottom: .5em;
-}
-
-div.agreeNames {
-  float: left;
-background-color: Green;
-font-size: xx-small;
- display: none;
-}
-div.disagreeNames {
-  float: left;
-background-color: Red;
-font-size: xx-small;
- display: none;
-}
-
-
-
-EOT
-
-
-
-
-    my %AgreePortraits = ();
-
-
-sub AgreeDisagreeSupportRule {
-  if ($bol) {
-    if ($bol && m/(\G(\s*\[\+(.*?)\]|\s*\[-(.*?)\])+)/cgs) {
-
-      my $votes = $1;
-      my @ayes = ();
-      my @nayes = ();
-      while ($votes =~ m/\G.*?\[\+(.*?)\]/cgs) {
-        my ($ignore, $name, $time) = split(/:/, $1, 3);
-        push(@ayes, $name);
-      }
-      my $votes2 = $votes;
-      while ($votes2 =~ m/\G.*?\[-(.*?)\]/cgs) {
-        my ($ignore, $name, $time) = split(/:/, $1, 3);
-        push(@nayes, $name);
-      }
-
-      my $html = CloseHtmlEnvironments() ;
-      $html .= $q->div({-class=>'agreeCount'}) . ($#ayes+1) . '  ' . '</div>' ;
-
-      $html .= $q->div({-class=>'agreeNames'}) . printNames(@ayes) . '</div>' ;
-      $html .= $q->div({-class=>'disagreeCount'}) . '  ' . ($#nayes+1) . '</div>' ;
-      $html .= $q->div({-class=>'disagreeNames'}) . printNames(@nayes) . '</div>' ;
-
-
-      return $html;
-    }
-  }
-  return undef;
-}
-
-
-sub printNames {
-  my @names = @_;
-
-  my $html = '';
-  foreach my $name (@names)  {
-    $html .= "$name<br>";
-  }
-  return $html;
-}

modules/all.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('all.pl', 'All Action');
 

modules/anchors.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('anchors.pl', 'Local Anchor Extension');
 
@@ -21,13 +20,13 @@ our ($q, %Page, $FootnoteNumber, $FreeLinkPattern, @MyRules, $BracketWiki);
 push(@MyRules, \&AnchorsRule);
 
 sub AnchorsRule {
-  if (m/\G\[\[\#$FreeLinkPattern\]\]/cg) {
+  if (m/\G\[\[\#$FreeLinkPattern\]\]/gc) {
     return $q->a({-href=>'#' . FreeToNormal($1), -class=>'local anchor'}, $1);
-  } elsif ($BracketWiki && m/\G\[\[\#$FreeLinkPattern\|([^\]]+)\]\]/cg) {
+  } elsif ($BracketWiki && m/\G\[\[\#$FreeLinkPattern\|([^\]]+)\]\]/gc) {
     return $q->a({-href=>'#' . FreeToNormal($1), -class=>'local anchor'}, $2);
-  } elsif ($BracketWiki && m/\G(\[\[$FreeLinkPattern\#$FreeLinkPattern\|([^\]]+)\]\])/cg
-	   or m/\G(\[\[\[$FreeLinkPattern\#$FreeLinkPattern\]\]\])/cg
-	   or m/\G(\[\[$FreeLinkPattern\#$FreeLinkPattern\]\])/cg) {
+  } elsif ($BracketWiki && m/\G(\[\[$FreeLinkPattern\#$FreeLinkPattern\|([^\]]+)\]\])/cog
+	   or m/\G(\[\[\[$FreeLinkPattern\#$FreeLinkPattern\]\]\])/cog
+	   or m/\G(\[\[$FreeLinkPattern\#$FreeLinkPattern\]\])/cog) {
     # This one is not a dirty rule because the output is always a page
     # link, never an edit link (unlike normal free links).
     my $bracket = (substr($1, 0, 3) eq '[[[');
@@ -47,7 +46,7 @@ sub AnchorsRule {
     $text = $id unless $text;
     $text =~ s/_/ /g;
     return ScriptLink(UrlEncode($id), $text, $class, undef, $title);
-  } elsif (m/\G\[\:$FreeLinkPattern\]/cg) {
+  } elsif (m/\G\[\:$FreeLinkPattern\]/gc) {
     return $q->a({-name=>FreeToNormal($1), -class=>'anchor'}, '');
   }
   return;

modules/antispam.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('antispam.pl', 'Antispam Module');
 
@@ -34,7 +33,7 @@ push(@MyRules, \&MaskEmailRule);
 
 sub MaskEmailRule {
 	# Allow [email@foo.bar Email Me] links
-	if (m/\G\[($EmailRegExp(\s\w+)*\s*)\]/cgi) {
+	if (m/\G\[($EmailRegExp(\s\w+)*\s*)\]/igc) {
 		my $chunk = $1;
 		$chunk =~ s/($EmailRegExp)//i;
 		my $email = $1;
@@ -51,7 +50,7 @@ sub MaskEmailRule {
 		return "<a href=\"mailto:$email\">$chunk</a>";
 	}
 
-	if (m/\G($EmailRegExp)/cgi) {
+	if (m/\G($EmailRegExp)/igc) {
 		my $email = $1;
 		if ($DoMaskEmail) {
 			my $masked="";

modules/archive.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('archive.pl', 'Archive Extension');
 

modules/askpage.pl

@@ -14,13 +14,12 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('askpage.pl', 'Ask Page Extension');
 
 use Fcntl qw(:DEFAULT :flock);
 
-our ($DataDir, %Translate, @MyFooters);
+our ($DataDir);
 our ($AskPage, $QuestionPage, $NewQuestion);
 # Don't forget to set your $CommentsPattern to include both $AskPage and $QuestionPage
 $AskPage = 'Ask';
@@ -39,8 +38,8 @@ sub IncrementInFile {
   return $num;
 }
 
-*OldAskPageDoPost = \&DoPost;
-*DoPost = \&NewAskPageDoPost;
+*OldAskPageDoPost=\&DoPost;
+*DoPost=\&NewAskPageDoPost;
 sub NewAskPageDoPost {
   my $id = FreeToNormal(shift);
   if ($id eq $AskPage and not GetParam('text', undef)) { # comment, not a regular edit
@@ -51,18 +50,16 @@ sub NewAskPageDoPost {
   OldAskPageDoPost($id, @_); # keep original functionality for regular edits
 }
 
-*OldAskPageGetCommentForm = \&GetCommentForm;
-*GetCommentForm = \&NewAskPageGetCommentForm;
-@MyFooters = map { $_ == \&OldAskPageGetCommentForm ? \&NewAskPageGetCommentForm : $_ } @MyFooters;
-
+*OldAskPageGetCommentForm=\&GetCommentForm;
+*GetCommentForm=\&NewAskPageGetCommentForm;
 sub NewAskPageGetCommentForm {
-  my ($id) = @_;
-  $Translate{'Add your comment here:'} = $NewQuestion if $id eq $AskPage;
+  my ($id, $rev, $comment) = @_;
+  $comment = $NewQuestion if not $comment and $id eq $AskPage;
   OldAskPageGetCommentForm(@_);
 }
 
-*OldAskPageJournalSort = \&JournalSort;
-*JournalSort = \&NewAskPageJournalSort;
+*OldAskPageJournalSort=\&JournalSort;
+*JournalSort=\&NewAskPageJournalSort;
 sub NewAskPageJournalSort {
   return OldAskPageJournalSort() unless $a =~ m/^$QuestionPage\d+$/ and $b =~ m/^$QuestionPage\d+$/;
   ($b =~ m/$QuestionPage(\d+)/)[0] <=> ($a =~ m/$QuestionPage(\d+)/)[0];

modules/atom.pl

@@ -14,9 +14,7 @@
 # along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
-use XML::Atom;
 use XML::Atom::Entry;
 use XML::Atom::Link;
 use XML::Atom::Person;
@@ -150,7 +148,7 @@ sub GetRcAtom {
 # Based on DoPost
 sub DoAtomSave {
   my ($type, $oldid) = @_;
-  my $entry = AtomEntry($type);
+  my $entry = AtomEntry();
   my $title = $entry->title();
   my $author = $entry->author();
   SetParam('username', $author->name) if $author; # Used in Save()
@@ -231,8 +229,15 @@ sub DoAtomGet {
 }
 
 sub AtomEntry {
-  my $type = shift || 'POST';
-  my $data = $q->param($type . 'DATA'); # PUTDATA or POSTDATA
+  my $data = $q->param('POSTDATA');
+  if (not $data) {
+    # CGI provides POSTDATA for POST requests, not for PUT requests.
+    # The following code is based on the CGI->init code.
+    my $content_length = defined($ENV{'CONTENT_LENGTH'}) ? $ENV{'CONTENT_LENGTH'} : 0;
+    if ($content_length > 0 and $content_length < $MaxPost) {
+      $q->read_from_client(\$data, $content_length, 0);
+    }
+  }
   my $entry = XML::Atom::Entry->new(\$data);
   return $entry;
 }

modules/autolock.pl

@@ -1,6 +1,5 @@
 #!/usr/bin/env perl
 use strict;
-use v5.10;
 
 # ====================[ autolock.pl                        ]====================
 
@@ -175,7 +174,7 @@ sub UserCanEditAutoLockFix {
   return 0 if $LockOnCreation{$id} and not -f GetPageFile($id); # new page
   return 0 if !$EditAllowed or -f $NoEditFile;
   return 0 if $editing and UserIsBanned(); # this call is more expensive
-  return 0 if $EditAllowed >= 2 and (not $CommentsPrefix or $id !~ /^$CommentsPrefix/);
+  return 0 if $EditAllowed >= 2 and (not $CommentsPrefix or $id !~ /^$CommentsPrefix/o);
   return 1 if $EditAllowed >= 3 and ($comment or (GetParam('aftertext', '') and not GetParam('text', '')));
   return 0 if $EditAllowed >= 3;
   return 1;

modules/backlinkage.pl

@@ -20,7 +20,6 @@
 # ie: http://search.cpan.org/CPAN/authors/id/C/CH/CHAMAS/MLDBM-2.01.tar.gz
 
 use strict;
-use v5.10;
 
 use Fcntl;
 use MLDBM qw( DB_File Storable );
@@ -117,7 +116,7 @@ sub GetBackLink {
     foreach my $backlink (@backlinks) {
             my ($class, $resolved, $title, $exists) = ResolveId($backlink);
             if (($resolved ne $id) && ($resolved !~ /^($BacklinkBanned)$/)) {
-                push(@unpopped, ScriptLink(UrlEncode($resolved), $resolved, $class . ' backlink', undef, Ts('Internal Page: %s', $resolved)));
+                push(@unpopped, ScriptLink(UrlEncode($resolved), $resolved, $class . ' backlink', undef, T('Internal Page: ' . $resolved)));
             }
     }
 

modules/backlinks.pl

@@ -11,7 +11,6 @@
 # http://www.oddmuse.org/cgi-bin/oddmuse/Backlinks_Extension
 
 use strict;
-use v5.10;
 
 AddModuleDescription('backlinks.pl', 'Backlinks Extension');
 

modules/ban-contributors.pl

@@ -25,7 +25,6 @@ the IP or hostname will be added to the C<BannedHosts> page for you.
 
 =cut
 use strict;
-use v5.10;
 our ($q, $Now, %Page, $OpenPageName, %Action, $UrlPattern, $BannedContent, $BannedHosts, @MyAdminCode);
 
 AddModuleDescription('ban-contributors.pl', 'Ban Contributors Extension');
@@ -124,10 +123,10 @@ sub NewBanContributorsWriteRcLog {
       and $OpenPageName eq $id and UserIsAdmin()) {
     # we currently have the clean page loaded, so we need to reload
     # the spammed revision (there is a possible race condition here)
-    my $old = GetTextRevision($Page{revision} - 1, 1)->{text};
-    my %urls = map {$_ => 1 } $old =~ /$UrlPattern/g;
+    my ($old) = GetTextRevision($Page{revision}-1, 1);
+    my %urls = map {$_ => 1 } $old =~ /$UrlPattern/og;
     # we open the file again to force a load of the despammed page
-    foreach my $url ($Page{text} =~ /$UrlPattern/g) {
+    foreach my $url ($Page{text} =~ /$UrlPattern/og) {
       delete($urls{$url});
     }
     # we also remove any candidates that are already banned
@@ -153,7 +152,7 @@ sub NewBanContributorsWriteRcLog {
 		  $q->submit(T('Ban!'))),
 	    $q->end_form();
     };
-    print $q->p(T("Consider banning the IP number as well:"), ' ',
+    print $q->p(T("Consider banning the IP number as well: "),
 		ScriptLink('action=ban;id=' . UrlEncode($id), T('Ban contributors')));
   };
   return OldBanContributorsWriteRcLog(@_);

modules/ban-quick-editors.pl

@@ -1,4 +1,4 @@
-# Copyright (C) 2013–2015  Alex Schroeder <alex@gnu.org>
+# Copyright (C) 2013  Alex Schroeder <alex@gnu.org>
 #
 # 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
@@ -16,11 +16,10 @@
 # editors will be logged.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('ban-quick-editors.pl', 'Banning Quick Editors');
 
-our ($q, $Now, %RecentVisitors, $SurgeProtection);
+our ($Now, %RecentVisitors, $SurgeProtection);
 
 *BanQuickOldUserIsBanned = \&UserIsBanned;
 *UserIsBanned = \&BanQuickNewUserIsBanned;
@@ -30,7 +29,7 @@ sub BanQuickNewUserIsBanned {
   if (not $rule
       and $SurgeProtection # need surge protection
       and GetParam('title')) {
-    my $name = GetParam('username', $q->remote_addr());
+    my $name = GetParam('username', GetRemoteHost());
     my @entries = @{$RecentVisitors{$name}};
     # $entry[0] is $Now after AddRecentVisitor
     my $ts = $entries[1];

modules/banned-regexps.pl

@@ -13,17 +13,14 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('banned-regexps.pl', 'Banning Regular Expressions');
 
-=encoding utf8
-
-=head1 Compatibility
+=h1 Compatibility
 
 This extension works with logbannedcontent.pl.
 
-=head1 Example content for the BannedRegexps page:
+=h1 Example content for the BannedRegexps page:
 
     # This page lists regular expressions that prevent the saving of a page.
     # The regexps are matched against any page or comment submitted.

modules/bbcode.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('bbcode.pl', 'bbCode Extension');
 
@@ -61,12 +60,12 @@ sub bbCodeRule {
       return AddHtmlEnvironment('strong', qq{class="highlight"}); }
     elsif ($tag eq 'url') {
       if ($option) {
-	$option =~ /^($UrlProtocols)/;
+	$option =~ /^($UrlProtocols)/o;
 	my $class = "url $1";
 	return AddHtmlEnvironment('a', qq{href="$option" class="$class"}); }
-      elsif (/\G$FullUrlPattern\s*\[\/url\]/cgi) {
+      elsif (/\G$FullUrlPattern\s*\[\/url\]/cogi) {
 	return GetUrl($1); }}
-    elsif ($tag eq 'img' and /\G$FullUrlPattern\s*\[\/img\]/cgi) {
+    elsif ($tag eq 'img' and /\G$FullUrlPattern\s*\[\/img\]/cogi) {
       return GetUrl($1, undef, undef, 1); } # force image
     elsif ($tag eq 'quote') {
       my $html = CloseHtmlEnvironments();

modules/big-brother.pl

@@ -14,7 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('big-brother.pl', 'Big Brother Extension');
 
@@ -60,6 +59,7 @@ sub AddRecentVisitor {
   my $url = ScriptUrl(join(';', "action=$action;id=" . UrlEncode($id),
 			   map { $_ . '=' . UrlEncode(GetParam($_)) }
 			   keys %params));
+  my $url = $q->url(-path_info=>1,-query=>1);
   my $download = GetParam('action', 'browse') eq 'download'
     || GetParam('download', 0)
     || $q->path_info() =~ m/\/download\//;

modules/blockquote.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('blockquote.pl', 'Comments on Text Formatting Rules');
 
@@ -28,10 +27,10 @@ push(@MyRules, \&BlockQuoteRule);
 sub BlockQuoteRule {
   # indented text using : with the option of spanning multiple text
   # paragraphs (but not lists etc).
-  if (InElement('blockquote') && m/\G(\s*\n)+:[ \t]*/cg) {
+  if (InElement('blockquote') && m/\G(\s*\n)+:[ \t]*/cog) {
     return CloseHtmlEnvironmentUntil('blockquote')
       . AddHtmlEnvironment('p');
-  } elsif ($bol && m/\G(\s*\n)*:[ \t]*/cg) {
+  } elsif ($bol && m/\G(\s*\n)*:[ \t]*/cog) {
     return CloseHtmlEnvironments()
       . AddHtmlEnvironment('blockquote')
       . AddHtmlEnvironment('p');

modules/calendar.pl

@@ -18,7 +18,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('calendar.pl', 'Calendar Extension');
 
@@ -74,7 +73,7 @@ sub Cal {
       $link .= ScriptLink('action=collect;match=' . UrlEncode($re), $day,  'local collection' . $class);
     }
     $link;
-  }}eg;
+  }}ge;
   $cal =~ s{(\S+) (\d\d\d\d)}{{
     my ($month_text, $year_text) = ($1, $2);
     my $date = sprintf("%d-%02d", $year, $mon);
@@ -118,22 +117,22 @@ sub DoCollect {
 push(@MyRules, \&CalendarRule);
 
 sub CalendarRule {
-  if (/\G(calendar:(\d\d\d\d))/cg) {
+  if (/\G(calendar:(\d\d\d\d))/gc) {
     my $oldpos = pos;
     Clean(CloseHtmlEnvironments());
     Dirty($1);
     PrintYearCalendar($2);
     pos = $oldpos;
     return AddHtmlEnvironment('p');
-  } elsif (/\G(month:(\d\d\d\d)-(\d\d))/cg) {
+  } elsif (/\G(month:(\d\d\d\d)-(\d\d))/gc) {
     my $oldpos = pos;
     Clean(CloseHtmlEnvironments());
     Dirty($1);
     print Cal($2, $3);
     pos = $oldpos;
     return AddHtmlEnvironment('p');
-  } elsif (/\G(month:([+-]\d\d?))/cg
-	  or /\G(\[\[month:([+-]\d\d?) $FreeLinkPattern\]\])/cg) {
+  } elsif (/\G(month:([+-]\d\d?))/gc
+	  or /\G(\[\[month:([+-]\d\d?) $FreeLinkPattern\]\])/gc) {
     my $oldpos = pos;
     Clean(CloseHtmlEnvironments());
     Dirty($1);

modules/canonical.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('canonical.pl', 'Canonical Names');
 

modules/cart.pl

@@ -1,180 +0,0 @@
-# Copyright (C) 2008 Eric Hsu <apricotan@gmail.com>
-
-# 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
-use strict;
-use v5.10;
-use utf8;
-
-AddModuleDescription('cart.pl', 'Cart Extension');
-
-our ($q, %Action, $UserGotoBar, $CookieName);
-our ($CartPic, $CartName, %Cart, $ShowCart, @CartOrdered);
-my $LOADED_CART_JS;
-
-# ============
-# = cart-bfc =
-# ============
-
-# This is a simple shopping cart for pages!
-# Requires searchpaged-bfc.pl.
-
-# We make a checkbox that onChange, uses Yahoo! UI Cookie 2.6 (note we need 2.6!) routines to set a subcookie.
-# We have the cookie "$CartName" (by default $Cookiename . "Cart")
-# which holds the actual cart and is managed almost entirely
-# in client-side javascript. That means the checkboxes directly control the cookie.
-
-# If you want a little picture of a cart, you can set the URL at $CartPic.
-
-# InitCart loads the cookie values into %Cart. $Cart->{$pagename}=1 if it's in the cart.
-# In theory cookies are capped at 4K. Our page names are capped around 90ish chars. That leaves room for 40 maximal names in the cart. Probably enough.
-
-# We'll need the cookie values for
-# action=cart;subaction=show; along with other future subactions (download in latex, bibtex)
-# we'll feed this display to a variant of search display.
-# I'll have to check oddmuse.pl.
-
-# load Yahoo UI code bit to manage subcookies.
-
-$Action{cart} = \&DoCart;
-
-sub DoCart {
-  # foreach $key (keys %Cart) {
-  # 	push @cart, $key  if ($Cart{"$key"});
-  # }
-  DoSearch(\@CartOrdered);
-}
-
-$UserGotoBar .= '<a href="?action=cart;cache=0">View Cart</a>';
-
-# Manage Cart Routines
-
-#push @MyPrintSearchResultsPrefix, \&PrintCheckboxTableStart;
-#push @MyPrintSearchResultsSuffix, \&PrintCheckboxTableEnd;
-
-# I can't hack into Init, so let's tap into InitCookie.
-# We also tap into Cookie() to arrange writing out our cleaned up Cart.
-
-*OldInitCookie = *InitCookie;
-*InitCookie = *InitCookieAndCart;
-
-# To get a checkbox in the titles of pages, we patch GetHeader.
-*OldGetHeader = *GetHeader;
-*GetHeader = *GetHeaderAndCart;
-
-sub InitCookieAndCart {
-  OldInitCookie();
-  InitCart();
-}
-
-sub GetHeaderAndCart {
-  my ($id, $title, $oldId, $nocache, $status) = @_;
-  my $result = OldGetHeader(@_);
-
-  return ($result) unless ($id);
-
-  my $checkbox = MakeCheckbox($id);
-  $checkbox = qq(<span class="cart-checkbox" style="float:right">$checkbox</span>);
-
-  $result =~ s/(<\/h1>)/$checkbox$1/;
-
-  return ($result);
-}
-
-
-# We load the contents of our Cart cookie into the global %Cart and @CartOrdered
-sub InitCart {
-  $CartName = $CookieName . "Cart" unless (defined ($CartName) );
-  my @pairs;
-
-  %Cart = ();
-  @CartOrdered = ();
-
-  if ($q->cookie($CartName)) {
-    # @pairs = split(/&/, $q->cookie($CartName));
-    @pairs =  $q->cookie($CartName);
-    foreach my $pair (@pairs) {
-      # my $encodedequals = UrlEncode("=");
-      my ($name, $val)= split(/\=/, $pair);
-      $Cart{"$name"}=$val;
-      push @CartOrdered, $name;
-    }
-  }
-}
-
-sub PrintCheckboxTableStart {
-  my ($name, $regex, $text, $type) = @_;
-  my $html;
-
-  $html .= "<table><tr>";
-  my $checkbox = MakeCheckbox(@_);
-  $html .= qq(<td valign=top>$checkbox</td>);
-  $html .= "<td valign=top>";
-  print $html;
-}
-
-sub PrintCheckboxTableEnd {
-  my ($name, $regex, $text, $type) = @_;
-  my $html;
-
-  $html .= "</td>";
-  $html .= "</tr></table>";
-
-  print $html;
-}
-
-
-sub MakeCheckbox {
-  my ($name, $regex, $text, $type) = @_;
-  my $html;
-
-  return unless ($ShowCart);
-  unless ($LOADED_CART_JS) {
-    $html .= '<script type="text/javascript" src="http://yui.yahooapis.com/combo?2.7.0/build/yahoo/yahoo-min.js&2.7.0/build/cookie/cookie-min.js&2.7.0/build/event/event-min.js"></script>';
-    $LOADED_CART_JS=1;
-  }
-
-  my $selected = qq(checked="yes") if ($Cart{"$name"});
-
-	$html .=<<HTMLEND;
-	$CartPic<input type="checkbox" value="cart" id="$name-set" title="Add To Cart" $selected/> <br>
-	<script type="text/javascript">
-	(function(){
-	    YAHOO.util.Event.on("$name-set", "change", function(){
-	        var value = YAHOO.util.Cookie.getSub("$CartName", "$name");
-	        if (value == 1 ) { YAHOO.util.Cookie.removeSub("$CartName", "$name"); }
-	        else { YAHOO.util.Cookie.setSub("$CartName", "$name", 1 ); }
-	    });
-	})();
-	</script>
-HTMLEND
-
-  return $html unless ($q->param('action') eq 'edit' || $q->param('Preview'));
-  # no checkboxes for edit pages.
-  return;
-}
-
-__END__
-
-=
-(0.7) Load JS libraries on first checkbox (so won't load if we are editing).
-(0.6) Changed the JS source to be Yahoo's CDN.
-(0.51) Use CSS class cart-checkbox for the cart checkbox!  That way, we can remove them for printouts, for instance.
-(0.5) Our hack of cookies was not working cross-platform. We have a mismatch because our attempts to send out a cookie from oddmuse were getting the contents encoded and unreadable for the YUI routines.  Instead,we will use removeSub to avoid ever having to send the cookie back from our server!
-(0.4) Now every page title has a checkbox floated to the right, which controls the cart status.
-(0.3) Allow cart editing from cart display. Currently, doesn't seem to affect the cart.
-(0.2) Cart now displays.
-(0.1) Cart is now persistent and is edited by the checkboxes.

modules/checkbox.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('checkbox.pl', 'Checklist Extension');
 
@@ -77,7 +76,7 @@ sub DoCheckBox{
       $summary{$3} = 0 if $2 eq 'x' or $2 eq 'X';
       "${1}[[ :${3}]]";
     }
-  }egi;
+  }eig;
   SetParam('text', $text);
   SetParam('summary', join(', ', map {
     if ($summary{$_}) {

modules/clustermap.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('clustermap.pl', 'ClusterMap Module');
 
@@ -62,7 +61,7 @@ foreach (@ClusterMapAdminPages){
 }
 
 sub ClusterMapRule {
-	if (/\G^([\n\r]*\<\s*clustermap\s*\>\s*)$/cgm) {
+	if (/\G^([\n\r]*\<\s*clustermap\s*\>\s*)$/mgc) {
 		Dirty($1);
 		my $oldpos = pos;
 		my $oldstr = $_;

modules/comment-div-wrapper.pl

@@ -14,7 +14,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('comment-div-wrapper.pl', 'Comment Div Wrapper Extension');
 
@@ -30,7 +29,7 @@ sub CommentDivWrapper {
       return $q->start_div({-class=>'userComment'});
     }
   }
-  if ($OpenPageName =~ /$CommentsPattern/) {
+  if ($OpenPageName =~ /$CommentsPattern/o) {
     if ($bol and m/\G(\s*\n)*----+[ \t]*\n?/cg) {
       my $html = CloseHtmlEnvironments()
 	  . ($CommentDiv++ > 0 ? $q->end_div() : $q->h2({-class=>'commentsHeading'}, T('Comments:'))) . $q->start_div({-class=>'userComment'})

modules/commentcount.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('commentcount.pl', 'Comment Count Extension');
 
@@ -52,15 +51,15 @@ sub NewCommentcountScriptLink {
   if ($CommentsPrefix && $action =~ /^$CommentsPrefix(.*)/) { # TODO use $CommentsPattern ?
     # Add the number of comments here
     my $id = $action;
-    $id =~ s/%([0-9a-f][0-9a-f])/chr(hex($1))/eg; # undo urlencode
+    $id =~ s/%([0-9a-f][0-9a-f])/chr(hex($1))/ge; # undo urlencode
     my $comments = GetPageContent($id);
     my $num = 0;
     if($comments =~ /=== (\d+) Comments?\. ===/) {
       $num = $1;
     }
     # Fix plurals
-    my $plural = T('Comments on');
-    my $singular = T('Comment on');
+    my $plural = T('Comments on ');
+    my $singular = T('Comment on ');
     $text =~ s/$plural/$singular/ if($num == 1);
     $text = $num . ' ' . $text;
   }

modules/compilation.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('compilation.pl', 'Compilation Extension');
 

modules/context.pl

@@ -14,7 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('context.pl', 'Calendar Extension');
 

modules/creationdate.pl

@@ -24,7 +24,6 @@
 # Of course, you can customize this to store more information
 
 use strict;
-use v5.10;
 
 AddModuleDescription('creationdate.pl', 'CreationDate Module');
 

modules/creole.pl

@@ -1,6 +1,5 @@
 #!/usr/bin/env perl
 use strict;
-use v5.10;
 
 # ====================[ creole.pl                          ]====================
 
@@ -218,7 +217,7 @@ sub CreoleRule {
   }
   # escape next char (and prevent // in URLs from enabling italics)
   # ~
-  elsif (m/\G(~($FullUrlPattern|\S))/cg) {
+  elsif (m/\G(~($FullUrlPattern|\S))/cgo) {
     return
       ($CreoleTildeAlternative and
        index( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
@@ -234,12 +233,12 @@ sub CreoleRule {
   # {{{preformatted code}}}
   elsif (m/\G\{\{\{(.*?}*)\}\}\}/cg) { return $q->code($1); }
   # download: {{pic}} and {{pic|text}}
-  elsif (m/\G(\{\{$FreeLinkPattern$CreoleLinkTextPattern\}\})/cgs) {
+  elsif (m/\G(\{\{$FreeLinkPattern$CreoleLinkTextPattern\}\})/cgos) {
     my $text = $4 || $2;
     return GetCreoleLinkHtml($1, GetDownloadLink(FreeToNormal($2), 1, undef, $text), $text);
   }
   # image link: {{url}} and {{url|text}}
-  elsif (m/\G\{\{$FullUrlPattern$CreoleLinkTextPattern\}\}/cgs) {
+  elsif (m/\G\{\{$FullUrlPattern$CreoleLinkTextPattern\}\}/cgos) {
     return GetCreoleImageHtml(
       $q->a({-href=> UnquoteHtml($1),
              -class=> 'image outside'},
@@ -250,7 +249,7 @@ sub CreoleRule {
   }
   # image link: [[link|{{pic}}]] and [[link|{{pic|text}}]]
   elsif (m/\G(\[\[$FreeLinkPattern$CreoleLinkPipePattern
-              \{\{$FreeLinkPattern$CreoleLinkTextPattern\}\}\]\])/cgsx) {
+              \{\{$FreeLinkPattern$CreoleLinkTextPattern\}\}\]\])/cgosx) {
     my $text = $5 || $2;
     return GetCreoleLinkHtml($1, GetCreoleImageHtml(
       ScriptLink(UrlEncode(FreeToNormal($2)),
@@ -261,7 +260,7 @@ sub CreoleRule {
   }
   # image link: [[link|{{url}}]] and [[link|{{url|text}}]]
   elsif (m/\G(\[\[$FreeLinkPattern$CreoleLinkPipePattern
-              \{\{$FullUrlPattern$CreoleLinkTextPattern\}\}\]\])/cgsx) {
+              \{\{$FullUrlPattern$CreoleLinkTextPattern\}\}\]\])/cgosx) {
     my $text = $5 || $2;
     return GetCreoleLinkHtml($1, GetCreoleImageHtml(
       ScriptLink(UrlEncode(FreeToNormal($2)),
@@ -272,7 +271,7 @@ sub CreoleRule {
   }
   # image link: [[url|{{pic}}]] and [[url|{{pic|text}}]]
   elsif (m/\G(\[\[$FullUrlPattern$CreoleLinkPipePattern
-              \{\{$FreeLinkPattern$CreoleLinkTextPattern\}\}\]\])/cgsx) {
+              \{\{$FreeLinkPattern$CreoleLinkTextPattern\}\}\]\])/cgosx) {
     my $text = $5 || $2;
     return GetCreoleLinkHtml($1, GetCreoleImageHtml(
       $q->a({-href=> UnquoteHtml($2), -class=> 'image outside'},
@@ -283,7 +282,7 @@ sub CreoleRule {
   }
   # image link: [[url|{{url}}]] and [[url|{{url|text}}]]
   elsif (m/\G\[\[$FullUrlPattern$CreoleLinkPipePattern
-             \{\{$FullUrlPattern$CreoleLinkTextPattern\}\}\]\]/cgsx) {
+             \{\{$FullUrlPattern$CreoleLinkTextPattern\}\}\]\]/cgosx) {
     return GetCreoleImageHtml(
       $q->a({-href=> UnquoteHtml($1), -class=> 'image outside'},
             $q->img({-src=> UnquoteHtml($2),
@@ -292,7 +291,7 @@ sub CreoleRule {
                      -class=> 'url outside'})));
   }
   # link: [[url]] and [[url|text]]
-  elsif (m/\G\[\[$FullUrlPattern$CreoleLinkTextPattern\]\]/cgs) {
+  elsif (m/\G\[\[$FullUrlPattern$CreoleLinkTextPattern\]\]/cgos) {
     # Permit embedding of Creole syntax within link text. (Rather complicated,
     # but it does the job remarkably.)
     my $link_url  = $1;
@@ -305,7 +304,7 @@ sub CreoleRule {
     return GetUrl($link_url, $link_text, 1);
   }
   # link: [[page]] and [[page|text]]
-  elsif (m/\G(\[\[$FreeLinkPattern$CreoleLinkTextPattern\]\])/cgs) {
+  elsif (m/\G(\[\[$FreeLinkPattern$CreoleLinkTextPattern\]\])/cgos) {
     my $markup =    $1;
     my $page_name = $2;
     my $link_text = $4 ? CreoleRuleRecursive($4, @_) : $page_name;
@@ -315,7 +314,7 @@ sub CreoleRule {
   }
   # interlink: [[Wiki:page]] and [[Wiki:page|text]]
   elsif ($is_interlinking and
-         m/\G(\[\[$FreeInterLinkPattern$CreoleLinkTextPattern\]\])/cgs) {
+         m/\G(\[\[$FreeInterLinkPattern$CreoleLinkTextPattern\]\])/cgos) {
     my $markup =    $1;
     my $interlink = $2;
     my $interlink_text = $4;

modules/creoleaddition.pl

@@ -1,6 +1,5 @@
 #!/usr/bin/env perl
 use strict;
-use v5.10;
 
 # ====================[ creoleaddition.pl                  ]====================
 

modules/crossbar.pl

@@ -1,6 +1,5 @@
 #!/usr/bin/env perl
 use strict;
-use v5.10;
 
 # ====================[ crossbar.pl                         ]====================
 

modules/crumbs.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('crumbs.pl', 'List Parent Pages Extension');
 
@@ -28,8 +27,8 @@ $RuleOrder{\&CrumbsRule} = -10; # run before default rules!
 
 sub CrumbsRule {
   if (not (pos) # first!
-      and (($WikiLinks && /\G($LinkPattern\n)/cg)
-	   or ($FreeLinks && /\G(\[\[$FreeLinkPattern\]\]\n)/cg))) {
+      and (($WikiLinks && /\G($LinkPattern\n)/cgo)
+	   or ($FreeLinks && /\G(\[\[$FreeLinkPattern\]\]\n)/cgo))) {
     my $oldpos = pos; # will be trashed below
     my $cluster = FreeToNormal($2);
     my %seen = ($cluster => 1);

modules/css-install.pl

@@ -1,5 +1,4 @@
 use strict;
-use v5.10;
 
 =head1 NAME
 

modules/csv.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('csv.pl', 'Comments on Long Table Markup Extension');
 

modules/dates.pl

@@ -14,7 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('dates.pl', 'Dates Extension');
 

modules/delete-all.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('delete-all.pl');
 

modules/despam.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 our ($q, $Now, %IndexHash, %Action, %Page, $OpenPageName, $FS, $BannedContent, $RcFile, $RcDefault, @MyAdminCode, $FullUrlPattern, $DeletedPage, $StrangeBannedContent);
 
@@ -133,14 +132,14 @@ sub DespamPage {
   # from DoHistory()
   my @revisions = sort {$b <=> $a} map { m|/([0-9]+).kp$|; $1; } GetKeepFiles($OpenPageName);
   foreach my $revision (@revisions) {
-    my ($revisionPage, $rev) = GetTextRevision($revision, 1); # quiet
+    my ($text, $rev) = GetTextRevision($revision, 1); # quiet
     if (not $rev) {
       print ': ' . Ts('Cannot find revision %s.', $revision);
       return;
-    } elsif (not DespamBannedContent($revisionPage->{text})) {
+    } elsif (not DespamBannedContent($text)) {
       my $summary = Tss('Revert to revision %1: %2', $revision, $rule);
       print ': ' . $summary;
-      Save($OpenPageName, $revisionPage->{text}, $summary) unless GetParam('debug', 0);
+      Save($OpenPageName, $text, $summary) unless GetParam('debug', 0);
       return;
     }
   }

modules/diff.pl

@@ -14,7 +14,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('diff.pl', 'Diff Action Extension');
 

modules/div-foo.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('div-foo.pl', 'Div Foo Extension');
 

modules/dojo.pl

@@ -14,7 +14,6 @@
 # along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('dojo.pl', 'Using Dojo Instead Of Wiki Markup');
 
@@ -30,7 +29,7 @@ $DojoTheme = 'tundra';
 push (@MyRules, \&WysiwygRule);
 
 sub WysiwygRule {
-  if (m/\G(&lt;.*?&gt;)/cg) {
+  if (m/\G(&lt;.*?&gt;)/gc) {
     return $1 if substr($1,5,6) eq 'script'
       or substr($1,4,6) eq 'script';
     return UnquoteHtml($1);

modules/doubleclick.pl

@@ -22,7 +22,6 @@
 # JavaScript enabled for this to work.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('doubleclick.pl', 'Doubleclick Extension');
 

modules/download.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('download.pl', 'Download Extension');
 
@@ -28,8 +27,8 @@ push( @MyRules, \&DownloadSupportRule );
 # [[download:page name|alternate title]]
 
 sub DownloadSupportRule {
-  if (m/\G(\[\[download:$FreeLinkPattern\|([^\]]+)\]\])/cg
-      or m!\G(\[\[download:$FreeLinkPattern\]\])!cg) {
+  if (m/\G(\[\[download:$FreeLinkPattern\|([^\]]+)\]\])/cog
+      or m!\G(\[\[download:$FreeLinkPattern\]\])!cog) {
     Dirty($1);
     print GetDownloadLink($2, undef, undef, $3);
     return '';

modules/drafts.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 use File::Glob ':glob';
 our ($DraftDir);
@@ -29,7 +28,7 @@ push(@MyInitVariables, \&DraftInit);
 sub DraftInit {
   if (GetParam('Draft', '')) {
     SetParam('action', 'draft') ; # Draft button used
-  } elsif (-f "$DraftDir/" . GetParam('username', $q->remote_addr()) # draft exists
+  } elsif (-f "$DraftDir/" . GetParam('username', GetRemoteHost()) # draft exists
 	   and $FooterNote !~ /action=draft/) {                    # take care of mod_perl persistence
     $FooterNote = $q->p(ScriptLink('action=draft', T('Recover Draft'))) . $FooterNote;
   }
@@ -39,7 +38,7 @@ $Action{draft} = \&DoDraft;
 
 sub DoDraft {
   my $id = shift;
-  my $draft = $DraftDir . '/' . GetParam('username', $q->remote_addr());
+  my $draft = $DraftDir . '/' . GetParam('username', GetRemoteHost());
   if ($id) {
     my $text = GetParam('text', '');
     ReportError(T('No text to save'), '400 BAD REQUEST') unless $text;
@@ -48,10 +47,10 @@ sub DoDraft {
     SetParam('msg', T('Draft saved')); # invalidate cache
     print GetHttpHeader('', T('Draft saved'), '204 NO CONTENT');
   } elsif (-f $draft) {
-    my $data = ParseData(ReadFileOrDie($draft));
+    my %data = ParseData(ReadFileOrDie($draft));
     unlink ($draft);
     $Message .= $q->p(T('Draft recovered'));
-    DoEdit($data->{id}, $data->{text}, 1);
+    DoEdit($data{id}, $data{text}, 1);
   } else {
     ReportError(T('No draft available to recover'), '404 NOT FOUND');
   }

modules/duckduckgo-search.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('duckduckgo-search.pl', 'Use DuckDuckGo For Searches');
 

modules/dynamic-comments.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('dynamic-comments.pl', 'Dynamic Comments Extension');
 

modules/dynlogo.pl

@@ -28,7 +28,6 @@
 #
 
 use strict;
-use v5.10;
 
 AddModuleDescription('dynlogo.pl', 'Dynamic Logo');
 

modules/edit-assist.pl

@@ -15,7 +15,6 @@
 #    Boston, MA 02111-1307 USA
 
 use strict;
-use v5.10;
 
 AddModuleDescription('edit-assist.pl', 'Edit Assist Extension');
 

modules/edit-cluster.pl

@@ -14,11 +14,10 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('edit-cluster.pl', 'Edit Cluster Extension');
 
-our ($q, $FS, $RcDefault, @RcDays, $RecentTop, $LastUpdate, $ShowAll);
+our ($q, $FS, $RcDefault, @RcDays, $RecentTop, $LastUpdate);
 
 our $EditCluster = 'EditCluster';
 
@@ -34,7 +33,7 @@ sub GetRc {
     $changetime{$pagename} = $ts;
   }
   my $date = '';
-  my $all = GetParam('all', $ShowAll);
+  my $all = GetParam('all', 0);
   my ($idOnly, $userOnly, $hostOnly, $clusterOnly, $filterOnly, $match, $lang) =
     map { GetParam($_, ''); }
       ('rcidonly', 'rcuseronly', 'rchostonly', 'rcclusteronly',
@@ -128,7 +127,7 @@ sub EditClusterNewRcHeader {
     $action = "action=rc$action";
   }
   my $days = GetParam('days', $RcDefault);
-  my $all = GetParam('all', $ShowAll);
+  my $all = GetParam('all', 0);
   my @menu;
   if ($all) {
     push(@menu, ScriptLink("$action;days=$days;all=0",

modules/edit-paragraphs.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('edit-paragraphs.pl', 'Edit Paragraphs Extension');
 

modules/emailquote.pl

@@ -11,7 +11,6 @@
 # http://www.oddmuse.org/cgi-bin/oddmuse/Email_Quote_Extension
 
 use strict;
-use v5.10;
 
 AddModuleDescription('emailquote.pl', 'Email Quote Extension');
 
@@ -21,14 +20,14 @@ push(@MyRules, \&EmailQuoteRule);
 
 sub EmailQuoteRule {
     #  > on a line of its own should work
-    if ($bol && m/\G(\s*\n)*((\>))+\n/cg) {
+    if ($bol && m/\G(\s*\n)*((\>))+\n/cog) {
         return $q->p();
     }
     # > hi, you mentioned that:
     # >> I don't like Oddmuse.
     # > in last letter.
-    elsif ($bol && m/\G(\s*\n)*((\>)+)[ \t]/cg
-           or InElement('dd') && m/\G(\s*\n)+((\>)+)[ \t]/cg) {
+    elsif ($bol && m/\G(\s*\n)*((\>)+)[ \t]/cog
+           or InElement('dd') && m/\G(\s*\n)+((\>)+)[ \t]/cog) {
         my $leng = length($2) / 4;
         return CloseHtmlEnvironmentUntil('dd') . OpenHtmlEnvironment('dl',$leng, 'quote')
         . $q->dt() . AddHtmlEnvironment('dd');

modules/emoji.pl

@@ -13,7 +13,6 @@
 # this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('emoji.pl', 'Smilies');
 

modules/enclosure.pl

@@ -14,7 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('enclosure.pl', 'Podcasting');
 
@@ -28,7 +27,7 @@ push(@MyRules, \&EnclosureRule);
 # [[enclosure:url|size in bytes|mime type]]
 
 sub EnclosureRule {
-  if (m!\G\[\[enclosure:\s*$FreeLinkPattern(\|([^\]]+))?\]\]!cgi) {
+  if (m!\G\[\[enclosure:\s*$FreeLinkPattern(\|([^\]]+))?\]\]!ogci) {
     my $id = FreeToNormal($1);
     # Make sure we don't add duplicates; we will add non-existing
     # enclosures as well. We test for existence only when the RSS feed
@@ -56,8 +55,8 @@ sub NewEnclosureRssItem {
   my $id = shift;
   my $rss = OldEnclosureRssItem($id, @_);
   require MIME::Base64;
-  my $data = ParseData(ReadFileOrDie(GetPageFile($id)));
-  my @enclosures = split(' ', $data->{enclosures});
+  my %data = ParseData(ReadFileOrDie(GetPageFile($id)));
+  my @enclosures = split(' ', $data{enclosures});
   my $enclosures = '';
   foreach my $enclosure (@enclosures) {
     # Don't add the enclosure if the page has been deleted in the mean

modules/faq.pl

@@ -24,7 +24,6 @@
 # the css classes div.question and div.answer.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('faq.pl', 'FAQ Extension');
 
@@ -38,10 +37,10 @@ $FaqAnswerText = "Answer: " unless $FaqAnswerText;
 push(@MyRules, \&FaqRule);
 
 sub FaqRule {
-  if ($bol && m/\GQ: (.+)/cg) {
+  if ($bol && m/\GQ: (.+)/gc) {
     return $q->a({name=>'FAQ_' . UrlEncode($1)},'')
       . $q->div({class=>'question'}, $FaqQuestionText . $1);
-  } elsif ($bol && m/\GA:[ \t]*/cg) {
+  } elsif ($bol && m/\GA:[ \t]*/gc) {
     return CloseHtmlEnvironments()
       . AddHtmlEnvironment('div', "class='answer'") . $FaqAnswerText;
   }

modules/fckeditor.pl

@@ -17,7 +17,6 @@
 #    Boston, MA 02111-1307 USA,
 
 use strict;
-use v5.10;
 
 AddModuleDescription('fckeditor.pl', 'Using FCKeditor In Addition To Wiki Markup');
 
@@ -29,7 +28,7 @@ $FCKeditorHeight = 400; # Pixel
 push (@MyRules, \&WysiwygRule);
 
 sub WysiwygRule {
-  if (m/\G(<.*?>)/cg) {
+  if (m/\G(<.*?>)/gc) {
     return $1 if substr($1,5,6) eq 'script'
       or substr($1,4,6) eq 'script';
     return UnquoteHtml($1);

modules/fieldlist.pl

@@ -11,7 +11,6 @@
 # http://www.oddmuse.org/cgi-bin/oddmuse/Field_List_Extension
 
 use strict;
-use v5.10;
 
 AddModuleDescription('fieldlist.pl', 'Field List Extension');
 

modules/find.pl

@@ -14,7 +14,6 @@
 # along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
-use v5.10;
 
 AddModuleDescription('find.pl', 'Find Extension');