etc/afpd/unix.c

   1 /*
   2  * $Id: unix.c,v 1.37 2002-09-07 19:18:59 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 #include <unistd.h>
  15 #include <errno.h>
  16 #include <sys/types.h>
  17 #include <sys/param.h>
  18 #include <sys/stat.h>
  19 #include <atalk/logger.h>
  20 #include <netatalk/endian.h>
  21 #include <dirent.h>
  22 #include <limits.h>
  23 #include <atalk/adouble.h>
  24 #include <atalk/afp.h>
  25
  26 /* STDC check */
  27 #if STDC_HEADERS
  28 #include <string.h>
  29 #else /* STDC_HEADERS */
  30 #ifndef HAVE_STRCHR
  31 #define strchr index
  32 #define strrchr index
  33 #endif /* HAVE_STRCHR */
  34 char *strchr (), *strrchr ();
  35 #ifndef HAVE_MEMCPY
  36 #define memcpy(d,s,n) bcopy ((s), (d), (n))
  37 #define memmove(d,s,n) bcopy ((s), (d), (n))
  38 #endif /* ! HAVE_MEMCPY */
  39 #endif /* STDC_HEADERS */
  40
  41 #ifdef HAVE_FCNTL_H
  42 #include <fcntl.h>
  43 #endif /* HAVE_FCNTL_H */
  44 #include "auth.h"
  45 #include "directory.h"
  46 #include "volume.h"
  47 #include "unix.h"
  48
  49 /*
  50  * Get the free space on a partition.
  51  */
  52 int ustatfs_getvolspace( vol, bfree, btotal, bsize )
  53 const struct vol        *vol;
  54 VolSpace    *bfree, *btotal;
  55 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 __inline__ int utombits( bits )
 104 mode_t  bits;
 105 {
 106     int         mbits;
 107
 108     mbits = 0;
 109
 110     mbits |= ( bits & ( S_IREAD >> 6 )) ? (AR_UREAD | AR_USEARCH) : 0;
 111     mbits |= ( bits & ( S_IWRITE >> 6 )) ? AR_UWRITE : 0;
 112     /* Do we really need this?
 113         mbits |= ( bits & ( S_IEXEC >> 6) ) ? AR_USEARCH : 0; */
 114
 115     return( mbits );
 116 }
 117
 118 /* --------------------------------
 119     cf AFP 3.0 page 63
 120 */
 121 void utommode( stat, ma )
 122 struct stat             *stat;
 123 struct maccess  *ma;
 124 {
 125 mode_t mode;
 126
 127     mode = stat->st_mode;
 128     ma->ma_world = utombits( mode );
 129     mode = mode >> 3;
 130
 131     ma->ma_group = utombits( mode );
 132     mode = mode >> 3;
 133
 134     ma->ma_owner = utombits( mode );
 135
 136     /* ma_user is a union of all permissions */
 137     ma->ma_user = 0;
 138     if ( (uuid == stat->st_uid) || (uuid == 0)) {
 139         ma->ma_user = ma->ma_owner | AR_UOWN;
 140     }
 141     if ( gmem( stat->st_gid )) {
 142         ma->ma_user |= ma->ma_group;
 143     }
 144     ma->ma_user |= ma->ma_world;
 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 and so what ?
 152      */
 153 #if 0
 154     if ( ma->ma_user & AR_UWRITE ) {
 155         ma->ma_user |= AR_UOWN;
 156     }
 157 #endif
 158 }
 159
 160
 161 /*
 162  * Calculate the mode for a directory using a stat() call to
 163  * estimate permission.
 164  *
 165  * Note: the previous method, using access(), does not work correctly
 166  * over NFS.
 167  */
 168 void accessmode( path, ma, dir, st )
 169 char            *path;
 170 struct maccess  *ma;
 171 struct dir      *dir;
 172 struct stat     *st;
 173
 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 (stat(path, &sb) != 0)
 180             return;
 181         st = &sb;
 182     }
 183     utommode( st, ma );
 184     return;
 185 }
 186
 187 int gmem( gid )
 188 const gid_t     gid;
 189 {
 190     int         i;
 191
 192     for ( i = 0; i < ngroups; i++ ) {
 193         if ( groups[ i ] == gid ) {
 194             return( 1 );
 195         }
 196     }
 197     return( 0 );
 198 }
 199
 200 static __inline__ mode_t mtoubits( bits )
 201 u_char  bits;
 202 {
 203     mode_t      mode;
 204
 205     mode = 0;
 206
 207     mode |= ( bits & AR_UREAD ) ? ( (S_IREAD | S_IEXEC) >> 6 ) : 0;
 208     mode |= ( bits & AR_UWRITE ) ? ( (S_IWRITE | S_IEXEC) >> 6 ) : 0;
 209     /* I don't think there's a way to set the SEARCH bit by itself on a Mac
 210         mode |= ( bits & AR_USEARCH ) ? ( S_IEXEC >> 6 ) : 0; */
 211
 212     return( mode );
 213 }
 214
 215 /* ----------------------------------
 216    from the finder's share windows (menu--> File--> sharing...)
 217    and from AFP 3.0 spec page 63
 218    the mac mode should be save somewhere
 219 */
 220 mode_t mtoumode( ma )
 221 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 /*
 238    a dropbox is a folder where w is set but not r eg:
 239    rwx-wx-wx or rwx-wx--
 240    rwx----wx (is not asked by a Mac with OS >= 8.0 ?)
 241 */
 242 static int stickydirmode(name, mode, dropbox)
 243 char * name;
 244 const mode_t mode;
 245 const int dropbox;
 246 {
 247     int retval = 0;
 248
 249 #ifdef DROPKLUDGE
 250     /* Turn on the sticky bit if this is a drop box, also turn off the setgid bit */
 251     if (dropbox) {
 252         int uid;
 253
 254         if ( ( (mode & S_IWOTH) && !(mode & S_IROTH)) ||
 255              ( (mode & S_IWGRP) && !(mode & S_IRGRP)) )
 256         {
 257             uid=geteuid();
 258             if ( seteuid(0) < 0) {
 259                 LOG(log_error, logtype_afpd, "stickydirmode: unable to seteuid root: %s", strerror(errno));
 260             }
 261             if ( retval=chmod( name, ( (DIRBITS | mode | S_ISVTX) & ~default_options.umask) ) < 0) {
 262                 LOG(log_error, logtype_afpd, "stickydirmode: chmod \"%s\": %s", name, strerror(errno) );
 263             } else {
 264 #ifdef DEBUG
 265                 LOG(log_info, logtype_afpd, "stickydirmode: (debug) chmod \"%s\": %s", name, strerror(retval) );
 266 #endif /* DEBUG */
 267             }
 268             seteuid(uid);
 269             return retval;
 270         }
 271     }
 272 #endif /* DROPKLUDGE */
 273
 274     /*
 275      *  Ignore EPERM errors:  We may be dealing with a directory that is
 276      *  group writable, in which case chmod will fail.
 277      */
 278     if ( (chmod( name, (DIRBITS | mode) & ~default_options.umask ) < 0) && errno != EPERM)  {
 279         LOG(log_error, logtype_afpd, "stickydirmode: chmod \"%s\": %s",name, strerror(errno) );
 280         retval = -1;
 281     }
 282
 283     return retval;
 284 }
 285
 286 int setdeskmode( mode )
 287 const mode_t    mode;
 288 {
 289     char                wd[ MAXPATHLEN + 1];
 290     struct stat         st;
 291     char                modbuf[ 12 + 1], *m;
 292     struct dirent       *deskp, *subp;
 293     DIR                 *desk, *sub;
 294
 295     if ( getcwd( wd , MAXPATHLEN) == NULL ) {
 296         return( -1 );
 297     }
 298     if ( chdir( ".AppleDesktop" ) < 0 ) {
 299         return( -1 );
 300     }
 301     if (( desk = opendir( "." )) == NULL ) {
 302         if ( chdir( wd ) < 0 ) {
 303             LOG(log_error, logtype_afpd, "setdeskmode: chdir %s: %s", wd, strerror(errno) );
 304         }
 305         return( -1 );
 306     }
 307     for ( deskp = readdir( desk ); deskp != NULL; deskp = readdir( desk )) {
 308         if ( strcmp( deskp->d_name, "." ) == 0 ||
 309                 strcmp( deskp->d_name, ".." ) == 0 || strlen( deskp->d_name ) > 2 ) {
 310             continue;
 311         }
 312         strcpy( modbuf, deskp->d_name );
 313         strcat( modbuf, "/" );
 314         m = strchr( modbuf, '\0' );
 315         if (( sub = opendir( deskp->d_name )) == NULL ) {
 316             continue;
 317         }
 318         for ( subp = readdir( sub ); subp != NULL; subp = readdir( sub )) {
 319             if ( strcmp( subp->d_name, "." ) == 0 ||
 320                     strcmp( subp->d_name, ".." ) == 0 ) {
 321                 continue;
 322             }
 323             *m = '\0';
 324             strcat( modbuf, subp->d_name );
 325             /* XXX: need to preserve special modes */
 326             if (stat(modbuf, &st) < 0) {
 327                 LOG(log_error, logtype_afpd, "setdeskmode: stat %s: %s",
 328                     modbuf, strerror(errno) );
 329                 continue;
 330             }
 331
 332             if (S_ISDIR(st.st_mode)) {
 333                 if ( chmod( modbuf,  (DIRBITS | mode) & ~default_options.umask ) < 0 && errno != EPERM ) {
 334                     LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s",
 335                         modbuf, strerror(errno) );
 336                 }
 337             } else if ( chmod( modbuf,  mode & ~default_options.umask ) < 0 && errno != EPERM ) {
 338                 LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s",
 339                     modbuf, strerror(errno) );
 340             }
 341
 342         }
 343         closedir( sub );
 344         /* XXX: need to preserve special modes */
 345         if ( chmod( deskp->d_name,  (DIRBITS | mode) & ~default_options.umask ) < 0 && errno != EPERM ) {
 346             LOG(log_error, logtype_afpd, "setdeskmode: chmod %s: %s",
 347                 deskp->d_name, strerror(errno) );
 348         }
 349     }
 350     closedir( desk );
 351     if ( chdir( wd ) < 0 ) {
 352         LOG(log_error, logtype_afpd, "setdeskmode: chdir %s: %s", wd, strerror(errno) );
 353         return -1;
 354     }
 355     /* XXX: need to preserve special modes */
 356     if ( chmod( ".AppleDesktop",  (DIRBITS | mode) & ~default_options.umask ) < 0 && errno != EPERM ) {
 357         LOG(log_error, logtype_afpd, "setdeskmode: chmod .AppleDesktop: %s", strerror(errno) );
 358     }
 359     return( 0 );
 360 }
 361
 362 int setfilmode(name, mode, st)
 363 char * name;
 364 mode_t mode;
 365 struct stat *st;
 366 {
 367 struct stat sb;
 368 mode_t mask = S_IRUSR |S_IWUSR | S_IRGRP | S_IWGRP |S_IROTH | S_IWOTH;
 369
 370     if (!st) {
 371         if (stat(name, &sb) != 0)
 372             return;
 373         st = &sb;
 374     }
 375    mode &= mask;        /* keep only rw-rw-rw in mode */
 376    mode |= st->st_mode & ~mask; /* keep other bits from previous mode */
 377    if ( chmod( name,  mode & ~default_options.umask ) < 0 && errno != EPERM ) {
 378        return -1;
 379    }
 380    return 0;
 381 }
 382
 383 int setdirmode( mode, noadouble, dropbox )
 384 const mode_t mode;
 385 const int noadouble;
 386 const int dropbox;
 387 {
 388     char                buf[ MAXPATHLEN + 1];
 389     struct stat         st;
 390     char                *m;
 391     struct dirent       *dirp;
 392     DIR                 *dir;
 393
 394     if (( dir = opendir( "." )) == NULL ) {
 395         LOG(log_error, logtype_afpd, "setdirmode: opendir .: %s", strerror(errno) );
 396         return( -1 );
 397     }
 398
 399     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 400         if ( *dirp->d_name == '.' ) {
 401             continue;
 402         }
 403         if ( stat( dirp->d_name, &st ) < 0 ) {
 404             LOG(log_error, logtype_afpd, "setdirmode: stat %s: %s",
 405                 dirp->d_name, strerror(errno) );
 406             continue;
 407         }
 408
 409         if (S_ISREG(st.st_mode)) {
 410            if (setfilmode(dirp->d_name, mode, &st) < 0) {
 411                 LOG(log_error, logtype_afpd, "setdirmode: chmod %s: %s",
 412                     dirp->d_name, strerror(errno) );
 413                 return -1;
 414            }
 415         }
 416 #if 0
 417             /* XXX: need to preserve special modes */
 418         else if (S_ISDIR(st.st_mode)) {
 419                 if (stickydirmode(dirp->d_name, DIRBITS | mode, dropbox) < 0)
 420                     return (-1);
 421             } else if (stickydirmode(dirp->d_name, mode, dropbox) < 0)
 422                 return (-1);
 423         }
 424 #endif
 425     }
 426     closedir( dir );
 427
 428     /* change perm of .AppleDouble's files
 429     */
 430     if (( dir = opendir( ".AppleDouble" )) == NULL ) {
 431         if (noadouble)
 432             goto setdirmode_noadouble;
 433         LOG(log_error, logtype_afpd, "setdirmode: opendir .AppleDouble: %s", strerror(errno) );
 434         return( -1 );
 435     }
 436     strcpy( buf, ".AppleDouble" );
 437     strcat( buf, "/" );
 438     m = strchr( buf, '\0' );
 439     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 440         if ( strcmp( dirp->d_name, "." ) == 0 ||
 441                 strcmp( dirp->d_name, ".." ) == 0 ) {
 442             continue;
 443         }
 444         *m = '\0';
 445         strcat( buf, dirp->d_name );
 446
 447         if ( stat( buf, &st ) < 0 ) {
 448             LOG(log_error, logtype_afpd, "setdirmode: stat %s: %s", buf, strerror(errno) );
 449             continue;
 450         }
 451         if (S_ISREG(st.st_mode)) {
 452            if (setfilmode(buf, ad_hf_mode(mode), &st) < 0) {
 453                /* FIXME what do we do then? */
 454            }
 455         }
 456     } /* end for */
 457     closedir( dir );
 458
 459     /* XXX: use special bits to tag directory permissions */
 460
 461     /* XXX: need to preserve special modes */
 462     if ( stickydirmode(".AppleDouble", DIRBITS | mode, dropbox) < 0 )
 463         return( -1 );
 464
 465 setdirmode_noadouble:
 466     /* XXX: need to preserve special modes */
 467     if ( stickydirmode(".", DIRBITS | mode, dropbox) < 0 )
 468         return( -1 );
 469     return( 0 );
 470 }
 471
 472 int setdeskowner( uid, gid )
 473 const uid_t     uid;
 474 const gid_t     gid;
 475 {
 476     char                wd[ MAXPATHLEN + 1];
 477     char                modbuf[12 + 1], *m;
 478     struct dirent       *deskp, *subp;
 479     DIR                 *desk, *sub;
 480
 481     if ( getcwd( wd, MAXPATHLEN ) == NULL ) {
 482         return( -1 );
 483     }
 484     if ( chdir( ".AppleDesktop" ) < 0 ) {
 485         return( -1 );
 486     }
 487     if (( desk = opendir( "." )) == NULL ) {
 488         if ( chdir( wd ) < 0 ) {
 489             LOG(log_error, logtype_afpd, "setdeskowner: chdir %s: %s", wd, strerror(errno) );
 490         }
 491         return( -1 );
 492     }
 493     for ( deskp = readdir( desk ); deskp != NULL; deskp = readdir( desk )) {
 494         if ( strcmp( deskp->d_name, "." ) == 0 ||
 495                 strcmp( deskp->d_name, ".." ) == 0 ||
 496                 strlen( deskp->d_name ) > 2 ) {
 497             continue;
 498         }
 499         strcpy( modbuf, deskp->d_name );
 500         strcat( modbuf, "/" );
 501         m = strchr( modbuf, '\0' );
 502         if (( sub = opendir( deskp->d_name )) == NULL ) {
 503             continue;
 504         }
 505         for ( subp = readdir( sub ); subp != NULL; subp = readdir( sub )) {
 506             if ( strcmp( subp->d_name, "." ) == 0 ||
 507                     strcmp( subp->d_name, ".." ) == 0 ) {
 508                 continue;
 509             }
 510             *m = '\0';
 511             strcat( modbuf, subp->d_name );
 512             /* XXX: add special any uid, ignore group bits */
 513             if ( chown( modbuf, uid, gid ) < 0 && errno != EPERM ) {
 514                 LOG(log_error, logtype_afpd, "setdeskown: chown %s: %s",
 515                     modbuf, strerror(errno) );
 516             }
 517         }
 518         closedir( sub );
 519         /* XXX: add special any uid, ignore group bits */
 520         if ( chown( deskp->d_name, uid, gid ) < 0 && errno != EPERM ) {
 521             LOG(log_error, logtype_afpd, "setdeskowner: chown %s: %s",
 522                 deskp->d_name, strerror(errno) );
 523         }
 524     }
 525     closedir( desk );
 526     if ( chdir( wd ) < 0 ) {
 527         LOG(log_error, logtype_afpd, "setdeskowner: chdir %s: %s", wd, strerror(errno) );
 528         return -1;
 529     }
 530     if ( chown( ".AppleDesktop", uid, gid ) < 0 && errno != EPERM ) {
 531         LOG(log_error, logtype_afpd, "setdeskowner: chown .AppleDesktop: %s",
 532             strerror(errno) );
 533     }
 534     return( 0 );
 535 }
 536
 537
 538 /* uid/gid == 0 need to be handled as special cases. they really mean
 539  * that user/group should inherit from other, but that doesn't fit
 540  * into the unix permission scheme. we can get around this by
 541  * co-opting some bits. */
 542 int setdirowner( uid, gid, noadouble )
 543 const uid_t     uid;
 544 const gid_t     gid;
 545 const int   noadouble;
 546 {
 547     char                buf[ MAXPATHLEN + 1];
 548     struct stat         st;
 549     char                *m;
 550     struct dirent       *dirp;
 551     DIR                 *dir;
 552
 553     if (( dir = opendir( "." )) == NULL ) {
 554         return( -1 );
 555     }
 556     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 557         if ( *dirp->d_name == '.' ) {
 558             continue;
 559         };
 560         if ( stat( dirp->d_name, &st ) < 0 ) {
 561             LOG(log_error, logtype_afpd, "setdirowner: stat %s: %s",
 562                 dirp->d_name, strerror(errno) );
 563             continue;
 564         }
 565         if (( st.st_mode & S_IFMT ) == S_IFREG ) {
 566             if ( chown( dirp->d_name, uid, gid ) < 0 && errno != EPERM ) {
 567                 LOG(log_debug, logtype_afpd, "setdirowner: chown %s: %s",
 568                     dirp->d_name, strerror(errno) );
 569                 /* return ( -1 ); Sometimes this is okay */
 570             }
 571         }
 572     }
 573     closedir( dir );
 574     if (( dir = opendir( ".AppleDouble" )) == NULL ) {
 575         if (noadouble)
 576             goto setdirowner_noadouble;
 577         return( -1 );
 578     }
 579     strcpy( buf, ".AppleDouble" );
 580     strcat( buf, "/" );
 581     m = strchr( buf, '\0' );
 582     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 583         if ( strcmp( dirp->d_name, "." ) == 0 ||
 584                 strcmp( dirp->d_name, ".." ) == 0 ) {
 585             continue;
 586         }
 587         *m = '\0';
 588         strcat( buf, dirp->d_name );
 589         if ( chown( buf, uid, gid ) < 0 && errno != EPERM ) {
 590             LOG(log_debug, logtype_afpd, "setdirowner: chown %d/%d %s: %s",
 591                 uid, gid, buf, strerror(errno) );
 592             /* return ( -1 ); Sometimes this is okay */
 593         }
 594     }
 595     closedir( dir );
 596
 597     /*
 598      * We cheat: we know that chown doesn't do anything.
 599      */
 600     if ( stat( ".AppleDouble", &st ) < 0 ) {
 601         LOG(log_error, logtype_afpd, "setdirowner: stat .AppleDouble: %s", strerror(errno) );
 602         return( -1 );
 603     }
 604     if ( gid && gid != st.st_gid && chown( ".AppleDouble", uid, gid ) < 0 &&
 605             errno != EPERM ) {
 606         LOG(log_debug, logtype_afpd, "setdirowner: chown %d/%d .AppleDouble: %s",
 607             uid, gid, strerror(errno) );
 608         /* return ( -1 ); Sometimes this is okay */
 609     }
 610
 611 setdirowner_noadouble:
 612     if ( stat( ".", &st ) < 0 ) {
 613         return( -1 );
 614     }
 615     if ( gid && gid != st.st_gid && chown( ".", uid, gid ) < 0 &&
 616             errno != EPERM ) {
 617         LOG(log_debug, logtype_afpd, "setdirowner: chown %d/%d .: %s",
 618             uid, gid, strerror(errno) );
 619     }
 620
 621     return( 0 );
 622 }