function PclTarCreate($p_tarname, $p_filelist = "", $p_mode = "", $p_add_dir = "", $p_remove_dir = "") { TrFctStart(__FILE__, __LINE__, "PclTarCreate", "tar={$p_tarname}, file='{$p_filelist}', mode={$p_mode}, add_dir='{$p_add_dir}', remove_dir='{$p_remove_dir}'"); $v_result = 1; if ($p_mode == "" || $p_mode != "tar" && $p_mode != "tgz") { if (($p_mode = PclTarHandleExtension($p_tarname)) == "") { TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString()); return PclErrorCode(); } TrFctMessage(__FILE__, __LINE__, 1, "Auto mode selected : found {$p_mode}"); } if (is_array($p_filelist)) { $v_result = PclTarHandleCreate($p_tarname, $p_filelist, $p_mode, $p_add_dir, $p_remove_dir); } else { if (is_string($p_filelist)) { $v_list = explode(" ", $p_filelist); $v_result = PclTarHandleCreate($p_tarname, $v_list, $p_mode, $p_add_dir, $p_remove_dir); } else { PclErrorLog(-3, "Invalid variable type p_filelist"); $v_result = -3; } } TrFctEnd(__FILE__, __LINE__, $v_result); return $v_result; }
function PclTarCreate($p_tarname, $p_filelist = "", $p_mode = "", $p_add_dir = "", $p_remove_dir = "") { TrFctStart(__FILE__, __LINE__, "PclTarCreate", "tar={$p_tarname}, file='{$p_filelist}', mode={$p_mode}, add_dir='{$p_add_dir}', remove_dir='{$p_remove_dir}'"); $v_result = 1; // ----- Look for default mode if ($p_mode == "" || $p_mode != "tar" && $p_mode != "tgz") { // ----- Extract the tar format from the extension if (($p_mode = PclTarHandleExtension($p_tarname)) == "") { // ----- Return TrFctEnd(__FILE__, __LINE__, PclErrorCode(), PclErrorString()); return PclErrorCode(); } // ----- Trace TrFctMessage(__FILE__, __LINE__, 1, "Auto mode selected : found {$p_mode}"); } // ----- Look if the $p_filelist is really an array if (is_array($p_filelist)) { // ----- Call the create fct $v_result = PclTarHandleCreate($p_tarname, $p_filelist, $p_mode, $p_add_dir, $p_remove_dir); } else { if (is_string($p_filelist)) { // ----- Create a list with the elements from the string $v_list = explode(" ", $p_filelist); // ----- Call the create fct $v_result = PclTarHandleCreate($p_tarname, $v_list, $p_mode, $p_add_dir, $p_remove_dir); } else { // ----- Error log PclErrorLog(-3, "Invalid variable type p_filelist"); $v_result = -3; } } // ----- Return TrFctEnd(__FILE__, __LINE__, $v_result); return $v_result; }