mcabber: mcabber/src/utils.c annotate

annotate mcabber/src/utils.c @ 576:8b3db0b555a1

Add Vim modelines

author	Mikael Berthe <mikael@lilotux.net>
date	Sun, 04 Dec 2005 09:04:02 +0100
parents	4eb579399613
children	fed6d1e4d7a9

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 *
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	4 * Copyright (C) 2005 Mikael Berthe <bmikael@lists.lilotux.net>
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>
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	28 #include <time.h>
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	29 #include <unistd.h>
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	30 #include <sys/types.h>
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	31 #include <sys/stat.h>
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	32 #include <ctype.h>
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	33 #include <glib.h>
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	34
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	35 #include <config.h>
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	36 #include "logprint.h"
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	37
76 a8f8492abd44 [/trunk] Changeset 90 by mikael mikael parents: 24 diff changeset	38 static int DebugEnabled;
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	39 static char *FName;
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	40
281 f562b9af2de7 Add "const" specifier in prototypes Mikael Berthe <mikael@lilotux.net> parents: 241 diff changeset	41 void ut_InitDebug(unsigned int level, const char *filename)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	42 {
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	43 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	44 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	45 int err;
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	46
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	47 if (level < 1) {
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	48 DebugEnabled = 0;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	49 FName = NULL;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	50 return;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	51 }
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	52
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	53 if (filename)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	54 FName = g_strdup(filename);
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	55 else {
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	56 FName = getenv("HOME");
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	57 if (!FName)
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	58 FName = "/tmp/mcabberlog";
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	59 else {
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	60 char *tmpname = g_new(char, strlen(FName) + 12);
138 250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	61 strcpy(tmpname, FName);
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	62 strcat(tmpname, "/mcabberlog");
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	63 FName = tmpname;
250f872c722f [/trunk] Changeset 150 by mikael mikael parents: 81 diff changeset	64 }
77 32f54ad6d729 [/trunk] Changeset 91 by mikael mikael parents: 76 diff changeset	65 }
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	66
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	67 DebugEnabled = level;
76 a8f8492abd44 [/trunk] Changeset 90 by mikael mikael parents: 24 diff changeset	68
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	69 fp = fopen(FName, "a");
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	70 if (!fp) {
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	71 fprintf(stderr, "ERROR: Cannot open tracelog file\n");
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	72 return;
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	73 }
428 4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	74
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	75 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	76 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	77 fclose(fp);
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	78 DebugEnabled = 0;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	79 FName = NULL;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	80 if (err) {
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	81 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	82 } else {
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	83 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	84 }
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	85 return;
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	86 }
4470868f90e5 Check the tracelog file actually belongs to the user (if logging enabled) Mikael Berthe <mikael@lilotux.net> parents: 419 diff changeset	87 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	88
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	89 fprintf(fp, "New trace log started.\n"
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	90 "----------------------\n");
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	91 fclose(fp);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	92 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	93
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	94 void ut_WriteLog(unsigned int flag, const char *data)
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	95 {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	96 if (!DebugEnabled \|\| !FName) return;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 378 diff changeset	97
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	98 if (((DebugEnabled == 2) && (flag & (LPRINT_LOG\|LPRINT_DEBUG))) \|\|
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	99 ((DebugEnabled == 1) && (flag & LPRINT_LOG))) {
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	100 FILE *fp = fopen(FName, "a+");
378 2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	101 if (!fp) {
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	102 scr_LogPrint(LPRINT_NORMAL, "ERROR: Cannot open tracelog file");
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	103 return;
2e6c7b1440d1 Improve debugging/logging Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	104 }
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	105 fputs(data, fp);
24 e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	106 fclose(fp);
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	107 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	108 }
e88b15cbf2de [/trunk] Changeset 40 by mikael mikael parents: diff changeset	109
362 d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	110 // checkset_perm(name, setmode)
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	111 // Check the permissions of the "name" file/dir
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	112 // 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	113 // 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	114 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	115 {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	116 int fd;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	117 struct stat buf;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	118
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	119 fd = lstat(name, &buf);
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	120 if (fd == -1) return -1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	121
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	122 if (buf.st_uid != geteuid()) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	123 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	124 return 1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	125 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	126
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	127 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	128 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	129 if (setmode) {
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	130 mode_t newmode = 0;
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	131 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	132 if (S_ISDIR(buf.st_mode))
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	133 newmode \|= S_IXUSR;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	134 newmode \|= S_IRUSR \| S_IWUSR;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	135 if (chmod(name, newmode)) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	136 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	137 return 1;
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	138 }
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	139 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	140 } else {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	141 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	142 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 }
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	145
d8f147d6e872 Check directory and config file permissions Mikael Berthe <mikael@lilotux.net> parents: 281 diff changeset	146 return 0;
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
524 05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	149 const char *ut_get_tmpdir(void)
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	150 {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	151 static const char *tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	152 const char *tmpvars[] = { "MCABBERTMPDIR", "TMP", "TMPDIR", "TEMP" };
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	153 int i;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	154
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	155 if (tmpdir)
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	156 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	157
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	158 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	159 tmpdir = getenv(tmpvars[i]);
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	160 if (tmpdir && tmpdir[0] && tmpdir[0] == '/' && tmpdir[1]) {
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	161 // Looks ok.
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	162 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	163 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	164 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	165
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	166 // Default temporary directory
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	167 tmpdir = "/tmp";
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	168 return tmpdir;
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	169 }
05c0e55c4bb1 Pass message body to external command Mikael Berthe <mikael@lilotux.net> parents: 463 diff changeset	170
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	171 // to_iso8601(dststr, timestamp)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	172 // Convert timestamp to iso8601 format, and store it in dststr.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	173 // NOTE: dststr should be at last 19 chars long.
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	174 // Return should be 0
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	175 int to_iso8601(char *dststr, time_t timestamp)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	176 {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	177 struct tm *tm_time;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	178 int ret;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	179
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	180 tm_time = gmtime(&timestamp);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	181
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	182 ret = snprintf(dststr, 19, "%.4d%02d%02dT%02d:%02d:%02dZ",
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	183 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	184 tm_time->tm_hour, tm_time->tm_min, tm_time->tm_sec);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	185
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	186 return ((ret == -1) ? -1 : 0);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	187 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	188
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	189 // from_iso8601(timestamp, utc)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	190 // This function comes from the Gaim project, gaim_str_to_time().
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	191 // (Actually date may not be pure iso-8601)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	192 // Thanks, guys!
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	193 time_t from_iso8601(const char *timestamp, int utc)
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	194 {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	195 struct tm t;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	196 time_t retval = 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	197 char buf[32];
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	198 char *c;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	199 int tzoff = 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	200
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	201 time(&retval);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	202 localtime_r(&retval, &t);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	203
463 339e85418b49 from_iso8601(): set time to 00:00:00 if not specified Mikael Berthe <mikael@lilotux.net> parents: 456 diff changeset	204 /* 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	205 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	206
241 8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	207 snprintf(buf, sizeof(buf), "%s", timestamp);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	208 c = buf;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	209
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	210 /* 4 digit year */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	211 if (!sscanf(c, "%04d", &t.tm_year)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	212 c+=4;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	213 if (*c == '-')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	214 c++;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	215
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	216 t.tm_year -= 1900;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	217
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	218 /* 2 digit month */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	219 if (!sscanf(c, "%02d", &t.tm_mon)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	220 c+=2;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	221 if (*c == '-')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	222 c++;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	223
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	224 t.tm_mon -= 1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	225
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	226 /* 2 digit day */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	227 if (!sscanf(c, "%02d", &t.tm_mday)) return 0;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	228 c+=2;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	229 if (c == 'T' \|\| c == '.') { /* we have more than a date, keep going */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	230 c++; /* skip the "T" */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	231
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	232 /* 2 digit hour */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	233 if (sscanf(c, "%02d:%02d:%02d", &t.tm_hour, &t.tm_min, &t.tm_sec) == 3 \|\|
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	234 sscanf(c, "%02d%02d%02d", &t.tm_hour, &t.tm_min, &t.tm_sec) == 3) {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	235 int tzhrs, tzmins;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	236 c+=8;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	237 if (c == '.') / dealing with precision we don't care about */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	238 c += 4;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	239
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	240 if ((c == '+' \|\| c == '-') &&
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	241 sscanf(c+1, "%02d:%02d", &tzhrs, &tzmins)) {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	242 tzoff = tzhrs6060 + tzmins*60;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	243 if (*c == '+')
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	244 tzoff *= -1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	245 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	246
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	247 if (tzoff \|\| utc) {
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	248
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	249 //#ifdef HAVE_TM_GMTOFF
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	250 tzoff += t.tm_gmtoff;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	251 //#else
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	252 //# ifdef HAVE_TIMEZONE
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	253 // tzset(); /* making sure */
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	254 // tzoff -= timezone;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	255 //# endif
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	256 //#endif
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	257 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	258 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	259 }
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	260
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	261 t.tm_isdst = -1;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	262
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	263 retval = mktime(&t);
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	264
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	265 retval += tzoff;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	266
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	267 return retval;
8584f919d9b9 [/trunk] Changeset 254 by mikael mikael parents: 138 diff changeset	268 }
419 2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	269
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	270 // Should only be used for delays < 1s
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	271 inline void safe_usleep(unsigned int usec)
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	272 {
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	273 struct timespec req;
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	274 req.tv_sec = 0;
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	275 req.tv_nsec = (long)usec * 1000L;
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	276 nanosleep(&req, NULL);
2f9852610cf4 Small code review Mikael Berthe <mikael@lilotux.net> parents: 393 diff changeset	277 }
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	278
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	279 /**
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	280 * 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	281 * really convenient for our usage.
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	282 *
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	283 * Check if the full JID is valid
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	284 * Return 0 if it is valid, non zero otherwise
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	285 */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	286 int check_jid_syntax(char *jid)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	287 {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	288 char *str;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	289 char domain, resource;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	290 int domlen;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	291
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	292 if (!jid) return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	293
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	294 domain = strchr(jid, '@');
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	295
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	296 /* the username is optional */
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	297 if (!domain) {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	298 domain = jid;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	299 } else {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	300 /* node identifiers may not be longer than 1023 bytes */
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	301 if ((domain == jid) \|\| (domain-jid > 1023))
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	302 return 1;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	303 domain++;
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	304
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	305 /* check for low and invalid ascii characters in the username */
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	306 for (str = jid; *str != '@'; str++) {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	307 if (str <= 32 \|\| str == ':' \|\| *str == '@' \|\|
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	308 str == '<' \|\| str == '>' \|\| *str == '\'' \|\|
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	309 str == '"' \|\| str == '&') {
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	310 return 1;
471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	311 }
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	312 }
456 471c9ccde028 Make username optional in check_jid_syntax() Mikael Berthe <mikael@lilotux.net> parents: 452 diff changeset	313 /* 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	314 }
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 resource = strchr(domain, '/');
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	317
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	318 /* the resource is optional */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	319 if (resource) {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	320 domlen = resource - domain;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	321 resource++;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	322 /* resources may not be longer than 1023 bytes */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	323 if ((*resource == '\0') \|\| strlen(resource) > 1023)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	324 return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	325 } else {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	326 domlen = strlen(domain);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	327 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	328
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	329 /* there must be a domain identifier */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	330 if (domlen == 0) return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	331
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	332 /* and it must not be longer than 1023 bytes */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	333 if (domlen > 1023) return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	334
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	335 /* make sure the hostname is valid characters */
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	336 for (str = domain; str != '\0' && str != '/'; str++) {
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	337 if (!(isalnum(str) \|\| str == '.' \|\| str == '-' \|\| str == '_'))
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	338 return 1;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	339 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	340
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	341 /* 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	342 return 0;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	343 }
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	344
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	345
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	346 void mc_strtolower(char *str)
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 if (!str) return;
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	349 for ( ; *str; str++)
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	350 str = tolower(str);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 428 diff changeset	351 }
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	352
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	353 // strip_arg_special_chars(string)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	354 // Remove quotes and backslashes before an escaped quote
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	355 // Only quotes need a backslash
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	356 // 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	357 void strip_arg_special_chars(char *s)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	358 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	359 int instring = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	360 int escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	361 char *p;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	362
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	363 for (p = s; *p; p++) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	364 if (*p == '"') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	365 if (!escape) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	366 instring = !instring;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	367 strcpy(p, p+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	368 p--;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	369 } else {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	370 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	371 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	372 } else if (*p == '\\') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	373 if (!escape) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	374 if (*(p+1) == '"') {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	375 strcpy(p, p+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	376 p--;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	377 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	378 escape = TRUE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	379 } else {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	380 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	381 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	382 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	383 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	384 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	385
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	386 // split_arg(arg, n, preservelast)
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	387 // 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	388 // double quotes.
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	389 // Return a null-terminated array of strings. This array should be freed
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	390 // be 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	391 // 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	392 // processing of quote chars)
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	393 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	394 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	395 char **arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	396 const char p, start, *end;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	397 int i = 0;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	398 int instring = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	399 int escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	400
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	401 arglst = g_new0(char*, n+1);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	402
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	403 if (!arg \|\| !n) return arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	404
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	405 // Skip leading space
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	406 for (start = arg; start && start == ' '; start++) ;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	407 // End of string pointer
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	408 for (end = start; *end; end++) ;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	409 // Skip trailing space
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	410 while (end > start+1 && *(end-1) == ' ')
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	411 end--;
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 for (p = start; p < end; p++) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	414 if (*p == '"' && !escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	415 instring = !instring;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	416 if (*p == '\\' && !escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	417 escape = TRUE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	418 else if (escape)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	419 escape = FALSE;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	420 if (*p == ' ' && !instring && i+1 < n) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	421 // end of parameter
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	422 *(arglst+i) = g_strndup(start, p-start);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	423 strip_arg_special_chars(*(arglst+i));
556 c4fee1a2c478 Fix bug in split_arg() Mikael Berthe <mikael@lilotux.net> parents: 554 diff changeset	424 for (start = p+1; start && start == ' '; start++) ;
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	425 i++;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	426 }
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
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	429 if (start < end) {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	430 *(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	431 if (!dontstriplast \|\| i+1 < n)
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 553 diff changeset	432 strip_arg_special_chars(*(arglst+i));
551 c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	433 }
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	434
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	435 return arglst;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	436 }
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 // free_arg_lst(arglst)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	439 // Free an array allocated by split_arg()
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	440 void free_arg_lst(char **arglst)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	441 {
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	442 char **arg_elt;
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	443
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	444 for (arg_elt = arglst; *arg_elt; arg_elt++)
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	445 g_free(*arg_elt);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	446 g_free(arglst);
c71699efa5cc Add split_arg() / free_arg_lst() Mikael Berthe <mikael@lilotux.net> parents: 524 diff changeset	447 }
576 8b3db0b555a1 Add Vim modelines Mikael Berthe <mikael@lilotux.net> parents: 559 diff changeset	448
8b3db0b555a1 Add Vim modelines Mikael Berthe <mikael@lilotux.net> parents: 559 diff changeset	449 /* vim: set expandtab cindent cinoptions=>2:2(0: For Vim users... */

Mercurial > ~mikael > mcabber > hg

annotate mcabber/src/utils.c @ 576:8b3db0b555a1