luos/workflow/engine/methods/setup/skinsExport.php

<?php
/**
 * skinsExport.php
 *
 * ProcessMaker Open Source Edition
 * Copyright (C) 2004 - 2008 Colosa Inc.
 *
 * 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.
 *
 */
 
  function copyFile ( $input, $output ) {
    $content = file_get_contents ( $input );
    $filename = $output . PATH_SEP . basename ( $input );
    return file_put_contents ( $filename, $content );
  }

  function savePluginFile ( $tplName, $fileName, $fields ) {
    $pluginTpl      = PATH_GULLIVER_HOME . 'bin' . PATH_SEP . 'tasks' .PATH_SEP . 'templates' . PATH_SEP . $tplName . '.tpl';
    $template = new TemplatePower( $pluginTpl );
    $template->prepare();
    
    if ( is_array ($fields) ) {
      foreach ( $fields as $block => $data ) {
        $template->gotoBlock( "_ROOT" );
        if ( is_array( $data) )
          foreach ( $data as $rowId => $row ) {
            $template->newBlock( $block );
            foreach ( $row as $key => $val ) 
              $template->assign( $key, $val );
          }
        else
          $template->assign( $block, $data );
      }
    }
        
    $content = $template->getOutputContent();
    $iSize = file_put_contents ( $fileName, $content );
    return $iSize;
  }  

  function addTarFolder ( $tar, $pathBase,$pluginHome ) {
    $aux = explode( PATH_SEP, $pathBase);
    if ( $aux[count($aux) -2 ] == '.svn' ) return;
  
    if ($handle = opendir( $pathBase  )) {
      while ( false !== ($file = readdir($handle))) {
        if ( is_file ( $pathBase . $file ) ) {
        //print "file $file \n";
          $tar->addModify( $pathBase . $file,'', $pluginHome);
        }
        if ( is_dir (  $pathBase . $file ) && $file != '..' && $file != '.' ) {
        //print "dir $pathBase$file \n";
          addTarFolder ( $tar, $pathBase . $file . PATH_SEP ,$pluginHome);
        } 
      }
      closedir($handle);
    }
  }
  

  function packPlugin ( $pluginName, $version  ) {

    $pathBase   = PATH_DATA . 'skins' . PATH_SEP . $pluginName . PATH_SEP;
    $pathHome   = PATH_DATA . 'skins' . PATH_SEP . $pluginName ;
    $fileTar    = PATH_DATA . 'skins' . PATH_SEP . $pluginName . '-' . $version . '.tar';
  
    G::LoadSystem ('templatePower');
/*
    $pluginDirectory    = PATH_PLUGINS  . $pluginName;
    $pluginOutDirectory = PATH_OUTTRUNK . 'plugins' . PATH_SEP . $pluginName;
    $pluginHome         = PATH_OUTTRUNK . 'plugins' . PATH_SEP . $pluginName;

    //verify if plugin exists, 
    $pluginClassFilename = PATH_PLUGINS . $pluginName . PATH_SEP . 'class.' . $pluginName . '.php';
    if ( !is_file ( $pluginClassFilename ) ) { 
      printf("The plugin %s doesn't exist in this file %s \n", pakeColor::colorize( $pluginName, 'ERROR'), pakeColor::colorize( $pluginClassFilename, 'INFO') );
      die ;
    }
  */
    G::LoadThirdParty( 'pear/Archive','Tar');
    $tar = new Archive_Tar ( $fileTar);
    $tar->_compress=false;

    //$tar->createModify( $pathHome . PATH_SEP . $pluginName . '.php' ,'', $pathHome);
    addTarFolder ( $tar, $pathBase, $pathHome );
    $aFiles = $tar->listContent(); 
    return $fileTar;     
  }
 
global $RBAC;
switch ($RBAC->userCanAccess('PM_SETUP'))
{
  case -2:
    G::SendTemporalMessage('ID_USER_HAVENT_RIGHTS_SYSTEM', 'error', 'labels');
    G::header('location: ../login/login');
    die;
  break;
  case -1:
    G::SendTemporalMessage('ID_USER_HAVENT_RIGHTS_PAGE', 'error', 'labels');
    G::header('location: ../login/login');
    die;
  break;
}

  G::LoadClass("system");

  $id = $_GET['id'];
  
  $fileObj = PATH_SKINS . $id . '.cnf';
  
  if ( !file_exists($fileObj) ) {
    $oConf = new stdClass();
    $oConf->name = $id;
    $oConf->description = "description of skin $id ";
    $oConf->version     = 1;
    file_put_contents ( $fileObj, serialize ( $oConf) );
  }

  $oConf = unserialize ( file_get_contents ( $fileObj ));
  $oConf->version += 1;
  file_put_contents ( $fileObj, serialize ( $oConf) );
  
  $pathHome   = PATH_DATA . 'skins' . PATH_SEP . $id . PATH_SEP;
  $pathBase   = PATH_DATA . 'skins' . PATH_SEP . $id . PATH_SEP . $id . PATH_SEP;
  $pathPublic = $pathBase . 'data' . PATH_SEP . 'public_html' . PATH_SEP ;
  $pathImages = PATH_HTML . 'skins' . PATH_SEP . $id . PATH_SEP . 'images' . PATH_SEP;
  
  G::mk_dir ( $pathBase );
  G::mk_dir ( $pathBase . 'data' );
  G::mk_dir ( $pathPublic );
  G::mk_dir ( $pathPublic . 'images' );
  
//  file_put_contents ( PATH_DATA . 'skins' . PATH_SEP . $id  , "hello world" );
  $fields['className']   = $id;
  $fields['version']     = $oConf->version;
  $fields['description'] = $oConf->description;
  $fields['PMversion']   = System::getVersion();
  savePluginFile ( 'skinPluginMainClass' , $pathHome . $id . '.php', $fields );

  savePluginFile ( 'skinPluginClass' , $pathBase . 'class.' . $id . '.php', $fields );
  
  copyFile ( PATH_SKINS . $id . '.php'  , $pathBase . 'data' );
  copyFile ( PATH_SKINS . $id . '.html' , $pathBase . 'data' );
  copyFile ( PATH_SKINS . $id . '.cnf'  , $pathBase . 'data' );
  
  copyFile ( PATH_HTML . 'skins' . PATH_SEP . $id . PATH_SEP . 'iepngfix.htc'  , $pathPublic );
  copyFile ( PATH_HTML . 'skins' . PATH_SEP . $id . PATH_SEP . 'style.css'  ,    $pathPublic );


  $aFiles = array ();
  if ($handle = opendir( $pathImages )) {
    while ( false !== ($file = readdir($handle))) {
      if ( substr($file,0,1) != '.' ) {
        if ( isset($aFiles[ $file ]) ) $aFiles[$file] = 0; 
        copyFile ( $pathImages. $file , $pathPublic . 'images' . PATH_SEP );
        
      }
    }
    closedir($handle);
  }
  
  $fileTar = packPlugin ( $id, $oConf->version );
  

  $bDownload = true;
  G::streamFile ( $fileTar, $bDownload, basename($fileTar) );
  
  @G::rm_dir ($pathHome);
  @unlink ($fileTar);