<?php
/**
 * processes_Export.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.
 *
 */


G::LoadThirdParty('pear/json','class.json');

try {
  function myTruncate($chain, $limit, $break='.', $pad='...') {
    if (strlen($chain) <= $limit) {
      return $chain;
    }
    $breakpoint = strpos($chain, $break, $limit);
    if (false !== $breakpoint) {
      $len =strlen($chain) - 1;
      if ($breakpoint < $len) {
        $chain = substr($chain, 0, $breakpoint) . $pad;
      }
    }
    return $chain;
  }
  function addTitlle($Category, $Id, $Lang) {
    require_once 'classes/model/Content.php';
    $content = new Content();
    $value = $content->load($Category,'', $Id, $Lang);
    return $value;
  }
  
  $oJSON = new Services_JSON();
  $stdObj = $oJSON->decode( $_POST['data'] );
  if ( isset ($stdObj->pro_uid ) )
    $sProUid = $stdObj->pro_uid;
  else
    throw ( new Exception ( 'the process uid is not defined!.' ) );
  
  /* Includes */
  G::LoadClass('processes');
  G::LoadClass('xpdl');
  $oProcess  = new Processes();
  $oXpdl     = new Xpdl();
  $proFields = $oProcess->serializeProcess( $sProUid );
  $Fields = $oProcess->saveSerializedProcess ( $proFields );
  $xpdlFields = $oXpdl->xmdlProcess($sProUid);
  $Fields['FILENAMEXPDL'] = $xpdlFields['FILENAMEXPDL'];
  $Fields['FILENAME_LINKXPDL'] = $xpdlFields['FILENAME_LINKXPDL'];
  $pathLength = strlen(PATH_DATA ."sites".PATH_SEP.SYS_SYS.PATH_SEP."files".PATH_SEP."output".PATH_SEP);
  $length = strlen($Fields['PRO_TITLE']) + $pathLength;

  foreach($Fields as $key => $value)
  {
    if ($key == 'PRO_TITLE') {
      $Fields[$key] = myTruncate($value, 65, ' ', '...');
    }
    if ($key == 'FILENAME') {
      $Fields[$key] = myTruncate($value, 60, '_', '...pm');
    }
    if ($key == 'FILENAMEXPDL') {
      $Fields[$key] = myTruncate($value, 60, '_', '...xpdl');
    }
    if (($length) >= 250) {
      if ($key == 'FILENAME_LINK') {
        list($file,$rest) = explode ('p=',$value);
        list($filenameLink,$rest) = explode ('&',$rest);
        $Fields[$key] = myTruncate($filenameLink, 250 - $pathLength, '_', '');
        $Fields[$key] = $file."p=".$Fields[$key].'&'.$rest;
      }
      if ($key == 'FILENAME_LINKXPDL') {
        list($file,$rest) = explode ('p=',$value);
        list($filenameLinkXpdl,$rest) = explode ('&',$rest);
        $Fields[$key] = myTruncate($filenameLinkXpdl, 250 - $pathLength , '_', '');
        $Fields[$key] = $file."p=".$Fields[$key].'&'.$rest;
      }
    }
  }

  /* Render page */
  $G_PUBLISH = new Publisher;
  $G_PUBLISH->AddContent('xmlform', 'xmlform', 'processes/processes_Export', '', $Fields );
  G::RenderPage( 'publish', 'raw' );

}
catch ( Exception $e ){
  $G_PUBLISH = new Publisher;
  $aMessage['MESSAGE'] = $e->getMessage();
  $G_PUBLISH->AddContent('xmlform', 'xmlform', 'login/showMessage', '', $aMessage );
  G::RenderPage('publish', 'raw' );
}