Brought up to date
[swftools.git] / lib / modules / swfcgi.c
1 /* swfcgi.c
2
3    Parse CGI parameters
4    
5    Partly adopted from Steven Grimm's uncgi tool and library.
6
7    Extension module for the rfxswf library.
8    Part of the swftools package.
9
10    Copyright (c) 2001 Rainer Böhme <rfxswf@reflex-studio.de>
11  
12    This program is free software; you can redistribute it and/or modify
13    it under the terms of the GNU General Public License as published by
14    the Free Software Foundation; either version 2 of the License, or
15    (at your option) any later version.
16
17    This program is distributed in the hope that it will be useful,
18    but WITHOUT ANY WARRANTY; without even the implied warranty of
19    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20    GNU General Public License for more details.
21
22    You should have received a copy of the GNU General Public License
23    along with this program; if not, write to the Free Software
24    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
25
26
27 #define ishex(x) (((x) >= '0' && (x) <= '9') || ((x) >= 'a' && (x) <= 'f') || ((x) >= 'A' && (x) <= 'F'))
28
29 #define PREFIX "WWW_"
30
31 static int swf_htoi(unsigned char * s)
32 { int     value;
33   char    c;
34
35   c = s[0];
36   if (isupper(c)) c = tolower(c);
37   value = (c >= '0' && c <= '9' ? c - '0' : c - 'a' + 10) * 16;
38
39   c = s[1];
40   if (isupper(c)) c = tolower(c);
41   value += c >= '0' && c <= '9' ? c - '0' : c - 'a' + 10;
42
43   return (value);
44 }
45
46 static void swf_url_unescape(unsigned char * s)
47 { unsigned char  *dest = s;
48
49   while (s[0])
50   { if (s[0] == '+') dest[0] = ' ';
51     else
52     { if (s[0] == '%' && ishex(s[1]) && ishex(s[2]))
53       { dest[0] = (unsigned char) swf_htoi(s + 1);
54         s += 2;
55       }
56       else dest[0] = s[0];
57     }
58     s++;dest++;
59   }
60   dest[0] = 0;
61 }
62
63 static void swf_cgienv(unsigned char * var)
64 { unsigned char *buf, *c, *s, *t, *oldval = NULL, *newval;
65   int despace = 0, got_cr = 0;
66
67   // fprintf(stderr,"%s\n",var);
68   swf_url_unescape(var);
69   // fprintf(stderr,"%s\n",var);
70
71   
72   buf = (unsigned char*)malloc(strlen(var) + sizeof(PREFIX) + 2);
73   if (!buf) return;
74
75   strcpy(buf, PREFIX);
76   if (var[0] == '_')
77   { strcpy(&buf[sizeof(PREFIX)-1], &var[1]);
78     despace = 1;
79   }
80   else strcpy(&buf[sizeof(PREFIX)-1], var);
81
82   for (c = buf; c[0] ; c++)
83   { if (c[0] == '.') c[0] = '_';
84     if (c[0] == '=') break;
85   }
86   if (!c[0]) c[1] = 0;
87   c[0] = 0;
88
89   if (despace && c[1])
90   { for (s = c+1; s[0] && isspace(s[0]); s++);
91     t = c + 1;
92     while (s[0])
93     { if (s[0] == '\r')
94       { got_cr = 1;
95         s++;
96         continue;
97       }
98       if (got_cr)
99       { if (s[0] != '\n')
100         *t++ = '\n';
101         got_cr = 0;
102       }
103       *t++ = *s++;
104     }
105     while (t > c && isspace(*--t));
106     t[1] = 0;
107   }
108
109   if ((oldval = getenv(buf)))
110   { newval = (unsigned char*)malloc(strlen(oldval) + strlen(buf) + strlen(&c[1]) + 3);
111     if (!newval) return;
112
113     c[0] = '=';
114     sprintf(newval, "%s#%s", buf, oldval);
115     c[0] = 0;
116
117     oldval -= strlen(buf) + 1; // skip past VAR= 
118   }
119   else 
120   { c[0] = '=';
121     newval = buf;
122   }
123   
124   putenv(newval);
125         
126   if (oldval)
127   { free(oldval);
128     free(buf);
129   }
130 }
131
132 static void swf_scanquery(char * q)
133 { char *next = q;
134   if (!q) return;
135
136   while (next)
137   { next = strchr(q, '&');
138     if (next) next[0] = 0;
139     swf_cgienv(q);
140     if (next)
141     { next[0] = '&';
142       q = next+1;
143     }
144   } 
145 }
146
147 char * swf_postread()
148 { char * buf = NULL;
149   int size = 0, sofar = 0, got;
150
151   buf = getenv("CONTENT_TYPE");
152   if ((!buf) || strcmp(buf, "application/x-www-form-urlencoded")) return NULL;
153
154   buf = getenv("CONTENT_LENGTH");
155   if (!buf) return NULL;
156         
157   size = atoi(buf);
158   buf = (unsigned char*)malloc(size + 1);
159   if (buf)
160   { do
161     { got = fread(buf + sofar, 1, size - sofar, stdin);
162       sofar += got;
163     } while (got && sofar < size);
164     buf[sofar] = 0;
165   }
166
167   return buf;
168 }
169
170 void swf_uncgi()
171 { char *query, *dupquery, *method;
172
173   query = getenv("QUERY_STRING");
174   if ((query) && strlen(query))
175   { dupquery = strdup(query);
176     swf_scanquery(dupquery);
177     free(dupquery);
178   }
179
180   method = getenv("REQUEST_METHOD");
181   if ((method) && ! strcmp(method, "POST"))
182   { query = swf_postread();
183     if ((query)&&(query[0]!=0)) swf_scanquery(query);
184     free(query);
185   }
186   
187 }
188       
189 #undef ishex
190 #undef PREFIX