FilePump content handler.

lib/WebGUI/Content/FilePump.pm

@@ -0,0 +1,49 @@
+package WebGUI::Content::FilePump;
+
+use strict;
+use WebGUI::AdminConsole;
+use WebGUI::Exception;
+use WebGUI::FilePump::Admin;
+
+=head1 NAME
+
+Package WebGUI::Content::FilePump
+
+=head1 DESCRIPTION
+
+Handle all requests for building and editing FilePump bundles
+
+=head1 SYNOPSIS
+
+ use WebGUI::Content::FilePump;
+ my $output = WebGUI::Content::FilePump::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 'filePump';
+    my $function = "www_".$session->form->get('func');
+    if ($function ne "www_" && (my $sub = WebGUI::FilePump::Admin->can($function))) {
+        $output = $sub->($session);
+    }
+    else {
+        WebGUI::Error::MethodNotFound->throw(error=>"Couldn't call non-existant method $function inside FilePump", method=>$function);
+    }
+    return $output;
+}
+
+1;