perlquestion
skx
<p>I've got an issue with redirection failing from my CGI::Application when running under mod_perl.</p>
<p>I'm very new to mod_perl so I could well believe that I've done something wrong. My configuration for Apache2 + mod_perl is very minimal:</p>
<code>
ServerName ...
Alias /cgi-bin/ /mf/cgi-bin/
<Location /cgi-bin>
SetHandler perl-script
PerlHandler ModPerl::Registry
PerlSendHeader On
Options +ExecCGI
</Location>
</code>
<p>This works for most of my application, and appears to improve response time significantly - however there is one problem. My redirections, as coded in the CGI::Application do not work.</P>
<p>I've pared this down to a minimal clone of my code - I have a base class implementing a redirect method, and I have a subclass which uses that to redirect a few times.</p>
<p>In plain CGI-mode this works. In mod_perl it gives me the following output direct to my browser:</p>
<pre>
redirect<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>200 OK</title>
</head><body>
<h1>OK</h1>
<p>The document has moved
<a href="http://example.com/">here</a>.</p>
<hr>
<address>Apache/2.2.9 (Debian) PHP/5.2.6-2+b1 with
Suhosin-Patch mod_ssl/2.2.9
OpenSSL/0.9.8g mod_musicindex/1.2.2
mod_perl/2.0.4 Perl/v5.10.0
Server at mail-scanning.com Port 80</address>
</body></html>
</pre>
<p>Now here is my example code which exhibits the same problem:</p>
<code>
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Application;
#
# Base package
#
package Base;
use base 'CGI::Application';
sub redirectPage
{
my ( $self, $url ) = (@_);
$self->header_add( -location => $url );
$self->header_type('redirect');
}
#
# Derived package
#
package Derived;
use base 'Base';
sub setup
{
my( $self ) = ( @_ );
$self->run_modes( homepage => 'homepage' );
$self->start_mode('homepage');
$self->mode_param('mode');
}
#
# Dummy method to redirect to an external site.
#
sub homepage
{
my( $self ) = ( @_ );
return ( $self->redirectPage("http://example.com/") );
}
#
# Instance script
#
package main;
my $derived = new Derived();
$derived->run();
</code>
<p>Any clues, or tips are most welcome. Any more details I can provide just ask - this is all running upon libapache2-mod-perl2, as included in Debian.</p>
<p><b>Update:</b> - Strangly using <code>CGI::Application::Plugin::Redirect</code> works correctly if I change my code:</p>
<code>
package Base;
use base 'CGI::Application';
use CGI::Application::Plugin::Redirect;
sub redirectPage
{
my ( $self, $url ) = (@_);
return( $self->redirect( $url ) );
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-194370">
<a href="http://www.steve.org.uk/">Steve</a><br/>
-- <br/>
</div></div>