<?php if (!defined('PmWiki')) exit();
/**
  DoTheRightThing link redirector for PmWiki
  Written by (c) Petko Yotov 2009-2011

  This script is POSTCARDWARE, if you like it or use it,
  you can send me a postcard. Details at
  http://galleries.accent.bg/Thumblist2

  This text is written for PmWiki; 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. See pmwiki.php for full details
  and lack of warranty.

  Copyright 2009-2011 Petko Yotov http://5ko.fr
  Development sponsored by Notamment http://notamment.fr
*/
# Version date
$RecipeInfo['DTRT']['Version'] = '20110408';

SDVA($DTRT_links, array(
  'g'   => 'http://www.google.com/search?q=$1',
  'w'   => 'http://en.wikipedia.org/wiki/Special:Search?go=1&search=$1',
  '_default'   => 'http://www.google.com/search?q=$1',
));


SDVA($HandleActions, array('dtrt'=>'HandleDTRT'));

function HandleDTRT($pagename, $auth="read") {
  global $DTRT_links;

  #will ask for password if needed
  $page = RetrieveAuthPage($pagename,$auth,1, READPAGE_CURRENT);

  if (preg_match_all("/^\\s*(\\S*)\\s*:[^\\S\n]+(\\S*)/m", $page['text'],
    $match, PREG_SET_ORDER)) {
    foreach($match as $m)
    {
      $tmp = explode(',', $m[1]);
      foreach($tmp as $key)
        $DTRT_links[$key] = $m[2];
    }
  }
  list($k, $q) = explode(' ', urldecode(stripmagic($_GET['q'])), 2);
  
  if(!isset($DTRT_links[$k]) || $DTRT_links[$k] == 'null' || $DTRT_links[$k] == '' ) {
    $rxfound = 0;
    foreach ($DTRT_links as $rx=>$u) {
      if (!preg_match('/^\\/.*\\/i?$/', $rx)) continue;
      if (! preg_match($rx, $k)) continue;
      $rxfound = 1;
      $k = $rx; # no 'break', later defs override earlier ones
    }
    if(!$rxfound) {
      $k = '_default';
      $q = stripmagic($_GET['q']);
    }
  }

  $where = $DTRT_links[$k];
  if(strpos($where, 'function:')===0 ) {
    $func = str_replace('function:', "DTRT_", $where);
    if(! function_exists($func))
      Abort("User function '$func' does not exist.");
    $url = $func($q);
  }
  else $url = str_replace('$1', urlencode($q), $where);
  if(!$url) Abort("Bad configuration, where='$where', key='$k'; query='$q'.");
  Redirect($pagename, $url);
}