attachment:larpwiki-robots-nofollow.diff von UseMod

   1 *** wiki.pl	2004-05-25 18:26:38.000000000 +0200
   2 --- larpwiki-robots-nofollow.pl	2004-05-25 18:28:26.000000000 +0200
   3 ***************
   4 *** 26,31 ****
   5 --- 26,33 ----
   6   #    59 Temple Place, Suite 330
   7   #    Boston, MA 02111-1307 USA
   8   
   9 + # applied patch: larpwiki-robots-nofollow.diff
  10 + 
  11   package UseModWiki;
  12   use strict;
  13   local $| = 1;  # Do not buffer output (localized for mod_perl)
  14 ***************
  15 *** 1291,1297 ****
  16     if ($FreeLinks) {
  17       $title =~ s/_/ /g;   # Display as spaces
  18     }
  19 !   $result .= &GetHtmlHeader("$SiteName: $title");
  20     return $result  if ($embed);
  21   
  22     $result .= '<div class=wikiheader>';
  23 --- 1293,1299 ----
  24     if ($FreeLinks) {
  25       $title =~ s/_/ /g;   # Display as spaces
  26     }
  27 !   $result .= &GetHtmlHeader("$SiteName: $title", $id);
  28     return $result  if ($embed);
  29   
  30     $result .= '<div class=wikiheader>';
  31 ***************
  32 *** 1342,1348 ****
  33   }
  34   
  35   sub GetHtmlHeader {
  36 !   my ($title) = @_;
  37     my ($dtd, $html, $bodyExtra, $stylesheet);
  38   
  39     $html = '';
  40 --- 1344,1350 ----
  41   }
  42   
  43   sub GetHtmlHeader {
  44 !   my ($title, $id) = @_;
  45     my ($dtd, $html, $bodyExtra, $stylesheet);
  46   
  47     $html = '';
  48 ***************
  49 *** 1367,1372 ****
  50 --- 1369,1388 ----
  51     if ($stylesheet ne '') {
  52       $html .= qq(<LINK REL="stylesheet" HREF="$stylesheet">\n);
  53     }
  54 +   # INDEX,NOFOLLOW tag for wiki pages only so that the robot doesn't index
  55 +   # history pages.  INDEX,FOLLOW tag for RecentChanges and the index of all
  56 +   # pages.  We need the INDEX here so that the spider comes back to these
  57 +   # pages, since links from ordinary pages to RecentChanges or the index will
  58 +   # not be followed.
  59 +   if (($id eq $RCName) or (T($RCName) eq $id) or (T($id) eq $RCName)
  60 +       or (lc (GetParam('action', '')) eq 'index')) {
  61 +     $html .= '<meta name="robots" content="INDEX,FOLLOW">';
  62 +   } elsif ($id eq '') {
  63 +     $html .= '<meta name="robots" content="NOINDEX,NOFOLLOW">';
  64 +   } else {
  65 +     $html .= '<meta name="robots" content="INDEX,NOFOLLOW">';
  66 +   }
  67 +   #finish
  68     $html .= $UserHeader;
  69     $bodyExtra = '';
  70     if ($UserBody ne '') {