[tslogparser-CVS] tslogparser/admin tar.inc.php,NONE,1.1

[Sebastien D. <sde...@us...>]

Update of /cvsroot/tslogparser/tslogparser/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv554/admin

Added Files:
	tar.inc.php 
Log Message:
New method for testsuite uploading

--- NEW FILE: tar.inc.php ---
<?php

 /* This file is copied from the PEAR package, so PEAR installation is not 
   required on server.
   
   We try at first to include the real PEAR file, and if this fails we then
   define our version.
 */

$ok= @include("Archive/Tar.php");
if (!$ok)
{

/* We did not find the file, so we define the class here */
/* The rest of this file is copied from the PEAR package */

/* PEAR.php file content */
//
// +----------------------------------------------------------------------+
[...2556 lines suppressed...]
    {
      if (OS_WINDOWS) {
          // ----- Look for potential disk letter
          if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false)) {
              $p_path = substr($p_path, $v_position+1);
          }
          // ----- Change potential windows directory separator
          if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {
              $p_path = strtr($p_path, '\\', '/');
          }
      }
      return $p_path;
    }
    // }}}

}

/* Done */
}
?>