src/utils_cgi.c

   1 #include <stdlib.h>
   2 #include <stdio.h>
   3 #include <string.h>
   4 #include <ctype.h>
   5 #include <errno.h>
   6 #include <time.h>
   7
   8 #include "utils_cgi.h"
   9
  10 struct parameter_s
  11 {
  12   char *key;
  13   char *value;
  14 };
  15 typedef struct parameter_s parameter_t;
  16
  17 static parameter_t *parameters = NULL;
  18 static size_t parameters_num = 0;
  19 static _Bool parameters_init = 0;
  20
  21 static int parameter_add (const char *key, const char *value) /* {{{ */
  22 {
  23   parameter_t *ptr;
  24
  25   if (value == NULL)
  26     return (EINVAL);
  27
  28   ptr = realloc (parameters, sizeof (*parameters) * (parameters_num + 1));
  29   if (ptr == NULL)
  30     return (ENOMEM);
  31   parameters = ptr;
  32
  33   ptr = parameters + parameters_num;
  34   if (key == NULL)
  35   {
  36     ptr->key = NULL;
  37   }
  38   else
  39   {
  40     ptr->key = strdup (key);
  41     if (ptr->key == NULL)
  42       return (ENOMEM);
  43   }
  44
  45   ptr->value = strdup (value);
  46   if (ptr->value == NULL)
  47   {
  48     free (ptr->key);
  49     return (ENOMEM);
  50   }
  51
  52   parameters_num++;
  53   return (0);
  54 } /* }}} int parameter_add */
  55
  56 static char *parameter_lookup (const char *key) /* {{{ */
  57 {
  58   size_t i;
  59
  60   for (i = 0; i < parameters_num; i++)
  61   {
  62     if ((key == NULL) && (parameters[i].key == NULL))
  63       return (parameters[i].value);
  64     else if ((key != NULL) && (parameters[i].key != NULL)
  65         && (strcmp (key, parameters[i].key) == 0))
  66       return (parameters[i].value);
  67   }
  68
  69   return (NULL);
  70 } /* }}} char *parameter_lookup */
  71
  72 static char *uri_unescape (char *string) /* {{{ */
  73 {
  74   char *in;
  75   char *out;
  76
  77   if (string == NULL)
  78     return (NULL);
  79
  80   in = string;
  81   out = string;
  82
  83   while (*in != 0)
  84   {
  85     if (*in == '+')
  86     {
  87       *out = ' ';
  88     }
  89     else if ((in[0] == '%')
  90         && isxdigit ((int) in[1]) && isxdigit ((int) in[2]))
  91     {
  92       char tmpstr[3];
  93       char *endptr;
  94       long value;
  95
  96       tmpstr[0] = in[1];
  97       tmpstr[1] = in[2];
  98       tmpstr[2] = 0;
  99
 100       errno = 0;
 101       endptr = NULL;
 102       value = strtol (tmpstr, &endptr, /* base = */ 16);
 103       if ((endptr == tmpstr) || (errno != 0))
 104       {
 105         *out = '?';
 106       }
 107       else
 108       {
 109         *out = (char) value;
 110       }
 111
 112       in += 2;
 113     }
 114     else
 115     {
 116       *out = *in;
 117     }
 118
 119     in++;
 120     out++;
 121   } /* while (*in != 0) */
 122
 123   *out = 0;
 124   return (string);
 125 } /* }}} char *uri_unescape */
 126
 127 static int parse_keyval (char *keyval) /* {{{ */
 128 {
 129   char *key;
 130   char *val;
 131
 132   val = strchr (keyval, '=');
 133   if (val == NULL)
 134   {
 135     key = NULL;
 136     val = keyval;
 137   }
 138   else
 139   {
 140     key = keyval;
 141     *val = 0;
 142     val++;
 143   }
 144
 145   parameter_add (uri_unescape (key), uri_unescape (val));
 146
 147   return (0);
 148 } /* }}} int parse_keyval */
 149
 150 static int parse_query_string (char *query_string) /* {{{ */
 151 {
 152   char *dummy;
 153   char *keyval;
 154
 155   if (query_string == NULL)
 156     return (EINVAL);
 157
 158   dummy = query_string;
 159   while ((keyval = strtok (dummy, ";&")) != NULL)
 160   {
 161     dummy = NULL;
 162     parse_keyval (keyval);
 163   }
 164
 165   return (0);
 166 } /* }}} int parse_query_string */
 167
 168 int param_init (void) /* {{{ */
 169 {
 170   const char *query_string;
 171   char *copy;
 172   int status;
 173
 174   if (parameters_init)
 175     return (0);
 176
 177   query_string = getenv ("QUERY_STRING");
 178   if (query_string == NULL)
 179     return (ENOENT);
 180
 181   copy = strdup (query_string);
 182   if (copy == NULL)
 183     return (ENOMEM);
 184
 185   status = parse_query_string (copy);
 186   free (copy);
 187
 188   parameters_init = 1;
 189
 190   return (status);
 191 } /* }}} int param_init */
 192
 193 void param_finish (void) /* {{{ */
 194 {
 195   size_t i;
 196
 197   if (!parameters_init)
 198     return;
 199
 200   for (i = 0; i < parameters_num; i++)
 201   {
 202     free (parameters[i].key);
 203     free (parameters[i].value);
 204   }
 205   free (parameters);
 206
 207   parameters = NULL;
 208   parameters_num = 0;
 209   parameters_init = 0;
 210 } /* }}} void param_finish */
 211
 212 const char *param (const char *key) /* {{{ */
 213 {
 214   param_init ();
 215
 216   return (parameter_lookup (key));
 217 } /* }}} const char *param */
 218
 219 int uri_escape (char *dst, const char *src, size_t size) /* {{{ */
 220 {
 221   size_t in;
 222   size_t out;
 223
 224   in = 0;
 225   out = 0;
 226   while (42)
 227   {
 228     if (src[in] == 0)
 229     {
 230       dst[out] = 0;
 231       return (0);
 232     }
 233     else if ((src[in] < 32)
 234         || (src[in] == '&')
 235         || (src[in] == ';')
 236         || (((unsigned char) src[in]) >= 128))
 237     {
 238       char esc[4];
 239
 240       if ((size - out) < 4)
 241         break;
 242
 243       snprintf (esc, sizeof (esc), "%%%02x", (unsigned int) src[in]);
 244       dst[out] = esc[0];
 245       dst[out+1] = esc[1];
 246       dst[out+2] = esc[2];
 247
 248       out += 3;
 249       in++;
 250     }
 251     else
 252     {
 253       dst[out] = src[in];
 254       out++;
 255       in++;
 256     }
 257   } /* while (42) */
 258
 259   return (0);
 260 } /* }}} int uri_escape */
 261
 262 const char *script_name (void) /* {{{ */
 263 {
 264   char *ret;
 265
 266   ret = getenv ("SCRIPT_NAME");
 267   if (ret == NULL)
 268     ret = "collection4.fcgi";
 269
 270   return (ret);
 271 } /* }}} char *script_name */
 272
 273 int time_to_rfc1123 (time_t t, char *buffer, size_t buffer_size) /* {{{ */
 274 {
 275   struct tm tm_tmp;
 276   size_t status;
 277
 278   /* RFC 1123 *requires* the time to be GMT and the "GMT" timezone string.
 279    * Apache will ignore the timezone if "localtime_r" and "%z" is used,
 280    * resulting in weird behavior. */
 281   if (gmtime_r (&t, &tm_tmp) == NULL)
 282     return (errno);
 283
 284   status = strftime (buffer, buffer_size, "%a, %d %b %Y %T GMT", &tm_tmp);
 285   if (status == 0)
 286     return (errno);
 287
 288   return (0);
 289 } /* }}} int time_to_rfc1123 */
 290
 291 /* vim: set sw=2 sts=2 et fdm=marker : */