etc/afpd/unix.c

   1 /*
   2  * Copyright (c) 1990,1993 Regents of The University of Michigan.
   3  * All Rights Reserved.  See COPYRIGHT.
   4  */
   5
   6 #ifdef HAVE_CONFIG_H
   7 #include "config.h"
   8 #endif
   9
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <unistd.h>
  13 #include <sys/types.h>
  14 #include <sys/param.h>
  15 #include <sys/stat.h>
  16 #include <sys/syslog.h>
  17 #include <netatalk/endian.h>
  18 #include <dirent.h>
  19 #include <limits.h>
  20 #include <atalk/afp.h>
  21 #include <string.h>
  22 #include <fcntl.h>
  23 #include "auth.h"
  24 #include "directory.h"
  25 #include "volume.h"
  26 #include "unix.h"
  27
  28 /*
  29  * Get the free space on a partition.
  30  */
  31 int ustatfs_getvolspace( vol, bfree, btotal, bsize )
  32     const struct vol    *vol;
  33     VolSpace    *bfree, *btotal;
  34     u_int32_t   *bsize;
  35 {
  36   VolSpace maxVolSpace = (~(VolSpace)0);
  37
  38 #ifdef ultrix
  39     struct fs_data      sfs;
  40 #else /*ultrix*/
  41     struct statfs       sfs;
  42 #endif /*ultrix*/
  43
  44
  45     if ( statfs( vol->v_path, &sfs ) < 0 ) {
  46          syslog(LOG_ERR, "ustatfs_getvolspace unable to stat %s", vol->v_path);
  47          return( AFPERR_PARAM );
  48     }
  49
  50 #ifdef ultrix
  51     *bfree = (VolSpace) sfs.fd_req.bfreen;
  52     *bsize = 1024;
  53 #else
  54     *bfree = (VolSpace) sfs.f_bavail;
  55     *bsize = sfs.f_frsize;
  56 #endif ultrix
  57
  58     if ( *bfree > maxVolSpace / *bsize ) {
  59         *bfree = maxVolSpace;
  60     } else {
  61         *bfree *= *bsize;
  62     }
  63
  64 #ifdef ultrix
  65     *btotal = (VolSpace)
  66       ( sfs.fd_req.btot - ( sfs.fd_req.bfree - sfs.fd_req.bfreen ));
  67 #else ultrix
  68     *btotal = (VolSpace)
  69       ( sfs.f_blocks - ( sfs.f_bfree - sfs.f_bavail ));
  70 #endif ultrix
  71
  72     // see similar block above comments
  73     if ( *btotal > maxVolSpace / *bsize ) {
  74         *btotal = maxVolSpace;
  75     } else {
  76         *btotal *= *bsize;
  77     }
  78
  79     return( AFP_OK );
  80 }
  81
  82 static __inline__ int utombits( bits )
  83     mode_t      bits;
  84 {
  85     int         mbits;
  86
  87     mbits = 0;
  88
  89     mbits |= ( bits & ( S_IREAD >> 6 )) ? (AR_UREAD | AR_USEARCH) : 0;
  90     mbits |= ( bits & ( S_IWRITE >> 6 )) ? AR_UWRITE : 0;
  91 /* Do we really need this?
  92     mbits |= ( bits & ( S_IEXEC >> 6) ) ? AR_USEARCH : 0; */
  93
  94     return( mbits );
  95 }
  96
  97 void utommode( stat, ma )
  98     struct stat         *stat;
  99     struct maccess      *ma;
 100 {
 101     mode_t              mode;
 102
 103     mode = stat->st_mode;
 104
 105     ma->ma_world = utombits( mode );
 106     mode = mode >> 3;
 107
 108     ma->ma_group = utombits( mode );
 109     mode = mode >> 3;
 110
 111     ma->ma_owner = utombits( mode );
 112
 113     if ( (uuid == stat->st_uid) || (uuid == 0)) {
 114         ma->ma_user = ma->ma_owner | AR_UOWN;
 115     } else if ( gmem( stat->st_gid )) {
 116         ma->ma_user = ma->ma_group;
 117     } else {
 118         ma->ma_user = ma->ma_world;
 119     }
 120
 121     /*
 122      * There are certain things the mac won't try if you don't have
 123      * the "owner" bit set, even tho you can do these things on unix wiht
 124      * only write permission.  What were the things?
 125      */
 126     if ( ma->ma_user & AR_UWRITE ) {
 127         ma->ma_user |= AR_UOWN;
 128     }
 129 }
 130
 131
 132 int gmem( gid )
 133     const gid_t gid;
 134 {
 135     int         i;
 136
 137     for ( i = 0; i < ngroups; i++ ) {
 138         if ( groups[ i ] == gid ) {
 139             return( 1 );
 140         }
 141     }
 142     return( 0 );
 143 }
 144
 145 static __inline__ mode_t mtoubits( bits )
 146     u_char      bits;
 147 {
 148     mode_t      mode;
 149
 150     mode = 0;
 151
 152     mode |= ( bits & AR_UREAD ) ? ( (S_IREAD | S_IEXEC) >> 6 ) : 0;
 153     mode |= ( bits & AR_UWRITE ) ? ( (S_IWRITE | S_IEXEC) >> 6 ) : 0;
 154 /* I don't think there's a way to set the SEARCH bit by itself on a Mac
 155     mode |= ( bits & AR_USEARCH ) ? ( S_IEXEC >> 6 ) : 0; */
 156
 157     return( mode );
 158 }
 159
 160 mode_t mtoumode( ma )
 161     struct maccess      *ma;
 162 {
 163     mode_t              mode;
 164
 165     mode = 0;
 166     mode |= mtoubits( ma->ma_owner );
 167     mode = mode << 3;
 168
 169     mode |= mtoubits( ma->ma_group );
 170     mode = mode << 3;
 171
 172     mode |= mtoubits( ma->ma_world );
 173
 174     return( mode );
 175 }
 176
 177 inline int stickydirmode(name, mode)
 178 char * name;
 179 const mode_t mode;
 180 {
 181   int uid, retval;
 182
 183 /* Turn on the sticky bit if this is a drop box */
 184    retval=0;
 185 #ifdef DROPKLUDGE
 186    if (mode & S_IWOTH)
 187       if (mode & S_IROTH);
 188       else /* if S_IWOTH and not S_IROTH */
 189       {
 190         uid=geteuid();
 191         if ( seteuid(0) < 0)
 192            syslog( LOG_ERR, "stickydirmode: unable to seteuid root: %m");
 193         if ( retval=chmod( name, (DIRBITS | mode | S_ISVTX)) < 0)
 194         {
 195            syslog( LOG_ERR, "stickydirmode: chmod %s: %m", name );
 196            return(AFPERR_ACCESS);
 197         }
 198         else
 199         {
 200 #ifdef DEBUG
 201            syslog( LOG_INFO, "stickydirmode: chmod \"%s\": %m", name );
 202 #endif
 203            seteuid(uid);
 204         }
 205       }
 206    else
 207 #endif DROPKLUDGE
 208        if ( retval=chmod( name, DIRBITS | mode ) < 0 )
 209           syslog( LOG_ERR, "stickydirmode: chmod \"%s\": %m", name );
 210    return retval;
 211 }
 212
 213 int setdeskmode( mode )
 214     const mode_t        mode;
 215 {
 216     char                wd[ MAXPATHLEN + 1];
 217     struct stat         st;
 218     char                modbuf[ 12 + 1], *m;
 219     struct dirent       *deskp, *subp;
 220     DIR                 *desk, *sub;
 221
 222     if ( getcwd( wd , MAXPATHLEN) == NULL ) {
 223         return( -1 );
 224     }
 225     if ( chdir( ".AppleDesktop" ) < 0 ) {
 226         return( -1 );
 227     }
 228     if (( desk = opendir( "." )) == NULL ) {
 229         if ( chdir( wd ) < 0 ) {
 230             syslog( LOG_ERR, "setdeskmode: chdir %s: %m", wd );
 231         }
 232         return( -1 );
 233     }
 234     for ( deskp = readdir( desk ); deskp != NULL; deskp = readdir( desk )) {
 235         if ( strcmp( deskp->d_name, "." ) == 0 ||
 236                 strcmp( deskp->d_name, ".." ) == 0 || strlen( deskp->d_name ) > 2 ) {
 237             continue;
 238         }
 239         strcpy( modbuf, deskp->d_name );
 240         strcat( modbuf, "/" );
 241         m = strchr( modbuf, '\0' );
 242         if (( sub = opendir( deskp->d_name )) == NULL ) {
 243             continue;
 244         }
 245         for ( subp = readdir( sub ); subp != NULL; subp = readdir( sub )) {
 246             if ( strcmp( subp->d_name, "." ) == 0 ||
 247                     strcmp( subp->d_name, ".." ) == 0 ) {
 248                 continue;
 249             }
 250             *m = '\0';
 251             strcat( modbuf, subp->d_name );
 252             /* XXX: need to preserve special modes */
 253             if (stat(modbuf, &st) < 0) {
 254                 syslog( LOG_ERR, "setdeskmode: stat %s: %m", modbuf );
 255                 continue;
 256             }
 257
 258             if (S_ISDIR(st.st_mode)) {
 259               if ( chmod( modbuf,  DIRBITS | mode ) < 0 ) {
 260                 syslog( LOG_ERR, "setdeskmode: chmod %s: %m", modbuf );
 261               }
 262             } else if ( chmod( modbuf,  mode ) < 0 ) {
 263                 syslog( LOG_ERR, "setdeskmode: chmod %s: %m", modbuf );
 264             }
 265
 266         }
 267         closedir( sub );
 268         /* XXX: need to preserve special modes */
 269         if ( chmod( deskp->d_name,  DIRBITS | mode ) < 0 ) {
 270             syslog( LOG_ERR, "setdeskmode: chmod %s: %m", deskp->d_name );
 271         }
 272     }
 273     closedir( desk );
 274     if ( chdir( wd ) < 0 ) {
 275         syslog( LOG_ERR, "setdeskmode: chdir %s: %m", wd );
 276         return -1;
 277     }
 278     /* XXX: need to preserve special modes */
 279     if ( chmod( ".AppleDesktop",  DIRBITS | mode ) < 0 ) {
 280         syslog( LOG_ERR, "setdeskmode: chmod .AppleDesktop: %m" );
 281     }
 282     return( 0 );
 283 }
 284
 285 int setdirmode( mode, noadouble )
 286     const mode_t mode;
 287     const int noadouble;
 288 {
 289     char                buf[ MAXPATHLEN + 1];
 290     struct stat         st;
 291     char                *m;
 292     struct dirent       *dirp;
 293     DIR                 *dir;
 294
 295     if (( dir = opendir( "." )) == NULL ) {
 296         syslog( LOG_ERR, "setdirmode: opendir .: %m" );
 297         return( -1 );
 298     }
 299
 300     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 301         if ( *dirp->d_name == '.' ) {
 302             continue;
 303         }
 304         if ( stat( dirp->d_name, &st ) < 0 ) {
 305             syslog( LOG_ERR, "setdirmode: stat %s: %m", dirp->d_name );
 306             continue;
 307         }
 308
 309         if (S_ISREG(st.st_mode)) {
 310             /* XXX: need to preserve special modes */
 311             if (S_ISDIR(st.st_mode)) {
 312               if (stickydirmode(dirp->d_name, DIRBITS | mode) < 0)
 313                 return (-1);
 314             } else if (stickydirmode(dirp->d_name, mode) < 0)
 315                 return (-1);
 316         }
 317     }
 318     closedir( dir );
 319     if (( dir = opendir( ".AppleDouble" )) == NULL ) {
 320         if (noadouble)
 321           goto setdirmode_noadouble;
 322         syslog( LOG_ERR, "setdirmode: opendir .AppleDouble: %m" );
 323         return( -1 );
 324     }
 325     strcpy( buf, ".AppleDouble" );
 326     strcat( buf, "/" );
 327     m = strchr( buf, '\0' );
 328     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 329         if ( strcmp( dirp->d_name, "." ) == 0 ||
 330                 strcmp( dirp->d_name, ".." ) == 0 ) {
 331             continue;
 332         }
 333         *m = '\0';
 334         strcat( buf, dirp->d_name );
 335
 336         if ( stat( buf, &st ) < 0 ) {
 337             syslog( LOG_ERR, "setdirmode: stat %s: %m", buf );
 338             continue;
 339         }
 340
 341         if (S_ISDIR(st.st_mode)) {
 342            stickydirmode( buf, DIRBITS | mode );
 343         } else
 344            stickydirmode( buf, mode );
 345     } /* end for */
 346     closedir( dir );
 347
 348     /* XXX: use special bits to tag directory permissions */
 349
 350     /* XXX: need to preserve special modes */
 351     if ( stickydirmode(".AppleDouble", DIRBITS | mode) < 0 )
 352         return( -1 );
 353
 354 setdirmode_noadouble:
 355     /* XXX: need to preserve special modes */
 356     if ( stickydirmode(".", DIRBITS | mode) < 0 )
 357         return( -1 );
 358     return( 0 );
 359 }
 360
 361 int setdeskowner( uid, gid )
 362     const uid_t uid;
 363     const gid_t gid;
 364 {
 365     char                wd[ MAXPATHLEN + 1];
 366     char                modbuf[12 + 1], *m;
 367     struct dirent       *deskp, *subp;
 368     DIR                 *desk, *sub;
 369
 370     if ( getcwd( wd, MAXPATHLEN ) == NULL ) {
 371         return( -1 );
 372     }
 373     if ( chdir( ".AppleDesktop" ) < 0 ) {
 374         return( -1 );
 375     }
 376     if (( desk = opendir( "." )) == NULL ) {
 377         if ( chdir( wd ) < 0 ) {
 378             syslog( LOG_ERR, "setdeskowner: chdir %s: %m", wd );
 379         }
 380         return( -1 );
 381     }
 382     for ( deskp = readdir( desk ); deskp != NULL; deskp = readdir( desk )) {
 383         if ( strcmp( deskp->d_name, "." ) == 0 ||
 384              strcmp( deskp->d_name, ".." ) == 0 ||
 385              strlen( deskp->d_name ) > 2 ) {
 386             continue;
 387         }
 388         strcpy( modbuf, deskp->d_name );
 389         strcat( modbuf, "/" );
 390         m = strchr( modbuf, '\0' );
 391         if (( sub = opendir( deskp->d_name )) == NULL ) {
 392             continue;
 393         }
 394         for ( subp = readdir( sub ); subp != NULL; subp = readdir( sub )) {
 395             if ( strcmp( subp->d_name, "." ) == 0 ||
 396                  strcmp( subp->d_name, ".." ) == 0 ) {
 397                 continue;
 398             }
 399             *m = '\0';
 400             strcat( modbuf, subp->d_name );
 401             /* XXX: add special any uid, ignore group bits */
 402             if ( chown( modbuf, uid, gid ) < 0 ) {
 403                 syslog( LOG_ERR, "setdeskown: chown %s: %m", modbuf );
 404             }
 405         }
 406         closedir( sub );
 407         /* XXX: add special any uid, ignore group bits */
 408         if ( chown( deskp->d_name, uid, gid ) < 0 ) {
 409             syslog( LOG_ERR, "setdeskowner: chown %s: %m", deskp->d_name );
 410         }
 411     }
 412     closedir( desk );
 413     if ( chdir( wd ) < 0 ) {
 414         syslog( LOG_ERR, "setdeskowner: chdir %s: %m", wd );
 415         return -1;
 416     }
 417     if ( chown( ".AppleDesktop", uid, gid ) < 0 ) {
 418         syslog( LOG_ERR, "setdeskowner: chown .AppleDesktop: %m" );
 419     }
 420     return( 0 );
 421 }
 422
 423
 424 /* uid/gid == 0 need to be handled as special cases. they really mean
 425  * that user/group should inherit from other, but that doesn't fit
 426  * into the unix permission scheme. we can get around this by
 427  * co-opting some bits. */
 428 int setdirowner( uid, gid, noadouble )
 429     const uid_t uid;
 430     const gid_t gid;
 431     const int   noadouble;
 432 {
 433     char                buf[ MAXPATHLEN + 1];
 434     struct stat         st;
 435     char                *m;
 436     struct dirent       *dirp;
 437     DIR                 *dir;
 438
 439     if (( dir = opendir( "." )) == NULL ) {
 440         return( -1 );
 441     }
 442     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 443         if ( *dirp->d_name == '.' ) {
 444             continue;
 445         };
 446         if ( stat( dirp->d_name, &st ) < 0 ) {
 447             syslog( LOG_ERR, "setdirowner: stat %s: %m", dirp->d_name );
 448             continue;
 449         }
 450         if (( st.st_mode & S_IFMT ) == S_IFREG ) {
 451             if ( chown( dirp->d_name, uid, gid ) < 0 ) {
 452                 syslog( LOG_ERR, "setdirowner: chown %s: %m", dirp->d_name );
 453             }
 454         }
 455     }
 456     closedir( dir );
 457     if (( dir = opendir( ".AppleDouble" )) == NULL ) {
 458       if (noadouble)
 459         goto setdirowner_noadouble;
 460       return( -1 );
 461     }
 462     strcpy( buf, ".AppleDouble" );
 463     strcat( buf, "/" );
 464     m = strchr( buf, '\0' );
 465     for ( dirp = readdir( dir ); dirp != NULL; dirp = readdir( dir )) {
 466         if ( strcmp( dirp->d_name, "." ) == 0 ||
 467                 strcmp( dirp->d_name, ".." ) == 0 ) {
 468             continue;
 469         }
 470         *m = '\0';
 471         strcat( buf, dirp->d_name );
 472         if ( chown( buf, uid, gid ) < 0 ) {
 473             syslog( LOG_ERR, "setdirowner: chown %d/%d %s: %m",
 474                     uid, gid, buf );
 475         }
 476     }
 477     closedir( dir );
 478
 479     /*
 480      * We cheat: we know that chown doesn't do anything.
 481      */
 482     if ( stat( ".AppleDouble", &st ) < 0 ) {
 483         syslog( LOG_ERR, "setdirowner: stat .AppleDouble: %m" );
 484         return( -1 );
 485     }
 486     if ( gid && gid != st.st_gid && chown( ".AppleDouble", uid, gid ) < 0 ) {
 487         syslog( LOG_ERR, "setdirowner: chown %d/%d .AppleDouble: %m",
 488                 uid, gid);
 489     }
 490
 491 setdirowner_noadouble:
 492     if ( stat( ".", &st ) < 0 ) {
 493         return( -1 );
 494     }
 495     if ( gid && gid != st.st_gid && chown( ".", uid, gid ) < 0 ) {
 496         syslog( LOG_ERR, "setdirowner: chown %d/%d .: %m",
 497                 uid, gid);
 498     }
 499
 500     return( 0 );
 501 }