# Plugin for TWiki Collaboration Platform, http://TWiki.org/
#
#
# 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.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details, published at 
# http://www.gnu.org/copyleft/gpl.html
#
# =========================
#
# Use EmptyPlugin.pm as a template
# for your own plugins; see TWiki.TWikiPlugins for details.
#
# This plugin implements compatability functions that support
# data defined using earlier versions of TWiki. The chances are
# good that you don't need it, and can simply disable it (add
# it to the DISABLEDPLUGINS list)
#
# Author: RafaelAlvarez (inspired by the SectionalEditPlugin)
# =========================
package TWiki::Plugins::EditSectionPlugin;

require TWiki::Func;
require TWiki::User;

use CGI qw( -any );

# =========================
use vars qw(
        $VERSION $pluginName
    );

$VERSION = '1.000';
$pluginName = 'EditSectionPlugin';  # Name of this Plugin

use strict;
sub initPlugin {
    # check for Plugins.pm versions
    if( $TWiki::Plugins::VERSION < 1.026 ) {
        TWiki::Func::writeWarning( "Version mismatch between $pluginName and Plugins.pm" );
        return 0;
    }

    return 1;
}



sub beforeCommonTagsHandler {
    # do not uncomment, use $_[0], $_[1]... instead
    ### my ( $text, $topic, $web ) = @_;
   my $query = TWiki::Func::getCgiQuery();
   my $id=$query->param('sectionid');
   if ($id) {
      my $saveUrl=TWiki::Func::getScriptUrl($_[2],$_[1],"save");
      $_[0]=~ s/<section\s+id\s*=\s*"$id"\s*>(.+?)<\/section>/&_renderForm($id,$1,$saveUrl)/seo;
   }

   my $url=TWiki::Func::getScriptUrl($_[2],$_[1],"view").'?sectionid=';
   $_[0]=~ s/<section\s+id\s*=\s*"([a-zA-Z0-9]+)"\s*>(.+?)<\/section>/<div class="section">$2<\/div><a href="$url$1">Edit<\/a>/sg;
    
    return $_[0];
}

sub postRenderingHandler {
    # do not uncomment, use $_[0], $_[1]... instead
    ### my ( $text, $topic, $web ) = @_;
   $_[0]=~ s/<!-- Edit-Section-Plugin -->[\n\r]*<pre>(\n\r?)?//s;
   $_[0]=~ s/<\/pre>[\n\r]*<!-- Edit-Section-Plugin -->//s;
}



sub _renderForm {
   my ($id,$text,$saveUrl) = @_;
   my $formText='<form action="'.$saveUrl.'" method="POST">'."\n";
   $formText.='<input type="hidden" name="sectionid" value="'.$id.'">'."\n";
   
   $formText.='<textarea id="editsection" name="text" wrap="virtual" rows="15" cols="90" style="width: 99%">'."\n";
   $formText.='<!-- Edit-Section-Plugin -->'."\n".'<verbatim>';
   $formText.=$text."\n";
   $formText.='</verbatim>'."\n".'<!-- Edit-Section-Plugin -->';
   $formText.='</textarea>'."\n";;
   $formText.='<input type="submit" name="Save" value="save">'."\n";;
   $formText.='</form>'."\n";;
   return $formText;
}

sub beforeSaveHandler {
    # do not uncomment, use $_[0], $_[1]... instead
    ## my ( $text, $topic, $web, $meta ) = @_;
   my $query = TWiki::Func::getCgiQuery();
   my $id=$query->param("sectionid");
   if ($id) {
      my $sectionText=$_[0];
      my ($meta,$text) = TWiki::Func::readTopic($_[2],$_[1]);
   
      #This is an ugly hack, needed because Store needs to be compatible with Cairo :(
      $sectionText =~ s/^%META:([^{]+){(.*)}%\r?\n/''/gem;
   
      if ($text=~ /(.*)<section\s+id\s*=\s*"$id"\s*>(.+?)<\/section>(.*)/s) {
         $_[0]=($1||'');
         $_[0].='<section id="'.$id.'">';
         $_[0].=$sectionText;
         $_[0].='</section>';
         $_[0].=($3||'');
         $_[3]=$meta;
      }
   }
}

1;