Re: Re: CGI::Application design strategy

[simon.proctor]

I realise you say the above is psuedo code but I have to ask. How do you normally represent:

$self->redirect( { rm => 'first_panel' } );

In your normal applications? Do you have a template method like the following (this is naturally untested):

sub redirect {
    my $self = shift;
    my $mode = shift;
    my $new_url = $self->param('app_url') . $mode->{'rm'};
    $self->header_type('redirect');
    $self->header_props(-url=>$new_url);
    return "Redirecting to $new_url";
  }

I ask as I have wanted to switch between run modes based on data and have had to stick with these kind of methods. Either that or I call the runmode method directly.

Just a quick question - I'm sure the answer is yes but I thought I would ask anyhoo.

[larsen]

The answer is yes. My actual code is pretty similar to yours.

sub build_redirect
{       
  my ($self, $form, $script) = @_;
    
  $form ||= {};                                                       
+          
  my $q = $self->query;
  my $uri = URI->new( $script || $q->script_name );                   
+          
  $uri->query_form(%$form);                                           
+          
        
  return $uri->as_string;
}       
        
sub redirect
{       
  my $self = shift;                                                   
+          
    
  $self->header_add( -uri => $self->build_redirect( @_ ) );           
+          
  $self->header_type('redirect');                                     
+          
}

[clscott]

[valdez]

And can you tell me what happens when users hit reload on their browsers? If you redirect users, they will not be able to reissue a command by reloading the login_update run mode. Nice, isn't it? :)

[dragonchild]

I implement logins using returns and if you have properly factored your code so each run-mode doesn't do more than it absolutely needs to, there's no problem. Remember - until the user has successfully logged in, the user can only see one page - the login screen. So what if they hit reload?