## OpenCA - Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
## (c) Copyright 2002-2004 The OpenCA Project
##
##   File Name: bpSetState
##       Brief: view user of batch processor
## Description: 
##  Parameters: USER, PROCESS, state

use strict;

sub cmdBpSetState {

    our $query;

    my $user    = $query->param( 'USER' );
    my $process = $query->param( 'PROCESS' );
    my $state   = $query->param( 'state' );

    my $state_machine = libGetStateMachine ();
    $state_machine->set_user_states (
                                "USER"    => $user,
                                "PROCESS" => $process,
                                "SET"   => [ $state ]);
    libExecuteCommand ("bpViewProcess");
}

1;

