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 |
} |
} |
81 |
return $body; |
return $body; |
82 |
} |
} |
83 |
|
|
84 |
sub html { |
sub request { |
85 |
my ( $self, $req ) = @_; |
my ( $self, $req ) = @_; |
86 |
|
|
87 |
my $body = $self->get_page; |
my $body = $self->get_page; |