<?php if (!defined('PmWiki')) exit();

/*

   REDIRECT.PHP - custom redirect behavior for PmWiki.

   Copyright (C) 2006 Ryan R. Varick <pmwiki@ryanvarick.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.


   DESCRIPTION:

   By default, PmWiki appends ?from=Page.Name to all redirects.
   When a 301 (permanent) redirect is requested, the new URL will
   forever and for always contain the redirect querty string.  This
   recipe overrides the default behavior, allowing for fine-grained
   control over the redirect process.  As of now, this recipe simply 
   omits the query string for 301 requests. 

   RELEASE HISTORY:

   * v1.0.0 - 09/22/2006 - Initial release


 */


// override the built-in (:redirect:) pattern
Markup('redirect', '<include',
  '/\\(:redirect\\s+(\\S.*?):\\)/ei',
  "RedirectMarkup2(\$pagename, PSS('$1'))");

// override the built-in redirect function
function RedirectMarkup2($pagename, $opt) {
  $k = Keep("(:redirect $opt:)");
  global $MarkupFrame;
  if (!@$MarkupFrame[0]['redirect']) return $k;
  $opt = ParseArgs($opt);
  $to = @$opt['to']; if (!$to) $to = @$opt[''][0];
  if (!$to) return $k;
  if (preg_match('/^([^#]+)(#[A-Za-z][-\\w]*)$/', $to, $match))
    { $to = $match[1]; $anchor = $match[2]; }
  $to = MakePageName($pagename, $to);
  if (!PageExists($to)) return $k;
  if ($to == $pagename) return '';
  if (@$opt['from']
      && !MatchPageNames($pagename, FixGlob($opt['from'], '$1*.$2')))
    return '';
  if (preg_match('/^30[1237]$/', @$opt['status']))
     header("HTTP/1.1 {$opt['status']}");

  // for 301 requests, do not append the query string
  if($opt['status'] == '301')  Redirect($to, "{\$PageUrl}");
  else Redirect($to, "{\$PageUrl}?from=$pagename$anchor");

  exit();
}


?>