Webpacus/Controller/Editor.pm

package Webpacus::Controller::Editor;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

Webpacus::Controller::Editor - Catalyst Controller

=head1 SYNOPSIS

See L<Webpacus>

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=over 4

=item default

=cut

sub default : Private {
    my ( $self, $c ) = @_;

    my $webpac = $c->comp('Model::WebPAC');
    my $params = $c->req->params;
    my $log = $c->log;

    $c->stash->{template} = 'editor.tt';
}

sub template : Local {
        my ( $self, $c ) = @_;

        my $template_file = $c->config->{webpac}->{default_template} || die("need default_template");

        my $webpac = $c->comp('Model::WebPAC');

        my $template_full_path = $webpac->{template_path} . "/$template_file";

        $c->stash->{'template_content'} =
                $webpac->load_html( $template_full_path );

        $c->stash->{template} = 'editor/template.tt';
}

sub css : Local {
        my ( $self, $c ) = @_;

        my $css_file = $c->config->{webpac}->{default_css} || die("need default_css");
        my $css_path = $c->config->{webpac}->{css_path} || die("need css_path");
        my $webpac = $c->comp('Model::WebPAC');
        $c->stash->{'css_content'} = $webpac->load_html( "$css_path/$css_file" );
        $c->stash->{template} = 'editor/css.tt';
}

=back


=head1 AUTHOR

Dobrica Pavlinusic,,,

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;
1	dpavlin	134	package Webpacus::Controller::Editor;
2
3			use strict;
4			use warnings;
5			use base 'Catalyst::Controller';
6
7			=head1 NAME
8
9			Webpacus::Controller::Editor - Catalyst Controller
10
11			=head1 SYNOPSIS
12
13			See L<Webpacus>
14
15			=head1 DESCRIPTION
16
17			Catalyst Controller.
18
19			=head1 METHODS
20
21			=over 4
22
23			=item default
24
25			=cut
26
27			sub default : Private {
28			my ( $self, $c ) = @_;
29
30			my $webpac = $c->comp('Model::WebPAC');
31			my $params = $c->req->params;
32			my $log = $c->log;
33
34			$c->stash->{template} = 'editor.tt';
35			}
36
37			sub template : Local {
38	dpavlin	135	my ( $self, $c ) = @_;
39	dpavlin	134
40	dpavlin	135	my $template_file = $c->config->{webpac}->{default_template} \|\| die("need default_template");
41
42			my $webpac = $c->comp('Model::WebPAC');
43
44			my $template_full_path = $webpac->{template_path} . "/$template_file";
45
46			$c->stash->{'template_content'} =
47			$webpac->load_html( $template_full_path );
48
49			$c->stash->{template} = 'editor/template.tt';
50	dpavlin	134	}
51
52			sub css : Local {
53	dpavlin	135	my ( $self, $c ) = @_;
54	dpavlin	134
55	dpavlin	135	my $css_file = $c->config->{webpac}->{default_css} \|\| die("need default_css");
56			my $css_path = $c->config->{webpac}->{css_path} \|\| die("need css_path");
57			my $webpac = $c->comp('Model::WebPAC');
58			$c->stash->{'css_content'} = $webpac->load_html( "$css_path/$css_file" );
59			$c->stash->{template} = 'editor/css.tt';
60	dpavlin	134	}
61
62			=back
63
64
65			=head1 AUTHOR
66
67			Dobrica Pavlinusic,,,
68
69			=head1 LICENSE
70
71			This library is free software, you can redistribute it and/or modify
72			it under the same terms as Perl itself.
73
74			=cut
75
76			1;