mcabber: mcabber/src/utils.c annotate

annotate mcabber/src/utils.c @ 1203:c96fef31ff96

Expand startswith()

author	Mikael Berthe <mikael@lilotux.net>
date	Sat, 28 Apr 2007 12:16:45 +0200
parents	7b8765c10abb
children	2de8f8ba1f34

rev	line source
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	1 /*
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	2 * utils.c -- Various utility functions
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 378 diff changeset	3 *
699 ee03b56b93ee Update Copyright (2006) Mikael Berthe <mikael@lilotux.net> parents: 655 diff changeset	4 * Copyright (C) 2005, 2006 Mikael Berthe <bmikael@lists.lilotux.net>
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	5 * ut_* functions are derived from Cabber debug/log code.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	6 * from_iso8601() comes from the Gaim project.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	7 *
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	8 * This program is free software; you can redistribute it and/or modify
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	9 * it under the terms of the GNU General Public License as published by
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	10 * the Free Software Foundation; either version 2 of the License, or (at
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	11 * your option) any later version.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	12 *
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	13 * This program is distributed in the hope that it will be useful, but
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	14 * WITHOUT ANY WARRANTY; without even the implied warranty of
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	16 * General Public License for more details.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	17 *
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	18 * You should have received a copy of the GNU General Public License
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	19 * along with this program; if not, write to the Free Software
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	21 * USA
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	22 */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	23
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	24 #include <stdio.h>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	25 #include <stdlib.h>
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	26 #include <string.h>
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	27 #include <stdarg.h>
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	28
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	29 /* For Cygwin (thanks go to Yitzchak Scott-Thoennes) */
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	30 #ifdef __CYGWIN__
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	31 # define timezonevar
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	32 extern long timezone;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	33 #endif
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	34 #include <time.h>
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	35 #include <unistd.h>
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	36 #include <sys/types.h>
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	37 #include <sys/stat.h>
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	38 #include <ctype.h>
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	39 #include <glib.h>
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	40
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	41 #include <config.h>
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	42 #include "utils.h"
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	43 #include "logprint.h"
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	44
76 a8f8492abd44 [/trunk] Changeset 90 by mikael mikael parents: 24 diff changeset	45 static int DebugEnabled;
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	46 static char *FName;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	47
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	48 // expand_filename(filename)
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	49 // Expand "~/" with the $HOME env. variable in a file name.
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	50 // The caller must free the string after use.
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	51 char expand_filename(const char fname)
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	52 {
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	53 if (!strncmp(fname, "~/", 2)) {
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	54 char *homedir = getenv("HOME");
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	55 if (homedir)
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	56 return g_strdup_printf("%s%s", homedir, fname+1);
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	57 }
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	58 return g_strdup(fname);
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	59 }
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	60
952 527d6f234924 Small code cleanup Mikael Berthe <mikael@lilotux.net> parents: 911 diff changeset	61 void ut_InitDebug(int level, const char *filename)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	62 {
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	63 FILE *fp;
428 4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	64 struct stat buf;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	65 int err;
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	66
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	67 if (level < 1) {
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	68 DebugEnabled = 0;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	69 FName = NULL;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	70 return;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	71 }
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	72
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	73 if (filename)
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	74 FName = expand_filename(filename);
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	75 else {
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	76 FName = getenv("HOME");
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	77 if (!FName)
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	78 FName = g_strdup("/tmp/mcabberlog");
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	79 else {
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	80 FName = g_strdup_printf("%s/mcabberlog", FName);
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	81 }
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	82 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	83
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	84 DebugEnabled = level;
76 a8f8492abd44 [/trunk] Changeset 90 by mikael mikael parents: 24 diff changeset	85
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	86 fp = fopen(FName, "a");
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	87 if (!fp) {
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	88 fprintf(stderr, "ERROR: Cannot open tracelog file\n");
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	89 return;
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	90 }
428 4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	91
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	92 err = fstat(fileno(fp), &buf);
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	93 if (err \|\| buf.st_uid != geteuid()) {
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	94 fclose(fp);
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	95 DebugEnabled = 0;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	96 FName = NULL;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	97 if (err) {
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	98 fprintf(stderr, "ERROR: cannot stat the tracelog file!\n");
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	99 } else {
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	100 fprintf(stderr, "ERROR: tracelog file does not belong to you!\n");
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	101 }
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	102 return;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	103 }
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	104 fchmod(fileno(fp), S_IRUSR\|S_IWUSR);
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	105
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	106 fprintf(fp, "New trace log started.\n"
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	107 "----------------------\n");
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	108 fclose(fp);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	109 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	110
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	111 void ut_WriteLog(unsigned int flag, const char *data)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	112 {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	113 if (!DebugEnabled \|\| !FName) return;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 378 diff changeset	114
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	115 if (((DebugEnabled == 2) && (flag & (LPRINT_LOG\|LPRINT_DEBUG))) \|\|
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	116 ((DebugEnabled == 1) && (flag & LPRINT_LOG))) {
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	117 FILE *fp = fopen(FName, "a+");
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	118 if (!fp) {
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	119 scr_LogPrint(LPRINT_NORMAL, "ERROR: Cannot open tracelog file");
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	120 return;
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	121 }
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	122 fputs(data, fp);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	123 fclose(fp);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	124 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	125 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	126
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	127 // checkset_perm(name, setmode)
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	128 // Check the permissions of the "name" file/dir
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	129 // If setmode is true, correct the permissions if they are wrong
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	130 // Return values: -1 == bad file/dir, 0 == success, 1 == cannot correct
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	131 int checkset_perm(const char *name, unsigned int setmode)
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	132 {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	133 int fd;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	134 struct stat buf;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	135
816 a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	136 #ifdef __CYGWIN__
a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	137 // Permission checking isn't efficent on Cygwin
a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	138 return 0;
a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	139 #endif
a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	140
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	141 fd = lstat(name, &buf);
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	142 if (fd == -1) return -1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	143
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	144 if (buf.st_uid != geteuid()) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	145 scr_LogPrint(LPRINT_LOGNORM, "Wrong file owner [%s]", name);
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	146 return 1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	147 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	148
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	149 if (buf.st_mode & (S_IRGRP \| S_IWGRP \| S_IXGRP) \|\|
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	150 buf.st_mode & (S_IROTH \| S_IWOTH \| S_IXOTH)) {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	151 if (setmode) {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	152 mode_t newmode = 0;
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	153 scr_LogPrint(LPRINT_LOGNORM, "Bad permissions [%s]", name);
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	154 if (S_ISDIR(buf.st_mode))
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	155 newmode \|= S_IXUSR;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	156 newmode \|= S_IRUSR \| S_IWUSR;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	157 if (chmod(name, newmode)) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	158 scr_LogPrint(LPRINT_LOGNORM, "WARNING: Failed to correct permissions!");
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	159 return 1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	160 }
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	161 scr_LogPrint(LPRINT_LOGNORM, "Permissions have been corrected");
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	162 } else {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	163 scr_LogPrint(LPRINT_LOGNORM, "WARNING: Bad permissions [%s]", name);
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	164 return 1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	165 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	166 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	167
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	168 return 0;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	169 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	170
524 05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	171 const char *ut_get_tmpdir(void)
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	172 {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	173 static const char *tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	174 const char *tmpvars[] = { "MCABBERTMPDIR", "TMP", "TMPDIR", "TEMP" };
735 2f027806cd48 Some code cleanup Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	175 unsigned int i;
524 05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	176
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	177 if (tmpdir)
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	178 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	179
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	180 for (i = 0; i < (sizeof(tmpvars) / sizeof(const char *)); i++) {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	181 tmpdir = getenv(tmpvars[i]);
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	182 if (tmpdir && tmpdir[0] && tmpdir[0] == '/' && tmpdir[1]) {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	183 // Looks ok.
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	184 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	185 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	186 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	187
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	188 // Default temporary directory
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	189 tmpdir = "/tmp";
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	190 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	191 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	192
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	193 // to_iso8601(dststr, timestamp)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	194 // Convert timestamp to iso8601 format, and store it in dststr.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	195 // NOTE: dststr should be at last 19 chars long.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	196 // Return should be 0
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	197 int to_iso8601(char *dststr, time_t timestamp)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	198 {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	199 struct tm *tm_time;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	200 int ret;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	201
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	202 tm_time = gmtime(&timestamp);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	203
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	204 ret = snprintf(dststr, 19, "%.4d%02d%02dT%02d:%02d:%02dZ",
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	205 1900+tm_time->tm_year, tm_time->tm_mon+1, tm_time->tm_mday,
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	206 tm_time->tm_hour, tm_time->tm_min, tm_time->tm_sec);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	207
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	208 return ((ret == -1) ? -1 : 0);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	209 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	210
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	211 // from_iso8601(timestamp, utc)
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	212 // This function came from the Gaim project, gaim_str_to_time().
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	213 // (Actually date may not be pure iso-8601)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	214 // Thanks, guys!
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	215 // ** Modified by somian 10 Apr 2006 with advice from ysth.
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	216 time_t from_iso8601(const char *timestamp, int utc)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	217 {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	218 struct tm t;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	219 time_t retval = 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	220 char buf[32];
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	221 char *c;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	222 int tzoff = 0;
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	223 int hms_succ = 0;
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	224
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	225 time(&retval);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	226 localtime_r(&retval, &t);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	227
463 339e85418b49 from_iso8601(): set time to 00:00:00 if not specified Mikael Berthe <mikael@lilotux.net> parents: 456 diff changeset	228 /* Reset time to midnight (00:00:00) */
339e85418b49 from_iso8601(): set time to 00:00:00 if not specified Mikael Berthe <mikael@lilotux.net> parents: 456 diff changeset	229 t.tm_hour = t.tm_min = t.tm_sec = 0;
339e85418b49 from_iso8601(): set time to 00:00:00 if not specified Mikael Berthe <mikael@lilotux.net> parents: 456 diff changeset	230
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	231 snprintf(buf, sizeof(buf), "%s", timestamp);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	232 c = buf;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	233
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	234 /* 4 digit year */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	235 if (!sscanf(c, "%04d", &t.tm_year)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	236 c+=4;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	237 if (*c == '-')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	238 c++;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	239
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	240 t.tm_year -= 1900;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	241
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	242 /* 2 digit month */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	243 if (!sscanf(c, "%02d", &t.tm_mon)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	244 c+=2;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	245 if (*c == '-')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	246 c++;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	247
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	248 t.tm_mon -= 1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	249
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	250 /* 2 digit day */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	251 if (!sscanf(c, "%02d", &t.tm_mday)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	252 c+=2;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	253 if (c == 'T' \|\| c == '.') { /* we have more than a date, keep going */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	254 c++; /* skip the "T" */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	255
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	256 /* 2 digit hour */
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	257 if (sscanf(c, "%02d:%02d:%02d", &t.tm_hour, &t.tm_min, &t.tm_sec) == 3)
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	258 {
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	259 hms_succ = 1;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	260 c += 8;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	261 }
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	262 else if (sscanf(c, "%02d%02d%02d", &t.tm_hour, &t.tm_min, &t.tm_sec) == 3)
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	263 {
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	264 hms_succ = 1;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	265 c += 6;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	266 }
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	267
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	268 if (hms_succ) {
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	269 int tzhrs, tzmins;
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	270
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	271 if (c == '.') / dealing with precision we don't care about */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	272 c += 4;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	273
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	274 if ((c == '+' \|\| c == '-') &&
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	275 sscanf(c+1, "%02d:%02d", &tzhrs, &tzmins)) {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	276 tzoff = tzhrs6060 + tzmins*60;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	277 if (*c == '+')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	278 tzoff *= -1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	279 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	280
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	281 if (tzoff \|\| utc) {
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	282 #ifdef HAVE_TM_GMTOFF
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	283 tzoff += t.tm_gmtoff;
802 dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	284 #else
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	285 # ifdef HAVE_TIMEZONE
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	286 tzset(); /* making sure */
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	287 tzoff -= timezone;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	288 # endif
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	289 #endif
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	290 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	291 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	292 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	293
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	294 t.tm_isdst = -1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	295
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	296 retval = mktime(&t);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	297
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	298 retval += tzoff;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	299
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	300 return retval;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	301 }
419 2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	302
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	303 // Should only be used for delays < 1s
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	304 inline void safe_usleep(unsigned int usec)
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	305 {
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	306 struct timespec req;
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	307 req.tv_sec = 0;
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	308 req.tv_nsec = (long)usec * 1000L;
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	309 nanosleep(&req, NULL);
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	310 }
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	311
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	312 /**
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	313 * Derived from libjabber/jid.c, because the libjabber version is not
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	314 * really convenient for our usage.
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	315 *
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	316 * Check if the full JID is valid
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	317 * Return 0 if it is valid, non zero otherwise
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	318 */
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	319 int check_jid_syntax(char *fjid)
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	320 {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	321 char *str;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	322 char domain, resource;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	323 int domlen;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	324
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	325 if (!fjid) return 1;
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	326
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	327 domain = strchr(fjid, JID_DOMAIN_SEPARATOR);
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	328
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	329 /* the username is optional */
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	330 if (!domain) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	331 domain = fjid;
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	332 } else {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	333 /* node identifiers may not be longer than 1023 bytes */
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	334 if ((domain == fjid) \|\| (domain-fjid > 1023))
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	335 return 1;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	336 domain++;
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	337
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	338 /* check for low and invalid ascii characters in the username */
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	339 for (str = fjid; *str != JID_DOMAIN_SEPARATOR; str++) {
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	340 if (str <= ' ' \|\| str == ':' \|\| *str == JID_DOMAIN_SEPARATOR \|\|
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	341 str == '<' \|\| str == '>' \|\| *str == '\'' \|\|
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	342 str == '"' \|\| str == '&') {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	343 return 1;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	344 }
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	345 }
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	346 /* the username is okay as far as we can tell without LIBIDN */
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	347 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	348
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	349 resource = strchr(domain, JID_RESOURCE_SEPARATOR);
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	350
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	351 /* the resource is optional */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	352 if (resource) {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	353 domlen = resource - domain;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	354 resource++;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	355 /* resources may not be longer than 1023 bytes */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	356 if ((*resource == '\0') \|\| strlen(resource) > 1023)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	357 return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	358 } else {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	359 domlen = strlen(domain);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	360 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	361
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	362 /* there must be a domain identifier */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	363 if (domlen == 0) return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	364
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	365 /* and it must not be longer than 1023 bytes */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	366 if (domlen > 1023) return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	367
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	368 /* make sure the hostname is valid characters */
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	369 for (str = domain; str != '\0' && str != JID_RESOURCE_SEPARATOR; str++) {
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	370 if (!(isalnum(str) \|\| str == '.' \|\| str == '-' \|\| str == '_'))
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	371 return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	372 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	373
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	374 /* it's okay as far as we can tell without LIBIDN */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	375 return 0;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	376 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	377
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	378
1106 8e12137fab20 Cosmetics and cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	379 inline void mc_strtolower(char *str)
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	380 {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	381 if (!str) return;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	382 for ( ; *str; str++)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	383 str = tolower(str);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	384 }
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	385
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	386 // strip_arg_special_chars(string)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	387 // Remove quotes and backslashes before an escaped quote
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	388 // Only quotes need a backslash
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	389 // Ex.: ["a b"] -> [a b]; [a\"b] -> [a"b]
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	390 void strip_arg_special_chars(char *s)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	391 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	392 int instring = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	393 int escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	394 char *p;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	395
979 ea939ff047d8 Improve /buffer search_* Mikael Berthe <mikael@lilotux.net> parents: 977 diff changeset	396 if (!s) return;
ea939ff047d8 Improve /buffer search_* Mikael Berthe <mikael@lilotux.net> parents: 977 diff changeset	397
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	398 for (p = s; *p; p++) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	399 if (*p == '"') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	400 if (!escape) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	401 instring = !instring;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	402 strcpy(p, p+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	403 p--;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	404 } else {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	405 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	406 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	407 } else if (*p == '\\') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	408 if (!escape) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	409 if (*(p+1) == '"') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	410 strcpy(p, p+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	411 p--;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	412 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	413 escape = TRUE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	414 } else {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	415 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	416 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	417 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	418 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	419 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	420
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	421 // split_arg(arg, n, preservelast)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	422 // Split the string arg into a maximum of n pieces, taking care of
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	423 // double quotes.
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	424 // Return a null-terminated array of strings. This array should be freed
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	425 // by the caller after use, for example with free_arg_lst().
559 4eb579399613 Fix a small bug in split_arg() Mikael Berthe <mikael@lilotux.net> parents: 556 diff changeset	426 // If dontstriplast is true, the Nth argument isn't stripped (i.e. no
4eb579399613 Fix a small bug in split_arg() Mikael Berthe <mikael@lilotux.net> parents: 556 diff changeset	427 // processing of quote chars)
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	428 char *split_arg(const char arg, unsigned int n, int dontstriplast)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	429 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	430 char **arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	431 const char p, start, *end;
735 2f027806cd48 Some code cleanup Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	432 unsigned int i = 0;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	433 int instring = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	434 int escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	435
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	436 arglst = g_new0(char*, n+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	437
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	438 if (!arg \|\| !n) return arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	439
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	440 // Skip leading space
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	441 for (start = arg; start && start == ' '; start++) ;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	442 // End of string pointer
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	443 for (end = start; *end; end++) ;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	444 // Skip trailing space
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	445 while (end > start+1 && *(end-1) == ' ')
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	446 end--;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	447
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	448 for (p = start; p < end; p++) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	449 if (*p == '"' && !escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	450 instring = !instring;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	451 if (*p == '\\' && !escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	452 escape = TRUE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	453 else if (escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	454 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	455 if (*p == ' ' && !instring && i+1 < n) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	456 // end of parameter
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	457 *(arglst+i) = g_strndup(start, p-start);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	458 strip_arg_special_chars(*(arglst+i));
556 c4fee1a2c478 Fix bug in split_arg() Mikael Berthe <mikael@lilotux.net> parents: 554 diff changeset	459 for (start = p+1; start && start == ' '; start++) ;
911 fe57dd753a56 Fix a segfault Mikael Berthe <mikael@lilotux.net> parents: 816 diff changeset	460 p = start;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	461 i++;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	462 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	463 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	464
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	465 if (start < end) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	466 *(arglst+i) = g_strndup(start, end-start);
559 4eb579399613 Fix a small bug in split_arg() Mikael Berthe <mikael@lilotux.net> parents: 556 diff changeset	467 if (!dontstriplast \|\| i+1 < n)
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	468 strip_arg_special_chars(*(arglst+i));
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	469 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	470
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	471 return arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	472 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	473
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	474 // free_arg_lst(arglst)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	475 // Free an array allocated by split_arg()
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	476 void free_arg_lst(char **arglst)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	477 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	478 char **arg_elt;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	479
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	480 for (arg_elt = arglst; *arg_elt; arg_elt++)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	481 g_free(*arg_elt);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	482 g_free(arglst);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	483 }
576 8b3db0b555a1 Add Vim modelines Mikael Berthe <mikael@lilotux.net> parents: 559 diff changeset	484
655 de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	485 // replace_nl_with_dots(bufstr)
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	486 // Replace '\n' with "(...)" (or with a NUL if the string is too short)
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	487 void replace_nl_with_dots(char *bufstr)
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	488 {
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	489 char *p = strchr(bufstr, '\n');
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	490 if (p) {
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	491 if (strlen(p) >= 5)
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	492 strcpy(p, "(...)");
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	493 else
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	494 *p = 0;
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	495 }
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	496 }
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	497
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	498 // ut_expand_tabs(text)
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	499 // Expand tabs and filter out some bad chars in string text.
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	500 // If there is no tab and no bad chars in the string, a pointer to text
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	501 // is returned (be careful _not_ to free the pointer in this case).
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	502 // If there are some tabs or bad chars, a new string with expanded chars
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	503 // and no bad chars is returned; this is up to the caller to free this
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	504 // string after use.
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	505 char ut_expand_tabs(const char text)
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	506 {
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	507 char *xtext;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	508 char p, q;
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	509 guint n = 0, bc = 0;
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	510
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	511 xtext = (char*)text;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	512 for (p=xtext; *p; p++)
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	513 if (*p == '\t')
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	514 n++;
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	515 else if (*p == '\x0d')
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	516 bc++;
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	517 // XXX Are there other special chars we should filter out?
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	518
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	519 if (!n && !bc)
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	520 return (char*)text;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	521
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	522 xtext = g_new(char, strlen(text) + 1 + 8*n);
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	523 p = (char*)text;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	524 q = xtext;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	525 do {
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	526 if (*p == '\t') {
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	527 do { *q++ = ' '; } while ((q-xtext)%8);
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	528 } else if (*p != '\x0d') {
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	529 q++ = p;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	530 }
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	531 } while (*p++);
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	532
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	533 return xtext;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	534 }
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	535
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	536
803 8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	537 /* Cygwin's newlib does not have strcasestr() */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	538 /* The author of the code before the endif is
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	539 * Jeffrey Stedfast <fejj@ximian.com>
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	540 * and this code is reusable in compliance with the GPL v2. -- somian */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	541
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	542 #if !defined(HAVE_STRCASESTR)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	543
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	544 # define lowercase(c) (isupper ((int) (c)) ? tolower ((int) (c)) : (int) (c))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	545 # define bm_index(c, icase) ((icase) ? lowercase (c) : (int) (c))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	546 # define bm_equal(c1, c2, icase) ((icase) ? lowercase (c1) == lowercase (c2) : (c1) == (c2))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	547
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	548 /* FIXME: this is just a guess... should really do some performace tests to get an accurate measure */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	549 # define bm_optimal(hlen, nlen) (((hlen) ? (hlen) > 20 : 1) && (nlen) > 10 ? 1 : 0)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	550
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	551 static unsigned char *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	552 __boyer_moore (const unsigned char *haystack, size_t haystacklen,
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	553 const unsigned char *needle, size_t needlelen, int icase)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	554 {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	555 register unsigned char hc_ptr, nc_ptr;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	556 unsigned char he_ptr, ne_ptr, *h_ptr;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	557 size_t skiptable[256], n;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	558 register int i;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	559
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	560 #ifdef BOYER_MOORE_CHECKS
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	561 /* we don't need to do these checks since memmem/strstr/etc do it already */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	562 /* if the haystack is shorter than the needle then we can't possibly match */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	563 if (haystacklen < needlelen)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	564 return NULL;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	565
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	566 /* instant match if the pattern buffer is 0-length */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	567 if (needlelen == 0)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	568 return (unsigned char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	569 #endif /* BOYER_MOORE_CHECKS */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	570
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	571 /* set a pointer at the end of each string */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	572 ne_ptr = (unsigned char *) needle + needlelen - 1;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	573 he_ptr = (unsigned char *) haystack + haystacklen - 1;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	574
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	575 /* create our skip table */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	576 for (i = 0; i < 256; i++)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	577 skiptable[i] = needlelen;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	578 for (nc_ptr = (unsigned char *) needle; nc_ptr < ne_ptr; nc_ptr++)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	579 skiptable[bm_index (*nc_ptr, icase)] = (size_t) (ne_ptr - nc_ptr);
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	580
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	581 h_ptr = (unsigned char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	582 while (haystacklen >= needlelen) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	583 hc_ptr = h_ptr + needlelen - 1; /* set the haystack compare pointer */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	584 nc_ptr = ne_ptr; /* set the needle compare pointer */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	585
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	586 /* work our way backwards till they don't match */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	587 for (i = 0; nc_ptr > (unsigned char *) needle; nc_ptr--, hc_ptr--, i++)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	588 if (!bm_equal (nc_ptr, hc_ptr, icase))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	589 break;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	590
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	591 if (!bm_equal (nc_ptr, hc_ptr, icase)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	592 n = skiptable[bm_index (*hc_ptr, icase)];
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	593 if (n == needlelen && i)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	594 if (bm_equal (ne_ptr, ((unsigned char ) needle)[0], icase))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	595 n--;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	596 h_ptr += n;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	597 haystacklen -= n;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	598 } else
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	599 return (unsigned char *) h_ptr;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	600 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	601
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	602 return NULL;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	603 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	604
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	605 /*
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	606 * strcasestr:
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	607 * @haystack: string to search
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	608 * @needle: substring to search for
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	609 *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	610 * Finds the first occurence of the substring @needle within the
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	611 * string @haystack ignoring case.
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	612 *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	613 * Returns a pointer to the beginning of the substring match within
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	614 * @haystack, or NULL if the substring is not found.
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	615 **/
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	616 char *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	617 strcasestr (const char haystack, const char needle)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	618 {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	619 register unsigned char h, n, hc, nc;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	620 size_t needlelen;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	621
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	622 needlelen = strlen (needle);
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	623
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	624 if (needlelen == 0) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	625 return (char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	626 } else if (bm_optimal (0, needlelen)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	627 return (char ) __boyer_moore ((const unsigned char ) haystack,
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	628 strlen (haystack),
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	629 (const unsigned char *) needle,
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	630 needlelen, 1);
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	631 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	632
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	633 h = (unsigned char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	634 n = (unsigned char *) needle;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	635
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	636 while (*(h + needlelen - 1)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	637 if (lowercase (h) == lowercase (n)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	638 for (hc = h + 1, nc = n + 1; hc && nc; hc++, nc++)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	639 if (lowercase (hc) != lowercase (nc))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	640 break;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	641
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	642 if (!*nc)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	643 return (char *) h;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	644 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	645 h++;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	646 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	647 return NULL;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	648 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	649 #endif /* !HAVE_STRCASESTR */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	650
1203 c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	651 // startswith(str, word, ignore_case)
1192 7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	652 // Returns TRUE if string str starts with word.
1203 c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	653 int startswith(const char str, const char word, guint ignore_case)
1192 7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	654 {
1203 c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	655 if (ignore_case && !strncasecmp(str, word, strlen(word)))
c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	656 return TRUE;
c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	657 else if (!ignore_case && !strncmp(str, word, strlen(word)))
1192 7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	658 return TRUE;
7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	659 return FALSE;
7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	660 }
7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	661
580 fed6d1e4d7a9 Fix modelines Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	662 /* vim: set expandtab cindent cinoptions=>2\:2(0: For Vim users... */

Mercurial > ~mikael > mcabber > hg

annotate mcabber/src/utils.c @ 1203:c96fef31ff96