Re: CGI::Application::Dispatch and 'default' run-modes

You've got tunnel vision :)


if( length $ENV{QUERY_STRING} ){
    print
        "Status: 302 Moved\015\012Location: $ENV{SCRIPT_NAME}/SiteMana
+ger\015\012\015\012"
} else {
    CGI::Application::Dispatch->dispatch();
}
[download]

If that's not what you want, then read the documentation more carefully, subclass CGI::Application::Dispatch and override the appropriate method.

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Comment on Re: CGI::Application::Dispatch and 'default' run-modes Download Code

Replies are listed 'Best First'.
Re^2: CGI::Application::Dispatch and 'default' run-modes by geektron (Curate) on Nov 03, 2004 at 06:25 UTC
well, i was trying to avoid something like this ... i know that i could do a redirect there, or a `mod_rewrite` trick, but i was trying to avoid it unless that's what i absolutely had to do. i'll try the patch, and if i can't get that to work, then i'll just use some redirect tricks.	[reply] [d/l]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.