/[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 165 by dpavlin, Sat Nov 26 20:21:54 2005 UTC revision 180 by dpavlin, Sun Nov 27 17:26:43 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 HTML::Tidy;
8  use Data::Dumper;  use Data::Dumper;
9    
10  =head1 NAME  =head1 NAME
# Line 53  C<< webpac->default_template >>. Line 54  C<< webpac->default_template >>.
54  sub template : Local {  sub template : Local {
55          my ( $self, $c ) = @_;          my ( $self, $c ) = @_;
56    
57          my $template_file =          my $template_filename =
58                  $c->req->params->{template_filename} ||                  $c->req->params->{template_filename} ||
59                  $c->config->{webpac}->{default_template} ||                  $c->config->{webpac}->{default_template} ||
60                  $c->log->fatal("need default_template");                  $c->log->fatal("need default_template");
61    
62          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
63    
64          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");
65    
66            my $template_full_path = "$template_path/$template_filename";
67    
68            if ($c->req->params->{save_template}) {
69    
70                    $c->response->content_type('text/html; charset=utf-8');
71    
72                    my $t = $c->req->params->{template_content};
73                    my $size = length($t);
74                    $c->log->debug("saving $template_full_path, $size bytes");
75                    if ($webpac->save_html( $template_full_path, $t )) {
76                            $c->res->output("<span>saved $template_filename, $size bytes</span>");
77                    } else {
78                            $c->res->output("<span>error saving $template_filename!</span>");
79                    }
80                    return;
81            }
82    
83          $c->log->debug("loading $template_full_path");          $c->log->debug("loading $template_full_path");
84    
85          if (! -r $template_full_path) {          if (! -r $template_full_path) {
86                  $c->log->warn("can't find '$template_full_path': $!");                  $c->log->warn("can't find '$template_full_path': $!");
87                    $c->response->content_type('text/html; charset=utf-8');
88                  $c->res->output("can't find template '$template_full_path'");                  $c->res->output("can't find template '$template_full_path'");
89                  return;                  return;
90          }          }
91    
92            # load template html
93          $c->stash->{'template_content'} =          $c->stash->{'template_content'} =
94                  $webpac->load_html( $template_full_path );                  $webpac->load_html( $template_full_path );
95    
96            # load template list
97    
98            opendir(my $d, $template_path) || $c->log->fatal("can't opendir '$template_path': $!");
99            my @templates = grep { /\.tt$/i } readdir($d);
100    
101            $c->stash->{template_list} = \@templates;
102            $c->stash->{template_filename} = $template_filename;
103    
104          $c->stash->{template} = 'editor/template.tt';          $c->stash->{template} = 'editor/template.tt';
105  }  }
106    
107  =item css  =item css
108    
109    Return css.
110    
111    B<Not finished>
112    
113  =cut  =cut
114    
115  sub css : Local {  sub css : Local {
116          my ( $self, $c ) = @_;          my ( $self, $c ) = @_;
117    
118          my $css_file = $c->config->{webpac}->{default_css} || die("need default_css");          my $css_filename = $c->config->{webpac}->{default_css} || die("need default_css");
119          my $css_path = $c->config->{webpac}->{css_path} || die("need css_path");          my $css_path = $c->config->{webpac}->{css_path} || die("need css_path");
120          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
121    
122          my $css_full_path = "$css_path/$css_file";          my $css_full_path = "$css_path/$css_filename";
123    
124            if ($c->req->params->{save_css}) {
125    
126                    $c->response->content_type('text/html; charset=utf-8');
127    
128                    my $t = $c->req->params->{css_content};
129                    my $size = length($t);
130                    $c->log->debug("saving $css_full_path, $size bytes");
131                    if ($webpac->save_html( $css_full_path, $t )) {
132                            $c->res->output("<span>saved $css_filename, $size bytes</span>");
133                    } else {
134                            $c->res->output("<span>error saving $css_filename!</span>");
135                    }
136                    return;
137            }
138    
139          $c->log->debug("loading $css_full_path");          $c->log->debug("loading $css_full_path");
140    
# Line 98  sub css : Local { Line 145  sub css : Local {
145    
146  =item record  =item record
147    
148    Return html of record taking C<mfn> and C<template_filename> from request.
149    
150  =cut  =cut
151    
152  sub record : Local {  sub record : Local {
# Line 120  sub record : Local { Line 169  sub record : Local {
169    
170          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
171    
172          $c->res->output(          my $html = $webpac->record( mfn => $mfn, template => $template_filename );
173                  $webpac->record( mfn => $mfn, template => $template_filename )  
174          );          if ($html) {
175                    $c->log->debug('check html with tidy');
176                    my $tidy = new HTML::Tidy;
177                    $tidy->ignore( text => [
178                            qr/DOCTYPE/, qr/unsupported/, qr/proprietary/i,
179                            qr/invalid character code/,
180                            qr/inserting missing 'title' element/,
181                            qr/lacks "summary" attribute/,
182                    ] );
183                    if ( $tidy->parse('html', $html) ) {
184                            if ( $tidy->messages ) {
185                                    $html .= '<div class="tidy">HTML Tidy output:';
186    
187                                    my @lines = split(/[\n\r]+/, $html);
188    
189                                    # Escape <, >, & and ", and to produce valid XML
190                                    my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
191                                    my $escape_re  = join '|' => keys %escape;
192    
193    
194                                    foreach my $m ( $tidy->messages ) {
195                                            my $c = $lines[ ( $m->line - 2 ) ];
196                                            my $txt = $m->as_string;
197                                            $c =~ s/($escape_re)/$escape{$1}/g;
198                                            $txt =~ s/($escape_re)/$escape{$1}/g;
199                                            my $class = '';
200                                            $class = ' class="tidy_'.lc($1).'"' if ($txt =~ /(Warning|Error):/s);
201                                            $html .= "<div${class}>$txt | <tt>$c</tt></div>";
202                                    }
203                                    $html .= '</div>';
204                            }
205                    } else {
206                            $html .= qq{<div class="tidy tidy_error">Can't parse this record with HTML Tidy!</div>};
207                    }
208            }
209                    
210                    
211            $c->response->content_type('text/html; charset=utf-8');
212            $c->res->output( $html );
213  }  }
214    
 =back  
215    
216    
217    =back
218    
219  =head1 AUTHOR  =head1 AUTHOR
220    
221  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.165  
changed lines
  Added in v.180
  ViewVC Help
Powered by ViewVC 1.1.26