mcabber: mcabber/src/utils.c annotate

annotate mcabber/src/utils.c @ 1461:8fa24a6d1a93

Improve Remote Controlling Clients The XEP recommends adding the node to the IQ response. Some clients seem not to understand the answer when it is omitted. Problem reported by Rhaamo and js (thanks to js for spotting the node issue!).

author	Mikael Berthe <mikael@lilotux.net>
date	Sat, 12 Apr 2008 13:35:03 +0200
parents	af54d33facd0
children	9f92c0edde1c

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 *
1414 366ef500c522 Update copyrights Mikael Berthe <mikael@lilotux.net> parents: 1367 diff changeset	4 * Copyright (C) 2005-2008 Mikael Berthe <mikael@lilotux.net>
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	5 * ut_* functions are derived from Cabber debug/log code.
1361 0562106d20c1 Update some copyrights Mikael Berthe <mikael@lilotux.net> parents: 1292 diff changeset	6 * from_iso8601() comes from the Pidgin (libpurple) project.
241 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 {
1222 75aee46d3aee Fix a problem with the ssl_ca{file,path} variables expansion Mikael Berthe <mikael@lilotux.net> parents: 1205 diff changeset	53 if (!fname)
75aee46d3aee Fix a problem with the ssl_ca{file,path} variables expansion Mikael Berthe <mikael@lilotux.net> parents: 1205 diff changeset	54 return NULL;
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	55 if (!strncmp(fname, "~/", 2)) {
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	56 char *homedir = getenv("HOME");
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	57 if (homedir)
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	58 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	59 }
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	60 return g_strdup(fname);
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	61 }
9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	62
952 527d6f234924 Small code cleanup Mikael Berthe <mikael@lilotux.net> parents: 911 diff changeset	63 void ut_InitDebug(int level, const char *filename)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	64 {
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	65 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	66 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	67 int err;
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	68
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	69 if (level < 1) {
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	70 DebugEnabled = 0;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	71 FName = NULL;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	72 return;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	73 }
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	74
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	75 if (filename)
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	76 FName = expand_filename(filename);
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	77 else {
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	78 FName = getenv("HOME");
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	79 if (!FName)
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	80 FName = g_strdup("/tmp/mcabberlog");
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	81 else {
1167 9726c78a91f3 Allow '~' (HOME directory) in config options Mikael Berthe <mikael@lilotux.net> parents: 1122 diff changeset	82 FName = g_strdup_printf("%s/mcabberlog", FName);
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	83 }
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	84 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	85
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	86 DebugEnabled = level;
76 a8f8492abd44 [/trunk] Changeset 90 by mikael mikael parents: 24 diff changeset	87
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	88 fp = fopen(FName, "a");
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	89 if (!fp) {
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	90 fprintf(stderr, "ERROR: Cannot open tracelog file\n");
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	91 return;
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	92 }
428 4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	93
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	94 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	95 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	96 fclose(fp);
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	97 DebugEnabled = 0;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	98 FName = NULL;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	99 if (err) {
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: 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	101 } else {
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	102 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	103 }
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	104 return;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	105 }
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	106 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	107
1241 3a4018f18bdf Cosmetics Mikael Berthe <mikael@lilotux.net> parents: 1222 diff changeset	108 fprintf(fp, "New trace log started.\n----------------------\n");
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	109 fclose(fp);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	110 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	111
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	112 void ut_WriteLog(unsigned int flag, const char *data)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	113 {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	114 if (!DebugEnabled \|\| !FName) return;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 378 diff changeset	115
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	116 if (((DebugEnabled == 2) && (flag & (LPRINT_LOG\|LPRINT_DEBUG))) \|\|
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	117 ((DebugEnabled == 1) && (flag & LPRINT_LOG))) {
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	118 FILE *fp = fopen(FName, "a+");
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	119 if (!fp) {
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	120 scr_LogPrint(LPRINT_NORMAL, "ERROR: Cannot open tracelog file");
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	121 return;
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	122 }
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	123 fputs(data, fp);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	124 fclose(fp);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	125 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	126 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	127
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	128 // checkset_perm(name, setmode)
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	129 // Check the permissions of the "name" file/dir
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	130 // 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	131 // 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	132 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	133 {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	134 int fd;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	135 struct stat buf;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	136
816 a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	137 #ifdef __CYGWIN__
1460 af54d33facd0 Fix two comments Mikael Berthe <mikael@lilotux.net> parents: 1459 diff changeset	138 // Permission checking isn't efficient on Cygwin
816 a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	139 return 0;
a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	140 #endif
a6628f0aabc1 Skip file permission checks on Cygwin Mikael Berthe <mikael@lilotux.net> parents: 803 diff changeset	141
1459 d76eff4ed71d Use stat() to check permissions in checkset_perm() (Dave Holland) Mikael Berthe <mikael@lilotux.net> parents: 1458 diff changeset	142 fd = stat(name, &buf);
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	143 if (fd == -1) return -1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	144
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	145 if (buf.st_uid != geteuid()) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	146 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	147 return 1;
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
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	150 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	151 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	152 if (setmode) {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	153 mode_t newmode = 0;
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	154 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	155 if (S_ISDIR(buf.st_mode))
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	156 newmode \|= S_IXUSR;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	157 newmode \|= S_IRUSR \| S_IWUSR;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	158 if (chmod(name, newmode)) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	159 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	160 return 1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	161 }
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	162 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	163 } else {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	164 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	165 return 1;
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
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	169 return 0;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	170 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	171
524 05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	172 const char *ut_get_tmpdir(void)
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	173 {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	174 static const char *tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	175 const char *tmpvars[] = { "MCABBERTMPDIR", "TMP", "TMPDIR", "TEMP" };
735 2f027806cd48 Some code cleanup Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	176 unsigned int i;
524 05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	177
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	178 if (tmpdir)
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	179 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	180
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	181 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	182 tmpdir = getenv(tmpvars[i]);
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	183 if (tmpdir && tmpdir[0] && tmpdir[0] == '/' && tmpdir[1]) {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	184 // Looks ok.
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	185 return tmpdir;
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
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	189 // Default temporary directory
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	190 tmpdir = "/tmp";
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	191 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	192 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	193
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	194 // to_iso8601(dststr, timestamp)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	195 // Convert timestamp to iso8601 format, and store it in dststr.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	196 // NOTE: dststr should be at last 19 chars long.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	197 // Return should be 0
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	198 int to_iso8601(char *dststr, time_t timestamp)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	199 {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	200 struct tm *tm_time;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	201 int ret;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	202
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	203 tm_time = gmtime(&timestamp);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	204
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	205 ret = snprintf(dststr, 19, "%.4d%02d%02dT%02d:%02d:%02dZ",
1458 17e95be6c39b time_t fix from the MirBSD port (Thorsten Glaser) Mikael Berthe <mikael@lilotux.net> parents: 1452 diff changeset	206 (int)(1900+tm_time->tm_year), tm_time->tm_mon+1, tm_time->tm_mday,
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	207 tm_time->tm_hour, tm_time->tm_min, tm_time->tm_sec);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	208
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	209 return ((ret == -1) ? -1 : 0);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	210 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	211
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	212 // from_iso8601(timestamp, utc)
1361 0562106d20c1 Update some copyrights Mikael Berthe <mikael@lilotux.net> parents: 1292 diff changeset	213 // This function came from the Pidgin project, gaim_str_to_time().
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	214 // (Actually date may not be pure iso-8601)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	215 // 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	216 // ** Modified by somian 10 Apr 2006 with advice from ysth.
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	217 time_t from_iso8601(const char *timestamp, int utc)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	218 {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	219 struct tm t;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	220 time_t retval = 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	221 char buf[32];
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	222 char *c;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	223 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	224 int hms_succ = 0;
1458 17e95be6c39b time_t fix from the MirBSD port (Thorsten Glaser) Mikael Berthe <mikael@lilotux.net> parents: 1452 diff changeset	225 int tmpyear;
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	226
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	227 time(&retval);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	228 localtime_r(&retval, &t);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	229
463 339e85418b49 from_iso8601(): set time to 00:00:00 if not specified Mikael Berthe <mikael@lilotux.net> parents: 456 diff changeset	230 /* 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	231 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	232
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	233 snprintf(buf, sizeof(buf), "%s", timestamp);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	234 c = buf;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	235
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	236 /* 4 digit year */
1458 17e95be6c39b time_t fix from the MirBSD port (Thorsten Glaser) Mikael Berthe <mikael@lilotux.net> parents: 1452 diff changeset	237 if (!sscanf(c, "%04d", &tmpyear)) return 0;
17e95be6c39b time_t fix from the MirBSD port (Thorsten Glaser) Mikael Berthe <mikael@lilotux.net> parents: 1452 diff changeset	238 t.tm_year = tmpyear;
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	239 c+=4;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	240 if (*c == '-')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	241 c++;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	242
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	243 t.tm_year -= 1900;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	244
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	245 /* 2 digit month */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	246 if (!sscanf(c, "%02d", &t.tm_mon)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	247 c+=2;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	248 if (*c == '-')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	249 c++;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	250
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	251 t.tm_mon -= 1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	252
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	253 /* 2 digit day */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	254 if (!sscanf(c, "%02d", &t.tm_mday)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	255 c+=2;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	256 if (c == 'T' \|\| c == '.') { /* we have more than a date, keep going */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	257 c++; /* skip the "T" */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	258
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	259 /* 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	260 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	261 {
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	262 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	263 c += 8;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	264 }
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	265 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	266 {
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	267 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	268 c += 6;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	269 }
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	270
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	271 if (hms_succ) {
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	272 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	273
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	274 if (c == '.') / dealing with precision we don't care about */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	275 c += 4;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	276
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	277 if ((c == '+' \|\| c == '-') &&
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	278 sscanf(c+1, "%02d:%02d", &tzhrs, &tzmins)) {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	279 tzoff = tzhrs6060 + tzmins*60;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	280 if (*c == '+')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	281 tzoff *= -1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	282 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	283
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	284 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	285 #ifdef HAVE_TM_GMTOFF
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	286 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	287 #else
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	288 # 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	289 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	290 tzoff -= timezone;
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	291 # endif
dd860da62002 Enable use on systems that do not have tm_gmtoff including Cygwin Soren Andersen <somian@pobox.com> parents: 735 diff changeset	292 #endif
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	293 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	294 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	295 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	296
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	297 t.tm_isdst = -1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	298
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	299 retval = mktime(&t);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	300
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	301 retval += tzoff;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	302
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	303 return retval;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	304 }
419 2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	305
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	306 /**
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	307 * 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	308 * really convenient for our usage.
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	309 *
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	310 * Check if the full JID is valid
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	311 * Return 0 if it is valid, non zero otherwise
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	312 */
1292 382ec54b584e Muc nick coloring functionality Michal 'vorner' Vaner <vorner@ucw.cz> parents: 1241 diff changeset	313 int check_jid_syntax(const char *fjid)
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	314 {
1292 382ec54b584e Muc nick coloring functionality Michal 'vorner' Vaner <vorner@ucw.cz> parents: 1241 diff changeset	315 const char *str;
382ec54b584e Muc nick coloring functionality Michal 'vorner' Vaner <vorner@ucw.cz> parents: 1241 diff changeset	316 const char domain, resource;
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	317 int domlen;
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 if (!fjid) return 1;
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	320
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	321 domain = strchr(fjid, JID_DOMAIN_SEPARATOR);
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	322
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	323 /* the username is optional */
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	324 if (!domain) {
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	325 domain = fjid;
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	326 } else {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	327 /* node identifiers may not be longer than 1023 bytes */
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	328 if ((domain == fjid) \|\| (domain-fjid > 1023))
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	329 return 1;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	330 domain++;
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	331
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	332 /* check for low and invalid ascii characters in the username */
1058 c0d44a9a99bc Code cleanup Mikael Berthe <mikael@lilotux.net> parents: 979 diff changeset	333 for (str = fjid; *str != JID_DOMAIN_SEPARATOR; str++) {
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	334 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	335 str == '<' \|\| str == '>' \|\| *str == '\'' \|\|
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	336 str == '"' \|\| str == '&') {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	337 return 1;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	338 }
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	339 }
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	340 /* 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	341 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	342
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	343 resource = strchr(domain, JID_RESOURCE_SEPARATOR);
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	344
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	345 /* the resource is optional */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	346 if (resource) {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	347 domlen = resource - domain;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	348 resource++;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	349 /* resources may not be longer than 1023 bytes */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	350 if ((*resource == '\0') \|\| strlen(resource) > 1023)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	351 return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	352 } else {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	353 domlen = strlen(domain);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	354 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	355
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	356 /* there must be a domain identifier */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	357 if (domlen == 0) return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	358
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	359 /* and it must not be longer than 1023 bytes */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	360 if (domlen > 1023) return 1;
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 /* make sure the hostname is valid characters */
977 5b01de4ac5e1 Cosmetic changes Alexis Hildebrandt <afh [at] 2drop [dot] net> parents: 952 diff changeset	363 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	364 if (!(isalnum(str) \|\| str == '.' \|\| str == '-' \|\| str == '_'))
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	365 return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	366 }
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 /* 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	369 return 0;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	370 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	371
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	372
1106 8e12137fab20 Cosmetics and cleanup Mikael Berthe <mikael@lilotux.net> parents: 1058 diff changeset	373 inline void mc_strtolower(char *str)
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	374 {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	375 if (!str) return;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	376 for ( ; *str; str++)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	377 str = tolower(str);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	378 }
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	379
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	380 // strip_arg_special_chars(string)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	381 // Remove quotes and backslashes before an escaped quote
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	382 // Only quotes need a backslash
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	383 // 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	384 void strip_arg_special_chars(char *s)
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 int instring = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	387 int escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	388 char *p;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	389
979 ea939ff047d8 Improve /buffer search_* Mikael Berthe <mikael@lilotux.net> parents: 977 diff changeset	390 if (!s) return;
ea939ff047d8 Improve /buffer search_* Mikael Berthe <mikael@lilotux.net> parents: 977 diff changeset	391
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	392 for (p = s; *p; p++) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	393 if (*p == '"') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	394 if (!escape) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	395 instring = !instring;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	396 strcpy(p, p+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	397 p--;
1452 83e275dca409 Fix escaping bug in strip_arg_special_chars() Mikael Berthe <mikael@lilotux.net> parents: 1440 diff changeset	398 } else
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	399 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	400 } else if (*p == '\\') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	401 if (!escape) {
1452 83e275dca409 Fix escaping bug in strip_arg_special_chars() Mikael Berthe <mikael@lilotux.net> parents: 1440 diff changeset	402 strcpy(p, p+1);
83e275dca409 Fix escaping bug in strip_arg_special_chars() Mikael Berthe <mikael@lilotux.net> parents: 1440 diff changeset	403 p--;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	404 }
1452 83e275dca409 Fix escaping bug in strip_arg_special_chars() Mikael Berthe <mikael@lilotux.net> parents: 1440 diff changeset	405 escape = !escape;
83e275dca409 Fix escaping bug in strip_arg_special_chars() Mikael Berthe <mikael@lilotux.net> parents: 1440 diff changeset	406 } else
83e275dca409 Fix escaping bug in strip_arg_special_chars() Mikael Berthe <mikael@lilotux.net> parents: 1440 diff changeset	407 escape = FALSE;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	408 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	409 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	410
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	411 // split_arg(arg, n, preservelast)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	412 // 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	413 // double quotes.
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	414 // 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	415 // 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	416 // 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	417 // processing of quote chars)
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	418 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	419 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	420 char **arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	421 const char p, start, *end;
735 2f027806cd48 Some code cleanup Mikael Berthe <mikael@lilotux.net> parents: 727 diff changeset	422 unsigned int i = 0;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	423 int instring = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	424 int escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	425
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	426 arglst = g_new0(char*, n+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	427
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	428 if (!arg \|\| !n) return arglst;
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 // Skip leading space
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	431 for (start = arg; start && start == ' '; start++) ;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	432 // End of string pointer
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	433 for (end = start; *end; end++) ;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	434 // Skip trailing space
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	435 while (end > start+1 && *(end-1) == ' ')
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	436 end--;
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 for (p = start; p < end; p++) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	439 if (*p == '"' && !escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	440 instring = !instring;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	441 if (*p == '\\' && !escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	442 escape = TRUE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	443 else if (escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	444 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	445 if (*p == ' ' && !instring && i+1 < n) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	446 // end of parameter
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	447 *(arglst+i) = g_strndup(start, p-start);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	448 strip_arg_special_chars(*(arglst+i));
556 c4fee1a2c478 Fix bug in split_arg() Mikael Berthe <mikael@lilotux.net> parents: 554 diff changeset	449 for (start = p+1; start && start == ' '; start++) ;
1367 cd0d63024923 Fix up split_arg() Mikael Berthe <mikael@lilotux.net> parents: 1361 diff changeset	450 p = start-1;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	451 i++;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	452 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	453 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	454
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	455 if (start < end) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	456 *(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	457 if (!dontstriplast \|\| i+1 < n)
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	458 strip_arg_special_chars(*(arglst+i));
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	459 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	460
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	461 return arglst;
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 // free_arg_lst(arglst)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	465 // Free an array allocated by split_arg()
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	466 void free_arg_lst(char **arglst)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	467 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	468 char **arg_elt;
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 for (arg_elt = arglst; *arg_elt; arg_elt++)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	471 g_free(*arg_elt);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	472 g_free(arglst);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	473 }
576 8b3db0b555a1 Add Vim modelines Mikael Berthe <mikael@lilotux.net> parents: 559 diff changeset	474
655 de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	475 // 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	476 // 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	477 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	478 {
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	479 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	480 if (p) {
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	481 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	482 strcpy(p, "(...)");
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	483 else
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	484 *p = 0;
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	485 }
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	486 }
de6837908702 Use "(...)" when cutting a multi-line status message in the log window Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	487
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	488 // ut_expand_tabs(text)
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	489 // 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	490 // 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	491 // 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	492 // 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	493 // 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	494 // string after use.
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	495 char ut_expand_tabs(const char text)
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	496 {
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	497 char *xtext;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	498 char p, q;
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	499 guint n = 0, bc = 0;
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	500
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	501 xtext = (char*)text;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	502 for (p=xtext; *p; p++)
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	503 if (*p == '\t')
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	504 n++;
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	505 else if (*p == '\x0d')
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	506 bc++;
648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	507 // 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	508
1122 648fe6f715a6 Filter out ^M (0x0d) characters in incoming messages Mikael Berthe <mikael@lilotux.net> parents: 1106 diff changeset	509 if (!n && !bc)
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	510 return (char*)text;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	511
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	512 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	513 p = (char*)text;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	514 q = xtext;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	515 do {
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	516 if (*p == '\t') {
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	517 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	518 } else if (*p != '\x0d') {
727 1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	519 q++ = p;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	520 }
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	521 } while (*p++);
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	522
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	523 return xtext;
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	524 }
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	525
1c3620668857 Expand tabs when reading history files Mikael Berthe <mikael@lilotux.net> parents: 699 diff changeset	526
803 8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	527 /* Cygwin's newlib does not have strcasestr() */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	528 /* 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	529 * Jeffrey Stedfast <fejj@ximian.com>
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	530 * 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	531
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	532 #if !defined(HAVE_STRCASESTR)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	533
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	534 # 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	535 # 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	536 # 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	537
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	538 /* 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	539 # 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	540
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	541 static unsigned char *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	542 __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	543 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	544 {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	545 register unsigned char hc_ptr, nc_ptr;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	546 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	547 size_t skiptable[256], n;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	548 register int i;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	549
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	550 #ifdef BOYER_MOORE_CHECKS
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	551 /* 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	552 /* 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	553 if (haystacklen < needlelen)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	554 return NULL;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	555
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	556 /* 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	557 if (needlelen == 0)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	558 return (unsigned char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	559 #endif /* BOYER_MOORE_CHECKS */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	560
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	561 /* 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	562 ne_ptr = (unsigned char *) needle + needlelen - 1;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	563 he_ptr = (unsigned char *) haystack + haystacklen - 1;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	564
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	565 /* create our skip table */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	566 for (i = 0; i < 256; i++)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	567 skiptable[i] = needlelen;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	568 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	569 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	570
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	571 h_ptr = (unsigned char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	572 while (haystacklen >= needlelen) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	573 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	574 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	575
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	576 /* 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	577 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	578 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	579 break;
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 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	582 n = skiptable[bm_index (*hc_ptr, icase)];
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	583 if (n == needlelen && i)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	584 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	585 n--;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	586 h_ptr += n;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	587 haystacklen -= n;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	588 } else
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	589 return (unsigned char *) h_ptr;
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
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	592 return NULL;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	593 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	594
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	595 /*
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	596 * strcasestr:
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	597 * @haystack: string to search
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	598 * @needle: substring to search for
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	599 *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	600 * 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	601 * string @haystack ignoring case.
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	602 *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	603 * 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	604 * @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	605 **/
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	606 char *
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	607 strcasestr (const char haystack, const char needle)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	608 {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	609 register unsigned char h, n, hc, nc;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	610 size_t needlelen;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	611
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	612 needlelen = strlen (needle);
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	613
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	614 if (needlelen == 0) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	615 return (char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	616 } else if (bm_optimal (0, needlelen)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	617 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	618 strlen (haystack),
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	619 (const unsigned char *) needle,
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	620 needlelen, 1);
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
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	623 h = (unsigned char *) haystack;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	624 n = (unsigned char *) needle;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	625
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	626 while (*(h + needlelen - 1)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	627 if (lowercase (h) == lowercase (n)) {
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	628 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	629 if (lowercase (hc) != lowercase (nc))
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	630 break;
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 if (!*nc)
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	633 return (char *) h;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	634 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	635 h++;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	636 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	637 return NULL;
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	638 }
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	639 #endif /* !HAVE_STRCASESTR */
8f8d8f8157a2 Take care of the strcasestr lacking (Cygwin) Soren Andersen <somian@pobox.com> parents: 802 diff changeset	640
1203 c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	641 // startswith(str, word, ignore_case)
1192 7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	642 // Returns TRUE if string str starts with word.
1203 c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	643 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	644 {
1203 c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	645 if (ignore_case && !strncasecmp(str, word, strlen(word)))
c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	646 return TRUE;
c96fef31ff96 Expand startswith() Mikael Berthe <mikael@lilotux.net> parents: 1192 diff changeset	647 else if (!ignore_case && !strncmp(str, word, strlen(word)))
1192 7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	648 return TRUE;
7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	649 return FALSE;
7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	650 }
7b8765c10abb New command: /source Mikael Berthe <mikael@lilotux.net> parents: 1167 diff changeset	651
580 fed6d1e4d7a9 Fix modelines Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	652 /* vim: set expandtab cindent cinoptions=>2\:2(0: For Vim users... */

Mercurial > hg

annotate mcabber/src/utils.c @ 1461:8fa24a6d1a93