4 * Placeholder page which generates a redirect
8 * <path>civicrm/admin/options/case_type</path>
9 * <page_callback>CRM_Core_Page_Redirect</page_callback>
10 * <page_arguments>url=civicrm/foo/bar?whiz=bang&passthru=%%passthru%%</page_arguments>
14 class CRM_Core_Page_Redirect
extends CRM_Core_Page
{
15 function run($path = NULL, $pageArgs = array()) {
16 $url = self
::createUrl($path, $_REQUEST, $pageArgs, TRUE);
18 CRM_Utils_System
::redirect($url);
22 * @param array $requestPath the parts of the path in the current page request
23 * @param array $requestArgs any GET arguments
24 * @param array $pageArgs the page_arguments registered in the router
25 * @param array $requestArgs any parameters passed as part of this page request
26 * @param bool $absolute whether to return an absolute URL
29 public static function createUrl($requestPath, $requestArgs, $pageArgs, $absolute) {
30 if (empty($pageArgs['url'])) {
31 CRM_Core_Error
::fatal('This page is configured as a redirect, but it does not have a target.');
35 // note: %% isn't legal in a well-formed URL, so it's not a bad variable-delimiter
36 foreach ($requestPath as $pathPos => $pathPart) {
37 $vars["%%{$pathPos}%%"] = urlencode($pathPart);
39 foreach ($requestArgs as $var => $value) {
40 $vars["%%{$var}%%"] = urlencode($value);
42 $urlString = strtr($pageArgs['url'], $vars);
43 $urlString = preg_replace('/%%[a-zA-Z0-9]+%%/', '', $urlString);
45 $urlParts = parse_url($urlString);
46 $url = CRM_Utils_System
::url(
48 CRM_Utils_Array
::value('query', $urlParts, NULL),
50 CRM_Utils_Array
::value('fragment', $urlParts, NULL)