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;