2 * util.c miscellaneous utility subroutines for Bacula
10 Copyright (C) 2000, 2001, 2002 Kern Sibbald and John Walker
12 This program is free software; you can redistribute it and/or
13 modify it under the terms of the GNU General Public License as
14 published by the Free Software Foundation; either version 2 of
15 the License, or (at your option) any later version.
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 General Public License for more details.
22 You should have received a copy of the GNU General Public
23 License along with this program; if not, write to the Free
24 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
31 #include "findlib/find.h"
34 * Various Bacula Utility subroutines
38 /* Return true of buffer has all zero bytes */
39 int is_buf_zero(char *buf, int len)
41 uint64_t *ip = (uint64_t *)buf;
43 int i, len64, done, rem;
45 /* Optimize by checking uint64_t for zero */
46 len64 = len >> sizeof(uint64_t);
47 for (i=0; i < len64; i++) {
52 done = len64 << sizeof(uint64_t); /* bytes already checked */
55 for (i = 0; i < rem; i++) {
64 /* Convert a string in place to lower case */
69 *str = tolower((int)(*str));
74 /* Convert spaces to non-space character.
75 * This makes scanf of fields containing spaces easier.
78 bash_spaces(char *str)
87 /* Convert non-space characters (0x1) back into spaces */
89 unbash_spaces(char *str)
98 /* Strip any trailing junk from the command */
99 void strip_trailing_junk(char *cmd)
102 p = cmd + strlen(cmd) - 1;
104 /* strip trailing junk from command */
105 while ((p >= cmd) && (*p == '\n' || *p == '\r' || *p == ' '))
109 /* Strip any trailing slashes from a directory path */
110 void strip_trailing_slashes(char *dir)
113 p = dir + strlen(dir) - 1;
115 /* strip trailing slashes */
116 while ((p >= dir) && (*p == '/'))
122 * Returns: 0 on failure (EOF)
124 * new address in passed parameter
126 int skip_spaces(char **msg)
132 while (*p && *p == ' ') {
141 * Returns: 0 on failure (EOF)
143 * new address in passed parameter
145 int skip_nonspaces(char **msg)
152 while (*p && *p != ' ') {
159 /* folded search for string - case insensitive */
161 fstrsch(char *a, char *b) /* folded case search */
163 register char *s1,*s2;
164 register char c1, c2;
168 while (*s1) { /* do it the fast way */
169 if ((*s1++ | 0x20) != (*s2++ | 0x20))
170 return 0; /* failed */
172 while (*a) { /* do it over the correct slow way */
173 if (B_ISUPPER(c1 = *a)) {
174 c1 = tolower((int)c1);
176 if (B_ISUPPER(c2 = *b)) {
177 c2 = tolower((int)c2);
189 char *encode_time(time_t time, char *buf)
194 if (localtime_r(&time, &tm)) {
195 n = sprintf(buf, "%04d-%02d-%02d %02d:%02d:%02d",
196 tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday,
197 tm.tm_hour, tm.tm_min, tm.tm_sec);
203 * Concatenate a string (str) onto a pool memory buffer pm
205 void pm_strcat(POOLMEM **pm, char *str)
207 int pmlen = strlen(*pm);
208 int len = strlen(str) + 1;
210 *pm = check_pool_memory_size(*pm, pmlen + len);
211 memcpy(*pm+pmlen, str, len);
216 * Copy a string (str) into a pool memory buffer pm
218 void pm_strcpy(POOLMEM **pm, char *str)
220 int len = strlen(str) + 1;
222 *pm = check_pool_memory_size(*pm, len);
223 memcpy(*pm, str, len);
228 * Convert a JobStatus code into a human readable form
230 void jobstatus_to_ascii(int JobStatus, char *msg, int maxlen)
232 char *termstat, jstat[2];
239 case JS_ErrorTerminated:
240 termstat = _("Error");
243 termstat = _("Non-fatal error");
246 termstat = _("Cancelled");
249 termstat = _("Verify differences");
252 jstat[0] = last_job.JobStatus;
257 bstrncpy(msg, termstat, maxlen);
261 * Convert Job Termination Status into a string
263 char *job_status_to_str(int stat)
271 case JS_ErrorTerminated:
276 str = _("Fatal Error");
279 str = _("Cancelled");
282 str = _("Differences");
285 str = _("Unknown term code");
293 * Convert Job Type into a string
295 char *job_type_to_str(int type)
313 str = _("Unknown Type");
320 * Convert Job Level into a string
322 char *job_level_to_str(int level)
331 str = _("Incremental");
334 str = _("Differential");
342 case L_VERIFY_CATALOG:
343 str = _("Verify Catalog");
346 str = _("Verify Init Catalog");
348 case L_VERIFY_VOLUME_TO_CATALOG:
349 str = _("Verify Volume to Catalog");
352 str = _("Verify Data");
355 str = _("Unknown Job Level");
362 /***********************************************************************
363 * Encode the mode bits into a 10 character string like LS does
364 ***********************************************************************/
366 char *encode_mode(mode_t mode, char *buf)
370 *cp++ = S_ISDIR(mode) ? 'd' : S_ISBLK(mode) ? 'b' : S_ISCHR(mode) ? 'c' :
371 S_ISLNK(mode) ? 'l' : '-';
372 *cp++ = mode & S_IRUSR ? 'r' : '-';
373 *cp++ = mode & S_IWUSR ? 'w' : '-';
374 *cp++ = (mode & S_ISUID
375 ? (mode & S_IXUSR ? 's' : 'S')
376 : (mode & S_IXUSR ? 'x' : '-'));
377 *cp++ = mode & S_IRGRP ? 'r' : '-';
378 *cp++ = mode & S_IWGRP ? 'w' : '-';
379 *cp++ = (mode & S_ISGID
380 ? (mode & S_IXGRP ? 's' : 'S')
381 : (mode & S_IXGRP ? 'x' : '-'));
382 *cp++ = mode & S_IROTH ? 'r' : '-';
383 *cp++ = mode & S_IWOTH ? 'w' : '-';
384 *cp++ = (mode & S_ISVTX
385 ? (mode & S_IXOTH ? 't' : 'T')
386 : (mode & S_IXOTH ? 'x' : '-'));
392 int do_shell_expansion(char *name)
394 /* ****FIXME***** this should work for Win32 too */
404 void (*istat)(int), (*qstat)(int);
406 char echout[PATH_MAX + 256];
408 static char meta[] = "~\\$[]*?`'<>\"";
412 /* Check if any meta characters are present */
414 for (i = 0; i < len; i++) {
415 if (strchr(name, meta[i])) {
423 /* If the filename appears to be a DOS filename,
424 convert all backward slashes \ to Unix path
425 separators / and insert a \ infront of spaces. */
427 if (len >= 3 && name[1] == ':' && name[2] == '\\') {
428 for (i=2; i<len; i++)
433 /* Pass string off to the shell for interpretation */
436 switch(pid = fork()) {
442 if ((shellcmd = getenv("SHELL")) == NULL)
443 shellcmd = "/bin/sh";
444 close(1); dup(pfd[1]); /* attach pipes to stdin and stdout */
445 close(2); dup(pfd[1]);
446 for (i = 3; i < 32; i++) /* close everything else */
448 strcpy(echout, "echo "); /* form echo command */
449 strcat(echout, name);
450 execl(shellcmd, shellcmd, "-c", echout, NULL); /* give to shell */
451 exit(127); /* shouldn't get here */
453 default: /* parent */
454 /* read output from child */
455 i = read(pfd[0], echout, sizeof echout);
456 echout[--i] = 0; /* set end of string */
457 /* look for first word or first line. */
459 if (echout[i] == ' ' || echout[i] == '\n')
460 echout[i] = 0; /* keep only first one */
462 istat = signal(SIGINT, SIG_IGN);
463 qstat = signal(SIGQUIT, SIG_IGN);
464 /* wait for child to exit */
465 while ((wpid = wait(&waitstatus)) != pid && wpid != -1)
467 signal(SIGINT, istat);
468 signal(SIGQUIT, qstat);
469 strcpy(name, echout);
473 close(pfd[0]); /* close pipe */
481 #if MSC | MSDOS | __WATCOMC__
483 char prefix[100], *env, *getenv();
485 /* Home directory reference? */
486 if (*name == '~' && (env=getenv("HOME"))) {
487 strcpy(prefix, env); /* copy HOME directory name */
488 name++; /* skip over ~ in name */
489 strcat(prefix, name);
490 name--; /* get back to beginning */
491 strcpy(name, prefix); /* move back into name */
499 /* MAKESESSIONKEY -- Generate session key with optional start
500 key. If mode is TRUE, the key will be
501 translated to a string, otherwise it is
502 returned as 16 binary bytes.
504 from SpeakFreely by John Walker */
506 void makeSessionKey(char *key, char *seed, int mode)
509 struct MD5Context md5c;
510 unsigned char md5key[16], md5key1[16];
518 /* The following creates a seed for the session key generator
519 based on a collection of volatile and environment-specific
520 information unlikely to be vulnerable (as a whole) to an
521 exhaustive search attack. If one of these items isn't
522 available on your machine, replace it with something
523 equivalent or, if you like, just delete it. */
525 sprintf(s + strlen(s), "%lu", (unsigned long) getpid());
526 sprintf(s + strlen(s), "%lu", (unsigned long) getppid());
527 getcwd(s + strlen(s), 256);
528 sprintf(s + strlen(s), "%lu", (unsigned long) clock());
529 sprintf(s + strlen(s), "%lu", (unsigned long) time(NULL));
531 sysinfo(SI_HW_SERIAL,s + strlen(s), 12);
533 #ifdef HAVE_GETHOSTID
534 sprintf(s + strlen(s), "%lu", (unsigned long) gethostid());
536 #ifdef HAVE_GETDOMAINNAME
537 getdomainname(s + strlen(s), 256);
539 gethostname(s + strlen(s), 256);
540 sprintf(s + strlen(s), "%u", (unsigned)getuid());
541 sprintf(s + strlen(s), "%u", (unsigned)getgid());
543 MD5Update(&md5c, (unsigned char *)s, strlen(s));
544 MD5Final(md5key, &md5c);
545 sprintf(s + strlen(s), "%lu", (unsigned long) ((time(NULL) + 65121) ^ 0x375F));
547 MD5Update(&md5c, (unsigned char *)s, strlen(s));
548 MD5Final(md5key1, &md5c);
549 #define nextrand (md5key[j] ^ md5key1[j])
551 for (j = k = 0; j < 16; j++) {
552 unsigned char rb = nextrand;
554 #define Rad16(x) ((x) + 'A')
555 key[k++] = Rad16((rb >> 4) & 0xF);
556 key[k++] = Rad16(rb & 0xF);
564 for (j = 0; j < 16; j++) {