2 * collection4 - utils_cgi.c
3 * Copyright (C) 2010 Florian octo Forster
5 * This program is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this program; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin Street, Fifth Floor,
18 * Boston, MA 02110-1301 USA
21 * Florian octo Forster <ff at octo.it>
34 #include "utils_cgi.h"
38 #include <fcgi_stdio.h>
45 typedef struct parameter_s parameter_t;
49 parameter_t *parameters;
50 size_t parameters_num;
53 static param_list_t *pl_global = NULL;
55 static char *uri_unescape_copy (char *dest, const char *src, size_t n) /* {{{ */
60 if ((dest == NULL) || (src == NULL) || (n < 1))
77 else if ((src_ptr[0] == '%')
78 && isxdigit ((int) src_ptr[1]) && isxdigit ((int) src_ptr[2]))
84 tmpstr[0] = src_ptr[1];
85 tmpstr[1] = src_ptr[2];
90 value = strtol (tmpstr, &endptr, /* base = */ 16);
91 if ((endptr == tmpstr) || (errno != 0))
97 *dest_ptr = (char) value;
104 *dest_ptr = *src_ptr;
111 } /* while (*src_ptr != 0) */
113 assert (*dest_ptr == 0);
115 } /* }}} char *uri_unescape_copy */
117 static char *uri_unescape (const char *string) /* {{{ */
124 uri_unescape_copy (buffer, string, sizeof (buffer));
126 return (strdup (buffer));
127 } /* }}} char *uri_unescape */
129 static int param_parse_keyval (param_list_t *pl, char *keyval) /* {{{ */
137 value_raw = strchr (key_raw, '=');
138 if (value_raw == NULL)
143 key = uri_unescape (key_raw);
147 value = uri_unescape (value_raw);
154 param_set (pl, key, value);
160 } /* }}} int param_parse_keyval */
162 static int parse_query_string (param_list_t *pl, /* {{{ */
168 if ((pl == NULL) || (query_string == NULL))
171 dummy = query_string;
172 while ((keyval = strtok (dummy, ";&")) != NULL)
175 param_parse_keyval (pl, keyval);
179 } /* }}} int parse_query_string */
181 int param_init (void) /* {{{ */
183 if (pl_global != NULL)
186 pl_global = param_create (/* query string = */ NULL);
187 if (pl_global == NULL)
191 } /* }}} int param_init */
193 void param_finish (void) /* {{{ */
195 param_destroy (pl_global);
197 } /* }}} void param_finish */
199 const char *param (const char *key) /* {{{ */
203 return (param_get (pl_global, key));
204 } /* }}} const char *param */
206 param_list_t *param_create (const char *query_string) /* {{{ */
211 if (query_string == NULL)
212 query_string = getenv ("QUERY_STRING");
214 if (query_string == NULL)
217 tmp = strdup (query_string);
221 pl = malloc (sizeof (*pl));
227 memset (pl, 0, sizeof (*pl));
229 parse_query_string (pl, tmp);
233 } /* }}} param_list_t *param_create */
235 param_list_t *param_clone (__attribute__((unused)) param_list_t *pl) /* {{{ */
237 /* FIXME: To be implemented. */
240 } /* }}} param_list_t *param_clone */
242 void param_destroy (param_list_t *pl) /* {{{ */
249 for (i = 0; i < pl->parameters_num; i++)
251 free (pl->parameters[i].key);
252 free (pl->parameters[i].value);
254 free (pl->parameters);
256 } /* }}} void param_destroy */
258 const char *param_get (param_list_t *pl, const char *name) /* {{{ */
262 if ((pl == NULL) || (name == NULL))
265 for (i = 0; i < pl->parameters_num; i++)
267 if ((name == NULL) && (pl->parameters[i].key == NULL))
268 return (pl->parameters[i].value);
269 else if ((name != NULL) && (pl->parameters[i].key != NULL)
270 && (strcmp (name, pl->parameters[i].key) == 0))
271 return (pl->parameters[i].value);
275 } /* }}} char *param_get */
277 static int param_add (param_list_t *pl, /* {{{ */
278 const char *key, const char *value)
282 tmp = realloc (pl->parameters,
283 sizeof (*pl->parameters) * (pl->parameters_num + 1));
286 pl->parameters = tmp;
287 tmp = pl->parameters + pl->parameters_num;
289 memset (tmp, 0, sizeof (*tmp));
290 tmp->key = strdup (key);
291 if (tmp->key == NULL)
294 tmp->value = strdup (value);
295 if (tmp->value == NULL)
301 pl->parameters_num++;
304 } /* }}} int param_add */
306 static int param_delete (param_list_t *pl, /* {{{ */
311 if ((pl == NULL) || (name == NULL))
314 for (i = 0; i < pl->parameters_num; i++)
315 if (strcasecmp (pl->parameters[i].key, name) == 0)
318 if (i >= pl->parameters_num)
321 if (i < (pl->parameters_num - 1))
325 p = pl->parameters[i];
326 pl->parameters[i] = pl->parameters[pl->parameters_num - 1];
327 pl->parameters[pl->parameters_num - 1] = p;
330 pl->parameters_num--;
331 free (pl->parameters[pl->parameters_num].key);
332 free (pl->parameters[pl->parameters_num].value);
335 } /* }}} int param_delete */
337 int param_set (param_list_t *pl, const char *name, /* {{{ */
344 if ((pl == NULL) || (name == NULL))
348 return (param_delete (pl, name));
351 for (i = 0; i < pl->parameters_num; i++)
353 if (strcasecmp (pl->parameters[i].key, name) == 0)
355 p = pl->parameters + i;
361 return (param_add (pl, name, value));
363 value_copy = strdup (value);
364 if (value_copy == NULL)
368 p->value = value_copy;
371 } /* }}} int param_set */
373 char *param_as_string (param_list_t *pl) /* {{{ */
384 for (i = 0; i < pl->parameters_num; i++)
386 uri_escape_copy (key, pl->parameters[i].key, sizeof (key));
387 uri_escape_copy (value, pl->parameters[i].value, sizeof (value));
390 strlcat (buffer, ";", sizeof (buffer));
391 strlcat (buffer, key, sizeof (buffer));
392 strlcat (buffer, "=", sizeof (buffer));
393 strlcat (buffer, value, sizeof (buffer));
396 return (strdup (buffer));
397 } /* }}} char *param_as_string */
399 int param_print_hidden (param_list_t *pl) /* {{{ */
408 for (i = 0; i < pl->parameters_num; i++)
410 html_escape_copy (key, pl->parameters[i].key, sizeof (key));
411 html_escape_copy (value, pl->parameters[i].value, sizeof (value));
413 printf (" <input type=\"hidden\" name=\"%s\" value=\"%s\" />\n",
418 } /* }}} int param_print_hidden */
420 char *uri_escape_copy (char *dest, const char *src, size_t n) /* {{{ */
434 else if ((((unsigned char) src[in]) < 32)
439 || (((unsigned char) src[in]) >= 128))
446 snprintf (esc, sizeof (esc), "%%%02x", (unsigned int) src[in]);
448 dest[out+1] = esc[1];
449 dest[out+2] = esc[2];
463 } /* }}} char *uri_escape_copy */
465 char *uri_escape (const char *string) /* {{{ */
472 uri_escape_copy (buffer, string, sizeof (buffer));
474 return (strdup (buffer));
475 } /* }}} char *uri_escape */
477 #define COPY_ENTITY(e) do { \
478 size_t len = strlen (e); \
479 if (dest_size < (len + 1)) \
481 strcpy (dest_ptr, (e)); \
486 char *json_escape_copy (char *dest, const char *src, size_t n) /* {{{ */
495 for (pos = 0; src[pos] != 0; pos++)
498 COPY_ENTITY ("\\\"");
499 else if (src[pos] == '\\')
500 COPY_ENTITY ("\\\\");
501 else if (((uint8_t) src[pos]) < 32)
503 if (src[pos] == '\n')
505 else if (src[pos] == '\r')
507 else if (src[pos] == '\t')
509 else if (src[pos] == '\b')
511 else if (src[pos] == '\f')
516 sprintf (buffer, "\\u%04"PRIx8, (uint8_t) src[pos]);
517 buffer[sizeof (buffer) - 1] = 0;
518 COPY_ENTITY (buffer);
523 *dest_ptr = src[pos];
534 } /* }}} char *json_escape_copy */
538 char *json_escape_buffer (char *buffer, size_t buffer_size)
540 char temp[buffer_size];
542 json_escape_copy (temp, buffer, buffer_size);
543 memcpy (buffer, temp, buffer_size);
546 } /* }}} char *json_escape_buffer */
548 char *json_escape (const char *string) /* {{{ */
555 json_escape_copy (buffer, string, sizeof (buffer));
557 return (strdup (buffer));
558 } /* }}} char *json_escape */
560 const char *script_name (void) /* {{{ */
564 ret = getenv ("SCRIPT_NAME");
566 ret = "collection4.fcgi";
569 } /* }}} char *script_name */
571 int time_to_rfc1123 (time_t t, char *buffer, size_t buffer_size) /* {{{ */
576 /* RFC 1123 *requires* the time to be GMT and the "GMT" timezone string.
577 * Apache will ignore the timezone if "localtime_r" and "%z" is used,
578 * resulting in weird behavior. */
579 if (gmtime_r (&t, &tm_tmp) == NULL)
582 status = strftime (buffer, buffer_size, "%a, %d %b %Y %T GMT", &tm_tmp);
587 } /* }}} int time_to_rfc1123 */
589 #define COPY_ENTITY(e) do { \
590 size_t len = strlen (e); \
591 if (dest_size < (len + 1)) \
593 strcpy (dest_ptr, (e)); \
598 char *html_escape_copy (char *dest, const char *src, size_t n) /* {{{ */
607 for (pos = 0; src[pos] != 0; pos++)
610 COPY_ENTITY (""");
611 else if (src[pos] == '<')
612 COPY_ENTITY ("<");
613 else if (src[pos] == '>')
614 COPY_ENTITY (">");
615 else if (src[pos] == '&')
616 COPY_ENTITY ("&");
619 *dest_ptr = src[pos];
630 } /* }}} char *html_escape_copy */
634 char *html_escape_buffer (char *buffer, size_t buffer_size) /* {{{ */
636 char tmp[buffer_size];
638 html_escape_copy (tmp, buffer, sizeof (tmp));
639 memcpy (buffer, tmp, buffer_size);
642 } /* }}} char *html_escape_buffer */
644 char *html_escape (const char *string) /* {{{ */
651 html_escape_copy (buffer, string, sizeof (buffer));
653 return (strdup (buffer));
654 } /* }}} char *html_escape */
656 int html_print_page (const char *title, /* {{{ */
657 const page_callbacks_t *cb, void *user_data)
661 printf ("Content-Type: text/html\n"
662 "X-Generator: "PACKAGE_STRING"\n"
666 title = "C₄: collection4 graph interface";
668 title_html = html_escape (title);
672 " <title>%s</title>\n"
673 " <link rel=\"stylesheet\" type=\"text/css\" href=\"../share/style.css\" />\n"
674 " <script type=\"text/javascript\" src=\"../share/jquery-1.4.2.min.js\">\n"
676 " <script type=\"text/javascript\" src=\"../share/collection.js\">\n"
682 " <table id=\"layout-table\">\n"
683 " <tr id=\"layout-top\">\n"
684 " <td id=\"layout-top-left\">");
685 if (cb->top_left != NULL)
686 (*cb->top_left) (user_data);
688 html_print_logo (NULL);
690 " <td id=\"layout-top-center\">");
691 if (cb->top_center != NULL)
692 (*cb->top_center) (user_data);
694 printf ("<h1>%s</h1>", title_html);
696 " <td id=\"layout-top-right\">");
697 if (cb->top_right != NULL)
698 (*cb->top_right) (user_data);
701 " <tr id=\"layout-middle\">\n"
702 " <td id=\"layout-middle-left\">");
703 if (cb->middle_left != NULL)
704 (*cb->middle_left) (user_data);
706 " <td id=\"layout-middle-center\">");
707 if (cb->middle_center != NULL)
708 (*cb->middle_center) (user_data);
710 " <td id=\"layout-middle-right\">");
711 if (cb->middle_right != NULL)
712 (*cb->middle_right) (user_data);
715 " <tr id=\"layout-bottom\">\n"
716 " <td id=\"layout-bottom-left\">");
717 if (cb->bottom_left != NULL)
718 (*cb->bottom_left) (user_data);
720 " <td id=\"layout-bottom-center\">");
721 if (cb->bottom_center != NULL)
722 (*cb->bottom_center) (user_data);
724 " <td id=\"layout-bottom-right\">");
725 if (cb->bottom_right != NULL)
726 (*cb->bottom_right) (user_data);
730 " <div class=\"footer\">"PACKAGE_STRING"</div>\n"
736 } /* }}} int html_print_page */
738 int html_print_logo (__attribute__((unused)) void *user_data) /* {{{ */
740 printf ("<a href=\"%s?action=list_graphs\" id=\"logo-canvas\">\n"
741 " <h1>C<sub>4</sub></h1>\n"
742 " <div id=\"logo-subscript\">collection 4</div>\n"
746 } /* }}} int html_print_search_box */
748 int html_print_search_box (__attribute__((unused)) void *user_data) /* {{{ */
752 term_html = html_escape (param ("q"));
754 printf ("<form action=\"%s\" method=\"get\" id=\"search-form\">\n"
755 " <input type=\"hidden\" name=\"action\" value=\"search\" />\n"
756 " <input type=\"text\" name=\"q\" value=\"%s\" id=\"search-input\" />\n"
757 " <input type=\"submit\" name=\"button\" value=\"Search\" />\n"
760 (term_html != NULL) ? term_html : "");
765 } /* }}} int html_print_search_box */
767 /* vim: set sw=2 sts=2 et fdm=marker : */