root/ext/standard/head.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. PHP_FUNCTION
  2. php_header
  3. php_setcookie
  4. PHP_FUNCTION
  5. PHP_FUNCTION
  6. PHP_FUNCTION
  7. php_head_apply_header_list_to_hash
  8. PHP_FUNCTION

/*
   +----------------------------------------------------------------------+
   | PHP Version 5                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2008 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.txt                                  |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Author: Rasmus Lerdorf <rasmus@lerdorf.on.ca>                        |
   +----------------------------------------------------------------------+
 */
/* $Id: head.c,v 1.84.2.1.2.8 2007/12/31 07:20:12 sebastian Exp $ */

#include <stdio.h>
#include "php.h"
#include "ext/standard/php_standard.h"
#include "ext/date/php_date.h"
#include "SAPI.h"
#include "php_main.h"
#include "head.h"
#ifdef TM_IN_SYS_TIME
#include <sys/time.h>
#else
#include <time.h>
#endif

#include "php_globals.h"
#include "safe_mode.h"


/* Implementation of the language Header() function */
/* {{{ proto void header(string header [, bool replace, [int http_response_code]])
   Sends a raw HTTP header */
PHP_FUNCTION(header)
{
        zend_bool rep = 1;
        sapi_header_line ctr = {0};
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|bl", &ctr.line,
                                &ctr.line_len, &rep, &ctr.response_code) == FAILURE)
                return;
        
        sapi_header_op(rep ? SAPI_HEADER_REPLACE:SAPI_HEADER_ADD, &ctr TSRMLS_CC);
}
/* }}} */

PHPAPI int php_header(TSRMLS_D)
{
        if (sapi_send_headers(TSRMLS_C)==FAILURE || SG(request_info).headers_only) {
                return 0; /* don't allow output */
        } else {
                return 1; /* allow output */
        }
}


PHPAPI int php_setcookie(char *name, int name_len, char *value, int value_len, time_t expires, char *path, int path_len, char *domain, int domain_len, int secure, int url_encode, int httponly TSRMLS_DC)
{
        char *cookie, *encoded_value = NULL;
        int len=sizeof("Set-Cookie: ");
        char *dt;
        sapi_header_line ctr = {0};
        int result;
        
        if (name && strpbrk(name, "=,; \t\r\n\013\014") != NULL) {   /* man isspace for \013 and \014 */
                zend_error( E_WARNING, "Cookie names can not contain any of the folllowing '=,; \\t\\r\\n\\013\\014' (%s)", name );
                return FAILURE;
        }

        if (!url_encode && value && strpbrk(value, ",; \t\r\n\013\014") != NULL) { /* man isspace for \013 and \014 */
                zend_error( E_WARNING, "Cookie values can not contain any of the folllowing ',; \\t\\r\\n\\013\\014' (%s)", value );
                return FAILURE;
        }

        len += name_len;
        if (value && url_encode) {
                int encoded_value_len;

                encoded_value = php_url_encode(value, value_len, &encoded_value_len);
                len += encoded_value_len;
        } else if ( value ) {
                encoded_value = estrdup(value);
                len += value_len;
        }
        if (path) {
                len += path_len;
        }
        if (domain) {
                len += domain_len;
        }

        cookie = emalloc(len + 100);

        if (value && value_len == 0) {
                /* 
                 * MSIE doesn't delete a cookie when you set it to a null value
                 * so in order to force cookies to be deleted, even on MSIE, we
                 * pick an expiry date 1 year and 1 second in the past
                 */
                time_t t = time(NULL) - 31536001;
                dt = php_format_date("D, d-M-Y H:i:s T", sizeof("D, d-M-Y H:i:s T")-1, t, 0 TSRMLS_CC);
                snprintf(cookie, len + 100, "Set-Cookie: %s=deleted; expires=%s", name, dt);
                efree(dt);
        } else {
                snprintf(cookie, len + 100, "Set-Cookie: %s=%s", name, value ? encoded_value : "");
                if (expires > 0) {
                        strlcat(cookie, "; expires=", len + 100);
                        dt = php_format_date("D, d-M-Y H:i:s T", sizeof("D, d-M-Y H:i:s T")-1, expires, 0 TSRMLS_CC);
                        strlcat(cookie, dt, len + 100);
                        efree(dt);
                }
        }

        if (encoded_value) {
                efree(encoded_value);
        }

        if (path && path_len > 0) {
                strlcat(cookie, "; path=", len + 100);
                strlcat(cookie, path, len + 100);
        }
        if (domain && domain_len > 0) {
                strlcat(cookie, "; domain=", len + 100);
                strlcat(cookie, domain, len + 100);
        }
        if (secure) {
                strlcat(cookie, "; secure", len + 100);
        }
        if (httponly) {
                strlcat(cookie, "; httponly", len + 100);
        }

        ctr.line = cookie;
        ctr.line_len = strlen(cookie);

        result = sapi_header_op(SAPI_HEADER_ADD, &ctr TSRMLS_CC);
        efree(cookie);
        return result;
}


/* php_set_cookie(name, value, expires, path, domain, secure) */
/* {{{ proto bool setcookie(string name [, string value [, int expires [, string path [, string domain [, bool secure[, bool httponly]]]]]])
   Send a cookie */
PHP_FUNCTION(setcookie)
{
        char *name, *value = NULL, *path = NULL, *domain = NULL;
        long expires = 0;
        zend_bool secure = 0, httponly = 0;
        int name_len, value_len = 0, path_len = 0, domain_len = 0;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|slssbb", &name,
                                                          &name_len, &value, &value_len, &expires, &path,
                                                          &path_len, &domain, &domain_len, &secure, &httponly) == FAILURE) {
                return;
        }

        if (php_setcookie(name, name_len, value, value_len, expires, path, path_len, domain, domain_len, secure, 1, httponly TSRMLS_CC) == SUCCESS) {
                RETVAL_TRUE;
        } else {
                RETVAL_FALSE;
        }
}
/* }}} */

/* {{{ proto bool setrawcookie(string name [, string value [, int expires [, string path [, string domain [, bool secure[, bool httponly]]]]]])
   Send a cookie with no url encoding of the value */
PHP_FUNCTION(setrawcookie)
{
        char *name, *value = NULL, *path = NULL, *domain = NULL;
        long expires = 0;
        zend_bool secure = 0, httponly = 0;
        int name_len, value_len = 0, path_len = 0, domain_len = 0;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|slssbb", &name,
                                                          &name_len, &value, &value_len, &expires, &path,
                                                          &path_len, &domain, &domain_len, &secure, &httponly) == FAILURE) {
                return;
        }

        if (php_setcookie(name, name_len, value, value_len, expires, path, path_len, domain, domain_len, secure, 0, httponly TSRMLS_CC) == SUCCESS) {
                RETVAL_TRUE;
        } else {
                RETVAL_FALSE;
        }
}
/* }}} */


/* {{{ proto bool headers_sent([string &$file [, int &$line]])
   Returns true if headers have already been sent, false otherwise */
PHP_FUNCTION(headers_sent)
{
        zval *arg1, *arg2;
        char *file="";
        int line=0;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|zz", &arg1, &arg2) == FAILURE)
                return;

        if (SG(headers_sent)) {
                line = php_get_output_start_lineno(TSRMLS_C);
                file = php_get_output_start_filename(TSRMLS_C);
        }

        switch(ZEND_NUM_ARGS()) {
        case 2:
                zval_dtor(arg2);
                ZVAL_LONG(arg2, line);
        case 1:
                zval_dtor(arg1);
                if (file) { 
                        ZVAL_STRING(arg1, file, 1);
                } else {
                        ZVAL_STRING(arg1, "", 1);
                }       
                break;
        }

        if (SG(headers_sent)) {
                RETURN_TRUE;
        } else {
                RETURN_FALSE;
        }
}
/* }}} */

/* {{{ php_head_apply_header_list_to_hash
   Turn an llist of sapi_header_struct headers into a numerically indexed zval hash */
static void php_head_apply_header_list_to_hash(void *data, void *arg TSRMLS_DC)
{
        sapi_header_struct *sapi_header = (sapi_header_struct *)data;

        if (arg && sapi_header) {
                add_next_index_string((zval *)arg, (char *)(sapi_header->header), 1);
        }
}

/* {{{ proto array headers_list(void)
   Return list of headers to be sent / already sent */
PHP_FUNCTION(headers_list)
{
        if (ZEND_NUM_ARGS() > 0) {
                WRONG_PARAM_COUNT;
        }

        if (!&SG(sapi_headers).headers) {
                RETURN_FALSE;
        }
        array_init(return_value);
        zend_llist_apply_with_argument(&SG(sapi_headers).headers, php_head_apply_header_list_to_hash, return_value TSRMLS_CC);
}
/* }}} */

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * vim600: sw=4 ts=4 fdm=marker
 * vim<600: sw=4 ts=4 * End:
 */

/* [<][>][^][v][top][bottom][index][help] */