fix for using with FastCGI servers

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.org.
+send mail to usemod@usemod.com.
 

Changelog

@@ -1,11 +1,4 @@
 
-Changes for bugfix release 1.2.3 (August 16, 2025):
-* fix warnings
-
-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
@@ -127,5 +120,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.org.
+UseMod:MarkusLude or send mail to usemod@usemod.com.
 

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 https://www.usemod.org/cgi-bin/wiki.pl?UseModWiki/InstallWindows for
+See http://www.usemod.com/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 https://www.usemod.org/cgi-bin/wiki.pl for documentation and official
+Visit http://www.usemod.com/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.org.
+Please send questions or comments to usemod@usemod.com.
 
 A mailing list for major UseModWiki announcements (releases and critical
-bugs) is available.  Send mail to usemod@usemod.org to join the list.
+bugs) is available.  Send mail to usemod@usemod.com 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.org with any questions, comments, or suggestions.
+Please email usemod@usemod.com 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.org for
+a conversion utility for the database.  Contact usemod@usemod.com for
 upgrade instructions.
 
 ------

config

@@ -1,5 +1,5 @@
 # == Configuration =====================================================
-# Original version from UseModWiki 1.2.3
+# Original version from UseModWiki 1.2.1
 
 $CookieName  = "Wiki";          # Name for this wiki (for multi-wiki sites)
 $SiteName    = "Wiki";          # Name of site (used for titles)
@@ -43,7 +43,7 @@ $StartUID    = 1001;            # Starting number for user IDs
 $UploadDir   = '';              # Full path (like /foo/www/uploads) for files
 $UploadUrl   = '';              # Full URL (like http://foo.com/uploads)
 @ImageSites  = qw();            # Url prefixes of good image sites: ()=all
-$Salt        = 'pepper123';     # Salt for generating an EditHash,
+$Salt        = 'pepper';        # Salt for generating an EditHash,
                                 # please choose something other here!
 
 # Major options:

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 https://www.usemod.org/cgi-bin/wiki.pl?
+UseMod http://www.usemod.com/cgi-bin/wiki.pl?
 Wiki http://c2.com/cgi/wiki?
 WikiPedia http://www.wikipedia.org/wiki/

wiki.pl

@@ -1,8 +1,8 @@
 #!/usr/bin/perl -wT
-# UseModWiki version 1.2.3 (August 16, 2025)
+# UseModWiki version 1.2.1 (December 01, 2017)
 # 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@usemod.org>
+# with some changes from  Markus Lude <markus.lude@gmx.de>
 #
 # Based on the GPLed AtisWiki 0.3  (C) 1998 Markus Denker
 #    <marcus@ira.uka.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,10 +1381,8 @@ sub GetHtmlHeader {
   my ($title, $id) = @_;
   my ($dtd, $html, $bodyExtra, $stylesheet);
 
-  $CGI::XHTML = 0;
+  $dtd = '-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd';
-  $dtd = $q->default_dtd( '-//W3C//DTD HTML 4.01 Transitional//EN',
+  $html = qq(<!DOCTYPE html PUBLIC "$dtd">\n);
-                          '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) {
@@ -2335,12 +2333,11 @@ sub GetDiffHTML {
 
 sub GetCacheDiff {
   my ($type) = @_;
-  my $diffType;
+  my ($diffText);
-  my $diffText = "";
 
-  $diffType = &GetPageCache("diff_default_$type") || "";
+  $diffText = &GetPageCache("diff_default_$type");
-  $diffText = &GetCacheDiff('minor')  if ($diffType eq "1");
+  $diffText = &GetCacheDiff('minor')  if ($diffText eq "1");
-  $diffText = &GetCacheDiff('major')  if ($diffType eq "2");
+  $diffText = &GetCacheDiff('major')  if ($diffText eq "2");
   return $diffText;
 }
 
@@ -4059,10 +4056,10 @@ sub GetFullLinkList {
       if (($unique > 0) && ($seen{$link} != 1)) {
         next;
       }
-      if (($exists == 0) && ($pgExists{$link})) {
+      if (($exists == 0) && ($pgExists{$link} == 1)) {
         next;
       }
-      if (($exists == 1) && (not $pgExists{$link})) {
+      if (($exists == 1) && ($pgExists{$link} != 1)) {
         next;
       }
       if (($search ne "") && !($link =~ /$search/)) {
@@ -4464,7 +4461,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://meatballwiki.org/wiki/PageDeletion
+# See http://www.usemod.com/cgi-bin/mb.pl?PageDeletion
 sub ProcessVetos {
   my ($expirets);
 
@@ -5123,7 +5120,7 @@ sub RenamePage {
 
 sub DoShowVersion {
   print &GetHeader('', T('Displaying Wiki Version'), '');
-  print "<p>UseModWiki version 1.2.3</p>\n";
+  print "<p>UseModWiki version 1.2.1</p>\n";
   print &GetCommonFooter();
 }