runmode in CGI::Application "nachträglich" ändern (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]10189[/thread]

runmode in CGI::Application "nachträglich" ändern

Superfrank

2007-08-23 16:43

User since
2006-09-05
164 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich habe eine Anwendung die auf
CPAN:

CGI::Application basiert. Gibt es die Möglichkeit aus einem runmode heraus einen anderen runmode aufzurufen? Ich habe schon etwas herumgedoktort, komme aber zu keinem Ergebnis.

Viele Grüsse

Frank

renee

2007-08-23 16:48

User since
2003-08-04
14371 Artikel
ModeratorIn

Du kannst die Funktion ganz normal aufrufen

Code (perl): (dl )

package MyApp;

use strict;
use warnings;
use base qw(CGI::Application::Plugin::HTCompiled CGI::Application);


sub setup{
    my ($self) = @_;

    $self->start_mode( 'box' );
    $self->mode_param( 'rm' );
    $self->run_modes(
        AUTOLOAD    => \&error,
        outbox      => \&outbox,
        inbox       => \&inbox,
    );
}

sub inbox{
    my ($self) = @_;
    
    return $self->outbox;
}

sub outbox{
    my ($self) = @_;
    
    retun "outbox";
}

Oder per redirect:

Code (perl): (dl )

package MyApp;

use strict;
use warnings;
use base qw(CGI::Application::Plugin::HTCompiled CGI::Application);
use CGI::Application::Plugin::Redirect;


sub setup{
    my ($self) = @_;

    $self->start_mode( 'box' );
    $self->mode_param( 'rm' );
    $self->run_modes(
        AUTOLOAD    => \&error,
        outbox      => \&outbox,
        inbox       => \&inbox,
    );
}

sub inbox{
    my ($self) = @_;
    my $url = 'http://localhost/skript.cgi?rm=outbox';
    
    $self->redirect( $url );
}

sub outbox{
    my ($self) = @_;
    
    retun "outbox";
}