From a4cb3c2aac2d2cfd384f57d7d426a13fe2c0ae85 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 15 May 2009 16:42:21 -0700
Subject: [PATCH] FilePump content handler.

---
 lib/WebGUI/Content/FilePump.pm | 49 ++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 lib/WebGUI/Content/FilePump.pm

diff --git a/lib/WebGUI/Content/FilePump.pm b/lib/WebGUI/Content/FilePump.pm
new file mode 100644
index 000000000..0433e958b
--- /dev/null
+++ b/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;