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

/*  stringreplace.php , a module for PmWiki 2
    Copyright 2007 Hans Bracker.

    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.
    
    stringreplace.php enables replacing of strings in pages.
    Markup syntax for replace links:
    (:stringreplace str1="to be replaced" str2="replacement string":)
    optional parameters:
    label="Replace": link text label
    target="TargetPage": for replacement
    redirect=0: do not redirect to TargetPage after replacement.
    By default after replace one is redirected to TargetPage.
    
    By default replacing is enabled for current page.
    To enable replacing for other pages set in local config file:
    $EnableStringReplaceTarget = 0;
    
    Replacements can also be done with Input forms, using action stringreplace.
    See Cookbook:StringReplace for details.
*/
$RecipeInfo['StringReplace'] = '2007-03-12';

SDV($EnableStringReplaceTarget,1);

# create replacelink
function ReplaceLinkMarkup($pagename, $opt) {
    $defaults = array(
        'label' => 'Replace',
        'target' => $pagename,
        'redirect' => 1,
    );
    $opt = array_merge($defaults, ParseArgs($opt));
#    echo $opt['target'];
    return "<a class='replacelink' href='{$PageUrl}?action=stringreplace&amp;str1={$opt['str1']}&amp;str2={$opt['str2']}&amp;target={$opt['target']}&amp;redir={$opt['redirect']}' rel='nofollow'>{$opt['label']}</a>";
}

Markup('replace','directives','/\(:stringreplace\\s+(.*?)\\s*:\)/e',
        "Keep(ReplaceLinkMarkup(\$pagename, PSS('$1')))");

# add stringreplace to actions
$HandleActions['stringreplace'] = 'StringReplace';
function StringReplace($pagename) {
    global $EnableStringReplaceTarget;
    # initialise
    $currpage = $pagename;

    # security check if page has 'stringreplace' (in markup or Input)
#    $cpage = RetrieveAuthPage($currpage, "read");
#    $ctext = $cpage['text'];
#    if(strstr($ctext,'stringreplace')==false) Redirect($currpage);
    
    # set optional target page
    if(isset($_POST['target']) OR isset($_GET['target'])) {
        if($EnableStringReplaceTarget==0) Redirect($currpage); //targets not allowed. stop.
        if(isset($_POST['target'])) $pagename = MakePageName($pagename, $_POST['target']);
        elseif($_GET['target']) $pagename = MakePageName($pagename, $_GET['target']);
    }
    
    # check edit permission
    $page = RetrieveAuthPage($pagename, 'edit', true);
    if (!$page) Abort("?cannot edit $pagename");
    $newpage = $page;
    
    # get strings 
    if(isset($_POST['str1'])) $str1 = stripmagic($_POST['str1']);
    else $str1 = stripmagic($_GET['str1']);
    if ($str1=="") HandleBrowse($currpage);
    if(isset($_POST['str2'])) $str2 = stripmagic($_POST['str2']);
    else $str2 = stripmagic($_GET['str2']);
    
    # do replacement in text
    $text = $page['text'];
    $textrows = explode("\n",$page['text']);
    foreach ($textrows as $nr => $line) {
      if(strstr($line,'(:stringreplace ')) continue; //don't replace in markup (:replace...:)
      if(strstr($line,'(:input ')) continue; //don't replace in any Input markup
      if(strstr($line,$str1)) {
          $textrows[$nr] = str_replace($str1, $str2, $textrows[$nr]);
         # break; //replace only first occurence
          }
    }
    $text = implode("\n",$textrows);
    
    # save page
    $newpage['text'] = $text;
    UpdatePage($pagename, $page, $newpage);
    
    # check redirect
    if(@$_POST['redir']==1 OR $_GET['redir']) Redirect($pagename);
    Redirect($currpage);
}