<?php

if (!isset($_REQUEST ['action'])) {
  $res ['success'] = false;
  $res ['error']=$res ['message'] = 'You may request an action';

  print G::json_encode($res);
  die ();
}
if (!function_exists($_REQUEST ['action'])) {
  $res ['success'] = false;
  $res ['error']=$res ['message'] = 'The requested action doesn\'t exists';

  print G::json_encode($res);
  die ();
}
$restrictedFunctions=array('copy_skin_folder','addTarFolder');
if (in_array($_REQUEST ['action'],$restrictedFunctions)) {
  $res ['success'] = false;
  $res ['error']=$res ['message'] = 'The requested action doesn\'t exists *';
  print G::json_encode($res);
  die ();
}


$functionName = $_REQUEST ['action'];
$functionParams = isset($_REQUEST ['params']) ? $_REQUEST ['params'] : array();

$functionName();

function updatePageSize() {
  G::LoadClass('configuration');
  $c = new Configurations();
  $arr['pageSize'] = $_REQUEST['size'];
  $arr['dateSave'] = date('Y-m-d H:i:s');
  $config = Array();
  $config[] = $arr;
  $c->aConfig = $config;
  $c->saveConfig('skinsList', 'pageSize', '', $_SESSION['USER_LOGGED']);
  echo '{success: true}';
}

function skinList() {
  //Create Skins custom folder if it doesn't exists
  if(!is_dir(PATH_CUSTOM_SKINS)){
    G::verifyPath(PATH_CUSTOM_SKINS, true);
  }

  //Get Skin Config files
  $skinListArray = array();
  $customSkins = glob(PATH_CUSTOM_SKINS . "*/config.xml");
  $configurationFile = G::ExpandPath("skinEngine") . 'base' . PATH_SEP . 'config.xml';
  array_unshift($customSkins, $configurationFile);

  //Read and parse each Configuration File
  foreach ($customSkins as $key => $configInformation) {

    $folderId = str_replace(G::ExpandPath("skinEngine") . 'base', "", str_replace(PATH_CUSTOM_SKINS, "", str_replace("/config.xml", "", $configInformation)));
    if ($folderId == "")
      $folderId = "classic";
    $xmlConfiguration = file_get_contents($configInformation);
    $xmlConfigurationObj = G::xmlParser($xmlConfiguration);
    if (isset($xmlConfigurationObj->result['skinConfiguration'])) {
      $skinInformationArray = $skinFilesArray = $xmlConfigurationObj->result['skinConfiguration']['__CONTENT__']['information']['__CONTENT__'];


      $menuOption = array();

      $res = array();
      $res['SKIN_FOLDER_ID'] = strtolower($folderId);
      foreach ($skinInformationArray as $keyInfo => $infoValue) {
        $res['SKIN_' . strtoupper($keyInfo)] = $infoValue['__VALUE__'];
      }
      $skinListArray['skins'][] = $res;
      $skinMenuArray[] = $menuOption;
    }
  }
  $skinListArray['currentSkin'] = SYS_SKIN;
  if ((isset($_REQUEST['type'])) && ($_REQUEST['type'] == "menu")) {
    print_r(G::json_encode($skinMenuArray));
  } else {
    print_r(G::json_encode($skinListArray));
  }
}

function newSkin($baseSkin='classic') {
//G::pr($_REQUEST);
  $skinBase = $baseSkin != "" ? strtolower($baseSkin) : 'classic';
  if ((isset($_REQUEST['skinBase'])) && ($_REQUEST['skinBase'] != "")) {
    $skinBase = strtolower($_REQUEST['skinBase']);
  }


  try {
    if (!(isset($_REQUEST['skinName']))) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_NAME_REQUIRED')) );
    }
    if (!(isset($_REQUEST['skinFolder']))) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_FOLDER_REQUIRED')) );
    }
    //Should validate skin folder name here
    //if....


    $skinName = $_REQUEST['skinName'];
    $skinFolder = $_REQUEST['skinFolder'];
    $skinDescription = isset($_REQUEST['skinDescription']) ? $_REQUEST['skinDescription'] : '';
    $skinAuthor = isset($_REQUEST['skinAuthor']) ? $_REQUEST['skinAuthor'] : 'ProcessMaker Team';

    if (is_dir(PATH_CUSTOM_SKINS . $skinFolder)) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_ALREADY_EXISTS')) );
    }
    if (strtolower($skinFolder) == 'classic') {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_ALREADY_EXISTS')) );
    }

    //All validations OK then create skin
    switch ($skinBase) {
      case 'classic': //Special Copy of this dir + xmlreplace
        //$configurationFile = G::ExpandPath("skinEngine") . 'base' . PATH_SEP . 'config.xml';
        copy_skin_folder(G::ExpandPath("skinEngine") . 'base' . PATH_SEP, PATH_CUSTOM_SKINS . $skinFolder,array("config.xml","baseCss"));
        $pathBase=G::ExpandPath("skinEngine") . 'base' . PATH_SEP;
        break;
      default: //Commmon copy/paste of a folder + xmlrepalce
        copy_skin_folder(PATH_CUSTOM_SKINS . $skinBase, PATH_CUSTOM_SKINS . $skinFolder,array("config.xml"));
        $pathBase=PATH_CUSTOM_SKINS.$skinBase;
        break;
    }
    //ReBuild config file
    //TODO: Improve this pre_replace lines
    $configFileOriginal = $pathBase .  PATH_SEP . 'config.xml';
    $configFileFinal = PATH_CUSTOM_SKINS . $skinFolder . PATH_SEP . 'config.xml';
    $xmlConfiguration = file_get_contents($configFileOriginal);
    $xmlConfiguration = preg_replace('/(<id>)(.+?)(<\/id>)/i', '<id>' . G::generateUniqueID() . '</id><!-- $2 -->', $xmlConfiguration);
    $xmlConfiguration = preg_replace("/(<name>)(.+?)(<\/name>)/i", "<name>" . $skinName . "</name><!-- $2 -->", $xmlConfiguration);
    $xmlConfiguration = preg_replace("/(<description>)(.+?)(<\/description>)/i", "<description>" . $skinDescription . "</description><!-- $2 -->", $xmlConfiguration);
    $xmlConfiguration = preg_replace("/(<author>)(.+?)(<\/author>)/i", "<author>" . $skinAuthor . "</author><!-- $2 -->", $xmlConfiguration);
    $xmlConfiguration = preg_replace("/(<createDate>)(.+?)(<\/createDate>)/i", "<createDate>" . date("Y-m-d H:i:s") . "</createDate><!-- $2 -->", $xmlConfiguration);
    $xmlConfiguration = preg_replace("/(<modifiedDate>)(.+?)(<\/modifiedDate>)/i", "<modifiedDate>" . date("Y-m-d H:i:s") . "</modifiedDate><!-- $2 -->", $xmlConfiguration);
    file_put_contents($configFileFinal, $xmlConfiguration);


    $response['success'] = true;
    $response['message'] = G::LoadTranslation('ID_SKIN_SUCCESS_CREATE');
    print_r(G::json_encode($response));
  } catch (Exception $e) {
    $response['success'] = false;
    $response['message'] = $e->getMessage();
    $response['error'] = $e->getMessage();
    print_r(G::json_encode($response));
  }
}

function importSkin() {
  try {
    if (!isset($_FILES['uploadedFile'])) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_FILE_REQUIRED')) );
    }
    $uploadedInstances = count($_FILES['uploadedFile']['name']);
    $sw_error = false;
    $sw_error_exists = isset($_FILES['uploadedFile']['error']);
    $emptyInstances = 0;
    $quequeUpload = array();
    // upload files & check for errors

    $tmp = $_FILES['uploadedFile']['tmp_name'];
    $items = stripslashes($_FILES['uploadedFile']['name']);
    if ($sw_error_exists)
      $up_err = $_FILES['uploadedFile']['error'];
    else
      $up_err= ( file_exists($tmp) ? 0 : 4);


    if ($items == "" || $up_err == 4) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_FILE_REQUIRED')) );
    }
    if ($up_err == 1 || $up_err == 2) {
      throw ( new Exception(G::LoadTranslation('ID_FILE_TOO_BIG')) );
      //$errors[$i]='miscfilesize';
    }
    if ($up_err == 3) {
      throw ( new Exception(G::LoadTranslation('ID_ERROR_UPLOAD_FILE_CONTACT_ADMINISTRATOR')) );
      //$errors[$i]='miscfilepart';
    }
    if (!@is_uploaded_file($tmp)) {
      throw ( new Exception(G::LoadTranslation('ID_ERROR_UPLOAD_FILE_CONTACT_ADMINISTRATOR')) );
      //$errors[$i]='uploadfile';
    }
    $fileInfo = pathinfo($items);
    $validType = array('tar', 'gz');

    if (!in_array($fileInfo['extension'], $validType)) {
      throw ( new Exception(G::LoadTranslation('ID_FILE_UPLOAD_INCORRECT_EXTENSION')) );
//$errors[$i]='wrongtype';
    }


    $filename = $items;
    $tempPath = PATH_CUSTOM_SKINS . '.tmp' . PATH_SEP;
    G::verifyPath($tempPath, true);
    $tempName = $tmp;
    G::uploadFile($tempName, $tempPath, $filename);
    G::LoadThirdParty('pear/Archive', 'Tar');
    $tar = new Archive_Tar($tempPath . $filename);
    $aFiles = $tar->listContent();
    $swConfigFile = false;

    foreach ($aFiles as $key => $val) {
      if (basename($val['filename']) == 'config.xml') {
        $skinName = dirname($val['filename']);
        $skinArray = explode("/", $skinName);
        if (count($skinArray) == 1) {
          $swConfigFile = true;
        }
      }
    }

    if (!$swConfigFile) {
      @unlink(PATH_CUSTOM_SKINS . '.tmp' . PATH_SEP . $filename);
      throw ( new Exception(G::LoadTranslation('ID_SKIN_CONFIGURATION_MISSING')) );
    }

    if (is_dir(PATH_CUSTOM_SKINS . $skinName)) {
      if ((isset($_REQUEST['overwrite_files'])) && ($_REQUEST['overwrite_files'] == 'on')) {
        G::rm_dir(PATH_CUSTOM_SKINS . $skinName, false);
      } else {
        throw ( new Exception(G::LoadTranslation('ID_SKIN_ALREADY_EXISTS')) );
      }
    }
    $res = $tar->extract(PATH_CUSTOM_SKINS);
    if (!$res) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_ERROR_EXTRACTING')) );
    }
//Delete Temporal
    @unlink(PATH_CUSTOM_SKINS . '.tmp' . PATH_SEP . $filename);

    $response['success'] = true;
    $response['message'] = G::LoadTranslation('ID_SKIN_SUCCESSFUL_IMPORTED');
    print_r(G::json_encode($response));
  } catch (Exception $e) {
    $response['success'] = false;
    $response['message'] = $e->getMessage();
    $response['error'] = $e->getMessage();
    print_r(G::json_encode($response));
  }
}

function exportSkin($skinToExport="") {
  try {
    if (!isset($_REQUEST['SKIN_FOLDER_ID'])) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_NAME_REQUIRED')) );
    }

    $skinName = $_REQUEST['SKIN_FOLDER_ID'];

    $skinFolderBase = PATH_CUSTOM_SKINS . $skinName;
    $skinFolder = $skinFolderBase . PATH_SEP;
    $skinTar = PATH_CUSTOM_SKINS . $skinName . '.tar';
    if (!is_dir($skinFolder)) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_DOESNT_EXIST')) );
    }
    if (!file_exists($skinFolder . "config.xml")) {
      throw ( new Exception(G::LoadTranslation('ID_SKIN_CONFIGURATION_MISSING')) );
    }

    if (file_exists($skinTar)) {
      //try to delete
      if (!unlink($skinTar)) {
        throw ( new Exception(G::LoadTranslation('ID_SKIN_FOLDER_PERMISSIONS')) );
      }
    }

    //Try to generate tar file

    G::LoadThirdParty('pear/Archive', 'Tar');
    $tar = new Archive_Tar($skinTar);
    $tar->_compress = false;

    addTarFolder($tar, $skinFolder, PATH_CUSTOM_SKINS);

    $response['success'] = true;
    $response['message'] = $skinTar;


    print_r(G::json_encode($response));
  } catch (Exception $e) {
    $response['success'] = false;
    $response['message'] = $e->getMessage();
    print_r(G::json_encode($response));
  }
}
function deleteSkin(){
  try{
    if(!(isset($_REQUEST['SKIN_FOLDER_ID']))){
      throw ( new Exception(G::LoadTranslation('ID_SKIN_FOLDER_REQUIRED')) );
    }
    if(($_REQUEST['SKIN_FOLDER_ID'])=="classic"){
      throw ( new Exception(G::LoadTranslation('ID_SKIN_FOLDER_NOT_DELETEABLE')) );
    }
    $folderId=$_REQUEST['SKIN_FOLDER_ID'];
    if(!is_dir(PATH_CUSTOM_SKINS.$folderId)){
      throw ( new Exception(G::LoadTranslation('ID_SKIN_NOT_EXISTS')) );
    }
    //Delete
    G::rm_dir(PATH_CUSTOM_SKINS.$folderId);
    $response['success'] = true;
    $response['message'] = "$folderId deleted";
  } catch (Exception $e) {
    $response['success'] = false;
    $response['error']=$response['message'] = $e->getMessage();
    print_r(G::json_encode($response));
  }
}
function streamSkin() {
  $skinTar = $_REQUEST['file'];
  $bDownload = true;
  G::streamFile($skinTar, $bDownload, basename($skinTar));
  @unlink($fileTar);
}

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 copy_skin_folder($path, $dest, $exclude=array()) {
  $defaultExcluded=array(".","..");
  $excludedItems=array_merge($defaultExcluded,$exclude);
  if (is_dir($path)) {
    @mkdir($dest);
    $objects = scandir($path);
    if (sizeof($objects) > 0) {
      foreach ($objects as $file) {
        if(in_array($file,$excludedItems))
          continue;
        // go on
        if (is_dir($path . PATH_SEP . $file)) {
          copy_skin_folder($path . PATH_SEP . $file, $dest . PATH_SEP . $file,$exclude);
        } else {
          copy($path . PATH_SEP . $file, $dest . PATH_SEP . $file);
        }
      }
    }
    return true;
  } elseif (is_file($path)) {
    return copy($path, $dest);
  } else {
    return false;
  }
}