etc/afpd/unix.c

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