/[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

revision 203 by dpavlin, Thu Oct 30 17:53:09 2008 UTC revision 224 by dpavlin, Sat Nov 1 00:58:24 2008 UTC
# 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    
# 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 request {
83      my ( $self, $req ) = @_;      my ( $self, $req ) = @_;
84    
85          my $body = $self->get_page;          my $body = $self->get_page;
Legend:
Removed from v.203  
changed lines
  Added in v.224
  ViewVC Help
Powered by ViewVC 1.1.26