Cookies.

These can be used to track the state of a users session, e.g. refresh data,
watched vars, preferences, ...

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusConnect/HTTPD/trunk@46 1faa4e14-9dd3-4be0-9f0e-ffe519881164

1 files changed, 198 insertions, 0 deletions

diff --git a/src/Cookies.c b/src/Cookies.c
new file mode 100644
index 0000000..7cf5199
--- /dev/null
+++ b/src/Cookies.c
@@ -0,0 +1,198 @@
+ /*@@
+   @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 <string.h>
+
+#include "util_String.h"
+
+#include "http_Request.h"
+#include "http_Cookies.h"
+
+static char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(DevThorns_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)
+{
+  char message[8000];
+
+  sprintf(message, "Set-Cookie: %s=%s", name, value);
+
+  if(path)
+  {
+    sprintf(message, "%s; path=%s", message, path);
+  }
+
+  if(domain)
+  {
+    sprintf(message,"%s; domain=%s", message, domain);
+  }
+
+  if(expires)
+  {
+    sprintf(message,"%s; expires %s", message, expires);
+  }
+
+  if(secure)
+  {
+    sprintf(message,"%s; secure=TRUE", message);
+  }    
+
+  strcat(message, "\r\n");
+
+  HTTP_Write(request, message, strlen(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)
+{
+  char message[8000];
+
+  /* Clear the value */
+  sprintf(message, "%s=", name);
+
+  if(path)
+  {
+    sprintf(message, "%s; path=%s", message, path);
+  }
+
+  /* Pick a date in the past */
+  sprintf(message,"%s; expires Sun Sep 17 21:57:45 CEST 2000", message);
+
+  strcat(message, "\r\n");
+
+  HTTP_Write(request, message, sizeof(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 *name)
+{
+  char *retval;
+  const char *header;
+  char *position;
+  char *copy;
+  char *start;
+
+  /* Get the cookie header */
+  header = HTTP_HeaderValue(request,"Cookie");
+
+  retval = NULL;
+
+  if(header)
+  {
+    copy = Util_Strdup(header);
+    
+    position = copy;
+    
+    /* Search for name=value */
+    while(position = strstr(position, name))
+    {
+      position += strlen(name);
+      if(*position == '=')
+      {
+        start = position+1;
+
+        position=strstr(start, ";");
+
+        if(position)
+        {
+          *position = 0;
+        }
+        retval = Util_Strdup(start);
+        break;
+      }
+    }
+  }
+
+  free(copy);
+
+  return retval;
+}
+
+/********************************************************************
+ *********************     Local Routines   *************************
+ ********************************************************************/
+