forked from rebillar/site-accueil-insa
209 lines
7.5 KiB
PHP
209 lines
7.5 KiB
PHP
<?php
|
|
/**
|
|
* This handler performs an HTTP redirect to a specific page
|
|
*
|
|
* PHP version 5
|
|
*
|
|
* LICENSE:
|
|
*
|
|
* Copyright (c) 2006-2010, Alexey Borzov <avb@php.net>,
|
|
* Bertrand Mansion <golgote@mamasam.com>
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
*
|
|
* * Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* * Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* * The names of the authors may not be used to endorse or promote products
|
|
* derived from this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
|
|
* IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
|
|
* THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
|
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
|
|
* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
|
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
|
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
|
|
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
|
|
* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
|
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*
|
|
* @category HTML
|
|
* @package HTML_QuickForm2
|
|
* @author Alexey Borzov <avb@php.net>
|
|
* @author Bertrand Mansion <golgote@mamasam.com>
|
|
* @license http://opensource.org/licenses/bsd-license.php New BSD License
|
|
* @version SVN: $Id: Jump.php 294039 2010-01-26 12:29:46Z avb $
|
|
* @link http://pear.php.net/package/HTML_QuickForm2
|
|
*/
|
|
|
|
/** Interface for Controller action handlers */
|
|
// require_once 'HTML/QuickForm2/Controller/Action.php';
|
|
|
|
/**
|
|
* This handler performs an HTTP redirect to a specific page
|
|
*
|
|
* @category HTML
|
|
* @package HTML_QuickForm2
|
|
* @author Alexey Borzov <avb@php.net>
|
|
* @author Bertrand Mansion <golgote@mamasam.com>
|
|
* @version Release: @package_version@
|
|
*/
|
|
class HTML_QuickForm2_Controller_Action_Jump
|
|
implements HTML_QuickForm2_Controller_Action
|
|
{
|
|
/**
|
|
* Splits (part of) the URI into path and query components
|
|
*
|
|
* @param string String of the form 'foo?bar'
|
|
* @return array Array of the form array('foo', '?bar)
|
|
*/
|
|
protected static function splitUri($uri)
|
|
{
|
|
if (false === ($qm = strpos($uri, '?'))) {
|
|
return array($uri, '');
|
|
} else {
|
|
return array(substr($uri, 0, $qm), substr($uri, $qm));
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Removes the '..' and '.' segments from the path component
|
|
*
|
|
* @param string Path component of the URL, possibly with '.' and '..' segments
|
|
* @return string Path component of the URL with '.' and '..' segments removed
|
|
*/
|
|
protected static function normalizePath($path)
|
|
{
|
|
$pathAry = explode('/', $path);
|
|
$i = 1;
|
|
|
|
do {
|
|
if ('.' == $pathAry[$i]) {
|
|
if ($i < count($pathAry) - 1) {
|
|
array_splice($pathAry, $i, 1);
|
|
} else {
|
|
$pathAry[$i] = '';
|
|
$i++;
|
|
}
|
|
|
|
} elseif ('..' == $pathAry[$i]) {
|
|
if (1 == $i) {
|
|
array_splice($pathAry, 1, 1);
|
|
|
|
} elseif ('..' != $pathAry[$i - 1]) {
|
|
if ($i < count($pathAry) - 1) {
|
|
array_splice($pathAry, $i - 1, 2);
|
|
$i--;
|
|
} else {
|
|
array_splice($pathAry, $i - 1, 2, '');
|
|
}
|
|
}
|
|
|
|
} else {
|
|
$i++;
|
|
}
|
|
} while ($i < count($pathAry));
|
|
|
|
return implode('/', $pathAry);
|
|
}
|
|
|
|
/**
|
|
* Resolves relative URL using current page's URL as base
|
|
*
|
|
* The method follows procedure described in section 4 of RFC 1808 and
|
|
* passes the examples provided in section 5 of said RFC. Values from
|
|
* $_SERVER array are used for calculation of "current URL"
|
|
*
|
|
* @param string Relative URL, probably from form's action attribute
|
|
* @return string Absolute URL
|
|
*/
|
|
protected static function resolveRelativeURL($url)
|
|
{
|
|
$https = !empty($_SERVER['HTTPS']) && ('off' != strtolower($_SERVER['HTTPS']));
|
|
$scheme = ($https? 'https:': 'http:');
|
|
if ('//' == substr($url, 0, 2)) {
|
|
return $scheme . $url;
|
|
|
|
} else {
|
|
$host = $scheme . '//' . $_SERVER['SERVER_NAME'] .
|
|
(($https && 443 == $_SERVER['SERVER_PORT'] ||
|
|
!$https && 80 == $_SERVER['SERVER_PORT'])? '': ':' . $_SERVER['SERVER_PORT']);
|
|
if ('' == $url) {
|
|
return $host . $_SERVER['REQUEST_URI'];
|
|
|
|
} elseif ('/' == $url[0]) {
|
|
list($actPath, $actQuery) = self::splitUri($url);
|
|
return $host . self::normalizePath($actPath) . $actQuery;
|
|
|
|
} else {
|
|
list($basePath, $baseQuery) = self::splitUri($_SERVER['REQUEST_URI']);
|
|
list($actPath, $actQuery) = self::splitUri($url);
|
|
if ('' == $actPath) {
|
|
return $host . $basePath . $actQuery;
|
|
} else {
|
|
$path = substr($basePath, 0, strrpos($basePath, '/') + 1) . $actPath;
|
|
return $host . self::normalizePath($path) . $actQuery;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
public function perform(HTML_QuickForm2_Controller_Page $page, $name)
|
|
{
|
|
// we check whether *all* pages up to current are valid
|
|
// if there is an invalid page we go to it, instead of the
|
|
// requested one
|
|
if ($page->getController()->isWizard()
|
|
&& !$page->getController()->isValid($page)
|
|
) {
|
|
$page = $page->getController()->getFirstInvalidPage();
|
|
}
|
|
|
|
// generate the URL for the page 'display' event and redirect to it
|
|
$action = $page->getForm()->getAttribute('action');
|
|
// Bug #13087: RFC 2616 requires an absolute URI in Location header
|
|
if (!preg_match('@^([a-z][a-z0-9.+-]*):@i', $action)) {
|
|
$action = self::resolveRelativeURL($action);
|
|
}
|
|
|
|
if (!$page->getController()->propagateId()) {
|
|
$controllerId = '';
|
|
} else {
|
|
$controllerId = '&' . HTML_QuickForm2_Controller::KEY_ID . '=' .
|
|
$page->getController()->getId();
|
|
}
|
|
if (!defined('SID') || '' == SID || ini_get('session.use_only_cookies')) {
|
|
$sessionId = '';
|
|
} else {
|
|
$sessionId = '&' . SID;
|
|
}
|
|
|
|
return $this->doRedirect(
|
|
$action . (false === strpos($action, '?')? '?': '&') .
|
|
$page->getButtonName('display') . '=true' . $controllerId . $sessionId
|
|
);
|
|
}
|
|
|
|
|
|
/**
|
|
* Redirects to a given URL via Location: header and exits the script
|
|
*
|
|
* A separate method is mostly needed for creating mocks of this class
|
|
* during testing.
|
|
*
|
|
* @param string URL to redirect to
|
|
*/
|
|
protected function doRedirect($url)
|
|
{
|
|
header('Location: ' . $url);
|
|
exit;
|
|
}
|
|
}
|
|
?>
|