Remove APPDIR support in database_cleanup.sh
[citadel] / webcit / utils.c
1 /*
2  * de/encoding stuff. hopefully mostly to be depricated in favour of subst.c + strbuf
3  */
4
5 #define SHOW_ME_VAPPEND_PRINTF
6 #include <stdio.h>
7 #include <stdarg.h>
8 #include "webcit.h"
9
10
11 /*   
12  * remove escaped strings from i.e. the url string (like %20 for blanks)
13  */
14 long unescape_input(char *buf)
15 {
16         unsigned int a, b;
17         char hex[3];
18         long buflen;
19         long len;
20
21         buflen = strlen(buf);
22
23         while ((buflen > 0) && (isspace(buf[buflen - 1]))){
24                 buf[buflen - 1] = 0;
25                 buflen --;
26         }
27
28         a = 0; 
29         while (a < buflen) {
30                 if (buf[a] == '+')
31                         buf[a] = ' ';
32                 if (buf[a] == '%') {
33                         /* don't let % chars through, rather truncate the input. */
34                         if (a + 2 > buflen) {
35                                 buf[a] = '\0';
36                                 buflen = a;
37                         }
38                         else {                  
39                                 hex[0] = buf[a + 1];
40                                 hex[1] = buf[a + 2];
41                                 hex[2] = 0;
42                                 b = 0;
43                                 b = decode_hex(hex);
44                                 buf[a] = (char) b;
45                                 len = buflen - a - 2;
46                                 if (len > 0)
47                                         memmove(&buf[a + 1], &buf[a + 3], len);
48                         
49                                 buflen -=2;
50                         }
51                 }
52                 a++;
53         }
54         return a;
55 }
56
57 /*
58  * Copy a string, escaping characters which have meaning in HTML.  
59  *
60  * target              target buffer
61  * strbuf              source buffer
62  * nbsp                        If nonzero, spaces are converted to non-breaking spaces.
63  * nolinebreaks                if set, linebreaks are removed from the string.
64  */
65 long stresc(char *target, long tSize, char *strbuf, int nbsp, int nolinebreaks)
66 {
67         char *aptr, *bptr, *eptr;
68  
69         *target = '\0';
70         aptr = strbuf;
71         bptr = target;
72         eptr = target + tSize - 6; /* our biggest unit to put in...  */
73  
74  
75         while ((bptr < eptr) && !IsEmptyStr(aptr) ){
76                 if (*aptr == '<') {
77                         memcpy(bptr, "&lt;", 4);
78                         bptr += 4;
79                 }
80                 else if (*aptr == '>') {
81                         memcpy(bptr, "&gt;", 4);
82                         bptr += 4;
83                 }
84                 else if (*aptr == '&') {
85                         memcpy(bptr, "&amp;", 5);
86                         bptr += 5;
87                 }
88                 else if (*aptr == '\"') {
89                         memcpy(bptr, "&quot;", 6);
90                         bptr += 6;
91                 }
92                 else if (*aptr == '\'') {
93                         memcpy(bptr, "&#39;", 5);
94                         bptr += 5;
95                 }
96                 else if (*aptr == LB) {
97                         *bptr = '<';
98                         bptr ++;
99                 }
100                 else if (*aptr == RB) {
101                         *bptr = '>';
102                         bptr ++;
103                 }
104                 else if (*aptr == QU) {
105                         *bptr ='"';
106                         bptr ++;
107                 }
108                 else if ((*aptr == 32) && (nbsp == 1)) {
109                         memcpy(bptr, "&nbsp;", 6);
110                         bptr += 6;
111                 }
112                 else if ((*aptr == '\n') && (nolinebreaks)) {
113                         *bptr='\0';     /* nothing */
114                 }
115                 else if ((*aptr == '\r') && (nolinebreaks)) {
116                         *bptr='\0';     /* nothing */
117                 }
118                 else{
119                         *bptr = *aptr;
120                         bptr++;
121                 }
122                 aptr ++;
123         }
124         *bptr = '\0';
125         if ((bptr = eptr - 1 ) && !IsEmptyStr(aptr) )
126                 return -1;
127         return (bptr - target);
128 }
129
130 /* 
131  * static wrapper for ecsputs1
132  */
133 void escputs(const char *strbuf)
134 {
135         StrEscAppend(WC->WBuf, NULL, strbuf, 0, 0);
136 }
137
138 /*
139  * urlescape buffer and print it to the client
140  */
141 void urlescputs(const char *strbuf)
142 {
143         StrBufUrlescAppend(WC->WBuf, NULL, strbuf);
144 }
145
146
147 /**
148  * urlescape buffer and print it as header 
149  */
150 void hurlescputs(const char *strbuf) 
151 {
152         StrBufUrlescAppend(WC->HBuf, NULL, strbuf);
153 }
154
155
156 /*
157  * Output a string to the client as a CDATA block
158  */
159 void cdataout(char *rawdata)
160 {
161         char *ptr = rawdata;
162         wc_printf("<![CDATA[");
163
164         while ((ptr != NULL) && (ptr[0] != 0))
165         {
166                 if (!strncmp(ptr, "]]>", 3)) {
167                         wc_printf("]]]]><![CDATA[>");
168                         ++ptr; ++ptr; ++ptr;
169                 }
170                 else {
171                         wc_printf("%c", ptr[0]);
172                         ++ptr;
173                 }
174         }
175
176         wc_printf("]]>");
177 }
178