package TWiki::Plugins::SaveFromRestPlugin;

use strict;

require TWiki::Func;    # The plugins API

use vars qw( $VERSION $RELEASE $SHORTDESCRIPTION );

$SHORTDESCRIPTION = 'Save topic text from rest script invocation';
$VERSION = '$Rev$';
$RELEASE = '1.0';

sub initPlugin {
    my( $topic, $web, $user, $installWeb ) = @_;

    TWiki::Func::registerRESTHandler('save', \&_restSave);

    # Plugin correctly initialized
    return 1;
}

sub _restSave {
    my ($session) = @_;
    
    my $query = TWiki::Func::getCgiQuery();
    my $paramTopic = $query->param('topic');
    my $paramWeb = $query->param('topic');
    
    my ($web, $topic) = TWiki::Func::normalizeWebTopicName($paramWeb, $paramTopic);

	my $text = $query->param('text');
	my $result = TWiki::Func::saveTopicText($web, $topic, $text); 

    return "1";
}

1;