/[Frey]/branches/no-pager/lib/Frey/Designer.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 /branches/no-pager/lib/Frey/Designer.pm

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

trunk/lib/Frey/Designer.pm revision 201 by dpavlin, Tue Oct 28 22:13:08 2008 UTC branches/no-pager/lib/Frey/Designer.pm revision 762 by dpavlin, Tue Dec 9 20:28:33 2008 UTC
# Line 1  Line 1 
1  package Frey::Designer;  package Frey::HTML::Designer;
2  use Moose;  use Moose;
3    
4  =head1 NAME  =head1 NAME
5    
6  Frey::Designer - modify html (sometime in future)  Frey::HTML::Designer - modify html (sometime in future)
7    
8  =cut  =cut
9    
# Line 12  use Frey::Types; Line 12  use Frey::Types;
12    
13  extends 'Frey';  extends 'Frey';
14  with 'Frey::Web';  with 'Frey::Web';
15    with 'Frey::Path';
16    
17  has 'uri' => (  has 'uri' => (
18          is => 'rw',          is => 'rw',
# Line 37  has 'resolve_links' => ( Line 38  has 'resolve_links' => (
38  use HTML::Query;  use HTML::Query;
39  use File::Slurp;  use File::Slurp;
40  use LWP::Simple qw/get/;  use LWP::Simple qw/get/;
 use File::Path;  
41  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
42  use HTML::ResolveLink;  use HTML::ResolveLink;
43    
44  sub path {  sub path {
45          my $self = shift;          my $self = shift;
46          my $path = 'templates/www.carnet.hr/' . $self->uri->path;          my $path = join('/', ( 'templates', $self->uri->host, $self->uri->path ) );
47          $path .= '.html' if $path !~ m/\.\w+$/;          $path .= '.html' if $path !~ m/\.\w+$/;
48          return $path;          return $path;
49  }  }
# Line 56  sub get_page { Line 56  sub get_page {
56    
57          if ( ! -e $path && $self->mirror ) {          if ( ! -e $path && $self->mirror ) {
58    
59                  my $base_path = $path;                  $self->mkbasepath( $path );
                 $base_path =~ s{/[^/]+$}{};  
                 mkpath $base_path if ! -e $base_path;  
60    
61                  my $url = $self->uri;                  my $url = $self->uri;
62                  warn ">> mirror $url -> $path\n";                  warn ">> mirror $url -> $path\n";
# Line 81  sub get_page { Line 79  sub get_page {
79          return $body;          return $body;
80  }  }
81    
82  sub html {  sub as_markup {
83      my ( $self, $req ) = @_;      my ( $self ) = @_;
84    
85          my $body = $self->get_page;          my $body = $self->get_page;
86    
# Line 117  sub html { Line 115  sub html {
115    
116          warn "<< ", $self->uri,          warn "<< ", $self->uri,
117                  " ", -s $self->path,                  " ", -s $self->path,
                 " ", $req->params ? dump( $req->params ) : '',  
118                  "\n";                  "\n";
119    
120  =for later  =for later
# Line 141  sub html { Line 138  sub html {
138    
139          warn $body;          warn $body;
140    
141          $req->print( $self->page( title => $self->uri, body => $body ) );          return $self->page( title => $self->uri, body => $body );
142  }  }
143    
144  1;  1;
Legend:
Removed from v.201  
changed lines
  Added in v.762
  ViewVC Help
Powered by ViewVC 1.1.26