File Coverage

blib/lib/Clustericious/Controller.pm

Criterion	Covered	Total	%
statement	25	36	69.4
branch	3	6	50.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	2	2	100.0
total	38	55	69.0

package Clustericious::Controller;

use strict;
use warnings;
use Clustericious::Config;
use Clustericious::Log;
use Carp qw( carp );
use base 'Mojolicious::Controller';

# ABSTRACT: Clustericious controller base class
our $VERSION = '1.27'; # VERSION


sub url_for {
    my $c = shift;

    # NOTE: the only place it looks like we need to use this bizzarely
    # customized url_for is in Restmd.  If we can confirm/deny that we
    # do/don't need it there, then we can probably remove this special case
    # NOTE2: also used in the function below.

    # Note: This dos not seem to be the case anymore:
    # Original Comment: link_to calls url_for on a Mojo::URL which for some reason
    # causes /a/b?c=d to not work properly (? is escaped)
    return $_[0] if @_==1 && ref($_[0]) eq "Mojo::URL";

    my $base = $c->config->url_base( default => '' );
    my $url = $c->SUPER::url_for(@_);
    return $url unless $base;
    $url->base->parse($base);
    return $url;
}


sub redirect_to {
    my $self = shift;

    # Response
    my $res = $self->res;

    # Code
    $res->code(302);

    # Headers
    my $headers = $res->headers;
    my $loc = $self->url_for(@_);

    if (my $url_base = Clustericious::Config->new(ref $self->app)->url_base(default => '')) {
        $loc->base->parse($url_base);
    }

    $headers->location($loc->to_abs);
    $headers->content_length(0);

    # Rendered
    $self->rendered;

    return $self;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Clustericious::Controller - Clustericious controller base class

=head1 VERSION

version 1.27

=head1 SYNOPSIS

 use base qw( Clustericious::Controller );

=head1 DESCRIPTION

Base class for all controllers in Clustericious applications

=head1 SUPER CLASS

L<Mojolicious::Controller>

=head1 METHODS

=head2 url_for

Clustericious version of this method usually provided by Mojolicious.

=head2 redirect_to

Copied from Mojolicious::Controller, but works around
a limitation of Apache's mod_proxy (namely: the ProxyPassReverse
directive doesn't handle authorization information in the
Location header.)

It does this by explicitly using the url_base from the
Clustericious config file for the app as the base for
the location header.

=head1 SEE ALSO

L<Clustericious>

=head1 AUTHOR

Original author: Brian Duggan

Current maintainer: Graham Ollis E<lt>[e-mail]<gt>

Contributors:

Curt Tilmes

Yanick Champoux

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by NASA GSFC.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut