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

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";
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/