<?php

require_once __DIR__ . '/simpletest.php';
require_once __DIR__ . '/http.php';
require_once __DIR__ . '/encoding.php';
require_once __DIR__ . '/page.php';
require_once __DIR__ . '/php_parser.php';
require_once __DIR__ . '/tidy_parser.php';
require_once __DIR__ . '/selector.php';
require_once __DIR__ . '/frames.php';
require_once __DIR__ . '/user_agent.php';

if (! SimpleTest::getParsers()) {
    SimpleTest::setParsers(array(new SimpleTidyPageBuilder(), new SimplePHPPageBuilder()));
}

if (! defined('DEFAULT_MAX_NESTED_FRAMES')) {
    define('DEFAULT_MAX_NESTED_FRAMES', 3);
}

/**
 * Browser history list.
 */
class SimpleBrowserHistory
{
    private $sequence = array();
    private $position = -1;

    /**
     * Test for no entries yet.
     *
     * @return bool        True if empty.
     */
    protected function isEmpty()
    {
        return ($this->position == -1);
    }

    /**
     * Test for being at the beginning.
     *
     * @return bool        True if first.
     */
    protected function atBeginning()
    {
        return ($this->position == 0) && ! $this->isEmpty();
    }

    /**
     * Test for being at the last entry.
     *
     * @return bool        True if last.
     */
    protected function atEnd()
    {
        return ($this->position + 1 >= count($this->sequence)) && ! $this->isEmpty();
    }

    /**
     * Adds a successfully fetched page to the history.
     *
     * @param SimpleUrl $url                 URL of fetch.
     * @param SimpleEncoding $parameters     Any post data with the fetch.
     */
    public function recordEntry($url, $parameters)
    {
        $this->dropFuture();
        array_push(
                $this->sequence,
                array('url' => $url, 'parameters' => $parameters));
        $this->position++;
    }

    /**
     * Last fully qualified URL for current history position.
     *
     * @return SimpleUrl        URL for this position.
     */
    public function getUrl()
    {
        if ($this->isEmpty()) {
            return false;
        }

        return $this->sequence[$this->position]['url'];
    }

    /**
     * Parameters of last fetch from current history position.
     *
     * @return SimpleFormEncoding    Post parameters.
     */
    public function getParameters()
    {
        if ($this->isEmpty()) {
            return false;
        }

        return $this->sequence[$this->position]['parameters'];
    }

    /**
     * Step back one place in the history. Stops at the first page.
     *
     * @return bool     True if any previous entries.
     */
    public function back()
    {
        if ($this->isEmpty() || $this->atBeginning()) {
            return false;
        }
        $this->position--;

        return true;
    }

    /**
     * Step forward one place. If already at the latest entry then nothing will happen.
     *
     * @return bool     True if any future entries.
     */
    public function forward()
    {
        if ($this->isEmpty() || $this->atEnd()) {
            return false;
        }
        $this->position++;

        return true;
    }

    /**
     * Ditches all future entries beyond the current point.
     */
    protected function dropFuture()
    {
        if ($this->isEmpty()) {
            return;
        }
        while (! $this->atEnd()) {
            array_pop($this->sequence);
        }
    }
}

/**
 * Simulated web browser. This is an aggregate of the user agent,
 * the HTML parsing, request history and the last header set.
 */
class SimpleBrowser
{
    private $user_agent;
    private $page;
    private $history;
    private $ignore_frames;
    private $maximum_nested_frames;
    private $parser;

    /**
     * Starts with a fresh browser with no cookie or any other state information.
     * The exception is that a default proxy will be set up if specified in the options.
     */
    public function __construct()
    {
        $this->user_agent = $this->createUserAgent();
        $this->user_agent->useProxy(
                SimpleTest::getDefaultProxy(),
                SimpleTest::getDefaultProxyUsername(),
                SimpleTest::getDefaultProxyPassword());
        $this->page                  = new SimplePage();
        $this->history               = $this->createHistory();
        $this->ignore_frames         = false;
        $this->maximum_nested_frames = DEFAULT_MAX_NESTED_FRAMES;
    }

    /**
     * Creates the underlying user agent.
     *
     * @return SimpleUserAgent    Content fetcher.
     */
    protected function createUserAgent()
    {
        return new SimpleUserAgent();
    }

    /**
     * Creates a new empty history list.
     *
     * @return SimpleBrowserHistory    New list.
     */
    protected function createHistory()
    {
        return new SimpleBrowserHistory();
    }

    /**
     * Get the HTML parser to use. Can be overridden by setParser.
     * Otherwise scans through the available parsers and uses the first one which is available.
     *
     * @return object SimplePHPPageBuilder or SimpleTidyPageBuilder
     */
    protected function getParser()
    {
        if ($this->parser) {
            return $this->parser;
        }
        foreach (SimpleTest::getParsers() as $parser) {
            if ($parser->can()) {
                return $parser;
            }
        }
    }

    /**
     * Override the default HTML parser, allowing parsers to be plugged in.
     *
     * @param object           A parser object instance.
     */
    public function setParser($parser)
    {
        $this->parser = $parser;
    }

    /**
     * Disables frames support.
     * Frames will not be fetched and the frameset page will be used instead.
     */
    public function ignoreFrames()
    {
        $this->ignore_frames = true;
    }

    /**
     * Enables frames support. Frames will be fetched from now on.
     */
    public function useFrames()
    {
        $this->ignore_frames = false;
    }

    /**
     * Switches off cookie sending and recieving.
     */
    public function ignoreCookies()
    {
        $this->user_agent->ignoreCookies();
    }

    /**
     *    Switches back on the cookie sending and recieving.
     *    @access public
     */
    public function useCookies()
    {
        $this->user_agent->useCookies();
    }

    /**
     *    Get current list of cookies
     *    @access public
     *    @return array
     */
    public function getCookies()
    {
        return $this->user_agent->getCookies();
    }

    /**
     *    Import a list of cookies
     *    @access public
     *    @param array
     */
    public function setCookies(array $lstCookies)
    {
        return $this->user_agent->setCookies($lstCookies);
    }


    /**
     * Parses the raw content into a page.
     * Will load further frame pages unless frames are disabled.
     *
     * @param SimpleHttpResponse $response    Response from fetch.
     * @param int $depth                  Nested frameset depth.
     *
     * @return SimplePage                     Parsed HTML.
     */
    protected function parse($response, $depth = 0)
    {
        $page = $this->buildPage($response);
        if ($this->ignore_frames || ! $page->hasFrames() || ($depth > $this->maximum_nested_frames)) {
            return $page;
        }
        $frameset = new SimpleFrameset($page);
        foreach ($page->getFrameset() as $key => $url) {
            $frame = $this->fetch($url, new SimpleGetEncoding(), $depth + 1);
            $frameset->addFrame($frame, $key);
        }

        return $frameset;
    }

    /**
     * Assembles the parsing machinery and actually parses a single page.
     * Frees all of the builder memory and so unjams the PHP memory management.
     *
     * @param SimpleHttpResponse $response    Response from fetch.
     *
     * @return SimplePage                     Parsed top level page.
     */
    protected function buildPage($response)
    {
        return $this->getParser()->parse($response);
    }

    /**
     * Fetches a page.
     * Jointly recursive with the parse() method as it descends a frameset.
     *
     * @param string/SimpleUrl $url      Target to fetch.
     * @param SimpleEncoding $encoding   GET/POST parameters.
     * @param int $depth                 Nested frameset depth protection.
     *
     * @return SimplePage                Parsed page.
     */
    protected function fetch($url, $encoding, $depth = 0)
    {
        $http_referer = $this->history->getUrl();        
        if ($http_referer) {
            $this->user_agent->setReferer($http_referer->asString());
        } else {
            $this->user_agent->setReferer(null);
        }

        $response = $this->user_agent->fetchResponse($url, $encoding);
        if ($response->isError()) {
            return new SimplePage($response);
        }

        return $this->parse($response, $depth);
    }

    /**
     * Fetches a page or a single frame if that is the current focus.
     *
     * @param SimpleUrl $url                   Target to fetch.
     * @param SimpleEncoding $parameters       GET/POST parameters.
     *
     * @return string                          Raw content of page.
     */
    protected function load($url, $parameters)
    {
        $frame = $url->getTarget();
        if (! $frame || ! $this->page->hasFrames() || (strtolower($frame) == '_top')) {
            return $this->loadPage($url, $parameters);
        }

        return $this->loadFrame(array($frame), $url, $parameters);
    }

    /**
     * Fetches a page and makes it the current page/frame.
     *
     * @param string/SimpleUrl $url            Target to fetch as string.
     * @param SimplePostEncoding $parameters   POST parameters.
     *
     * @return string                          Raw content of page.
     */
    protected function loadPage($url, $parameters)
    {
        $this->page = $this->fetch($url, $parameters);
        $this->history->recordEntry(
                $this->page->getUrl(),
                $this->page->getRequestData());

        return $this->page->getRaw();
    }

    /**
     * Fetches a frame into the existing frameset replacing the original.
     *
     * @param array $frames                    List of names to drill down.
     * @param string/SimpleUrl $url            Target to fetch as string.
     * @param SimpleFormEncoding $parameters   POST parameters.
     *
     * @return string                          Raw content of page.
     */
    protected function loadFrame($frames, $url, $parameters)
    {
        $page = $this->fetch($url, $parameters);
        $this->page->setFrame($frames, $page);

        return $page->getRaw();
    }

    /**
     * Removes expired and temporary cookies as if the browser was closed and re-opened.
     *
     * @param string/integer $date   Time when session restarted. If omitted then all persistent
     * cookies are kept.
     */
    public function restart($date = false)
    {
        $this->user_agent->restart($date);
    }

    /**
     * Adds a header to every fetch.
     *
     * @param string $header       Header line to add to every request until cleared.
     */
    public function addHeader($header)
    {
        $this->user_agent->addHeader($header);
    }

    /**
     * Ages the cookies by the specified time.
     *
     * @param int $interval    Amount in seconds.
     */
    public function ageCookies($interval)
    {
        $this->user_agent->ageCookies($interval);
    }

    /**
     * Sets an additional cookie.
     * If a cookie has the same name and path it is replaced.
     *
     * @param string $name       Cookie key.
     * @param string $value      Value of cookie.
     * @param string $host       Host upon which the cookie is valid.
     * @param string $path       Cookie path if not host wide.
     * @param string $expiry     Expiry date.
     */
    public function setCookie($name, $value, $host = false, $path = '/', $expiry = false)
    {
        $this->user_agent->setCookie($name, $value, $host, $path, $expiry);
    }

    /**
     * Reads the most specific cookie value from the browser cookies.
     *
     * @param string $host        Host to search.
     * @param string $path        Applicable path.
     * @param string $name        Name of cookie to read.
     *
     * @return string             False if not present, else the value as a string.
     */
    public function getCookieValue($host, $path, $name)
    {
        return $this->user_agent->getCookieValue($host, $path, $name);
    }

    /**
     * Reads the current cookies for the current URL.
     *
     * @param string $name   Key of cookie to find.
     *
     * @return string        Null if there is no current URL, false if the cookie is not set.
     */
    public function getCurrentCookieValue($name)
    {
        return $this->user_agent->getBaseCookieValue($name, $this->page->getUrl());
    }

    /**
     * Sets the maximum number of redirects before a page will be loaded anyway.
     *
     * @param int $max        Most hops allowed.
     */
    public function setMaximumRedirects($max)
    {
        $this->user_agent->setMaximumRedirects($max);
    }

    /**
     * Sets the maximum number of nesting of framed pages within a framed page to prevent loops.
     *
     * @param int $max        Highest depth allowed.
     */
    public function setMaximumNestedFrames($max)
    {
        $this->maximum_nested_frames = $max;
    }

    /**
     * Sets the socket timeout for opening a connection.
     *
     * @param int $timeout      Maximum time in seconds.
     */
    public function setConnectionTimeout($timeout)
    {
        $this->user_agent->setConnectionTimeout($timeout);
    }

    /**
     * Sets proxy to use on all requests for when testing from behind a firewall.
     * Set URL to false to disable.
     *
     * @param string $proxy        Proxy URL.
     * @param string $username     Proxy username for authentication.
     * @param string $password     Proxy password for authentication.
     */
    public function useProxy($proxy, $username = false, $password = false)
    {
        $this->user_agent->useProxy($proxy, $username, $password);
    }

    /**
     * Fetches the page content with a HEAD request.
     * Will affect cookies, but will not change the base URL.
     *
     * @param string/SimpleUrl $url                Target to fetch as string.
     * @param hash/SimpleHeadEncoding $parameters  Additional parameters for HEAD request.
     *
     * @return bool                             True if successful.
     */
    public function head($url, $parameters = false)
    {
        if (! is_object($url)) {
            $url = new SimpleUrl($url);
        }
        if ($this->getUrl()) {
            $url = $url->makeAbsolute($this->getUrl());
        }
        $response   = $this->user_agent->fetchResponse($url, new SimpleHeadEncoding($parameters));
        $this->page = new SimplePage($response);

        return ! $response->isError();
    }

    /**
     * Fetches the page content with a simple GET request.
     *
     * @param string/SimpleUrl $url                Target to fetch.
     * @param hash/SimpleFormEncoding $parameters  Additional parameters for GET request.
     *
     * @return string                              Content of page or false.
     */
    public function get($url, $parameters = false)
    {
        if (! is_object($url)) {
            $url = new SimpleUrl($url);
        }
        if ($this->getUrl()) {
            $url = $url->makeAbsolute($this->getUrl());
        }

        return $this->load($url, new SimpleGetEncoding($parameters));
    }

    /**
     * Fetches the page content with a POST request.
     *
     * @param string/SimpleUrl $url                Target to fetch as string.
     * @param hash/SimpleFormEncoding $parameters  POST parameters or request body.
     * @param string $content_type                 MIME Content-Type of the request body
     *
     * @return string                              Content of page.
     */
    public function post($url, $parameters = false, $content_type = false)
    {
        if (! is_object($url)) {
            $url = new SimpleUrl($url);
        }
        if ($this->getUrl()) {
            $url = $url->makeAbsolute($this->getUrl());
        }

        return $this->load($url, new SimplePostEncoding($parameters, $content_type));
    }

    /**
     * Fetches the page content with a PUT request.
     *
     * @param string/SimpleUrl $url                Target to fetch as string.
     * @param hash/SimpleFormEncoding $parameters  PUT request body.
     * @param string $content_type                 MIME Content-Type of the request body
     *
     * @return string                              Content of page.
     */
    public function put($url, $parameters = false, $content_type = false)
    {
        if (! is_object($url)) {
            $url = new SimpleUrl($url);
        }

        return $this->load($url, new SimplePutEncoding($parameters, $content_type));
    }

    /**
     * Sends a DELETE request and fetches the response.
     *
     * @param string/SimpleUrl $url                Target to fetch.
     * @param hash/SimpleFormEncoding $parameters  Additional parameters for DELETE request.
     *
     * @return string                              Content of page or false.
     */
    public function delete($url, $parameters = false)
    {
        if (! is_object($url)) {
            $url = new SimpleUrl($url);
        }

        return $this->load($url, new SimpleDeleteEncoding($parameters));
    }

    /**
     * Equivalent to hitting the retry button on the browser.
     * Will attempt to repeat the page fetch.
     * If there is no history to repeat it will give false.
     *
     * @return string/boolean   Content if fetch succeeded else false.
     */
    public function retry()
    {
        $frames = $this->page->getFrameFocus();
        if (count($frames) > 0) {
            $this->loadFrame(
                    $frames,
                    $this->page->getUrl(),
                    $this->page->getRequestData());

            return $this->page->getRaw();
        }
        if ($url = $this->history->getUrl()) {
            $this->page = $this->fetch($url, $this->history->getParameters());

            return $this->page->getRaw();
        }

        return false;
    }

    /**
     * Equivalent to hitting the back button on the browser.
     * The browser history is unchanged on failure.
     * The page content is refetched as there is no concept of content caching in SimpleTest.
     *
     * @return bool     True if history entry and fetch succeeded
     */
    public function back()
    {
        if (! $this->history->back()) {
            return false;
        }
        $content = $this->retry();
        if (! $content) {
            $this->history->forward();
        }

        return $content;
    }

    /**
     * Equivalent to hitting the forward button on the browser.
     * The browser history is unchanged on failure.
     * The page content is refetched as there is no concept of content caching in SimpleTest.
     *
     * @return bool     True if history entry and fetch succeeded
     */
    public function forward()
    {
        if (! $this->history->forward()) {
            return false;
        }
        $content = $this->retry();
        if (! $content) {
            $this->history->back();
        }

        return $content;
    }

    /**
     * Retries a request after setting the authentication for the current realm.
     *
     * @param string $username    Username for realm.
     * @param string $password    Password for realm.
     *
     * @return bool    True if successful fetch. Note that authentication may still have failed.
     */
    public function authenticate($username, $password)
    {
        if (! $this->page->getRealm()) {
            return false;
        }
        $url = $this->page->getUrl();
        if (! $url) {
            return false;
        }
        $this->user_agent->setIdentity(
                $url->getHost(),
                $this->page->getRealm(),
                $username,
                $password);

        return $this->retry();
    }

    /**
     * Accessor for a breakdown of the frameset.
     *
     * @return array   Hash tree of frames by name or index if no name.
     */
    public function getFrames()
    {
        return $this->page->getFrames();
    }

    /**
     * Accessor for current frame focus. Will be false if no frame has focus.
     *
     * @return integer/string/boolean    Label if any, otherwise the position in the frameset or
     * false if none.
     */
    public function getFrameFocus()
    {
        return $this->page->getFrameFocus();
    }

    /**
     * Sets the focus by index. The integer index starts from 1.
     *
     * @param int $choice    Chosen frame.
     *
     * @return bool           True if frame exists.
     */
    public function setFrameFocusByIndex($choice)
    {
        return $this->page->setFrameFocusByIndex($choice);
    }

    /**
     * Sets the focus by name.
     *
     * @param string $name    Chosen frame.
     *
     * @return bool        True if frame exists.
     */
    public function setFrameFocus($name)
    {
        return $this->page->setFrameFocus($name);
    }

    /**
     * Clears the frame focus. All frames will be searched for content.
     */
    public function clearFrameFocus()
    {
        return $this->page->clearFrameFocus();
    }

    /**
     * Accessor for last error.
     *
     * @return string        Error from last response.
     */
    public function getTransportError()
    {
        return $this->page->getTransportError();
    }

    /**
     * Accessor for current MIME type.
     *
     * @return string    MIME type as string; e.g. 'text/html'
     */
    public function getMimeType()
    {
        return $this->page->getMimeType();
    }

    /**
     * Accessor for last response code.
     *
     * @return int    Last HTTP response code received.
     */
    public function getResponseCode()
    {
        return $this->page->getResponseCode();
    }

    /**
     * Accessor for last Authentication type. Only valid straight after a challenge (401).
     *
     * @return string    Description of challenge type.
     */
    public function getAuthentication()
    {
        return $this->page->getAuthentication();
    }

    /**
     * Accessor for last Authentication realm. Only valid straight after a challenge (401).
     *
     * @return string    Name of security realm.
     */
    public function getRealm()
    {
        return $this->page->getRealm();
    }

    /**
     * Accessor for current URL of page or frame if focused.
     *
     * @return string    Location of current page or frame as a string.
     */
    public function getUrl()
    {
        $url = $this->page->getUrl();

        return $url ? $url->asString() : false;
    }

    /**
     * Accessor for base URL of page if set via BASE tag
     *
     * @return string    base URL
     */
    public function getBaseUrl()
    {
        $url = $this->page->getBaseUrl();

        return $url ? $url->asString() : false;
    }

    /**
     * Accessor for raw bytes sent down the wire.
     *
     * @return string      Original text sent.
     */
    public function getRequest()
    {
        return $this->page->getRequest();
    }

    /**
     * Accessor for raw header information.
     *
     * @return string      Header block.
     */
    public function getHeaders()
    {
        return $this->page->getHeaders();
    }

    /**
     * Accessor for raw page information.
     *
     * @return string      Original text content of web page.
     */
    public function getContent()
    {
        return $this->page->getRaw();
    }

    /**
     * Accessor for plain text version of the page.
     *
     * @return string      Normalised text representation.
     */
    public function getContentAsText()
    {
        return $this->page->getText();
    }

    /**
     * Accessor for parsed title.
     *
     * @return string     Title or false if no title is present.
     */
    public function getTitle()
    {
        return $this->page->getTitle();
    }

    /**
     * Accessor for a list of all links in current page.
     *
     * @return array   List of urls with scheme of http or https and hostname.
     */
    public function getUrls()
    {
        return $this->page->getUrls();
    }

    /**
     * Sets all form fields with that name.
     *
     * @param string $label   Name or label of field in forms.
     * @param string $value   New value of field.
     *
     * @return bool        True if field exists, otherwise false.
     */
    public function setField($label, $value, $position=false)
    {
        return $this->page->setField(new SelectByLabelOrName($label), $value, $position);
    }

    /**
     * Sets all form fields with that name. Will use label if one is available (not yet
     * implemented).
     *
     * @param string $name    Name of field in forms.
     * @param string $value   New value of field.
     *
     * @return bool        True if field exists, otherwise false.
     */
    public function setFieldByName($name, $value, $position=false)
    {
        return $this->page->setField(new SelectByName($name), $value, $position);
    }

    /**
     * Sets all form fields with that id attribute.
     *
     * @param string/integer $id   Id of field in forms.
     * @param string $value        New value of field.
     *
     * @return bool             True if field exists, otherwise false.
     */
    public function setFieldById($id, $value)
    {
        return $this->page->setField(new SelectById($id), $value);
    }

    /**
     * Accessor for a form element value within the page.
     * Finds the first match.
     *
     * @param string $label       Field label.
     *
     * @return string/boolean     A value if the field is present, false if unchecked and null if
     * missing.
     */
    public function getField($label)
    {
        return $this->page->getField(new SelectByLabelOrName($label));
    }

    /**
     * Accessor for a form element value within the page. Finds the first match.
     *
     * @param string $name        Field name.
     *
     * @return string/boolean     A string if the field is present, false if unchecked and null if
     * missing.
     */
    public function getFieldByName($name)
    {
        return $this->page->getField(new SelectByName($name));
    }

    /**
     * Accessor for a form element value within the page.
     *
     * @param string/integer $id  Id of field in forms.
     *
     * @return string/boolean     A string if the field is present, false if unchecked and null if
     * missing.
     */
    public function getFieldById($id)
    {
        return $this->page->getField(new SelectById($id));
    }

    /**
     * Clicks the submit button by label. The owning form will be submitted by this.
     *
     * @param string $label    Button label. An unlabeled button can be triggered by 'Submit'.
     * @param hash $additional Additional form data.
     *
     * @return string/boolean  Page on success.
     */
    public function clickSubmit($label = 'Submit', $additional = false)
    {
        if (! ($form = $this->page->getFormBySubmit(new SelectByLabel($label)))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submitButton(new SelectByLabel($label), $additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Clicks the submit button by name attribute. The owning form will be submitted by this.
     *
     * @param string $name     Button name.
     * @param hash $additional Additional form data.
     *
     * @return string/boolean  Page on success.
     */
    public function clickSubmitByName($name, $additional = false)
    {
        if (! ($form = $this->page->getFormBySubmit(new SelectByName($name)))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submitButton(new SelectByName($name), $additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Clicks the submit button by ID attribute of the button itself. The owning form will be
     * submitted by this.
     *
     * @param string $id       Button ID.
     * @param hash $additional Additional form data.
     *
     * @return string/boolean  Page on success.
     */
    public function clickSubmitById($id, $additional = false)
    {
        if (! ($form = $this->page->getFormBySubmit(new SelectById($id)))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submitButton(new SelectById($id), $additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Tests to see if a submit button exists with this label.
     *
     * @param string $label    Button label.
     *
     * @return bool         True if present.
     */
    public function isSubmit($label)
    {
        return (boolean) $this->page->getFormBySubmit(new SelectByLabel($label));
    }

    /**
     * Clicks the submit image by some kind of label.
     * Usually the alt tag or the nearest equivalent.
     * The owning form will be submitted by this.
     * Clicking outside of the boundary of the coordinates will result in a failure.
     *
     * @param string $label    ID attribute of button.
     * @param int $x       X-coordinate of imaginary click.
     * @param int $y       Y-coordinate of imaginary click.
     * @param hash $additional Additional form data.
     *
     * @return string/boolean  Page on success.
     */
    public function clickImage($label, $x = 1, $y = 1, $additional = false)
    {
        if (! ($form = $this->page->getFormByImage(new SelectByLabel($label)))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submitImage(new SelectByLabel($label), $x, $y, $additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Clicks the submit image by the name.
     * Usually the alt tag or the nearest equivalent.
     * The owning form will be submitted by this.
     * Clicking outside of the boundary of the coordinates will result in a failure.
     *
     * @param string $name     Name attribute of button.
     * @param int $x       X-coordinate of imaginary click.
     * @param int $y       Y-coordinate of imaginary click.
     * @param hash $additional Additional form data.
     *
     * @return string/boolean  Page on success.
     */
    public function clickImageByName($name, $x = 1, $y = 1, $additional = false)
    {
        if (! ($form = $this->page->getFormByImage(new SelectByName($name)))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submitImage(new SelectByName($name), $x, $y, $additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Clicks the submit image by ID attribute.
     * The owning form will be submitted by this.
     * Clicking outside of the boundary of the coordinates will result in a failure.
     *
     * @param integer/string $id    ID attribute of button.
     * @param int $x            X-coordinate of imaginary click.
     * @param int $y            Y-coordinate of imaginary click.
     * @param hash $additional      Additional form data.
     *
     * @return string/boolean       Page on success.
     */
    public function clickImageById($id, $x = 1, $y = 1, $additional = false)
    {
        if (! ($form = $this->page->getFormByImage(new SelectById($id)))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submitImage(new SelectById($id), $x, $y, $additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Tests to see if an image exists with this title or alt text.
     *
     * @param string $label    Image text.
     *
     * @return bool         True if present.
     */
    public function isImage($label)
    {
        return (boolean) $this->page->getFormByImage(new SelectByLabel($label));
    }

    /**
     * Submits a form by the ID.
     *
     * @param string $id       The form ID. No submit button value will be sent.
     *
     * @return string/boolean  Page on success.
     */
    public function submitFormById($id, $additional = false)
    {
        if (! ($form = $this->page->getFormById($id))) {
            return false;
        }
        $success = $this->load(
                $form->getAction(),
                $form->submit($additional));

        return ($success ? $this->getContent() : $success);
    }

    /**
     * Finds a URL by label. Will find the first link found with this link text by default,
     * or a later one if an index is given. The match ignores case and white space issues.
     *
     * @param string $label     Text between the anchor tags.
     * @param int $index    Link position counting from zero.
     *
     * @return string/boolean   URL on success.
     */
    public function getLink($label, $index = 0)
    {
        $urls = $this->page->getUrlsByLabel($label);
        if (count($urls) == 0) {
            return false;
        }
        if (count($urls) < $index + 1) {
            return false;
        }

        return $urls[$index];
    }

    /**
     * Follows a link by label.
     * Will click the first link found with this link text by default,
     * or a later one, if an index is given.
     * The match ignores case and white space issues.
     *
     * @param string $label     Text between the anchor tags.
     * @param int $index    Link position counting from zero.
     *
     * @return boolean   True on success.
     */
    public function clickLink($label, $index = 0)
    {
        $url = $this->getLink($label, $index);
        if ($url === false) {
            return false;
        }

        $this->load($url, new SimpleGetEncoding());

        return (bool) $this->getContent();
    }

    /**
     * Finds a link by id attribute.
     *
     * @param string $id        ID attribute value.
     *
     * @return string/boolean   URL on success.
     */
    public function getLinkById($id)
    {
        return $this->page->getUrlById($id);
    }

    /**
     * Follows a link by id attribute.
     *
     * @param string $id        ID attribute value.
     *
     * @return string/boolean   Page on success.
     */
    public function clickLinkById($id)
    {
        if (! ($url = $this->getLinkById($id))) {
            return false;
        }
        $this->load($url, new SimpleGetEncoding());

        return $this->getContent();
    }

    /**
     * Clicks a visible text item. Will first try buttons, then links and then images.
     *
     * @param string $label        Visible text or alt text.
     *
     * @return string/boolean      Raw page or false.
     */
    public function click($label)
    {
        $raw = $this->clickSubmit($label);
        if (! $raw) {
            $raw = $this->clickLink($label);
        }
        if (! $raw) {
            $raw = $this->clickImage($label);
        }

        return $raw;
    }

    /**
     * Tests to see if a click target exists.
     *
     * @param string $label    Visible text or alt text.
     *
     * @return bool         True if target present.
     */
    public function isClickable($label)
    {
        return $this->isSubmit($label) || ($this->getLink($label) !== false) || $this->isImage($label);
    }
}
