/[webpac2]/Webpacus/lib/Webpacus/Controller/Editor.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus/lib/Webpacus/Controller/Editor.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 135 by dpavlin, Thu Nov 24 22:29:29 2005 UTC revision 167 by dpavlin, Sat Nov 26 21:11:41 2005 UTC
# Line 4  use strict; Line 4  use strict;
4  use warnings;  use warnings;
5  use base 'Catalyst::Controller';  use base 'Catalyst::Controller';
6    
7    use Data::Dumper;
8    
9  =head1 NAME  =head1 NAME
10    
11  Webpacus::Controller::Editor - Catalyst Controller  Webpacus::Controller::Editor - AJAX template and CSS editor
12    
13  =head1 SYNOPSIS  =head1 SYNOPSIS
14    
15  See L<Webpacus>  See L<Webpacus>, L<WebPAC>
16    
17  =head1 DESCRIPTION  =head1 DESCRIPTION
18    
# Line 25  Catalyst Controller. Line 27  Catalyst Controller.
27  =cut  =cut
28    
29  sub default : Private {  sub default : Private {
30      my ( $self, $c ) = @_;          my ( $self, $c ) = @_;
31    
32            my $webpac = $c->comp('Model::WebPAC');
33            my $params = $c->req->params;
34            my $log = $c->log;
35    
36            my $template_filename =
37                    $c->req->params->{template_filename} ||
38                    $c->config->{webpac}->{default_template} ||
39                    $c->log->fatal("need default_template");
40    
41      my $webpac = $c->comp('Model::WebPAC');          $c->stash->{template_filename} = $template_filename;
     my $params = $c->req->params;  
     my $log = $c->log;  
42    
43      $c->stash->{template} = 'editor.tt';          $c->stash->{template} = 'editor.tt';
44  }  }
45    
46    =item template
47    
48    fetch template using C<template_filename> in request or
49    C<< webpac->default_template >>.
50    
51    =cut
52    
53  sub template : Local {  sub template : Local {
54          my ( $self, $c ) = @_;          my ( $self, $c ) = @_;
55    
56          my $template_file = $c->config->{webpac}->{default_template} || die("need default_template");          my $template_filename =
57                    $c->req->params->{template_filename} ||
58                    $c->config->{webpac}->{default_template} ||
59                    $c->log->fatal("need default_template");
60    
61          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
62    
63          my $template_full_path = $webpac->{template_path} . "/$template_file";          my $template_path = $webpac->{template_path} || $c->log->fatal("can't find template_path in Model::WebPAC");
64    
65            my $template_full_path = "$template_path/$template_filename";
66    
67            $c->log->debug("loading $template_full_path");
68    
69            if (! -r $template_full_path) {
70                    $c->log->warn("can't find '$template_full_path': $!");
71                    $c->res->output("can't find template '$template_full_path'");
72                    return;
73            }
74    
75            # load template html
76          $c->stash->{'template_content'} =          $c->stash->{'template_content'} =
77                  $webpac->load_html( $template_full_path );                  $webpac->load_html( $template_full_path );
78    
79            # load template list
80    
81            opendir(my $d, $template_path) || $c->log->fatal("can't opendir '$template_path': $!");
82            my @templates = grep { /\.tt$/i } readdir($d);
83    
84            $c->stash->{template_list} = \@templates;
85            $c->stash->{template_filename} = $template_filename;
86    
87          $c->stash->{template} = 'editor/template.tt';          $c->stash->{template} = 'editor/template.tt';
88  }  }
89    
90    =item css
91    
92    Return css.
93    
94    B<Not finished>
95    
96    =cut
97    
98  sub css : Local {  sub css : Local {
99          my ( $self, $c ) = @_;          my ( $self, $c ) = @_;
100    
101          my $css_file = $c->config->{webpac}->{default_css} || die("need default_css");          my $css_file = $c->config->{webpac}->{default_css} || die("need default_css");
102          my $css_path = $c->config->{webpac}->{css_path} || die("need css_path");          my $css_path = $c->config->{webpac}->{css_path} || die("need css_path");
103          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
104          $c->stash->{'css_content'} = $webpac->load_html( "$css_path/$css_file" );  
105            my $css_full_path = "$css_path/$css_file";
106    
107            $c->log->debug("loading $css_full_path");
108    
109            $c->stash->{'css_content'} = $webpac->load_html( $css_full_path );
110    
111          $c->stash->{template} = 'editor/css.tt';          $c->stash->{template} = 'editor/css.tt';
112  }  }
113    
114  =back  =item record
115    
116    Return html of record taking C<mfn> and C<template_filename> from request.
117    
118    =cut
119    
120    sub record : Local {
121            my ( $self, $c ) = @_;
122    
123            $c->log->debug('record params '.Dumper($c->req->params));
124    
125            my $mfn = $c->req->params->{mfn};
126    
127            if (! $mfn) {
128                    $c->log->warn("no mfn, using 1");
129                    $mfn = 1;
130            }
131    
132            my $template_filename = $c->req->params->{template_filename};
133            if (! $template_filename) {
134                    $template_filename = $c->config->{webpac}->{default_template} || $c->log->fatal("no webpac->default_template in configuration!");
135                    $c->log->warn("no template_filename using $template_filename");
136            }
137    
138            my $webpac = $c->comp('Model::WebPAC');
139    
140            $c->res->output(
141                    $webpac->record( mfn => $mfn, template => $template_filename )
142            );
143    }
144    
145    
146    
147    =back
148    
149  =head1 AUTHOR  =head1 AUTHOR
150    
151  Dobrica Pavlinusic,,,  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
152    
153  =head1 LICENSE  =head1 LICENSE
154    
Legend:
Removed from v.135  
changed lines
  Added in v.167
  ViewVC Help
Powered by ViewVC 1.1.26