shift->cgi( CGI::Simple->new );
}
-=item get_protocol
-
-=cut
-
-sub get_protocol
-{
- my $self = shift;
- my $protocol = ($self->cgi->https) ? 'https' : 'http';
- return $protocol;
-}
-
=item parse_location
=cut
my $path = $args{path} || $r->cgi->url(-absolute => 1, -query=>1);
my $host = $args{domain};
($host = $r->cgi->url(-base => 1)) =~ s/^https?:\/\///i unless ($host);
- my $protocol = $args{protocol} || ($r->cgi->https()) ? 'https' : 'http';
+ my $protocol = $args{protocol} || $r->get_protocol;
$redirect_url = "${protocol}://${host}/${path}";
}
$status = $args{status} if ($args{status});
return;
}
+=item get_protocol
+
+=cut
+
+sub get_protocol
+{
+ my $self = shift;
+ my $protocol = ($self->cgi->https) ? 'https' : 'http';
+ return $protocol;
+}
+
=item send_output
=cut