WebGUI::BackgroundProcess (used now by AssetExport)

lib/WebGUI/Operation/BackgroundProcess.pm

@@ -0,0 +1,74 @@
+package WebGUI::Operation::BackgroundProcess;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2009 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use warnings;
+
+use WebGUI::BackgroundProcess;
+use WebGUI::Pluggable;
+
+=head1 NAME
+
+WebGUI::Operation::BackgroundProcess
+
+=head1 DESCRIPTION
+
+URL dispatching for WebGUI::BackgroundProcess monitoring
+
+=head1 SUBROUTINES
+
+These subroutines are available from this package:
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 handler ( session )
+
+Dispatches to the proper module based on the module form parameter if op is
+background.  Returns insufficient privilege page if the user doesn't pass
+canView on the process before dispatching.
+
+=cut
+
+sub www_background {
+    my $session = shift;
+    my $form    = $session->form;
+    my $module  = $form->get('module') || 'Status';
+    my $pid     = $form->get('pid') || return undef;
+
+    my $process = WebGUI::BackgroundProcess->new( $session, $pid );
+
+    return $session->privilege->insufficient unless $process->canView;
+
+    my $log = $session->log;
+
+    unless ($process) {
+        $log->error("Tried to get info for nonexistent process $pid");
+        return undef;
+    }
+
+    my $output = eval { WebGUI::Pluggable::run( "WebGUI::BackgroundProcess::$module", 'handler', [$process] ); };
+
+    if ($@) {
+        $log->error($@);
+        return undef;
+    }
+
+    return $output;
+} ## end sub www_background
+
+1;