1/*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License").  You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
23/*	  All Rights Reserved  	*/
24
25/*
26 * Copyright (c) 2001 by Sun Microsystems, Inc.
27 * All rights reserved.
28 */
29
30#ident	"%Z%%M%	%I%	%E% SMI"	/* from SVR4 bnu:expfile.c 2.10 */
31
32#include "uucp.h"
33
34/*
35 * expand file name expansion is based on first characters
36 *	/	-> fully qualified pathname. no
37 *		   processing necessary
38 *	~	-> prepended with login directory
39 *	~/	-> prepended with Pubdir
40 *	default	-> prepended with current directory
41 *	file	-> filename to expand
42 * returns:
43 *	0	-> ok
44 *      FAIL	-> no Wrkdir name available
45 */
46int
47expfile(file)
48register char *file;
49{
50	register char *fpart, *up;
51	uid_t uid;
52	char user[NAMESIZE], save[MAXFULLNAME];
53	extern int gninfo(), canPath();
54
55	if (strlcpy(save, file, sizeof (save)) >= sizeof (save))
56		return(FAIL);
57	if (*file != '/')
58	    if (*file ==  '~') {
59		/* find / and copy user part */
60		for (fpart = save + 1, up = user; *fpart != '\0'
61			&& *fpart != '/'; fpart++)
62				*up++ = *fpart;
63		*up = '\0';
64		if ((user[0]=='\0') || (gninfo(user, &uid, file) != 0)){
65			(void) strcpy(file, Pubdir);
66		}
67		if (strlen(file) + strlen(fpart) + 1 > (unsigned)MAXFULLNAME)
68			return(FAIL);
69		(void) strcat(file, fpart);
70	    } else {
71		if (strlen(Wrkdir) + strlen(save) + 2 > (unsigned)MAXFULLNAME)
72			return(FAIL);
73		(void) sprintf(file, "%s/%s", Wrkdir, save);
74		if (Wrkdir[0] == '\0')
75			return(FAIL);
76	    }
77
78	if (canPath(file) != 0) { /* I don't think this will ever fail */
79	    (void) strcpy(file, CORRUPTDIR);
80	    return(FAIL);
81	} else
82	    return(0);
83}
84
85
86/*
87 * make all necessary directories
88 *	name	-> directory to make
89 *	mask	-> mask to use during directory creation
90 * return:
91 *	0	-> success
92 * 	FAIL	-> failure
93 */
94int
95mkdirs(name, mask)
96mode_t mask;
97register char *name;
98{
99	register char *p;
100	mode_t omask;
101	char dir[MAXFULLNAME];
102
103	strcpy(dir, name);
104	if (*LASTCHAR(dir) != '/')
105	    	(void) strcat(dir, "/");
106	p = dir + 1;
107	for (;;) {
108	    if ((p = strchr(p, '/')) == NULL)
109		return(0);
110	    *p = '\0';
111	    if (DIRECTORY(dir)) {
112		/* if directory exists and is owned by uucp, child's
113		    permissions should be no more open than parent */
114		if (__s_.st_uid == UUCPUID)
115		    mask |= ((~__s_.st_mode) & PUB_DIRMODE);
116	    } else {
117		DEBUG(4, "mkdir - %s\n", dir);
118		omask = umask(mask);
119		if (mkdir(dir, PUB_DIRMODE) == FAIL) {
120		    umask(omask);
121		    return (FAIL);
122		}
123		umask(omask);
124	    }
125	    *p++ = '/';
126	}
127	/* NOTREACHED */
128}
129
130/*
131 * expand file name and check return
132 * print error if it failed.
133 *	file	-> file name to check
134 * returns:
135 *      0	-> ok
136 *      FAIL	-> if expfile failed
137 */
138int
139ckexpf(file)
140char *file;
141{
142	if (expfile(file) == 0)
143		return(0);
144
145	fprintf(stderr, gettext("Illegal filename (%s).\n"), file);
146	return(FAIL);
147}
148
149
150/*
151 * make canonical path out of path passed as argument.
152 *
153 * Eliminate redundant self-references like // or /./
154 * (A single terminal / will be preserved, however.)
155 * Dispose of references to .. in the path names.
156 * In relative path names, this means that .. or a/../..
157 * will be treated as an illegal reference.
158 * In full paths, .. is always allowed, with /.. treated as /
159 *
160 * returns:
161 *	0	-> path is now in canonical form
162 *	FAIL	-> relative path contained illegal .. reference
163 */
164
165int
166canPath(path)
167register char *path;	/* path is modified in place */
168{
169    register char *to, *fr;
170
171    to = fr = path;
172    if (*fr == '/') *to++ = *fr++;
173    for (;;) {
174	/* skip past references to self and validate references to .. */
175	for (;;) {
176	    if (*fr == '/') {
177		fr++;
178		continue;
179	    }
180	    if ((strncmp(fr, "./", 2) == SAME) || EQUALS(fr, ".")) {
181		fr++;
182		continue;
183	    }
184	    if ((strncmp(fr, "../", 3) == SAME) || EQUALS(fr, "..")) {
185		fr += 2;
186		/*	/.. is /	*/
187		if (((to - 1) == path) && (*path == '/')) continue;
188		/* error if no previous component */
189		if (to <= path) return (FAIL);
190		/* back past previous component */
191		while ((--to > path) && (to[-1] != '/'));
192		continue;
193	    }
194	    break;
195	}
196	/*
197	 * What follows is a legitimate component,
198	 * terminated by a null or a /
199	 */
200	if (*fr == '\0') break;
201	while (((*to++ = *fr) != '\0') && (*fr++ != '/'));
202    }
203    /* null path is . */
204    if (to == path) *to++ = '.';
205    *to = '\0';
206    return (0);
207}
208