PclZip::privExtractByRule( $p_file_list, $p_path, $p_remove_path, $p_remove_all_path, $p_options )

3283  function privExtractByRule(&$p_file_list, $p_path, $p_remove_path, $p_remove_all_path, &$p_options)3284  {3285    $v_result=1;3286 3287    // ----- Magic quotes trick3288    $this->privDisableMagicQuotes();3289 3290    // ----- Check the path3291    if (   ($p_path == "")3292	    || (   (substr($p_path, 0, 1) != "/")3293		    && (substr($p_path, 0, 3) != "../")3294			&& (substr($p_path,1,2)!=":/")))3295      $p_path = "./".$p_path;3296 3297    // ----- Reduce the path last (and duplicated) '/'3298    if (($p_path != "./") && ($p_path != "/"))3299    {3300      // ----- Look for the path end '/'3301      while (substr($p_path, -1) == "/")3302      {3303        $p_path = substr($p_path, 0, strlen($p_path)-1);3304      }3305    }3306 3307    // ----- Look for path to remove format (should end by /)3308    if (($p_remove_path != "") && (substr($p_remove_path, -1) != '/'))3309    {3310      $p_remove_path .= '/';3311    }3312    $p_remove_path_size = strlen($p_remove_path);3313 3314    // ----- Open the zip file3315    if (($v_result = $this->privOpenFd('rb')) != 1)3316    {3317      $this->privSwapBackMagicQuotes();3318      return $v_result;3319    }3320 3321    // ----- Read the central directory information3322    $v_central_dir = array();3323    if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)3324    {3325      // ----- Close the zip file3326      $this->privCloseFd();3327      $this->privSwapBackMagicQuotes();3328 3329      return $v_result;3330    }3331 3332    // ----- Start at beginning of Central Dir3333    $v_pos_entry = $v_central_dir['offset'];3334 3335    // ----- Read each entry3336    $j_start = 0;3337    for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)3338    {3339 3340      // ----- Read next Central dir entry3341      @rewind($this->zip_fd);3342      if (@fseek($this->zip_fd, $v_pos_entry))3343      {3344        // ----- Close the zip file3345        $this->privCloseFd();3346        $this->privSwapBackMagicQuotes();3347 3348        // ----- Error log3349        PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive size');3350 3351        // ----- Return3352        return PclZip::errorCode();3353      }3354 3355      // ----- Read the file header3356      $v_header = array();3357      if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)3358      {3359        // ----- Close the zip file3360        $this->privCloseFd();3361        $this->privSwapBackMagicQuotes();3362