App-DuckPAN

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  Date : 2015-12-02 12:30:20 +0000

    Move alt_rewrite functionality into IsSpice block above 

  Change: 1cebbe9c0f5d0a16e8fae982b87f819184059423
  Author: Zaahir Moolla <moollaza@fastmail.fm>
  Date : 2015-11-26 14:40:34 +0000

    Merge pull request #285 from duckduckgo/john/content-type-encoding

    Set charset in Content-Type response header in duckpan publisher 

  Change: 8d4c50460638f3d687c0dccce0dee6c56839626e
  Author: John Barrett <john@jbrt.org>
  Date : 2015-11-26 11:58:55 +0000

    Set charset in Content-Type header for rendered output. 

  Change: b52df5a4cb1aa131c398a955cf49ccc2aa37b5d1
  Author: Zaahir Moolla <moollaza@fastmail.fm>
  Date : 2015-11-26 10:59:58 +0000

    Merge pull request #284 from
    duckduckgo/john/remove-deprecated-domains

    Housekeeping : removing deprecated domains 

lib/App/DuckPAN/WebPublisher.pm  view on Meta::CPAN


	my $uri = $request->path_info eq '/' ? '/index' : $request->path_info;
	$uri =~ s/\/$//;

	my $file = $uri.'/'.$self->current_language.'.html';

	if (defined $site->fullpath_files->{$file}) {
		$self->app->emit_info('Request '.$request->path_info.' uses '.$file.' from DDG::Publisher...');
		$body = $site->fullpath_files->{$file}->uncached_content;
		$response->code("200");
		$response->content_type('text/html; charset=utf-8');
	}
	else {
		my $res = $self->app->http->request(HTTP::Request->new(GET => $url.$request->request_uri));
		if ($res->is_success) {
			$body = $res->decoded_content;
			$response->code($res->code);
			$response->content_type($res->content_type);
		}
		else {
			$body = "GET ".$url.$request->request_uri.": ".$res->status_line;



( run in 0.233 second using v1.01-cache-2.11-cpan-4d50c553e7e )