/*@@
   @file      Cookies.c
   @date      Mon Sep 18 21:08:37 2000
   @author    Tom Goodale
   @desc 
   Cookie stuff.
   @enddesc 
   @version $Header$
 @@*/

#include "cctk.h"

#include <stdlib.h>

#include "util_String.h"

#include "httpRequest.h"
#include "Cookies.h"
#include "SString_Namespace.h"
static const char *rcsid = "$Header$";

CCTK_FILEVERSION(CactusConnect_HTTPD_Cookies_c)

/********************************************************************
 *********************     Local Data Types   ***********************
 ********************************************************************/

/********************************************************************
 ********************* Local Routine Prototypes *********************
 ********************************************************************/

/********************************************************************
 ********************* Other Routine Prototypes *********************
 ********************************************************************/

/********************************************************************
 *********************     Local Data   *****************************
 ********************************************************************/

/********************************************************************
 *********************     External Routines   **********************
 ********************************************************************/

 /*@@
   @routine    HTTP_CookieSend
   @date       Mon Sep 18 22:42:35 2000
   @author     Tom Goodale
   @desc 
   Sends a cookie to a browser.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/
int HTTP_CookieSend(httpRequest *request,
                    const char *name, 
                    const char *value, 
                    const char *path,
                    const char *domain,
                    const char *expires,
                    int secure)
{
  String *message = String_New();

  SetToCString(message, "Set-Cookie: ");
  ConcatCString(message, name);
  ConcatCString(message, "=");
  ConcatCString(message, value);

  if(path)
  {
    ConcatCString(message, "; path=");
    ConcatCString(message, path);
  }

  if(domain)
  {
    ConcatCString(message, "; domain=");
    ConcatCString(message, domain);
  }

  if(expires)
  {
    ConcatCString(message, "; expires=");
    ConcatCString(message, expires);
  }

  if(secure)
  {
    ConcatCString(message, "; secure");
  }    

  ConcatCString(message, "\r\n");

  HTTP_SendString(request, message);

  String_Delete( message );
  return 0;
}

 /*@@
   @routine    HTTP_CookieCancel
   @date       Mon Sep 18 22:43:04 2000
   @author     Tom Goodale
   @desc 
   Cancels a cookie.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/
int HTTP_CookieCancel(httpRequest *request,
                      const char *name, 
                      const char *path)
{
  String *message = String_New();

  /* Clear the value */
  SetToCString(message, "Set-Cookie: ");
  ConcatCString(message, name);
  ConcatCString(message, "=");

  if(path)
  {
    ConcatCString(message, "; path=");
    ConcatCString(message, path);
  }

  /* Pick a date in the past */
  ConcatCString(message, "; expires Sun Sep 17 21:57:45 CEST 2000");
  ConcatCString(message, "\r\n");

  HTTP_SendString(request, message);

  String_Delete( message );
  return 0;
}

 /*@@
   @routine    HTTP_CookieGet
   @date       Mon Sep 18 22:43:20 2000
   @author     Tom Goodale
   @desc 
   Gets the value of a cookie from a request.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/

char *HTTP_CookieGet(httpRequest *request, const char *cookie_name)
{
  char *retval = NULL;
  const String *COOKIE = String_Make("cookie");
  String *header = String_New();
  /* Get the cookie header */
  if( HTTP_GetHeaderValueString( request, COOKIE, header ) )
  {
    String *name = String_Make( cookie_name );
    String *value = String_New();
    size_t index = 0;
    
    /* Search for name=value */
    while( SetNextToken( header, value, ";", index ) )
    {
      size_t position = 0;
      if( FindStringFrom( value, name, &position )
      &&  position == 0 )
      {
        if( FindCharFrom( value, '=', &position )
	&&  position == Length( name ) )
        {
          TrimLeading( value, position + 1 );
          retval = Util_Strdup( GetBuffer( value ) );
        }
	break;
      }
    }
    String_Delete(name);
    String_Delete(value);
  }
  String_Delete(header);

  return retval;
}

/********************************************************************
 *********************     Local Routines   *************************
 ********************************************************************/