On Fri, Apr 24, 2009 at 2:22 PM, Tomas Doran <bobtf...@bobtfish.net> wrote:
> > On 24 Apr 2009, at 22:10, seasproc...@gmail.com wrote: > > The expected behavior (for me) is that secure() returns true if the >> connection is secured via SSL. >> >> Looking at Engine::CGI, it appears that it only returns true if >> $ENV{HTTPS} eq 'ON' or if you're on Port 443. >> >> Furthermore, if secure fails because you're on a non-standard port and >> HTTPS is not set, then base returns the wrong base (http instead of https). >> >> I am just really confused or is this desired behavior? >> > > Neither of the above. > > It's a bit too simple. > > Please illustrate your use case and how the current behavior doesn't work > for you, so we can work out what to do to instead / as well. > > I am running mod_perl/Apache 2.0 and serving SSL on a non-standard port via a VirtualHost. I thought my apache setup was vanilla, but perhaps not -- I am no apache expert. It seems surprising to have to set an ENV variable in order for $c->request->base to work correctly... cheers,. Phil If it's useful, here's my setup: <VirtualHost xx.xx.xx.xxx:444> SSLEngine on ServerName dev.myserver.org DocumentRoot /web/myroot Redirect /pub http://dev.myserver.org:8080/pub # enable SSL: SSLEngine on SSLCipherSuite ALL:!ADH:!EXPORT56:RC4+RSA:+HIGH:+MEDIUM:+LOW:+SSLv2:+EXP:+eNULL SSLCertificateFile "my.crt" SSLCertificateKeyFile "my.key" <Location /> SetHandler modperl PerlResponseHandler BCDB </Location> <LocationMatch "(/static|favicon.ico)"> SetHandler default-handler </LocationMatch> </VirtualHost> -- ========================== 2People citizen's network for climate action: http://www.2people.org Greater Seattle Climate Dialogues: http://www.climatedialogues.org The Great Warming coalition ==========================
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/