<?
/**
 * 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');
}