/[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 167 by dpavlin, Sat Nov 26 21:11:41 2005 UTC revision 243 by dpavlin, Wed Dec 14 23:04:05 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 64  sub template : Local { Line 65  sub template : Local {
65    
66          my $template_full_path = "$template_path/$template_filename";          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 class=\"error\">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          }          }
# Line 98  B<Not finished> Line 115  B<Not finished>
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 class=\"error\">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    
141          $c->stash->{'css_content'} = $webpac->load_html( $css_full_path );          $c->stash->{'css_content'} = $webpac->load_html( $css_full_path );
142    
143            $c->stash->{'css_list'} = [ qw/user.css foobar.css/ ];
144    
145          $c->stash->{template} = 'editor/css.tt';          $c->stash->{template} = 'editor/css.tt';
146  }  }
147    
# Line 122  sub record : Local { Line 156  sub record : Local {
156    
157          $c->log->debug('record params '.Dumper($c->req->params));          $c->log->debug('record params '.Dumper($c->req->params));
158    
159          my $mfn = $c->req->params->{mfn};          my $record_uri = $c->req->params->{record_uri};
160    
161          if (! $mfn) {          if (! $record_uri) {
162                  $c->log->warn("no mfn, using 1");                  $c->log->fatal("no record_uri");
163                  $mfn = 1;                  $c->stash->{error} = 'record retrival failed';
164                    $c->stash->{template} = 'error.tt';
165                    return;
166          }          }
167    
168          my $template_filename = $c->req->params->{template_filename};          my $template_filename = $c->req->params->{template_filename};
# Line 137  sub record : Local { Line 173  sub record : Local {
173    
174          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
175    
176          $c->res->output(          my $html = $webpac->record( record_uri => $record_uri, template => $template_filename );
177                  $webpac->record( mfn => $mfn, template => $template_filename )  
178          );          if ($html) {
179                    $c->log->debug('check html with tidy');
180                    my $tidy = new HTML::Tidy;
181                    $tidy->ignore( text => [
182                            qr/DOCTYPE/, qr/unsupported/, qr/proprietary/i,
183                            qr/invalid character code/,
184                            qr/inserting missing 'title' element/,
185                            qr/lacks "summary" attribute/,
186                    ] );
187    
188                    my @lines = split( "\n", $html );
189                    $_ = "$_\n" for @lines;
190    
191                    if ( $tidy->parse('tidy', @lines) ) {
192                            if ( $tidy->messages ) {
193                                    $html .= <<__TIDY_CLOSE__;
194    <div id="tidy_show" class="notice" style="display: none;" onclick="Element.hide('tidy_show'); Element.show('tidy');">?</div>
195    <div id="tidy" class="tidy">
196    <a href="#" onclick="Element.hide('tidy'); Element.show('tidy_show'); return false;">close</a>
197    HTML Tidy output:
198    <br/>
199    __TIDY_CLOSE__
200                                    # Escape <, >, & and ", and to produce valid XML
201                                    my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
202                                    my $escape_re  = join '|' => keys %escape;
203    
204                                    foreach my $m ( $tidy->messages ) {
205                                            my $c = $lines[ ( $m->line - 1 ) ];
206                                            my $txt = $m->as_string;
207                                            $c =~ s/($escape_re)/$escape{$1}/g;
208                                            $txt =~ s/($escape_re)/$escape{$1}/g;
209                                            my $class = '';
210                                            $class = ' class="tidy_'.lc($1).'"' if ($txt =~ /(Warning|Error):/s);
211                                            $html .= 'line ' . $m->line . ":<span${class}>$txt<tt>$c</tt></span>";
212                                    }
213                                    $html .= '</div>';
214                            }
215                    } else {
216                            $html .= qq{<div class="tidy tidy_error">Can't parse this record with HTML Tidy!</div>};
217                    }
218            } else {
219                    $html .= qq{<div class="no_results">Can't find record</div>};
220            }
221    
222            $c->response->content_type('text/html; charset=utf-8');
223            $c->response->body( $html );
224  }  }
225    
226    
Legend:
Removed from v.167  
changed lines
  Added in v.243
  ViewVC Help
Powered by ViewVC 1.1.26