<h2>Edit File - PackageFile.php</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/opt/alt/php71/usr/share/pear/PEAR/PackageFile.php">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&lt;?php
/**
 * PEAR_PackageFile, package.xml parsing utility class
 *
 * PHP versions 4 and 5
 *
 * @category   pear
 * @package    PEAR
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @link       http://pear.php.net/package/PEAR
 * @since      File available since Release 1.4.0a1
 */

/**
 * needed for PEAR_VALIDATE_* constants
 */
require_once &#039;PEAR/Validate.php&#039;;
/**
 * Error code if the package.xml &lt;package&gt; tag does not contain a valid version
 */
define(&#039;PEAR_PACKAGEFILE_ERROR_NO_PACKAGEVERSION&#039;, 1);
/**
 * Error code if the package.xml &lt;package&gt; tag version is not supported (version 1.0 and 1.1 are the only supported versions,
 * currently
 */
define(&#039;PEAR_PACKAGEFILE_ERROR_INVALID_PACKAGEVERSION&#039;, 2);
/**
 * Abstraction for the package.xml package description file
 *
 * @category   pear
 * @package    PEAR
 * @author     Greg Beaver &lt;cellog@php.net&gt;
 * @copyright  1997-2009 The Authors
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 * @version    Release: 1.10.16
 * @link       http://pear.php.net/package/PEAR
 * @since      Class available since Release 1.4.0a1
 */
class PEAR_PackageFile
{
    /**
     * @var PEAR_Config
     */
    var $_config;
    var $_debug;

    var $_logger = false;
    /**
     * @var boolean
     */
    var $_rawReturn = false;

    /**
     * helper for extracting Archive_Tar errors
     * @var array
     * @access private
     */
    var $_extractErrors = array();

    /**
     *
     * @param   PEAR_Config $config
     * @param   ?   $debug
     * @param   string @tmpdir Optional temporary directory for uncompressing
     *          files
     */
    function __construct(&amp;$config, $debug = false)
    {
        $this-&gt;_config = $config;
        $this-&gt;_debug = $debug;
    }

    /**
     * Turn off validation - return a parsed package.xml without checking it
     *
     * This is used by the package-validate command
     */
    function rawReturn()
    {
        $this-&gt;_rawReturn = true;
    }

    function setLogger(&amp;$l)
    {
        $this-&gt;_logger = &amp;$l;
    }

    /**
     * Create a PEAR_PackageFile_Parser_v* of a given version.
     * @param   int $version
     * @return  PEAR_PackageFile_Parser_v1|PEAR_PackageFile_Parser_v1
     */
    function &amp;parserFactory($version)
    {
        if (!in_array($version[0], array(&#039;1&#039;, &#039;2&#039;))) {
            $a = false;
            return $a;
        }

        include_once &#039;PEAR/PackageFile/Parser/v&#039; . $version[0] . &#039;.php&#039;;
        $version = $version[0];
        $class = &quot;PEAR_PackageFile_Parser_v$version&quot;;
        $a = new $class;
        return $a;
    }

    /**
     * For simpler unit-testing
     * @return string
     */
    function getClassPrefix()
    {
        return &#039;PEAR_PackageFile_v&#039;;
    }

    /**
     * Create a PEAR_PackageFile_v* of a given version.
     * @param   int $version
     * @return  PEAR_PackageFile_v1|PEAR_PackageFile_v1
     */
    function &amp;factory($version)
    {
        if (!in_array($version[0], array(&#039;1&#039;, &#039;2&#039;))) {
            $a = false;
            return $a;
        }

        include_once &#039;PEAR/PackageFile/v&#039; . $version[0] . &#039;.php&#039;;
        $version = $version[0];
        $class = $this-&gt;getClassPrefix() . $version;
        $a = new $class;
        return $a;
    }

    /**
     * Create a PEAR_PackageFile_v* from its toArray() method
     *
     * WARNING: no validation is performed, the array is assumed to be valid,
     * always parse from xml if you want validation.
     * @param   array $arr
     * @return PEAR_PackageFileManager_v1|PEAR_PackageFileManager_v2
     * @uses    factory() to construct the returned object.
     */
    function &amp;fromArray($arr)
    {
        if (isset($arr[&#039;xsdversion&#039;])) {
            $obj = &amp;$this-&gt;factory($arr[&#039;xsdversion&#039;]);
            if ($this-&gt;_logger) {
                $obj-&gt;setLogger($this-&gt;_logger);
            }

            $obj-&gt;setConfig($this-&gt;_config);
            $obj-&gt;fromArray($arr);
            return $obj;
        }

        if (isset($arr[&#039;package&#039;][&#039;attribs&#039;][&#039;version&#039;])) {
            $obj = &amp;$this-&gt;factory($arr[&#039;package&#039;][&#039;attribs&#039;][&#039;version&#039;]);
        } else {
            $obj = &amp;$this-&gt;factory(&#039;1.0&#039;);
        }

        if ($this-&gt;_logger) {
            $obj-&gt;setLogger($this-&gt;_logger);
        }

        $obj-&gt;setConfig($this-&gt;_config);
        $obj-&gt;fromArray($arr);
        return $obj;
    }

    /**
     * Create a PEAR_PackageFile_v* from an XML string.
     * @access  public
     * @param   string $data contents of package.xml file
     * @param   int $state package state (one of PEAR_VALIDATE_* constants)
     * @param   string $file full path to the package.xml file (and the files
     *          it references)
     * @param   string $archive optional name of the archive that the XML was
     *          extracted from, if any
     * @return  PEAR_PackageFile_v1|PEAR_PackageFile_v2
     * @uses    parserFactory() to construct a parser to load the package.
     */
    function &amp;fromXmlString($data, $state, $file, $archive = false)
    {
        if (preg_match(&#039;/&lt;package[^&gt;]+version=[\&#039;&quot;]([0-9]+\.[0-9]+)[\&#039;&quot;]/&#039;, $data, $packageversion)) {
            if (!in_array($packageversion[1], array(&#039;1.0&#039;, &#039;2.0&#039;, &#039;2.1&#039;))) {
                return PEAR::raiseError(&#039;package.xml version &quot;&#039; . $packageversion[1] .
                    &#039;&quot; is not supported, only 1.0, 2.0, and 2.1 are supported.&#039;);
            }

            $object = &amp;$this-&gt;parserFactory($packageversion[1]);
            if ($this-&gt;_logger) {
                $object-&gt;setLogger($this-&gt;_logger);
            }

            $object-&gt;setConfig($this-&gt;_config);
            $pf = $object-&gt;parse($data, $file, $archive);
            if (PEAR::isError($pf)) {
                return $pf;
            }

            if ($this-&gt;_rawReturn) {
                return $pf;
            }

            if (!$pf-&gt;validate($state)) {;
                if ($this-&gt;_config-&gt;get(&#039;verbose&#039;) &gt; 0
                    &amp;&amp; $this-&gt;_logger &amp;&amp; $pf-&gt;getValidationWarnings(false)
                ) {
                    foreach ($pf-&gt;getValidationWarnings(false) as $warning) {
                        $this-&gt;_logger-&gt;log(0, &#039;ERROR: &#039; . $warning[&#039;message&#039;]);
                    }
                }

                $a = PEAR::raiseError(&#039;Parsing of package.xml from file &quot;&#039; . $file . &#039;&quot; failed&#039;,
                    2, null, null, $pf-&gt;getValidationWarnings());
                return $a;
            }

            if ($this-&gt;_logger &amp;&amp; $pf-&gt;getValidationWarnings(false)) {
                foreach ($pf-&gt;getValidationWarnings() as $warning) {
                    $this-&gt;_logger-&gt;log(0, &#039;WARNING: &#039; . $warning[&#039;message&#039;]);
                }
            }

            if (method_exists($pf, &#039;flattenFilelist&#039;)) {
                $pf-&gt;flattenFilelist(); // for v2
            }

            return $pf;
        } elseif (preg_match(&#039;/&lt;package[^&gt;]+version=[\&#039;&quot;]([^&quot;\&#039;]+)[\&#039;&quot;]/&#039;, $data, $packageversion)) {
            $a = PEAR::raiseError(&#039;package.xml file &quot;&#039; . $file .
                &#039;&quot; has unsupported package.xml &lt;package&gt; version &quot;&#039; . $packageversion[1] . &#039;&quot;&#039;);
            return $a;
        } else {
            if (!class_exists(&#039;PEAR_ErrorStack&#039;)) {
                require_once &#039;PEAR/ErrorStack.php&#039;;
            }

            PEAR_ErrorStack::staticPush(&#039;PEAR_PackageFile&#039;,
                PEAR_PACKAGEFILE_ERROR_NO_PACKAGEVERSION,
                &#039;warning&#039;, array(&#039;xml&#039; =&gt; $data), &#039;package.xml &quot;&#039; . $file .
                    &#039;&quot; has no package.xml &lt;package&gt; version&#039;);
            $object = &amp;$this-&gt;parserFactory(&#039;1.0&#039;);
            $object-&gt;setConfig($this-&gt;_config);
            $pf = $object-&gt;parse($data, $file, $archive);
            if (PEAR::isError($pf)) {
                return $pf;
            }

            if ($this-&gt;_rawReturn) {
                return $pf;
            }

            if (!$pf-&gt;validate($state)) {
                $a = PEAR::raiseError(&#039;Parsing of package.xml from file &quot;&#039; . $file . &#039;&quot; failed&#039;,
                    2, null, null, $pf-&gt;getValidationWarnings());
                return $a;
            }

            if ($this-&gt;_logger &amp;&amp; $pf-&gt;getValidationWarnings(false)) {
                foreach ($pf-&gt;getValidationWarnings() as $warning) {
                    $this-&gt;_logger-&gt;log(0, &#039;WARNING: &#039; . $warning[&#039;message&#039;]);
                }
            }

            if (method_exists($pf, &#039;flattenFilelist&#039;)) {
                $pf-&gt;flattenFilelist(); // for v2
            }

            return $pf;
        }
    }

    /**
     * Register a temporary file or directory.  When the destructor is
     * executed, all registered temporary files and directories are
     * removed.
     *
     * @param string  $file  name of file or directory
     * @return  void
     */
    static function addTempFile($file)
    {
        $GLOBALS[&#039;_PEAR_Common_tempfiles&#039;][] = $file;
    }

    /**
     * Create a PEAR_PackageFile_v* from a compressed Tar or Tgz file.
     * @access  public
     * @param string contents of package.xml file
     * @param int package state (one of PEAR_VALIDATE_* constants)
     * @return  PEAR_PackageFile_v1|PEAR_PackageFile_v2
     * @using   Archive_Tar to extract the files
     * @using   fromPackageFile() to load the package after the package.xml
     *          file is extracted.
     */
    function &amp;fromTgzFile($file, $state)
    {
        if (!class_exists(&#039;Archive_Tar&#039;)) {
            require_once &#039;Archive/Tar.php&#039;;
        }

        $tar = new Archive_Tar($file);
        if ($this-&gt;_debug &lt;= 1) {
            $tar-&gt;pushErrorHandling(PEAR_ERROR_RETURN);
        }

        $content = $tar-&gt;listContent();
        if ($this-&gt;_debug &lt;= 1) {
            $tar-&gt;popErrorHandling();
        }

        if (!is_array($content)) {
            if (is_string($file) &amp;&amp; strlen($file) &lt; 255 &amp;&amp;
                  (!file_exists($file) || !@is_file($file))) {
                $ret = PEAR::raiseError(&quot;could not open file \&quot;$file\&quot;&quot;);
                return $ret;
            }

            $file = realpath($file);
            $ret = PEAR::raiseError(&quot;Could not get contents of package \&quot;$file\&quot;&quot;.
                                     &#039;. Invalid tgz file.&#039;);
            return $ret;
        }

        if (!count($content) &amp;&amp; !@is_file($file)) {
            $ret = PEAR::raiseError(&quot;could not open file \&quot;$file\&quot;&quot;);
            return $ret;
        }

        $xml      = null;
        $origfile = $file;
        foreach ($content as $file) {
            $name = $file[&#039;filename&#039;];
            if ($name == &#039;package2.xml&#039;) { // allow a .tgz to distribute both versions
                $xml = $name;
                break;
            }

            if ($name == &#039;package.xml&#039;) {
                $xml = $name;
                break;
            } elseif (preg_match(&#039;/package.xml$/&#039;, $name, $match)) {
                $xml = $name;
                break;
            }
        }

        $tmpdir = System::mktemp(&#039;-t &quot;&#039; . $this-&gt;_config-&gt;get(&#039;temp_dir&#039;) . &#039;&quot; -d pear&#039;);
        if ($tmpdir === false) {
            $ret = PEAR::raiseError(&quot;there was a problem with getting the configured temp directory&quot;);
            return $ret;
        }

        PEAR_PackageFile::addTempFile($tmpdir);

        $this-&gt;_extractErrors();
        PEAR::staticPushErrorHandling(PEAR_ERROR_CALLBACK, array($this, &#039;_extractErrors&#039;));

        if (!$xml || !$tar-&gt;extractList(array($xml), $tmpdir)) {
            $extra = implode(&quot;\n&quot;, $this-&gt;_extractErrors());
            if ($extra) {
                $extra = &#039; &#039; . $extra;
            }

            PEAR::staticPopErrorHandling();
            $ret = PEAR::raiseError(&#039;could not extract the package.xml file from &quot;&#039; .
                $origfile . &#039;&quot;&#039; . $extra);
            return $ret;
        }

        PEAR::staticPopErrorHandling();
        $ret = &amp;PEAR_PackageFile::fromPackageFile(&quot;$tmpdir/$xml&quot;, $state, $origfile);
        return $ret;
    }

    /**
     * helper callback for extracting Archive_Tar errors
     *
     * @param PEAR_Error|null $err
     * @return array
     * @access private
     */
    function _extractErrors($err = null)
    {
        static $errors = array();
        if ($err === null) {
            $e = $errors;
            $errors = array();
            return $e;
        }
        $errors[] = $err-&gt;getMessage();
    }

    /**
     * Create a PEAR_PackageFile_v* from a package.xml file.
     *
     * @access public
     * @param   string  $descfile  name of package xml file
     * @param   int     $state package state (one of PEAR_VALIDATE_* constants)
     * @param   string|false $archive name of the archive this package.xml came
     *          from, if any
     * @return  PEAR_PackageFile_v1|PEAR_PackageFile_v2
     * @uses    PEAR_PackageFile::fromXmlString to create the oject after the
     *          XML is loaded from the package.xml file.
     */
    function &amp;fromPackageFile($descfile, $state, $archive = false)
    {
        $fp = false;
        if (is_string($descfile) &amp;&amp; strlen($descfile) &lt; 255 &amp;&amp;
             (
              !file_exists($descfile) || !is_file($descfile) || !is_readable($descfile)
              || (!$fp = @fopen($descfile, &#039;r&#039;))
             )
        ) {
            $a = PEAR::raiseError(&quot;Unable to open $descfile&quot;);
            return $a;
        }

        // read the whole thing so we only get one cdata callback
        // for each block of cdata
        fclose($fp);
        $data = file_get_contents($descfile);
        $ret = &amp;PEAR_PackageFile::fromXmlString($data, $state, $descfile, $archive);
        return $ret;
    }

    /**
     * Create a PEAR_PackageFile_v* from a .tgz archive or package.xml file.
     *
     * This method is able to extract information about a package from a .tgz
     * archive or from a XML package definition file.
     *
     * @access public
     * @param   string  $info file name
     * @param   int     $state package state (one of PEAR_VALIDATE_* constants)
     * @return  PEAR_PackageFile_v1|PEAR_PackageFile_v2
     * @uses    fromPackageFile() if the file appears to be XML
     * @uses    fromTgzFile() to load all non-XML files
     */
    function &amp;fromAnyFile($info, $state)
    {
        if (is_dir($info)) {
            $dir_name = realpath($info);
            if (file_exists($dir_name . &#039;/package.xml&#039;)) {
                $info = PEAR_PackageFile::fromPackageFile($dir_name .  &#039;/package.xml&#039;, $state);
            } elseif (file_exists($dir_name .  &#039;/package2.xml&#039;)) {
                $info = PEAR_PackageFile::fromPackageFile($dir_name .  &#039;/package2.xml&#039;, $state);
            } else {
                $info = PEAR::raiseError(&quot;No package definition found in &#039;$info&#039; directory&quot;);
            }

            return $info;
        }

        $fp = false;
        if (is_string($info) &amp;&amp; strlen($info) &lt; 255 &amp;&amp;
             (file_exists($info) || ($fp = @fopen($info, &#039;r&#039;)))
        ) {

            if ($fp) {
                fclose($fp);
            }

            $tmp = substr($info, -4);
            if ($tmp == &#039;.xml&#039;) {
                $info = &amp;PEAR_PackageFile::fromPackageFile($info, $state);
            } elseif ($tmp == &#039;.tar&#039; || $tmp == &#039;.tgz&#039;) {
                $info = &amp;PEAR_PackageFile::fromTgzFile($info, $state);
            } else {
                $fp   = fopen($info, &#039;r&#039;);
                $test = fread($fp, 5);
                fclose($fp);
                if ($test == &#039;&lt;?xml&#039;) {
                    $info = &amp;PEAR_PackageFile::fromPackageFile($info, $state);
                } else {
                    $info = &amp;PEAR_PackageFile::fromTgzFile($info, $state);
                }
            }

            return $info;
        }

        $info = PEAR::raiseError(&quot;Cannot open &#039;$info&#039; for parsing&quot;);
        return $info;
    }
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>