31 lines
701 B
Perl
31 lines
701 B
Perl
package WebGUI::Content::NewsletterManager;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use WebGUI::Pluggable;
|
|
|
|
sub handler {
|
|
my $session = shift;
|
|
my $form = $session->form;
|
|
|
|
my $module = $form->get('newsletter') || return;
|
|
|
|
my $class =
|
|
$module eq 'manage' ? 'WebGUI::Mailing::Admin'
|
|
: $module eq 'mailing' ? 'WebGUI::Mailing'
|
|
: $module eq 'bounce' ? 'WebGUI::Mailing::Bounce'
|
|
: return
|
|
;
|
|
|
|
my $func = 'www_' . ( $form->get('func') || 'view' );
|
|
my $id = $form->get('id');
|
|
|
|
my $object = WebGUI::Pluggable::instanciate( $class, 'new', [ $session, $id ] );
|
|
return $object->$func if $object->can( $func );
|
|
|
|
return;
|
|
}
|
|
|
|
1;
|
|
|