Esempio n. 1
0
 function key()
 {
     $curfile = $this->current();
     $role = \PEAR2\Pyrus\Installer\Role::factory(self::$_parent->getPackageType(), $curfile['attribs']['role']);
     // add the install-as attribute to retrieve packaging location
     return $role->getPackagingLocation(self::$_parent, $curfile['attribs']);
 }
Esempio n. 2
0
 function getFilePath($file)
 {
     $role = \PEAR2\Pyrus\Installer\Role::factory($this->packagefile->getPackageType(), $this->packagefile->packagingcontents[$file]['attribs']['role']);
     list(, $path) = $role->getRelativeLocation($this->packagefile, new \PEAR2\Pyrus\PackageFile\v2Iterator\FileTag($this->packagefile->packagingcontents[$file], '', $this->packagefile), true);
     $dir = \PEAR2\Pyrus\Config::singleton($this->registry->getPath())->{$role->getLocationConfig()};
     return $dir . DIRECTORY_SEPARATOR . $path;
 }
Esempio n. 3
0
 /**
  * Detect any files already installed that would be overwritten by
  * files inside the package represented by $package
  */
 public function detectFileConflicts(\PEAR2\Pyrus\PackageFileInterface $package)
 {
     // construct list of all installed files
     $filesByPackage = $allfiles = array();
     $config = \PEAR2\Pyrus\Config::current();
     foreach ($config->channelregistry as $channel) {
         foreach ($this->listPackages($channel->name) as $packagename) {
             $files = $this->info($packagename, $channel->name, 'installedfiles');
             $newfiles = array();
             foreach ($files as $file) {
                 $newfiles[$file['installed_as']] = $file;
             }
             $filesByPackage[$channel->name . '/' . $packagename] = $newfiles;
             $allfiles = array_merge($allfiles, $newfiles);
         }
     }
     // now iterate over each file in the package, and note all the conflicts
     $roles = array();
     foreach (Role::getValidRoles($package->getPackageType()) as $role) {
         // set up a list of file role => configuration variable
         // for storing in the registry
         $roles[$role] = Role::factory($package->getPackageType(), $role);
     }
     $ret = array();
     foreach ($package->installcontents as $file) {
         $relativepath = $roles[$file->role]->getRelativeLocation($package, $file);
         if (!$relativepath) {
             continue;
         }
         $testpath = $config->{$roles[$file->role]->getLocationConfig()} . DIRECTORY_SEPARATOR . $relativepath;
         if (isset($allfiles[$testpath])) {
             foreach ($filesByPackage as $pname => $files) {
                 if (isset($files[$testpath])) {
                     $ret[] = array($relativepath => $pname);
                     break;
                 }
             }
         }
     }
     return $ret;
 }
Esempio n. 4
0
 /**
  * Scan the directories top populate the package file contents.
  *
  * @param string $packagepath
  */
 function scanFiles($packagepath, $scanoptions)
 {
     $base_install_dirs = array('src' => implode('/', $packagepath), 'customrole' => '/', 'customtask' => '/', 'customcommand' => '/', 'data' => '/', 'docs' => '/', 'tests' => '/', 'scripts' => '/', 'www' => '/');
     if (isset($scanoptions['baseinstalldirs'])) {
         if (!is_array($scanoptions['baseinstalldirs'])) {
             throw new \PEAR2\Pyrus\Developer\Creator\Exception('invalid scan options,' . 'baseinstalldirs must ' . 'be an array');
         }
         $base_install_dirs = array_merge($base_install_dirs, $scanoptions['baseinstalldirs']);
     }
     $this->setBaseInstallDirs($base_install_dirs);
     $rolemap = array('src' => 'php', 'data' => 'data', 'customrole' => 'customrole', 'customtask' => 'customtask', 'customcommand' => 'customcommand', 'docs' => 'doc', 'tests' => 'test', 'examples' => 'doc', 'scripts' => 'script', 'www' => 'www');
     if (isset($scanoptions['rolemap'])) {
         if (!is_array($scanoptions['rolemap'])) {
             throw new \PEAR2\Pyrus\Developer\Creator\Exception('invalid scan options,' . 'rolemap must ' . 'be an array');
         }
         $rolemap = array_merge($rolemap, $scanoptions['rolemap']);
     }
     if (!isset($scanoptions['mappath'])) {
         $scanoptions['mappath'] = array();
     } elseif (!is_array($scanoptions['mappath'])) {
         throw new \PEAR2\Pyrus\Developer\Creator\Exception('invalid scan options,' . 'mappath must ' . 'be an array');
     }
     if (!isset($scanoptions['ignore'])) {
         $scanoptions['ignore'] = array();
     } else {
         if (!is_array($scanoptions['ignore'])) {
             throw new \PEAR2\Pyrus\Developer\Creator\Exception('invalid scan options,' . 'ignore must ' . 'be an array');
         }
         foreach ($scanoptions['ignore'] as $path => $type) {
             if (!is_string($path)) {
                 throw new \PEAR2\Pyrus\Developer\Creator\Exception('invalid scan options,' . 'ignore must ' . 'be an associative array ' . 'mapping path to type of ignore');
             }
             if ($type !== 'file' && $type !== 'dir') {
                 throw new \PEAR2\Pyrus\Developer\Creator\Exception('invalid scan options,' . 'ignore of ' . $path . ' must be either file or dir, but was ' . $type);
             }
         }
     }
     foreach ($rolemap as $dir => $role) {
         if (file_exists($this->path . DIRECTORY_SEPARATOR . $dir)) {
             $basepath = $dir === 'examples' ? 'examples' : '';
             foreach (new \PEAR2\Pyrus\Developer\PackageFile\PEAR2SVN\Filter($scanoptions['ignore'], $this->path . DIRECTORY_SEPARATOR . $dir, new \RecursiveIteratorIterator(new \RecursiveDirectoryIterator($this->path . DIRECTORY_SEPARATOR . $dir), \RecursiveIteratorIterator::LEAVES_ONLY), $role) as $file) {
                 $curpath = str_replace($this->path . DIRECTORY_SEPARATOR . $dir, '', $file->getPathName());
                 if ($curpath && $curpath[0] === DIRECTORY_SEPARATOR) {
                     $curpath = substr($curpath, 1);
                 }
                 if (isset($scanoptions['mappath'][$dir])) {
                     $curpath = $scanoptions['mappath'][$dir] . '/' . $curpath;
                 } else {
                     $curpath = $dir . '/' . $curpath;
                 }
                 $curpath = str_replace(array('\\', '//'), '/', $curpath);
                 $this->pxml->files[$curpath] = array('attribs' => array('role' => $role));
                 if ($this->doCompatible) {
                     $roleobject = \PEAR2\Pyrus\Installer\Role::factory($this->pxml->type, $role);
                     if ($role == 'customcommand' || $role == 'customrole' || $role == 'customtask') {
                         $compatiblerole = 'data';
                     } else {
                         $compatiblerole = $role;
                     }
                     $attribs = array('name' => $curpath, 'role' => $compatiblerole);
                     $baseinstalldir = $this->pxml_compatible->getBaseinstallDir($curpath);
                     if ($baseinstalldir && $baseinstalldir != '/') {
                         $attribs['baseinstalldir'] = $baseinstalldir;
                     }
                     $curpath = $roleobject->getPackagingLocation($this->pxml_compatible, $attribs);
                     $packagepath = $roleobject->getCompatibleInstallAs($this->pxml_compatible, $attribs);
                     $this->pxml_compatible->files[$curpath] = array('attribs' => array('role' => $compatiblerole));
                     $this->pxml_compatible->release[0]->installAs($curpath, $packagepath);
                 }
             }
         }
     }
     if ($this->doCompatible) {
         $this->pxml_compatible->dependencies['required']->pearinstaller->min = '1.4.8';
     }
 }
Esempio n. 5
0
 /**
  * Render packages from the creators passed into the constructor.
  *
  * This will take any package source and an array mapping internal
  * path => file name and create new packages in the formats requested.
  *
  * All files in package.xml will have the string @PACKAGE_VERSION@
  * automatically replaced with the current package's version
  * @param \PEAR2\Pyrus\Package $package
  * @param array $extrafiles
  */
 function render(\PEAR2\Pyrus\Package $package, array $extrafiles = array())
 {
     foreach ($this->_creators as $creator) {
         $creator->init();
     }
     $this->prepend = $prepend = $package->name . '-' . $package->version['release'];
     if ($package->isNewPackage()) {
         $packagexml = $prepend . '/.xmlregistry/packages/' . str_replace('/', '!', $package->channel) . '/' . $package->name . '/' . $package->version['release'] . '-info.xml';
     } else {
         if ($package->isOldAndCrustyCompatible()) {
             $packagexml = 'package2.xml';
             $old = file_get_contents('package.xml');
         } else {
             $packagexml = 'package.xml';
         }
     }
     if (self::VERSION === '@' . 'PACKAGE_VERSION@') {
         // we're running straight from SVN, so pretend to be 2.0.0
         $package->packagerversion = '2.0.0';
     } else {
         $package->packagerversion = self::VERSION;
     }
     // get packaging package.xml
     $packageingstr = (string) new \PEAR2\Pyrus\XMLWriter($package->toArray(true));
     foreach ($this->_creators as $creator) {
         $creator->addFile($packagexml, $packageingstr);
     }
     if ($package->isOldAndCrustyCompatible()) {
         foreach ($this->_creators as $creator) {
             $creator->addFile('package.xml', $old);
         }
     }
     if ($package->getInternalPackage() instanceof Xml) {
         // check for package_compatible.xml
         if ($package->isNewPackage() && file_exists($package->getFilePath('package_compatible.xml'))) {
             foreach ($this->_creators as $creator) {
                 $creator->addFile('package.xml', file_get_contents($package->getFilePath('package_compatible.xml')));
             }
         }
     }
     $packagingloc = \PEAR2\Pyrus\Config::current()->temp_dir . DIRECTORY_SEPARATOR . 'pyrpackage';
     if (file_exists($packagingloc)) {
         \PEAR2\Pyrus\Filesystem::rmrf($packagingloc, false, false);
     }
     mkdir($packagingloc, 0777, true);
     // $packageat is the relative path within the archive
     // $info is an array of format:
     // array('attribs' => array('name' => ...)[, 'tasks:blah' ...])
     $alreadyPackaged = array();
     $globalreplace = array('attribs' => array('from' => '@' . 'PACKAGE_VERSION@', 'to' => 'version', 'type' => 'package-info'));
     foreach ($package->packagingcontents as $packageat => $info) {
         $role = \PEAR2\Pyrus\Installer\Role::factory($package->getPackageType(), $info['attribs']['role']);
         try {
             $role->packageTimeValidate($package, $info);
         } catch (\Exception $e) {
             throw new Creator\Exception('Invalid file ' . $packageat . ': ' . $e->getMessage(), $e);
         }
         $packageat = str_replace('\\', '/', $packageat);
         $packageat = str_replace('//', '/', $packageat);
         if ($packageat[0] === '/' || strlen($packageat) > 2 && ($packageat[1] === ':' && $packageat[2] == '/')) {
             throw new Creator\Exception('Invalid path, cannot save a root path ' . $packageat);
         }
         if (preg_match('@^\\.\\.?/|/\\.\\.?\\z|/\\.\\./@', $packageat)) {
             throw new Creator\Exception('Invalid path, cannot use directory ' . 'reference . or .. ' . $packageat);
         }
         $alreadyPackaged[$packageat] = true;
         $packageat = $prepend . '/' . $packageat;
         $contents = $package->getFileContents($info['attribs']['name'], true);
         if (!file_exists(dirname($packagingloc . DIRECTORY_SEPARATOR . $packageat))) {
             mkdir(dirname($packagingloc . DIRECTORY_SEPARATOR . $packageat), 0777, true);
         }
         $fp = fopen($packagingloc . DIRECTORY_SEPARATOR . $packageat, 'wb+');
         ftruncate($fp, 0);
         stream_copy_to_stream($contents, $fp);
         fclose($contents);
         rewind($fp);
         if ($package->isNewPackage() && $info['attribs']['role'] == 'php') {
             if (isset($info['tasks:replace'])) {
                 if (isset($info['tasks:replace'][0])) {
                     $info['tasks:replace'][] = $globalreplace;
                 } else {
                     $info['tasks:replace'] = array($info['tasks:replace'], $globalreplace);
                 }
             } else {
                 $info['tasks:replace'] = $globalreplace;
             }
         }
         if (isset(\PEAR2\Pyrus\Config::current()->registry->package[$package->channel . '/' . $package->name])) {
             $version = \PEAR2\Pyrus\Config::current()->registry->info($package->name, $package->channel, 'version');
         } else {
             $version = null;
         }
         foreach (new Creator\TaskIterator($info, $package, \PEAR2\Pyrus\Task\Common::PACKAGE, $version) as $task) {
             // do pre-processing of file contents
             try {
                 $task->startSession($fp, $packageat);
             } catch (\Exception $e) {
                 // TODO: handle exceptions
             }
         }
         fclose($fp);
     }
     foreach ($this->_creators as $creator) {
         $creator->addDir($packagingloc);
     }
     if ($package->isNewPackage()) {
         $this->addPEAR2Stuff($alreadyPackaged);
     }
     $this->addExtraFiles($extrafiles);
     foreach ($this->_creators as $creator) {
         $creator->close();
     }
     \PEAR2\Pyrus\Filesystem::rmrf($packagingloc, false, false);
 }
Esempio n. 6
0
    /**
     * Detect any files already installed that would be overwritten by
     * files inside the package represented by $package
     */
    public function detectFileConflicts(\PEAR2\Pyrus\PackageFileInterface $package)
    {
        if (!static::existsRegistry($this->_path)) {
            throw new \PEAR2\Pyrus\ChannelRegistry\Exception('Error: no existing SQLite3 channel registry for ' . $this->_path);
        }
        $database = static::getRegistry($this->_path);

        $ret = array();
        $sql = 'SELECT
                    packages_channel, packages_name
                FROM files
                WHERE
                    packagepath = :path
                ORDER BY packages_channel, packages_name';
        $stmt = $database->prepare($sql);
        // now iterate over each file in the package, and note all the conflicts
        $roles = array();
        foreach (Role::getValidRoles($package->getPackageType()) as $role) {
            // set up a list of file role => configuration variable
            // for storing in the registry
            $roles[$role] = Role::factory($package->getPackageType(), $role);
        }

        $ret = array();
        $config = Config::current();
        foreach ($package->installcontents as $file) {
            $stmt->reset();
            $relativepath = $roles[$file->role]->getRelativeLocation($package, $file);
            if (!$relativepath) {
                continue;
            }

            $testpath = $config->{$roles[$file->role]->getLocationConfig()} .
                    DIRECTORY_SEPARATOR . $relativepath;
            $stmt->bindValue(':path', $testpath, SQLITE3_TEXT);
            $result = $stmt->execute();

            while ($res = $result->fetchArray(SQLITE3_ASSOC)) {
                $pn = $this->info($res['packages_name'], $res['packages_channel'], 'name');
                $ret[] = array($relativepath => $res['packages_channel'] . '/' . $pn);
            }
        }

        return $ret;
    }
Esempio n. 7
0
 /**
  * This is here to allow role extension through plugins
  * @param string
  */
 function _validateRole($role)
 {
     return in_array($role, \PEAR2\Pyrus\Installer\Role::getValidRoles($this->_pf->getPackageType()));
 }
Esempio n. 8
0
 /**
  * Retrieve configuration information about a file role from its XML info
  *
  * @param string $role role name
  * @return array
  */
 static function getInfo($role)
 {
     return \PEAR2\Pyrus\Installer\Role::getInfo($role);
 }
Esempio n. 9
0
 /**
  * Detect any files already installed that would be overwritten by
  * files inside the package represented by $package
  */
 public function detectFileConflicts(\PEAR2\Pyrus\PackageFileInterface $package)
 {
     $filemap = $this->readFileMap();
     if (!$filemap) {
         return array();
     }
     // now iterate over each file in the package, and note all the conflicts
     $roles = array();
     foreach (Role::getValidRoles($package->getPackageType()) as $role) {
         // set up a list of file role => configuration variable
         // for storing in the registry
         $roles[$role] = Role::factory($package->getPackageType(), $role);
     }
     $ret = array();
     foreach ($package->installcontents as $file) {
         $relativepath = $roles[$file->role]->getRelativeLocation($package, $file);
         if (!$relativepath) {
             continue;
         }
         if (isset($filemap[$file->role][$relativepath])) {
             if (is_array($filemap[$file->role][$relativepath])) {
                 $ret[] = array($relativepath => $filemap[$file->role][$relativepath][0] . '/' . $this->info($filemap[$file->role][$relativepath][1], $filemap[$file->role][$relativepath][0], 'name'));
             } else {
                 $ret[] = array($relativepath => 'pear.php.net/' . $this->info($filemap[$file->role][$relativepath], 'pear.php.net', 'name'));
             }
         }
     }
     return $ret;
 }