<?php
/**
 * processes_ImportFileExisting.php
 *
 * ProcessMaker Open Source Edition
 * Copyright (C) 2004 - 2008 Colosa Inc.23
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 *
 * For more information, contact Colosa Inc, 2566 Le Jeune Rd.,
 * Coral Gables, FL, 33134, USA, or email info@colosa.com.
 */

try {
    //load the variables
    G::LoadClass( 'processes' );
    $oProcess = new Processes();

    if (! isset( $_POST['form']['IMPORT_OPTION'] )) {
        throw (new Exception( 'Please select an option before to continue' ));
    }

    $option = $_POST['form']['IMPORT_OPTION'];
    $filename = $_POST['form']['PRO_FILENAME'];
    $ObjUid = $_POST['form']['OBJ_UID'];

    $path = PATH_DOCUMENT . 'input' . PATH_SEP;
    $oData = $oProcess->getProcessData( $path . $filename );

    $Fields['PRO_FILENAME'] = $filename;
    $sProUid = $oData->process['PRO_UID'];
    $oData->process['PRO_UID_OLD'] = $sProUid;

    //Update the current Process, overwriting all tasks and steps
    if ($option == 1) {
        $oProcess->updateProcessFromData( $oData, $path . $filename );
        if (file_exists( PATH_OUTTRUNK . 'compiled' . PATH_SEP . 'xmlform' . PATH_SEP . $sProUid )) {
            $oDirectory = dir( PATH_OUTTRUNK . 'compiled' . PATH_SEP . 'xmlform' . PATH_SEP . $sProUid );
            while ($sObjectName = $oDirectory->read()) {
                if (($sObjectName != '.') && ($sObjectName != '..')) {
                    unlink( PATH_OUTTRUNK . 'compiled' . PATH_SEP . 'xmlform' . PATH_SEP . $sProUid . PATH_SEP . $sObjectName );
                }
            }
            $oDirectory->close();
        }
        $sNewProUid = $sProUid;
    }

    //Disable current Process and create a new version of the Process
    if ($option == 2) {
        $oProcess->disablePreviousProcesses( $sProUid );
        $sNewProUid = $oProcess->getUnusedProcessGUID();
        $oProcess->setProcessGuid( $oData, $sNewProUid );
        $oProcess->setProcessParent( $oData, $sProUid );
        $oData->process['PRO_TITLE'] = "New - " . $oData->process['PRO_TITLE'] . ' - ' . date( 'M d, H:i' );
        $oProcess->renewAllTaskGuid( $oData );
        $oProcess->renewAllDynaformGuid( $oData );
        $oProcess->renewAllInputGuid( $oData );
        $oProcess->renewAllOutputGuid( $oData );
        $oProcess->renewAllStepGuid( $oData );
        $oProcess->renewAllTriggerGuid( $oData );
        $oProcess->renewAllSubProcessGuid( $oData );
        $oProcess->createProcessFromData( $oData, $path . $filename );
    }

    //Create a completely new Process without change the current Process
    if ($option == 3) {
        //krumo ($oData);
        $sNewProUid = $oProcess->getUnusedProcessGUID();
        $oProcess->setProcessGuid( $oData, $sNewProUid );
        $oData->process['PRO_TITLE'] = "Copy of  - " . $oData->process['PRO_TITLE'] . ' - ' . date( 'M d, H:i' );
        $oProcess->renewAllTaskGuid( $oData );
        $oProcess->renewAllDynaformGuid( $oData );
        $oProcess->renewAllInputGuid( $oData );
        $oProcess->renewAllOutputGuid( $oData );
        $oProcess->renewAllStepGuid( $oData );
        $oProcess->renewAllTriggerGuid( $oData );
        $oProcess->renewAllSubProcessGuid( $oData );
        $oProcess->createProcessFromData( $oData, $path . $filename );
    }
    G::header( 'Location: processes_Map?PRO_UID=' . $sNewProUid );
} catch (Exception $e) {
    $G_PUBLISH = new Publisher();
    $aMessage['MESSAGE'] = $e->getMessage();
    $G_PUBLISH->AddContent( 'xmlform', 'xmlform', 'login/showMessage', '', $aMessage );
    G::RenderPage( 'publish', 'blank' );
}