1 const char miscutil_rcs[] = "$Id: miscutil.c,v 1.3 2001/05/29 23:10:09 oes Exp $";
2 /*********************************************************************
4 * File : $Source: /cvsroot/ijbswa/current/miscutil.c,v $
6 * Purpose : zalloc, hash_string, safe_strerror, strcmpic,
7 * strncmpic, strsav, chomp, and MinGW32 strdup
9 * These are each too small to deserve their own file
10 * but don't really fit in any other file.
12 * Copyright : Written by and Copyright (C) 2001 the SourceForge
13 * IJBSWA team. http://ijbswa.sourceforge.net
15 * Based on the Internet Junkbuster originally written
16 * by and Copyright (C) 1997 Anonymous Coders and
17 * Junkbusters Corporation. http://www.junkbusters.com
19 * This program is free software; you can redistribute it
20 * and/or modify it under the terms of the GNU General
21 * Public License as published by the Free Software
22 * Foundation; either version 2 of the License, or (at
23 * your option) any later version.
25 * This program is distributed in the hope that it will
26 * be useful, but WITHOUT ANY WARRANTY; without even the
27 * implied warranty of MERCHANTABILITY or FITNESS FOR A
28 * PARTICULAR PURPOSE. See the GNU General Public
29 * License for more details.
31 * The GNU General Public License should be included with
32 * this file. If not, you can view it at
33 * http://www.gnu.org/copyleft/gpl.html
34 * or write to the Free Software Foundation, Inc., 59
35 * Temple Place - Suite 330, Boston, MA 02111-1307, USA.
38 * $Log: miscutil.c,v $
39 * Revision 1.3 2001/05/29 23:10:09 oes
42 * - Introduced chomp()
43 * - Moved strsav() from showargs to miscutil
45 * Revision 1.2 2001/05/29 09:50:24 jongfoster
46 * Unified blocklist/imagelist/permissionslist.
47 * File format is still under discussion, but the internal changes
50 * Also modified interceptor behaviour:
51 * - We now intercept all URLs beginning with one of the following
52 * prefixes (and *only* these prefixes):
54 * * http://ijbswa.sf.net/config/
55 * * http://ijbswa.sourceforge.net/config/
56 * - New interceptors "home page" - go to http://i.j.b/ to see it.
57 * - Internal changes so that intercepted and fast redirect pages
58 * are not replaced with an image.
59 * - Interceptors now have the option to send a binary page direct
60 * to the client. (i.e. ijb-send-banner uses this)
61 * - Implemented show-url-info interceptor. (Which is why I needed
62 * the above interceptors changes - a typical URL is
63 * "http://i.j.b/show-url-info?url=www.somesite.com/banner.gif".
64 * The previous mechanism would not have intercepted that, and
65 * if it had been intercepted then it then it would have replaced
68 * Revision 1.1.1.1 2001/05/15 13:59:00 oes
69 * Initial import of version 2.9.3 source tree
72 *********************************************************************/
86 const char miscutil_h_rcs[] = MISCUTIL_H_VERSION;
88 /* Fix a problem with Solaris. There should be no effect on other
90 * Solaris's isspace() is a macro which uses it's argument directly
91 * as an array index. Therefore we need to make sure that high-bit
92 * characters generate +ve values, and ideally we also want to make
93 * the argument match the declared parameter type of "int".
95 #define ijb_tolower(__X) tolower((int)(unsigned char)(__X))
96 #define ijb_isspace(__X) isspace((int)(unsigned char)(__X))
98 /*********************************************************************
102 * Description : Malloc some memory and set it to '\0'.
103 * The way calloc() ought to be -acjc
106 * 1 : size = Size of memory chunk to return.
108 * Returns : Pointer to newly malloc'd memory chunk.
110 *********************************************************************/
111 void *zalloc(int size)
115 if ((ret = (void *)malloc(size)) != NULL)
117 memset(ret, 0, size);
124 /*********************************************************************
126 * Function : hash_string
128 * Description : Take a string and compute a (hopefuly) unique numeric
129 * integer value. This has several uses, but being able
130 * to "switch" a string the one of my favorites.
133 * 1 : s : string to be hashed.
135 * Returns : an unsigned long variable with the hashed value.
137 *********************************************************************/
138 unsigned long hash_string( const char* s )
140 unsigned long h = 0ul;
153 /*********************************************************************
157 * Description : For some reason (which is beyond me), gcc and WIN32
158 * don't like strdup. When a "free" is executed on a
159 * strdup'd ptr, it can at times freez up! So I just
160 * replaced it and problem was solved.
163 * 1 : s = string to duplicate
165 * Returns : Pointer to newly malloc'ed copy of the string.
167 *********************************************************************/
168 char *strdup( const char *s )
170 char * result = (char *)malloc( strlen(s)+1 );
180 #endif /* def __MINGW32__ */
184 /*********************************************************************
186 * Function : safe_strerror
188 * Description : Variant of the library routine strerror() which will
189 * work on systems without the library routine, and
190 * which should never return NULL.
193 * 1 : err = the `errno' of the last operation.
195 * Returns : An "English" string of the last `errno'. Allocated
196 * with strdup(), so caller frees. May be NULL if the
197 * system is out of memory.
199 *********************************************************************/
200 char *safe_strerror(int err)
208 #endif /* NOSTRERROR */
212 sprintf(buf, "(errno = %d)", err);
221 /*********************************************************************
223 * Function : strcmpic
225 * Description : Case insensitive string comparison
228 * 1 : s1 = string 1 to compare
229 * 2 : s2 = string 2 to compare
231 * Returns : 0 if s1==s2, Negative if s1<s2, Positive if s1>s2
233 *********************************************************************/
234 int strcmpic(const char *s1, const char *s2)
238 if ( ( *s1 != *s2 ) && ( ijb_tolower(*s1) != ijb_tolower(*s2) ) )
244 return(ijb_tolower(*s1) - ijb_tolower(*s2));
249 /*********************************************************************
251 * Function : strncmpic
253 * Description : Case insensitive string comparison (upto n characters)
256 * 1 : s1 = string 1 to compare
257 * 2 : s2 = string 2 to compare
258 * 3 : n = maximum characters to compare
260 * Returns : 0 if s1==s2, Negative if s1<s2, Positive if s1>s2
262 *********************************************************************/
263 int strncmpic(const char *s1, const char *s2, size_t n)
265 if (n <= 0) return(0);
269 if ( ( *s1 != *s2 ) && ( ijb_tolower(*s1) != ijb_tolower(*s2) ) )
278 return(ijb_tolower(*s1) - ijb_tolower(*s2));
283 /*********************************************************************
287 * Description : In-situ-eliminate all leading and trailing whitespace
291 * 1 : s : string to be chomped.
293 * Returns : chomped string
295 *********************************************************************/
296 char *chomp(char *string)
301 * strip trailing whitespace
303 p = string + strlen(string);
304 while (p > string && ijb_isspace(*(p-1)))
311 * find end of leading whitespace
314 while (*q && ijb_isspace(*q))
320 * if there was any, move the rest forwards
334 /*********************************************************************
338 * Description : Reallocate "old" and append text to it. This makes
339 * it easier to append to malloc'd strings.
342 * 1 : old = Old text that is to be extended. Will be
343 * free()d by this routine.
344 * 2 : text_to_append = Text to be appended to old.
346 * Returns : Pointer to newly malloc'ed appended string.
347 * If there is no text to append, return old. Caller
350 *********************************************************************/
351 char *strsav(char *old, const char *text_to_append)
353 int old_len, new_len;
356 if (( text_to_append == NULL) || (*text_to_append == '\0'))
363 old_len = strlen(old);
370 new_len = old_len + strlen(text_to_append) + 1;
374 if ((p = realloc(old, new_len)) == NULL)
376 log_error(LOG_LEVEL_FATAL, "realloc(%d) bytes failed!", new_len);
377 /* Never get here - LOG_LEVEL_FATAL causes program exit */
382 if ((p = (char *)malloc(new_len)) == NULL)
384 log_error(LOG_LEVEL_FATAL, "malloc(%d) bytes failed!", new_len);
385 /* Never get here - LOG_LEVEL_FATAL causes program exit */
389 strcpy(p + old_len, text_to_append);
395 /*********************************************************************
397 * Function : trivimatch
399 * Description : Trivial string matching, with only one metacharacter,
400 * namely '*', which stands for zero or more arbitrary
403 * Note: The * is greedy, i.e. it will try to match as
404 * much text es possible.
407 * 1 : pattern = pattern for matching
408 * 2 : text = text to be matched
410 * Returns : 0 if match, else nonzero
412 *********************************************************************/
413 int trivimatch(char *pattern, char *text)
422 /* EOF pattern but !EOF text? */
428 /* '*' in the pattern? */
432 /* The pattern ends afterwards? Speed up the return. */
438 /* Else, set wildcard mode and remember position after '*' */
446 /* In wildcard mode, just try again */
449 /* Without wildcard mode, this is fatal! */
453 /* Bad luck otherwise */
459 /* We had a match, advance */
467 if(*pat == '*') pat++;
469 /* Hey, we've made it all the way through! */