<?php if (!defined('PmWiki')) exit();

# Author:  Martin Fick
# Version: 2010-06-28

$RecipeInfo['HttpVariables']['Version'] = '2010-06-28';

# {$?!|@~var} http variable substitutions before {$var}
Markup('{$?|!@~var}1', '<{$var}',
  '/\\{\\$([\\?\\!\\|@~])(\\w+)\\}/e',
  "HttpVariables(\$pagename, PSS('$1'), PSS('$2'))");

# {$?!|@~var} http variable substitutions after {$var}
Markup('{$?|!@~var}2', '>{$var}',
  '/\\{\\$([\\?\\!\\|@~])(\\w+)\\}/e',
  "HttpVariables(\$pagename, PSS('$1'), PSS('$2'))");

# (:cookie [name] [value] [args]:)
Markup('cookie', '>if', "/\\(:cookie\\s+(.*?)\\s*:\\)/ei",
  "HttpVariablesCookie(\$pagename, ParseArgs(PSS('$1')))");

# (:session [name] [value] [args]:)
Markup('session','>if',"/\\(:session\\s+(.*?)\\s*:\\)/ei",
  "HttpVariablesSession(\$pagename, ParseArgs(PSS('$1')))");

function HttpVariablesCookie($pagename, $args) {
  $name = $args['name'];
  $val = $args['value'];
  $exp = $args['expires'];
  $path = $args['path'];
  $domain = $args['domain'];
  $sec = $args['secure'];
  $http = $args['httponly'];

  $sargs = $args[''];
  foreach($sargs as $arg) {
    switch($arg) {
      case 'secure':      $sec = true; break;
      case 'httponly':    $http = true; break;
      default: if(!$name) $name = $arg;
           elseif(!$val)  $val = $arg;
    } 
  }
  if(!$name) return;

  if(!$val) $val = null;
  if(!$exp) $exp = 0;
  else      $exp = strtotime($exp);
  if(!$path) $path = '';
  if(!$domain) $domain = '';
  if(!$secure) $secure = false;
  if(!$http) $http = false;

  if(version_compare(phpversion(), '5.2', '>='))
    setcookie($name, $val, $exp, $path, $domain, $sec, $http);
  else
    setcookie($name, $val, $exp, $path, $domain, $sec);
  return;
}

function HttpVariablesSession($pagename, $args)
{
  $name = $args['name'];
  $val = $args['value'];
  $sargs = $args[''];
  foreach($sargs as $arg) {
    if(!$name) $name = $arg;
    elseif(!$val)  $val = $arg;
  }
  if(!$name) return;
  session_start();
  $_SESSION[$name] = $val;
}

function HttpVariables($pagename, $type, $var)
{
  global $Charset;
  switch($type) {
    case "?": $val= $_GET[$var]; break;
    case "|": $val= $_POST[$var]; break;
    case "!": $val= $_REQUEST[$var]; break;
    case "@": $val= $_COOKIE[$var]; break;
    case "~": session_start();
        $val= $_SESSION[$var]; break;
  }
  if($val) 
    return htmlentities(stripmagic($val),ENT_COMPAT,$Charset);
  return "";
}