File Coverage

lib/Kwiki/NewPage.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::NewPage;
use Kwiki::Plugin -Base;
use mixin 'Kwiki::Installer';
use Kwiki ':char_classes';
our $VERSION = '0.12';

const class_id => 'new_page';
const cgi_class => 'Kwiki::NewPage::CGI';

sub register {
    my $registry = shift;
    $registry->add(action => 'new_page');
    $registry->add(toolbar => 'new_page_button',
                   template => 'new_page_button.html',
                  );
    $registry->add(prerequisite => 'edit');
}

sub new_page {
    my $error_msg = '';
    if ($self->cgi->button) {
        $error_msg = $self->check_page_name or do {
            my $page_uri =
              $self->pages->new_from_name($self->cgi->new_page_name)->uri;
            my $redirect = "action=edit&page_name=$page_uri";
            return $self->redirect($redirect);
        }
    }
    $self->render_screen(
        error_msg => $error_msg,
    );
}

sub check_page_name {
    my $page_name = $self->cgi->new_page_name;
    return "There is already a page named '$page_name'."
      if $self->pages->new_from_name($page_name)->exists;
    return "'$page_name' is an invalid page name. Can't contain spaces."
      if $page_name =~ /\s/;
    return "'$page_name' is an invalid page name. Invalid characters."
      unless $page_name =~ /^[$ALPHANUM]+$/;
    return;
}

package Kwiki::NewPage::CGI;
use Kwiki::CGI -base;

cgi new_page_name => -utf8;

package Kwiki::NewPage;
__DATA__