File Coverage

blib/lib/Kwiki/Edit/BackgroundSave.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::Edit::BackgroundSave;

use warnings;
use strict;
use Kwiki::Plugin '-Base';
use mixin 'Kwiki::Installer';
our $VERSION = '0.02';

const class_title => 'Background Save';
const class_id => 'background_save';
const javascript_file => 'background_save.js';
const config_file => 'background_save.yaml';

sub register {
	my $registry = shift;

	$registry->add(prerequisite => 'prototype');
	$registry->add(preload => $self->class_id);
	$registry->add(action => 'background_save');
	$registry->add(hook => 'edit:edit',
		post => 'add_button'
	);
	$registry->add(hook => 'headers:value',
		post => 'add_x_json_header'
	);
}

sub background_save {
	my $page = $self->hub->pages->current;
	if( $page->modified_time != CGI::param('page_time') ) {
		my %info = (
			problem => 'contention',
			user => $page->metadata->edit_by || 'UnknownUser',
			edittime => $page->edit_time,
		);
		$self->hub->headers->json(%info);
		return $page->modified_time;
	}
	$page->content(CGI::param('content'));
	$page->update->store;
	return $page->modified_time;
}

sub add_button {
	my $hook = pop;

	my $background_save = $self->config->edit_save_background_button_text;
	my $page_name = $self->pages->current->title;
	$background_save = <

	onClick="do_background_save('$page_name')"/>
BUTTON
	my $ret = $hook->returned;
	$ret =~ s/(\)/$1$background_save/i;
	$ret =~ s/(name\=\"page_content\")/$1 id\=\"page_content\"/i;
	$ret =~ s/(name\=\"page_time\")/$1 id\=\"page_time\"/i;
	return $ret;
}

sub add_x_json_header {
	return defined $self->json
		? ('-X_JSON', '('.$self->json.')', $_[-1]->returned)
		: $_[-1]->returned;
}

{
	no warnings 'redefine';
	no strict 'refs';
	use JSON;
	my $_json;
	*Spoon::Headers::json = sub {
		my ( $class, %args ) = @_;
		$_json = objToJson(keys(%args) > 1 ? \%args : $_[1])
			if keys(%args) > 0;
		return $_json;
	}
}

package Kwiki::Edit::BackgroundSave;
1; # End of Kwiki::Edit::BackgroundSave
__DATA__