49 lines
1.1 KiB
Perl
49 lines
1.1 KiB
Perl
package WebGUI::Content::PassiveAnalytics;
|
|
|
|
use strict;
|
|
use WebGUI::AdminConsole;
|
|
use WebGUI::Exception;
|
|
use WebGUI::PassiveAnalytics::Flow;
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Content::PassiveAnalytics
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Handle all requests for building and editing Passive Analytic flows.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use WebGUI::Content::PassiveAnalytics;
|
|
my $output = WebGUI::Content::PassiveAnalytics::handler($session);
|
|
|
|
=head1 SUBROUTINES
|
|
|
|
These subroutines are available from this package:
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 handler ( session )
|
|
|
|
The content handler for this package.
|
|
|
|
=cut
|
|
|
|
sub handler {
|
|
my ($session) = @_;
|
|
my $output = undef;
|
|
return undef unless $session->form->get('op') eq 'passiveAnalytics';
|
|
my $function = "www_".$session->form->get('func');
|
|
if ($function ne "www_" && (my $sub = WebGUI::PassiveAnalytics::Flow->can($function))) {
|
|
$output = $sub->($session);
|
|
}
|
|
else {
|
|
WebGUI::Error::MethodNotFound->throw(error=>"Couldn't call non-existant method $function inside PassiveAnalytics", method=>$function);
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
1;
|