1/****************************************************************************
2 * Copyright (c) 1998,2001,2003 Free Software Foundation, Inc.              *
3 *                                                                          *
4 * Permission is hereby granted, free of charge, to any person obtaining a  *
5 * copy of this software and associated documentation files (the            *
6 * "Software"), to deal in the Software without restriction, including      *
7 * without limitation the rights to use, copy, modify, merge, publish,      *
8 * distribute, distribute with modifications, sublicense, and/or sell       *
9 * copies of the Software, and to permit persons to whom the Software is    *
10 * furnished to do so, subject to the following conditions:                 *
11 *                                                                          *
12 * The above copyright notice and this permission notice shall be included  *
13 * in all copies or substantial portions of the Software.                   *
14 *                                                                          *
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21 * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22 *                                                                          *
23 * Except as contained in this notice, the name(s) of the above copyright   *
24 * holders shall not be used in advertising or otherwise to promote the     *
25 * sale, use or other dealings in this Software without prior written       *
26 * authorization.                                                           *
27 ****************************************************************************/
28
29/****************************************************************************
30 *  Author: Thomas E. Dickey <dickey@clark.net> 1998,2000,2001              *
31 ****************************************************************************/
32
33#include <curses.priv.h>
34#include <tic.h>
35#include <nc_alloc.h>
36
37MODULE_ID("$Id: access.c,v 1.10 2003/07/05 19:31:28 tom Exp $")
38
39#define LOWERCASE(c) ((isalpha(UChar(c)) && isupper(UChar(c))) ? tolower(UChar(c)) : (c))
40
41NCURSES_EXPORT(char *)
42_nc_rootname(char *path)
43{
44    char *result = _nc_basename(path);
45#if !defined(MIXEDCASE_FILENAMES) || defined(PROG_EXT)
46    static char *temp;
47    char *s;
48
49    temp = strdup(result);
50    result = temp;
51#if !defined(MIXEDCASE_FILENAMES)
52    int n;
53    for (s = result; *s != '\0'; ++s) {
54	*s = LOWERCASE(*s);
55    }
56#endif
57#if defined(PROG_EXT)
58    if ((s = strrchr(result, '.')) != 0) {
59	if (!strcmp(s, PROG_EXT))
60	    *s = '\0';
61    }
62#endif
63#endif
64    return result;
65}
66
67/*
68 * Return index of the basename
69 */
70NCURSES_EXPORT(unsigned)
71_nc_pathlast(const char *path)
72{
73    const char *test = strrchr(path, '/');
74#ifdef __EMX__
75    if (test == 0)
76	test = strrchr(path, '\\');
77#endif
78    if (test == 0)
79	test = path;
80    else
81	test++;
82    return (test - path);
83}
84
85NCURSES_EXPORT(char *)
86_nc_basename(char *path)
87{
88    return path + _nc_pathlast(path);
89}
90
91NCURSES_EXPORT(int)
92_nc_access(const char *path, int mode)
93{
94    if (access(path, mode) < 0) {
95	if ((mode & W_OK) != 0
96	    && errno == ENOENT
97	    && strlen(path) < PATH_MAX) {
98	    char head[PATH_MAX];
99	    char *leaf = _nc_basename(strcpy(head, path));
100
101	    if (leaf == 0)
102		leaf = head;
103	    *leaf = '\0';
104	    if (head == leaf)
105		(void) strcpy(head, ".");
106
107	    return access(head, R_OK | W_OK | X_OK);
108	}
109	return -1;
110    }
111    return 0;
112}
113
114#ifndef USE_ROOT_ENVIRON
115/*
116 * Returns true if we allow application to use environment variables that are
117 * used for searching lists of directories, etc.
118 */
119NCURSES_EXPORT(int)
120_nc_env_access(void)
121{
122#if HAVE_ISSETUGID
123    if (issetugid())
124	return FALSE;
125#elif HAVE_GETEUID && HAVE_GETEGID
126    if (getuid() != geteuid()
127	|| getgid() != getegid())
128	return FALSE;
129#endif
130    return getuid() != 0 && geteuid() != 0;	/* ...finally, disallow root */
131}
132#endif
133