implemented infoFromTgzFile()

diff --git a/pear/PEAR/Common.php b/pear/PEAR/Common.php
index d6b02cb6b4050b4802bef0dde81a376dd8a70535..5680f55acf06c35491e5267d16ce205bccfbe8a6 100644 (file)
--- a/pear/PEAR/Common.php
+++ b/pear/PEAR/Common.php
@@ -21,6 +21,7 @@
 // $Id$
 
 require_once 'PEAR.php';
+require_once 'Archive/Tar.php';
 
 /**
 * TODO:
@@ -372,10 +373,32 @@ class PEAR_Common extends PEAR
     */
     function infoFromTgzFile($file)
     {
-        // untar in temp
-        // chdir($tmp);
-        //return $this->infoFromDescriptionFile('package.xml');
-        // clean temp
+        $file = basename($file); // XXX Fixme: Only allows file in the current dir
+        if (!@is_file($file)) {
+            return $this->raiseError('no tar file supplied');
+        }
+        $tar = new Archive_Tar($file, true);
+        // XXX Fixme Windows
+        $tmpdir = '/tmp' . DIRECTORY_SEPARATOR . $file;
+        if (file_exists($tmpdir)) {
+            return $this->raiseError('Tmpdir: ' . $tmpdir .' already exists',
+                              null, PEAR_ERROR_TRIGGER, E_USER_ERROR);
+        }
+        if (!mkdir($tmpdir, 0755)) {
+            return $this->raiseError("Unable to create temporary directory $tmpdir.",
+                              null, PEAR_ERROR_TRIGGER, E_USER_ERROR);
+        }
+        $tar->extract($tmpdir);
+        // Assume the decompressed dir name
+        if (($pos = strrpos($file, '.')) === false) {
+            return $this->raiseError('file doesn\'t follow the package name convention');
+        }
+        $pkgdir = substr($file, 0, $pos);
+
+        $xml = $tmpdir . DIRECTORY_SEPARATOR . $pkgdir . DIRECTORY_SEPARATOR .'package.xml';
+        $info = $this->infoFromDescriptionFile($xml);
+        system("rm -rf $tmpdir"); // XXX FIXME Windows
+        return $info;
     }
 }
 ?>
\ No newline at end of file