PclZip::privCalculateStoredFilename( $p_filedescr, $p_options )

2918  function privCalculateStoredFilename(&$p_filedescr, &$p_options)2919  {2920    $v_result=1;2921 2922    // ----- Working variables2923    $p_filename = $p_filedescr['filename'];2924    if (isset($p_options[PCLZIP_OPT_ADD_PATH])) {2925      $p_add_dir = $p_options[PCLZIP_OPT_ADD_PATH];2926    }2927    else {2928      $p_add_dir = '';2929    }2930    if (isset($p_options[PCLZIP_OPT_REMOVE_PATH])) {2931      $p_remove_dir = $p_options[PCLZIP_OPT_REMOVE_PATH];2932    }2933    else {2934      $p_remove_dir = '';2935    }2936    if (isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {2937      $p_remove_all_dir = $p_options[PCLZIP_OPT_REMOVE_ALL_PATH];2938    }2939    else {2940      $p_remove_all_dir = 0;2941    }2942 2943 2944    // ----- Look for full name change2945    if (isset($p_filedescr['new_full_name'])) {2946      // ----- Remove drive letter if any2947      $v_stored_filename = PclZipUtilTranslateWinPath($p_filedescr['new_full_name']);2948    }2949 2950    // ----- Look for path and/or short name change2951    else {2952 2953      // ----- Look for short name change2954      // Its when we change just the filename but not the path2955      if (isset($p_filedescr['new_short_name'])) {2956        $v_path_info = pathinfo($p_filename);2957        $v_dir = '';2958        if ($v_path_info['dirname'] != '') {2959          $v_dir = $v_path_info['dirname'].'/';2960        }2961        $v_stored_filename = $v_dir.$p_filedescr['new_short_name'];2962      }2963      else {2964        // ----- Calculate the stored filename2965        $v_stored_filename = $p_filename;2966      }2967 2968      // ----- Look for all path to remove2969      if ($p_remove_all_dir) {2970        $v_stored_filename = basename($p_filename);2971      }2972      // ----- Look for partial path remove2973      else if ($p_remove_dir != "") {2974        if (substr($p_remove_dir, -1) != '/')2975          $p_remove_dir .= "/";2976 2977        if (   (substr($p_filename, 0, 2) == "./")2978            || (substr($p_remove_dir, 0, 2) == "./")) {2979 2980          if (   (substr($p_filename, 0, 2) == "./")2981              && (substr($p_remove_dir, 0, 2) != "./")) {2982            $p_remove_dir = "./".$p_remove_dir;2983          }2984          if (   (substr($p_filename, 0, 2) != "./")2985              && (substr($p_remove_dir, 0, 2) == "./")) {2986            $p_remove_dir = substr($p_remove_dir, 2);2987          }2988        }2989 2990        $v_compare = PclZipUtilPathInclusion($p_remove_dir,2991                                             $v_stored_filename);2992        if ($v_compare > 0) {2993          if ($v_compare == 2) {2994            $v_stored_filename = "";2995          }2996          else {2997            $v_stored_filename = substr($v_stored_filename,