]> arthur.barton.de Git - netatalk.git/blob - etc/afpd/unix.c
remove pre ansi declarations
[netatalk.git] / etc / afpd / unix.c
1 /*
2  * $Id: unix.c,v 1.54 2009-10-13 22:55:37 didg Exp $
3  *
4  * Copyright (c) 1990,1993 Regents of The University of Michigan.
5  * All Rights Reserved.  See COPYRIGHT.
6  */
7
8 #ifdef HAVE_CONFIG_H
9 #include "config.h"
10 #endif /* HAVE_CONFIG_H */
11
12 #include <stdio.h>
13 #include <stdlib.h>
14
15 /* STDC check */
16 #ifdef STDC_HEADERS
17 #include <string.h>
18 #else /* STDC_HEADERS */
19
20 #ifndef HAVE_STRCHR
21 #define strchr index
22 #define strrchr index
23 #endif /* HAVE_STRCHR */
24 char *strchr (), *strrchr ();
25
26 #ifndef HAVE_MEMCPY
27 #define memcpy(d,s,n) bcopy ((s), (d), (n))
28 #define memmove(d,s,n) bcopy ((s), (d), (n))
29 #endif /* ! HAVE_MEMCPY */
30 #endif /* STDC_HEADERS */
31
32 #include <errno.h>
33 #include <dirent.h>
34 #include <limits.h>
35 #include <sys/param.h>
36 #include <sys/stat.h>
37 #include <atalk/logger.h>
38 #include <atalk/adouble.h>
39 #include <atalk/vfs.h>
40 #include <atalk/afp.h>
41 #include <atalk/util.h>
42
43 #include "auth.h"
44 #include "directory.h"
45 #include "volume.h"
46 #include "unix.h"
47 #include "fork.h"
48
49 #ifdef HAVE_NFSv4_ACLS
50 extern void acltoownermode(char *path, struct stat *st,uid_t uid, struct maccess *ma);
51 #endif
52
53
54 /*
55  * Get the free space on a partition.
56  */
57 int ustatfs_getvolspace(const struct vol *vol, VolSpace *bfree, VolSpace *btotal, u_int32_t *bsize)
58 {
59     VolSpace maxVolSpace = (~(VolSpace)0);
60
61 #ifdef ultrix
62     struct fs_data      sfs;
63 #else /*ultrix*/
64     struct statfs       sfs;
65 #endif /*ultrix*/
66
67
68     if ( statfs( vol->v_path, &sfs ) < 0 ) {
69         LOG(log_error, logtype_afpd, "ustatfs_getvolspace unable to stat %s", vol->v_path);
70         return( AFPERR_PARAM );
71     }
72
73 #ifdef ultrix
74     *bfree = (VolSpace) sfs.fd_req.bfreen;
75     *bsize = 1024;
76 #else /* !ultrix */
77     *bfree = (VolSpace) sfs.f_bavail;
78     *bsize = sfs.f_frsize;
79 #endif /* ultrix */
80
81     if ( *bfree > maxVolSpace / *bsize ) {
82         *bfree = maxVolSpace;
83     } else {
84         *bfree *= *bsize;
85     }
86
87 #ifdef ultrix
88     *btotal = (VolSpace)
89               ( sfs.fd_req.btot - ( sfs.fd_req.bfree - sfs.fd_req.bfreen ));
90 #else /* !ultrix */
91     *btotal = (VolSpace)
92               ( sfs.f_blocks - ( sfs.f_bfree - sfs.f_bavail ));
93 #endif /* ultrix */
94
95     /* see similar block above comments */
96     if ( *btotal > maxVolSpace / *bsize ) {
97         *btotal = maxVolSpace;
98     } else {
99         *btotal *= *bsize;
100     }
101
102     return( AFP_OK );
103 }
104
105 static int utombits(mode_t bits)
106 {
107     int         mbits;
108
109     mbits = 0;
110
111     mbits |= ( bits & ( S_IREAD >> 6 ))  ? AR_UREAD  : 0;
112     mbits |= ( bits & ( S_IWRITE >> 6 )) ? AR_UWRITE : 0;
113     /* Do we really need this? */
114     mbits |= ( bits & ( S_IEXEC >> 6) ) ? AR_USEARCH : 0;
115
116     return( mbits );
117 }
118
119 /* --------------------------------
120     cf AFP 3.0 page 63
121 */
122 void utommode(struct stat *stat, struct maccess *ma)
123 {
124 mode_t mode;
125
126     mode = stat->st_mode;
127     ma->ma_world = utombits( mode );
128     mode = mode >> 3;
129
130     ma->ma_group = utombits( mode );
131     mode = mode >> 3;
132
133     ma->ma_owner = utombits( mode );
134
135     /* ma_user is a union of all permissions but we must follow
136      * unix perm
137     */
138     if ( (uuid == stat->st_uid) || (uuid == 0)) {
139         ma->ma_user = ma->ma_owner | AR_UOWN;
140     }
141     else if ( gmem( stat->st_gid )) {
142         ma->ma_user = ma->ma_group;
143     }
144     else {
145         ma->ma_user = ma->ma_world;
146     }
147
148     /*
149      * There are certain things the mac won't try if you don't have
150      * the "owner" bit set, even tho you can do these things on unix wiht
151      * only write permission.  What were the things?
152      * 
153      * FIXME 
154      * ditto seems to care if st_uid is 0 ?
155      * was ma->ma_user & AR_UWRITE
156      * but 0 as owner is a can of worms.
157      */
158     if ( !stat->st_uid ) {
159         ma->ma_user |= AR_UOWN;
160     }
161 }
162
163 #ifdef accessmode
164 #undef accessmode
165 #endif
166 /*
167  * Calculate the mode for a directory using a stat() call to
168  * estimate permission.
169  *
170  * Note: the previous method, using access(), does not work correctly
171  * over NFS.
172  *
173  * dir parameter is used by AFS
174  */
175 void accessmode(char *path, struct maccess *ma, struct dir *dir _U_, struct stat *st)
176
177 {
178 struct stat     sb;
179
180     ma->ma_user = ma->ma_owner = ma->ma_world = ma->ma_group = 0;
181     if (!st) {
182         if (stat(path, &sb) != 0)
183             return;
184         st = &sb;
185     }
186     utommode( st, ma );
187 #ifdef HAVE_NFSv4_ACLS
188     /* 10.5 Finder looks at OS 9 mode, so we must do some mapping */
189     acltoownermode( path, st, uuid, ma);
190 #endif
191 }
192
193 int gmem(const gid_t gid)
194 {
195     int         i;
196
197     for ( i = 0; i < ngroups; i++ ) {
198         if ( groups[ i ] == gid ) {
199             return( 1 );
200         }
201     }
202     return( 0 );
203 }
204
205 static mode_t mtoubits(u_char bits)
206 {
207     mode_t      mode;
208
209     mode = 0;
210
211     mode |= ( bits & AR_UREAD ) ? ( (S_IREAD | S_IEXEC) >> 6 ) : 0;
212     mode |= ( bits & AR_UWRITE ) ? ( (S_IWRITE | S_IEXEC) >> 6 ) : 0;
213     /* I don't think there's a way to set the SEARCH bit by itself on a Mac
214         mode |= ( bits & AR_USEARCH ) ? ( S_IEXEC >> 6 ) : 0; */
215
216     return( mode );
217 }
218
219 /* ----------------------------------
220    from the finder's share windows (menu--> File--> sharing...)
221    and from AFP 3.0 spec page 63 
222    the mac mode should be save somewhere 
223 */
224 mode_t mtoumode(struct maccess *ma)
225 {
226     mode_t              mode;
227
228     mode = 0;
229     mode |= mtoubits( ma->ma_owner |ma->ma_world);
230     mode = mode << 3;
231
232     mode |= mtoubits( ma->ma_group |ma->ma_world);
233     mode = mode << 3;
234
235     mode |= mtoubits( ma->ma_world );
236
237     return( mode );
238 }
239
240 #define EXEC_MODE (S_IXGRP | S_IXUSR | S_IXOTH)
241
242 int setdeskmode(const mode_t mode)
243 {
244     char                wd[ MAXPATHLEN + 1];
245     struct stat         st;
246     char                modbuf[ 12 + 1], *m;
247     struct dirent       *deskp, *subp;
248     DIR                 *desk, *sub;
249
250     if (!dir_rx_set(mode)) {
251         /* want to remove read and search access to owner it will screw the volume */
252         return -1 ;
253     }
254     if ( getcwd( wd , MAXPATHLEN) == NULL ) {
255         return( -1 );
256     }
257     if ( chdir( ".AppleDesktop" ) < 0 ) {
258         return( -1 );
259     }
260     if (( desk = opendir( "." )) == NULL ) {
261         if ( chdir( wd ) < 0 ) {
262             LOG(log_error, logtype_afpd, "setdeskmode: chdir %s: %s", wd, strerror(errno) );
263         }
264         return( -1 );
265     }
266     for ( deskp = readdir( desk ); deskp != NULL; deskp = readdir( desk )) {
267         if ( strcmp( deskp->d_name, "." ) == 0 ||
268                 strcmp( deskp->d_name, ".." ) == 0 || strlen( deskp->d_name ) > 2 ) {
269             continue;
270         }
271         strcpy( modbuf, deskp->d_name );
272         strcat( modbuf, "/" );
273         m = strchr( modbuf, '\0' );
274         if (( sub = opendir( deskp->d_name )) == NULL ) {
275             continue;
276         }
277         for ( subp = readdir( sub ); subp != NULL; subp = readdir( sub )) {
278             if ( strcmp( subp->d_name, "." ) == 0 ||
279                     strcmp( subp->d_name, ".." ) == 0 ) {
280                 continue;
281             }
282             *m = '\0';
283             strcat( modbuf, subp->d_name );
284             /* XXX: need to preserve special modes */
285             if (stat(modbuf, &st) < 0) {
286                 LOG(log_error, logtype_afpd, "setdeskmode: stat %s: %s",fullpathname(modbuf), strerror(errno) );
287                 continue;
288             }
289
290             if (S_ISDIR(st.st_mode)) {
291                 if ( chmod( modbuf,  (DIRBITS | mode) & ~default_options.umask ) < 0 && errno != EPERM ) {
292                      LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s",fullpathname(modbuf), strerror(errno) );
293                 }
294             } else if ( chmod( modbuf,  mode & ~(default_options.umask | EXEC_MODE) ) < 0 && errno != EPERM ) {
295                 LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s",fullpathname(modbuf), strerror(errno) );
296             }
297
298         }
299         closedir( sub );
300         /* XXX: need to preserve special modes */
301         if ( chmod( deskp->d_name,  (DIRBITS | mode) & ~default_options.umask ) < 0 && errno != EPERM ) {
302             LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s",fullpathname(deskp->d_name), strerror(errno) );
303         }
304     }
305     closedir( desk );
306     if ( chdir( wd ) < 0 ) {
307         LOG(log_error, logtype_afpd, "setdeskmode: chdir %s: %s", wd, strerror(errno) );
308         return -1;
309     }
310     /* XXX: need to preserve special modes */
311     if ( chmod( ".AppleDesktop",  (DIRBITS | mode) & ~default_options.umask ) < 0 && errno != EPERM ) {
312         LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s", fullpathname(".AppleDesktop"),strerror(errno) );
313     }
314     return( 0 );
315 }
316
317 /* --------------------- */
318 int setfilunixmode (const struct vol *vol, struct path* path, mode_t mode)
319 {
320     if (!path->st_valid) {
321         of_stat(path);
322     }
323
324     if (path->st_errno) {
325         return -1;
326     }
327         
328     mode |= vol->v_fperm;
329
330     if (setfilmode( path->u_name, mode, &path->st, vol->v_umask) < 0)
331         return -1;
332     /* we need to set write perm if read set for resource fork */
333     return vol->vfs->rf_setfilmode(vol, path->u_name, mode, &path->st);
334 }
335
336
337 /* --------------------- */
338 int setdirunixmode(const struct vol *vol, const char *name, mode_t mode)
339 {
340
341     int dropbox = (vol->v_flags & AFPVOL_DROPBOX);
342     mode |= vol->v_dperm;
343
344     if (dir_rx_set(mode)) {
345         /* extending right? dir first then .AppleDouble in rf_setdirmode */
346         if ( stickydirmode(name, DIRBITS | mode, dropbox, vol->v_umask) < 0 )
347                 return -1;
348     }
349     if (vol->vfs->rf_setdirunixmode(vol, name, mode, NULL) < 0 && !vol_noadouble(vol)) {
350         return  -1 ;
351     }
352     if (!dir_rx_set(mode)) {
353         if ( stickydirmode(name, DIRBITS | mode, dropbox, vol->v_umask) < 0 )
354             return -1;
355     }
356     return 0;
357 }
358
359 /* --------------------- */
360 int setdirmode(const struct vol *vol, const char *name, mode_t mode)
361 {
362     struct stat         st;
363     struct dirent       *dirp;
364     DIR                 *dir;
365     mode_t              hf_mode;
366     int                 osx = vol->v_adouble == AD_VERSION2_OSX;
367     int                 dropbox = (vol->v_flags & AFPVOL_DROPBOX);
368     
369     mode |= vol->v_dperm;
370     hf_mode = ad_hf_mode(mode);
371
372     if (dir_rx_set(mode)) {
373         /* extending right? dir first */
374         if ( stickydirmode(name, DIRBITS | mode, dropbox, vol->v_umask) < 0 )
375                 return -1;
376     }
377     
378     if (( dir = opendir( name )) == NULL ) {
379         LOG(log_error, logtype_afpd, "setdirmode: opendir: %s", fullpathname(name), strerror(errno) );
380         return( -1 );
381     }
382
383     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
384         /* FIXME */
385         if ( *dirp->d_name == '.' && (!osx || dirp->d_name[1] != '_')) {
386             continue;
387         }
388         if ( stat( dirp->d_name, &st ) < 0 ) {
389             LOG(log_error, logtype_afpd, "setdirmode: stat %s: %s",dirp->d_name, strerror(errno) );
390             continue;
391         }
392
393         if (!S_ISDIR(st.st_mode)) {
394            int setmode = (osx && *dirp->d_name == '.')?hf_mode:mode;
395
396            if (setfilmode(dirp->d_name, setmode, &st, vol->v_umask) < 0) {
397                 LOG(log_error, logtype_afpd, "setdirmode: chmod %s: %s",dirp->d_name, strerror(errno) );
398                 return -1;
399            }
400         }
401     }
402     closedir( dir );
403     
404     if (vol->vfs->rf_setdirmode(vol, name, mode, NULL) < 0 && !vol_noadouble(vol)) {
405         return  -1 ;
406     }
407
408     if (!dir_rx_set(mode)) {
409         if ( stickydirmode(name, DIRBITS | mode, dropbox, vol->v_umask) < 0 )
410                 return -1;
411     }
412     return( 0 );
413 }
414
415 /* ----------------------------- */
416 int setdeskowner(const uid_t uid, const gid_t gid)
417 {
418     char                wd[ MAXPATHLEN + 1];
419     char                modbuf[12 + 1], *m;
420     struct dirent       *deskp, *subp;
421     DIR                 *desk, *sub;
422
423     if ( getcwd( wd, MAXPATHLEN ) == NULL ) {
424         return( -1 );
425     }
426     if ( chdir( ".AppleDesktop" ) < 0 ) {
427         return( -1 );
428     }
429     if (( desk = opendir( "." )) == NULL ) {
430         if ( chdir( wd ) < 0 ) {
431             LOG(log_error, logtype_afpd, "setdeskowner: chdir %s: %s", wd, strerror(errno) );
432         }
433         return( -1 );
434     }
435     for ( deskp = readdir( desk ); deskp != NULL; deskp = readdir( desk )) {
436         if ( strcmp( deskp->d_name, "." ) == 0 ||
437                 strcmp( deskp->d_name, ".." ) == 0 ||
438                 strlen( deskp->d_name ) > 2 ) {
439             continue;
440         }
441         strcpy( modbuf, deskp->d_name );
442         strcat( modbuf, "/" );
443         m = strchr( modbuf, '\0' );
444         if (( sub = opendir( deskp->d_name )) == NULL ) {
445             continue;
446         }
447         for ( subp = readdir( sub ); subp != NULL; subp = readdir( sub )) {
448             if ( strcmp( subp->d_name, "." ) == 0 ||
449                     strcmp( subp->d_name, ".." ) == 0 ) {
450                 continue;
451             }
452             *m = '\0';
453             strcat( modbuf, subp->d_name );
454             /* XXX: add special any uid, ignore group bits */
455             if ( chown( modbuf, uid, gid ) < 0 && errno != EPERM ) {
456                 LOG(log_error, logtype_afpd, "setdeskown: chown %s: %s", fullpathname(modbuf), strerror(errno) );
457             }
458         }
459         closedir( sub );
460         /* XXX: add special any uid, ignore group bits */
461         if ( chown( deskp->d_name, uid, gid ) < 0 && errno != EPERM ) {
462             LOG(log_error, logtype_afpd, "setdeskowner: chown %s: %s",
463                 deskp->d_name, strerror(errno) );
464         }
465     }
466     closedir( desk );
467     if ( chdir( wd ) < 0 ) {
468         LOG(log_error, logtype_afpd, "setdeskowner: chdir %s: %s", wd, strerror(errno) );
469         return -1;
470     }
471     if ( chown( ".AppleDesktop", uid, gid ) < 0 && errno != EPERM ) {
472         LOG(log_error, logtype_afpd, "setdeskowner: chown %s: %s", fullpathname(".AppleDouble"), strerror(errno) );
473     }
474     return( 0 );
475 }
476
477 /* ----------------------------- */
478 int setfilowner(const struct vol *vol, const uid_t uid, const gid_t gid, struct path* path)
479 {
480
481     if (!path->st_valid) {
482         of_stat(path);
483     }
484
485     if (path->st_errno) {
486         return -1;
487     }
488
489     if ( chown( path->u_name, uid, gid ) < 0 && errno != EPERM ) {
490         LOG(log_debug, logtype_afpd, "setfilowner: chown %d/%d %s: %s",
491             uid, gid, path->u_name, strerror(errno) );
492         return -1;
493     }
494
495     if (vol->vfs->rf_chown(vol, path->u_name, uid, gid ) < 0 && errno != EPERM) {
496         LOG(log_debug, logtype_afpd, "setfilowner: rf_chown %d/%d %s: %s",
497             uid, gid, path->u_name, strerror(errno) );
498         return -1;
499     }
500
501     return 0;
502 }
503
504 /* --------------------------------- 
505  * uid/gid == 0 need to be handled as special cases. they really mean
506  * that user/group should inherit from other, but that doesn't fit
507  * into the unix permission scheme. we can get around this by
508  * co-opting some bits. */
509 int setdirowner(const struct vol *vol, const char *name, const uid_t uid, const gid_t gid)
510 {
511     struct stat         st;
512     struct dirent       *dirp;
513     DIR                 *dir;
514     int                 osx = vol->v_adouble == AD_VERSION2_OSX;
515
516     if (( dir = opendir( name )) == NULL ) {
517         return( -1 );
518     }
519     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
520         if ( *dirp->d_name == '.' && (!osx || dirp->d_name[1] != '_')) {
521             continue;
522         }
523         if ( stat( dirp->d_name, &st ) < 0 ) {
524             LOG(log_error, logtype_afpd, "setdirowner: stat %s: %s",
525                 fullpathname(dirp->d_name), strerror(errno) );
526             continue;
527         }
528         if (( st.st_mode & S_IFMT ) == S_IFREG ) {
529             if ( chown( dirp->d_name, uid, gid ) < 0 && errno != EPERM ) {
530                 LOG(log_debug, logtype_afpd, "setdirowner: chown %s: %s",
531                     fullpathname(dirp->d_name), strerror(errno) );
532                 /* return ( -1 ); Sometimes this is okay */
533             }
534         }
535     }
536     closedir( dir );
537
538     if (vol->vfs->rf_setdirowner(vol, name, uid, gid) < 0) {
539         return -1;
540     }
541     
542     if ( stat( ".", &st ) < 0 ) {
543         return( -1 );
544     }
545     if ( gid && gid != st.st_gid && chown( ".", uid, gid ) < 0 && errno != EPERM ) {
546         LOG(log_debug, logtype_afpd, "setdirowner: chown %d/%d %s: %s",
547             uid, gid, fullpathname("."), strerror(errno) );
548     }
549
550     return( 0 );
551 }
552
553 #if 0
554 /* recursive chown()ing of a directory */
555 static int recursive_chown(const char *path, uid_t uid, gid_t gid) {
556     struct stat sbuf;
557     DIR *odir = NULL;
558     struct dirent *entry;
559     char *name;
560     int ret = 0;
561     char newpath[PATH_MAX+1];
562     newpath[PATH_MAX] = '\0';
563     
564     if (chown(path, uid, gid) < 0) {
565         LOG(log_error, logtype_afpd, "cannot chown() file [%s] (uid = %d): %s", path, uid, strerror(errno));
566         return -1;
567     }
568
569     if (stat(path, &sbuf) < 0) {
570         LOG(log_error, logtype_afpd, "cannot chown() file [%s] (uid = %d): %s", path, uid, strerror(errno));
571         return -1;
572     }
573         
574     if (S_ISDIR(sbuf.st_mode)) {
575         odir = opendir(path);
576         if (odir == NULL) {
577             LOG(log_error, logtype_afpd, "cannot opendir() [%s] (uid = %d): %s", path, uid, strerror(errno));
578             goto recursive_chown_end;
579         }
580         while (NULL != (entry=readdir(odir)) ) {
581             name = entry->d_name;
582             if (name[0] == '.' && name[1] == '\0')
583                 continue;
584             if (name[0] == '.' && name[1] == '.' && name[2] == '\0')
585                 continue;
586             sprintf(newpath, "%s/%s", path, name);
587             if (recursive_chown(newpath, uid, gid) < 0)
588                 ret = -1;
589         } /* while */
590     } /* if */
591
592 recursive_chown_end:
593     if (odir != NULL) {
594         closedir(odir);
595     }
596     return ret;
597 }
598 #endif
599
600 /* This is equivalent of unix rename(). */
601 int unix_rename(const char *oldpath, const char *newpath)
602 {
603 #if 0
604         char pd_name[PATH_MAX+1];
605         int i;
606         struct stat pd_stat;
607         uid_t uid;
608 #endif
609
610         if (rename(oldpath, newpath) < 0)
611                 return -1;
612 #if 0
613         for (i = 0; i <= PATH_MAX && newpath[i] != '\0'; i++)
614                 pd_name[i] = newpath[i];
615         pd_name[i] = '\0';
616
617         while (i > 0 && pd_name[i] != '/') i--;
618         if (pd_name[i] == '/') i++;
619
620         pd_name[i++] = '.'; pd_name[i++] = '\0';
621
622         if (stat(pd_name, &pd_stat) < 0) {
623             LOG(log_error, logtype_afpd, "stat() of parent dir failed: pd_name = %s, uid = %d: %s",
624                 pd_name, geteuid(), strerror(errno));
625                 return 0;
626         }
627
628         /* So we have SGID bit set... */
629         if ((S_ISGID & pd_stat.st_mode) != 0) {
630             uid = geteuid();
631             if (seteuid(0) < 0)
632                 LOG(log_error, logtype_afpd, "seteuid() failed: %s", strerror(errno));
633             if (recursive_chown(newpath, uid, pd_stat.st_gid) < 0)
634                 LOG(log_error, logtype_afpd, "chown() of parent dir failed: newpath=%s, uid=%d: %s",
635                     pd_name, geteuid(), strerror(errno));
636             seteuid(uid);
637         }
638 #endif
639         return 0;
640 }
641