some preparations for 1.2.2: bump version

unfortunately usemod.com expired

CREDITS

@@ -19,5 +19,5 @@ Users which contributed patches added to versions after 1.0:
 * UngarPeter
 
 If I've forgotten someone, please leave a note on UseMod:MarkusLude or
-send mail to usemod@usemod.com.
+send mail to usemod@usemod.org.
 

Changelog

@@ -1,4 +1,8 @@
 
+Changes for release 1.2.2 (November 10, 2023):
+* fix HTML markup, no XHTML
+* domain has changed to usemod.org
+
 Changes for bugfix release 1.2.1 (December 01, 2017):
 * closing div for class wikibody was missing at some places, added
 * put <hr> class wikilinerc inside of div for class wikirc
@@ -120,5 +124,5 @@ Changes for bugfix release 1.0.1 (July 9, 2007):
   fix contributed by UngarPeter
 
 If I've forgotten something or someone, please leave a note on
-UseMod:MarkusLude or send mail to usemod@usemod.com.
+UseMod:MarkusLude or send mail to usemod@usemod.org.
 

INSTALL

@@ -6,7 +6,7 @@ See the UPGRADE file for instructions to upgrade an existing wiki.
 New Installations:
 
 The following instructions should work for most UNIX-based systems.
-See http://www.usemod.com/cgi-bin/wiki.pl?UseModWiki/InstallWindows for
+See https://www.usemod.org/cgi-bin/wiki.pl?UseModWiki/InstallWindows for
 instructions if you are installing under Microsoft Windows.
 
 1. Copy the file "wiki.pl" to your cgi-bin directory.  You can rename

README

@@ -3,14 +3,14 @@ Last updated: August 28, 2009
 
 Release notes:
 
-Visit http://www.usemod.com/cgi-bin/wiki.pl for documentation and official
+Visit https://www.usemod.org/cgi-bin/wiki.pl for documentation and official
 announcements regarding UseModWiki.  The current documentation is minimal,
 but the developers and some users will try to answer any questions.
 
-Please send questions or comments to usemod@usemod.com.
+Please send questions or comments to usemod@usemod.org.
 
 A mailing list for major UseModWiki announcements (releases and critical
-bugs) is available.  Send mail to usemod@usemod.com to join the list.
+bugs) is available.  Send mail to usemod@usemod.org to join the list.
 
 ------
 Security:

UPGRADE

@@ -2,7 +2,7 @@ Upgrade instructions for UseModWiki 1.0
 Last updated: September 11, 2003
 See the INSTALL file for new installations.
 
-Please email usemod@usemod.com with any questions, comments, or suggestions.
+Please email usemod@usemod.org with any questions, comments, or suggestions.
 
 ------
 Upgrading from 0.90, 0.91, or 0.92:
@@ -32,7 +32,7 @@ you should change $FreeLinks to 0.
 
 ------
 Upgrading from older versions (before 0.90) is possible, but requires
-a conversion utility for the database.  Contact usemod@usemod.com for
+a conversion utility for the database.  Contact usemod@usemod.org for
 upgrade instructions.
 
 ------

config

@@ -1,5 +1,5 @@
 # == Configuration =====================================================
-# Original version from UseModWiki 1.2.1
+# Original version from UseModWiki 1.2.2
 
 $CookieName  = "Wiki";          # Name for this wiki (for multi-wiki sites)
 $SiteName    = "Wiki";          # Name of site (used for titles)

intermap

@@ -5,6 +5,6 @@ Google http://www.google.com/search?q=
 GoogleGroups http://groups.google.com/groups?q=
 IMDB http://us.imdb.com/Title?
 JargonFile http://sunir.org/apps/meta.pl?wiki=JargonFile&redirect=
-UseMod http://www.usemod.com/cgi-bin/wiki.pl?
+UseMod https://www.usemod.org/cgi-bin/wiki.pl?
 Wiki http://c2.com/cgi/wiki?
 WikiPedia http://www.wikipedia.org/wiki/

wiki.pl

@@ -1,5 +1,5 @@
 #!/usr/bin/perl -wT
-# UseModWiki version 1.2.1 (December 01, 2017)
+# UseModWiki version 1.2.2 (November 10, 2023)
 # Copyright (C) 2000-2003 Clifford A. Adams  <caadams@usemod.com>
 # Copyright (C) 2002-2003 Sunir Shah  <sunir@sunir.org>
 # with some changes from  Markus Lude <markus.lude@gmx.de>
@@ -424,7 +424,7 @@ sub InitRequest {
   } else {
     $CGI::DISABLE_UPLOADS = 1;  # no uploads
   }
-  $q ||= new CGI;
+  $q = new CGI;
   # Fix some issues with editing UTF8 pages (if charset specified)
   if ($HttpCharset ne '') {
     $q->charset($HttpCharset);
@@ -1381,8 +1381,10 @@ sub GetHtmlHeader {
   my ($title, $id) = @_;
   my ($dtd, $html, $bodyExtra, $stylesheet);
 
-  $dtd = '-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd';
-  $html = qq(<!DOCTYPE html PUBLIC "$dtd">\n);
+  $CGI::XHTML = 0;
+  $dtd = $q->default_dtd( '-//W3C//DTD HTML 4.01 Transitional//EN',
+                          'http://www.w3.org/TR/html4/loose.dtd' );
+  $html = qq(<!DOCTYPE html PUBLIC "$dtd->[0]" "$dtd->[1]">\n);
   $title = $q->escapeHTML($title);
   $html .= "<html><head><title>$title</title>\n";
   if ($MetaKeywords) {
@@ -4461,7 +4463,7 @@ sub WriteDiff {
 # no one edits the page by the time the keep expiry time
 # elapses, then no one has vetoed the last action, and the
 # action is accepted.
-# See http://www.usemod.com/cgi-bin/mb.pl?PageDeletion
+# See http://meatballwiki.org/wiki/PageDeletion
 sub ProcessVetos {
   my ($expirets);
 
@@ -5120,7 +5122,7 @@ sub RenamePage {
 
 sub DoShowVersion {
   print &GetHeader('', T('Displaying Wiki Version'), '');
-  print "<p>UseModWiki version 1.2.1</p>\n";
+  print "<p>UseModWiki version 1.2.2</p>\n";
   print &GetCommonFooter();
 }