]> arthur.barton.de Git - netatalk.git/blob - libatalk/adouble/ad_open.c
44aeb5efe2ce0337cd6450a9016d1bc2ea6e33e5
[netatalk.git] / libatalk / adouble / ad_open.c
1 /*
2  * $Id: ad_open.c,v 1.30.6.14 2004-05-11 08:28:33 didg Exp $
3  *
4  * Copyright (c) 1999 Adrian Sun (asun@u.washington.edu)
5  * Copyright (c) 1990,1991 Regents of The University of Michigan.
6  * All Rights Reserved.
7  *
8  * Permission to use, copy, modify, and distribute this software and
9  * its documentation for any purpose and without fee is hereby granted,
10  * provided that the above copyright notice appears in all copies and
11  * that both that copyright notice and this permission notice appear
12  * in supporting documentation, and that the name of The University
13  * of Michigan not be used in advertising or publicity pertaining to
14  * distribution of the software without specific, written prior
15  * permission. This software is supplied as is without expressed or
16  * implied warranties of any kind.
17  *
18  *      Research Systems Unix Group
19  *      The University of Michigan
20  *      c/o Mike Clark
21  *      535 W. William Street
22  *      Ann Arbor, Michigan
23  *      +1-313-763-0525
24  *      netatalk@itd.umich.edu
25  * 
26  * NOTE: I don't use inline because a good compiler should be
27  * able to optimize all the static below. Didier
28  */
29
30 #ifdef HAVE_CONFIG_H
31 #include "config.h"
32 #endif /* HAVE_CONFIG_H */
33
34 #include <errno.h>
35
36 #include <atalk/adouble.h>
37 #include <sys/param.h>
38 #include <atalk/logger.h>
39
40 #include <atalk/util.h>
41 #include <string.h>
42
43 #include "ad_private.h"
44 #include <stdlib.h>
45
46 #ifndef MAX
47 #define MAX(a, b)  ((a) < (b) ? (b) : (a))
48 #endif /* ! MAX */
49
50 /*
51  * AppleDouble entry default offsets.
52  * The layout looks like this:
53  *
54  * this is the v1 layout:
55  *        255     200             16      32              N
56  *      |  NAME |    COMMENT    | FILEI |    FINDERI    | RFORK |
57  *
58  * we need to change it to look like this:
59  *
60  * v2 layout:
61  * field       length (in bytes)
62  * NAME        255
63  * COMMENT     200
64  * FILEDATESI  16     replaces FILEI
65  * FINDERI     32  
66  * DID          4     new
67  * AFPFILEI     4     new
68  * SHORTNAME   12     8.3 new
69  * RFORK        N
70  * 
71  * so, all we need to do is replace FILEI with FILEDATESI, move RFORK,
72  * and add in the new fields.
73  *
74  * NOTE: the HFS module will need similar modifications to interact with
75  * afpd correctly.
76  */
77  
78 #define ADEDOFF_MAGIC        (0)
79 #define ADEDOFF_VERSION      (ADEDOFF_MAGIC + ADEDLEN_MAGIC)
80 #define ADEDOFF_FILLER       (ADEDOFF_VERSION + ADEDLEN_VERSION)
81 #define ADEDOFF_NENTRIES     (ADEDOFF_FILLER + ADEDLEN_FILLER)
82
83 /* initial lengths of some of the fields */
84 #define ADEDLEN_INIT     0
85
86 /* make sure we don't redefine ADEDOFF_FILEI */
87 #ifdef ADEDOFF_FILEI
88 #undef ADEDOFF_FILEI
89 #endif /* ADEDOFF_FILEI */
90
91 #define ADEDOFF_NAME_V1      (AD_HEADER_LEN + ADEID_NUM_V1*AD_ENTRY_LEN)
92 #define ADEDOFF_COMMENT_V1   (ADEDOFF_NAME_V1 + ADEDLEN_NAME)
93 #define ADEDOFF_FILEI        (ADEDOFF_COMMENT_V1 + ADEDLEN_COMMENT)
94 #define ADEDOFF_FINDERI_V1   (ADEDOFF_FILEI + ADEDLEN_FILEI)
95 #define ADEDOFF_RFORK_V1     (ADEDOFF_FINDERI_V1 + ADEDLEN_FINDERI)
96
97 /* i stick things in a slightly different order than their eid order in 
98  * case i ever want to separate RootInfo behaviour from the rest of the 
99  * stuff. */
100 #define ADEDOFF_NAME_V2      (AD_HEADER_LEN + ADEID_NUM_V2*AD_ENTRY_LEN)
101 #define ADEDOFF_COMMENT_V2   (ADEDOFF_NAME_V2 + ADEDLEN_NAME)
102 #define ADEDOFF_FILEDATESI   (ADEDOFF_COMMENT_V2 + ADEDLEN_COMMENT)
103 #define ADEDOFF_FINDERI_V2   (ADEDOFF_FILEDATESI + ADEDLEN_FILEDATESI)
104 #define ADEDOFF_DID          (ADEDOFF_FINDERI_V2 + ADEDLEN_FINDERI)
105 #define ADEDOFF_AFPFILEI     (ADEDOFF_DID + ADEDLEN_DID)
106 #define ADEDOFF_SHORTNAME    (ADEDOFF_AFPFILEI + ADEDLEN_AFPFILEI)
107 #define ADEDOFF_PRODOSFILEI  (ADEDOFF_SHORTNAME + ADEDLEN_SHORTNAME)
108 #define ADEDOFF_PRIVDEV      (ADEDOFF_PRODOSFILEI + ADEDLEN_PRODOSFILEI)
109 #define ADEDOFF_PRIVINO      (ADEDOFF_PRIVDEV + ADEDLEN_PRIVDEV)
110 #define ADEDOFF_PRIVSYN      (ADEDOFF_PRIVINO + ADEDLEN_PRIVINO)
111 #define ADEDOFF_PRIVID       (ADEDOFF_PRIVSYN + ADEDLEN_PRIVSYN)
112
113 #define ADEDOFF_RFORK_V2     (ADEDOFF_PRIVID + ADEDLEN_PRIVID)
114
115 #define ADEID_NUM_OSX        2
116 #define ADEDOFF_FINDERI_OSX  (AD_HEADER_LEN + ADEID_NUM_OSX*AD_ENTRY_LEN)
117 #define ADEDOFF_RFORK_OSX    (ADEDOFF_FINDERI_OSX + ADEDLEN_FINDERI)
118
119 /* we keep local copies of a bunch of stuff so that we can initialize things 
120  * correctly. */
121
122 /* Bits in the finderinfo data. 
123  * see etc/afpd/{directory.c,file.c} for the finderinfo structure
124  * layout. */
125 #define FINDERINFO_CUSTOMICON 0x4
126 #define FINDERINFO_CLOSEDVIEW 0x100
127
128 /* offsets in finderinfo */
129 #define FINDERINFO_FRTYPEOFF   0
130 #define FINDERINFO_FRCREATOFF  4
131 #define FINDERINFO_FRFLAGOFF   8
132 #define FINDERINFO_FRVIEWOFF  14
133
134 /* invisible bit for dot files */
135 #define ATTRBIT_INVISIBLE     (1 << 0)
136 #define FINDERINFO_INVISIBLE  (1 << 14)
137
138 /* this is to prevent changing timezones from causing problems with
139    localtime volumes. the screw-up is 30 years. we use a delta of 5
140    years.  */
141 #define TIMEWARP_DELTA 157680000
142
143
144 struct entry {
145   u_int32_t id, offset, len;
146 };
147
148 static const struct entry entry_order1[ADEID_NUM_V1 +1] = {
149   {ADEID_NAME,    ADEDOFF_NAME_V1,    ADEDLEN_INIT},      /* 3 */
150   {ADEID_COMMENT, ADEDOFF_COMMENT_V1, ADEDLEN_INIT},      /* 4 */
151   {ADEID_FILEI,   ADEDOFF_FILEI,      ADEDLEN_FILEI},     /* 7 */
152   {ADEID_FINDERI, ADEDOFF_FINDERI_V1, ADEDLEN_FINDERI},   /* 9 */
153   {ADEID_RFORK,   ADEDOFF_RFORK_V1,   ADEDLEN_INIT},      /* 2 */
154   {0, 0, 0}
155 };
156
157 #if AD_VERSION == AD_VERSION1 
158 #define DISK_EID(ad, a) (a)
159
160 #else /* AD_VERSION == AD_VERSION2 */
161
162 static u_int32_t get_eid(struct adouble *ad, u_int32_t eid) 
163 {
164     if (eid <= 15)
165         return eid;
166     if (ad->ad_version == AD_VERSION1)
167         return 0;
168     if (eid == AD_DEV)
169         return ADEID_PRIVDEV;
170     if (eid == AD_INO)
171         return ADEID_PRIVINO;
172     if (eid == AD_SYN)
173         return ADEID_PRIVSYN;
174     if (eid == AD_ID)
175         return ADEID_PRIVID;
176
177     return 0;
178 }
179
180 #define DISK_EID(ad, a) get_eid(ad, a)
181
182 static const struct entry entry_order2[ADEID_NUM_V2 +1] = {
183   {ADEID_NAME, ADEDOFF_NAME_V2, ADEDLEN_INIT},
184   {ADEID_COMMENT, ADEDOFF_COMMENT_V2, ADEDLEN_INIT},
185   {ADEID_FILEDATESI, ADEDOFF_FILEDATESI, ADEDLEN_FILEDATESI},
186   {ADEID_FINDERI, ADEDOFF_FINDERI_V2, ADEDLEN_FINDERI},
187   {ADEID_DID, ADEDOFF_DID, ADEDLEN_DID},
188   {ADEID_AFPFILEI, ADEDOFF_AFPFILEI, ADEDLEN_AFPFILEI},
189   {ADEID_SHORTNAME, ADEDOFF_SHORTNAME, ADEDLEN_INIT},
190   {ADEID_PRODOSFILEI, ADEDOFF_PRODOSFILEI, ADEDLEN_PRODOSFILEI},
191   {ADEID_PRIVDEV,     ADEDOFF_PRIVDEV, ADEDLEN_INIT},
192   {ADEID_PRIVINO,     ADEDOFF_PRIVINO, ADEDLEN_INIT},
193   {ADEID_PRIVSYN,     ADEDOFF_PRIVSYN, ADEDLEN_INIT},
194   {ADEID_PRIVID,     ADEDOFF_PRIVID, ADEDLEN_INIT},
195   {ADEID_RFORK, ADEDOFF_RFORK_V2, ADEDLEN_INIT},
196
197   {0, 0, 0}
198 };
199
200 /* OS X adouble finder info and resource fork only
201 */
202 static const struct entry entry_order_osx[ADEID_NUM_OSX +1] = {
203   {ADEID_FINDERI, ADEDOFF_FINDERI_OSX, ADEDLEN_FINDERI},
204   {ADEID_RFORK, ADEDOFF_RFORK_OSX, ADEDLEN_INIT},
205
206   {0, 0, 0}
207 };
208
209 #endif /* AD_VERSION == AD_VERSION2 */
210
211 #if AD_VERSION == AD_VERSION2
212
213 static int ad_update(struct adouble *ad, const char *path)
214 {
215   struct stat st;
216   u_int16_t nentries = 0;
217   off_t     off, shiftdata=0;
218   const struct entry  *eid;
219   static off_t entry_len[ADEID_MAX];
220   static char  databuf[ADEID_MAX][256], *buf;
221   int fd;
222
223   /* check to see if we should convert this header. */
224   if (!path || (ad->ad_flags != AD_VERSION2))
225     return 0;
226   
227   if (!(ad->ad_hf.adf_flags & ( O_RDWR | O_WRONLY))) {
228       /* we were unable to open the file read write the last time
229       */
230       return 0;
231   }
232
233   if (ad->ad_eid[ADEID_RFORK].ade_off)  
234     shiftdata = ADEDOFF_RFORK_V2 -ad->ad_eid[ADEID_RFORK].ade_off;
235
236   memcpy(&nentries, ad->ad_data + ADEDOFF_NENTRIES, sizeof( nentries ));
237   nentries = ntohs( nentries );
238
239   if ( shiftdata == 0 && nentries == ADEID_NUM_V2)
240     return 0;
241
242   memset(entry_len, 0, sizeof(entry_len));
243   memset(databuf, 0, sizeof(databuf));
244
245   /* bail if we can't get a lock */
246   if (ad_tmplock(ad, ADEID_RFORK, ADLOCK_WR, 0, 0, 0) < 0)
247     goto bail_err;
248
249   if ((fd = open(path, O_RDWR)) < 0)
250     goto bail_lock;
251
252   if (fstat(fd, &st) ||
253     sys_ftruncate(fd, st.st_size + shiftdata) < 0) {
254     goto bail_open;
255   }
256   if (st.st_size > 0x7fffffff) {
257     LOG(log_debug, logtype_default, "ad_update: file '%s' too big for update.", path);
258     goto bail_truncate;
259   }
260   /* last place for failure. */
261   if ((void *) (buf = (char *)
262                 mmap(NULL, st.st_size + shiftdata,
263                      PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0)) ==
264           MAP_FAILED) {
265     goto bail_truncate;
266   }
267
268   off = ad->ad_eid[ADEID_RFORK].ade_off;
269
270   /* move the RFORK. this assumes that the RFORK is at the end */
271   if (off) {
272     memmove(buf + ADEDOFF_RFORK_V2, buf + off, ad->ad_eid[ADEID_RFORK].ade_len);
273   }
274
275   munmap(buf, st.st_size + shiftdata);
276   close(fd);
277
278   /* now, fix up our copy of the header */
279   memset(ad->ad_filler, 0, sizeof(ad->ad_filler));
280  
281   /* save the header entries */ 
282   eid = entry_order2;
283   while (eid->id) {
284     if( ad->ad_eid[eid->id].ade_off != 0) {
285       if ( eid->id > 2 && ad->ad_eid[eid->id].ade_len < 256)
286         memcpy( databuf[eid->id], ad->ad_data +ad->ad_eid[eid->id].ade_off, ad->ad_eid[eid->id].ade_len);
287       entry_len[eid->id] = ad->ad_eid[eid->id].ade_len;
288     }
289     eid++;
290   }
291
292   memset(ad->ad_data + AD_HEADER_LEN, 0, AD_DATASZ - AD_HEADER_LEN);
293
294   /* copy the saved entries to the new header */
295   eid = entry_order2;
296   while (eid->id) {
297     if ( eid->id > 2 && entry_len[eid->id] > 0) {
298       memcpy(ad->ad_data+eid->offset, databuf[eid->id], entry_len[eid->id]);
299     }
300     ad->ad_eid[eid->id].ade_off = eid->offset;
301     ad->ad_eid[eid->id].ade_len = entry_len[eid->id];
302     eid++;
303   }
304
305   /* rebuild the header and cleanup */
306   ad_flush(ad, ADFLAGS_HF );
307   ad_tmplock(ad, ADEID_RFORK, ADLOCK_CLR, 0, 0, 0);
308
309   LOG(log_debug, logtype_default, "updated AD2 header %s", path);
310
311   return 0;
312
313 bail_truncate:
314   sys_ftruncate(fd, st.st_size);
315 bail_open:
316   close(fd);
317 bail_lock:
318   ad_tmplock(ad, ADEID_RFORK, ADLOCK_CLR, 0, 0, 0);
319 bail_err:
320   return -1;
321 }
322
323
324 /* FIXME work only if < 2GB */
325 static int ad_v1tov2(struct adouble *ad, const char *path)
326 {
327   struct stat st;
328   u_int16_t attr;
329   char *buf;
330   int fd, off;
331   /* use resource fork offset from file */
332   int shiftdata;
333   
334   /* check to see if we should convert this header. */
335   if (!path || (ad->ad_version != AD_VERSION1))
336     return 0;
337
338   /* we want version1 anyway */
339   if (ad->ad_flags != AD_VERSION2)
340       return 0;
341
342   if (!(ad->ad_hf.adf_flags & ( O_RDWR | O_WRONLY))) {
343       /* we were unable to open the file read write the last time
344       */
345       return 0;
346   }
347
348   if (!ad->ad_flags) {
349       /* we don't really know what we want */
350       ad->ad_flags = ad->ad_version;
351       return 0;
352   }
353
354   /* convert from v1 to v2. what does this mean?
355    *  1) change FILEI into FILEDATESI
356    *  2) create space for SHORTNAME, AFPFILEI, DID, and PRODOSI
357    *  3) move FILEI attributes into AFPFILEI
358    *  4) initialize ACCESS field of FILEDATESI.
359    *  5) move the resource fork
360    */
361   
362   /* bail if we can't get a lock */
363   if (ad_tmplock(ad, ADEID_RFORK, ADLOCK_WR, 0, 0, 0) < 0) 
364     goto bail_err;
365   
366   if ((fd = open(path, O_RDWR)) < 0) 
367     goto bail_lock;
368
369   if (ad->ad_eid[ADEID_RFORK].ade_off) {
370       shiftdata = ADEDOFF_RFORK_V2 -ad->ad_eid[ADEID_RFORK].ade_off;
371   }
372   else {
373       shiftdata = ADEDOFF_RFORK_V2 -ADEDOFF_RFORK_V1; /* 136 */
374   }
375
376   if (fstat(fd, &st) ||
377       sys_ftruncate(fd, st.st_size + shiftdata) < 0) {
378     goto bail_open;
379   }
380   if (st.st_size > 0x7fffffff) {
381       LOG(log_debug, logtype_default, "ad_v1tov2: file too big."); 
382       goto bail_truncate;
383   }
384   
385   /* last place for failure. */
386   if ((void *) (buf = (char *) 
387                 mmap(NULL, st.st_size + shiftdata,
388                      PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0)) == 
389           MAP_FAILED) {
390     goto bail_truncate;
391   }
392   
393   off = ad->ad_eid[ADEID_RFORK].ade_off;
394
395   /* move the RFORK. this assumes that the RFORK is at the end */
396   if (off) {
397       memmove(buf + ADEDOFF_RFORK_V2, buf + off, ad->ad_eid[ADEID_RFORK].ade_len);
398   }
399
400   munmap(buf, st.st_size + shiftdata);
401   close(fd);
402
403   /* now, fix up our copy of the header */
404   memset(ad->ad_filler, 0, sizeof(ad->ad_filler));
405   
406   /* replace FILEI with FILEDATESI */
407   ad_getattr(ad, &attr);
408   ad->ad_eid[ADEID_FILEDATESI].ade_off = ADEDOFF_FILEDATESI;
409   ad->ad_eid[ADEID_FILEDATESI].ade_len = ADEDLEN_FILEDATESI;
410   ad->ad_eid[ADEID_FILEI].ade_off = 0;
411   ad->ad_eid[ADEID_FILEI].ade_len = 0;
412   
413   /* add in the new entries */
414   ad->ad_eid[ADEID_DID].ade_off = ADEDOFF_DID;
415   ad->ad_eid[ADEID_DID].ade_len = ADEDLEN_DID;
416   ad->ad_eid[ADEID_AFPFILEI].ade_off = ADEDOFF_AFPFILEI;
417   ad->ad_eid[ADEID_AFPFILEI].ade_len = ADEDLEN_AFPFILEI;
418   ad->ad_eid[ADEID_SHORTNAME].ade_off = ADEDOFF_SHORTNAME;
419   ad->ad_eid[ADEID_SHORTNAME].ade_len = ADEDLEN_INIT;
420   ad->ad_eid[ADEID_PRODOSFILEI].ade_off = ADEDOFF_PRODOSFILEI;
421   ad->ad_eid[ADEID_PRODOSFILEI].ade_len = ADEDLEN_PRODOSFILEI;
422   
423   ad->ad_eid[ADEID_PRIVDEV].ade_off = ADEDOFF_PRIVDEV;
424   ad->ad_eid[ADEID_PRIVDEV].ade_len = ADEDLEN_INIT;
425   ad->ad_eid[ADEID_PRIVINO].ade_off = ADEDOFF_PRIVINO;
426   ad->ad_eid[ADEID_PRIVINO].ade_len = ADEDLEN_INIT;
427   ad->ad_eid[ADEID_PRIVSYN].ade_off = ADEDOFF_PRIVSYN;
428   ad->ad_eid[ADEID_PRIVSYN].ade_len = ADEDLEN_INIT;
429   ad->ad_eid[ADEID_PRIVID].ade_off  = ADEDOFF_PRIVID;
430   ad->ad_eid[ADEID_PRIVID].ade_len =  ADEDLEN_INIT;
431   
432   /* shift the old entries (NAME, COMMENT, FINDERI, RFORK) */
433   ad->ad_eid[ADEID_NAME].ade_off = ADEDOFF_NAME_V2;
434   ad->ad_eid[ADEID_COMMENT].ade_off = ADEDOFF_COMMENT_V2;
435   ad->ad_eid[ADEID_FINDERI].ade_off = ADEDOFF_FINDERI_V2;
436   ad->ad_eid[ADEID_RFORK].ade_off = ADEDOFF_RFORK_V2;
437   
438   /* switch to v2 */
439   ad->ad_version = AD_VERSION2;
440   
441   /* move our data buffer to make space for the new entries. */
442   memmove(ad->ad_data + ADEDOFF_NAME_V2, ad->ad_data + ADEDOFF_NAME_V1,
443           ADEDOFF_RFORK_V1 - ADEDOFF_NAME_V1);
444   
445   /* now, fill in the space with appropriate stuff. we're
446      operating as a v2 file now. */
447   ad_setdate(ad, AD_DATE_ACCESS | AD_DATE_UNIX, st.st_mtime);
448   memset(ad_entry(ad, ADEID_DID), 0, ADEDLEN_DID);
449   memset(ad_entry(ad, ADEID_AFPFILEI), 0, ADEDLEN_AFPFILEI);
450   ad_setattr(ad, attr);
451   memset(ad_entry(ad, ADEID_SHORTNAME), 0, ADEDLEN_SHORTNAME);
452   memset(ad_entry(ad, ADEID_PRODOSFILEI), 0, ADEDLEN_PRODOSFILEI);
453   
454   /* rebuild the header and cleanup */
455   ad_flush(ad, ADFLAGS_HF );
456   ad_tmplock(ad, ADEID_RFORK, ADLOCK_CLR, 0, 0, 0);
457
458   return 0;
459   
460 bail_truncate:
461   sys_ftruncate(fd, st.st_size);
462 bail_open:
463   close(fd);
464 bail_lock:
465   ad_tmplock(ad, ADEID_RFORK, ADLOCK_CLR, 0, 0, 0);
466 bail_err:
467   return -1;
468 }
469 #endif /* AD_VERSION == AD_VERSION2 */
470
471 #ifdef ATACC
472 mode_t ad_hf_mode (mode_t mode)
473 {
474     /* we always need RW mode for file owner */
475 #if 0
476     mode |= S_IRUSR;
477 #endif    
478     /* fnctl lock need write access */
479     if ((mode & S_IRUSR))
480         mode |= S_IWUSR;
481     if ((mode & S_IRGRP))
482         mode |= S_IWGRP;
483     if ((mode & S_IROTH))
484         mode |= S_IWOTH;
485     /* if write mode set add read mode */
486     if ((mode & S_IWUSR))
487         mode |= S_IRUSR;
488     if ((mode & S_IWGRP))
489         mode |= S_IRGRP;
490     if ((mode & S_IWOTH))
491         mode |= S_IROTH;
492
493     return mode;
494 }
495
496 #endif
497
498 /* ------------------------------------- 
499   read in the entries 
500 */
501 static void parse_entries(struct adouble *ad, char *buf,
502                                     u_int16_t nentries)
503 {
504     u_int32_t   eid, len, off;
505     int         warning = 0;
506
507     /* now, read in the entry bits */
508     for (; nentries > 0; nentries-- ) {
509         memcpy(&eid, buf, sizeof( eid ));
510         eid = DISK_EID(ad, ntohl( eid ));
511         buf += sizeof( eid );
512         memcpy(&off, buf, sizeof( off ));
513         off = ntohl( off );
514         buf += sizeof( off );
515         memcpy(&len, buf, sizeof( len ));
516         len = ntohl( len );
517         buf += sizeof( len );
518
519         if ( 0 < eid && eid < ADEID_MAX ) {
520             ad->ad_eid[ eid ].ade_off = off;
521             ad->ad_eid[ eid ].ade_len = len;
522         } else if (!warning) {
523             warning = 1;
524             LOG(log_debug, logtype_default, "ad_refresh: nentries %hd  eid %d",
525                     nentries, eid );
526         }
527     }
528 }
529
530
531 /* this reads enough of the header so that we can figure out all of
532  * the entry lengths and offsets. once that's done, we just read/mmap
533  * the rest of the header in.
534  *
535  * NOTE: we're assuming that the resource fork is kept at the end of
536  *       the file. also, mmapping won't work for the hfs fs until it
537  *       understands how to mmap header files. */
538 static int ad_header_read(struct adouble *ad, struct stat *hst)
539 {
540     char                *buf = ad->ad_data;
541     u_int16_t           nentries;
542     int                 len;
543     ssize_t             header_len;
544     static int          warning = 0;
545     struct stat         st;
546
547     /* read the header */
548     if ((header_len = adf_pread( &ad->ad_hf, buf, sizeof(ad->ad_data), 0)) < 0) {
549         return -1;
550     }
551     if (header_len < AD_HEADER_LEN) {
552         errno = EIO;
553         return -1;
554     }
555
556     memcpy(&ad->ad_magic, buf, sizeof( ad->ad_magic ));
557     memcpy(&ad->ad_version, buf + ADEDOFF_VERSION, sizeof( ad->ad_version ));
558
559     /* tag broken v1 headers. just assume they're all right. 
560      * we detect two cases: null magic/version
561      *                      byte swapped magic/version
562      * XXX: in the future, you'll need the v1compat flag. 
563      * (ad->ad_flags & ADFLAGS_V1COMPAT) */
564     if (!ad->ad_magic && !ad->ad_version) {
565       if (!warning) {
566         LOG(log_debug, logtype_default, "notice: fixing up null v1 magic/version.");
567         warning++;
568       }
569       ad->ad_magic = AD_MAGIC;
570       ad->ad_version = AD_VERSION1;
571
572     } else if (ad->ad_magic == AD_MAGIC && ad->ad_version == AD_VERSION1) {
573       if (!warning) {
574         LOG(log_debug, logtype_default, "notice: fixing up byte-swapped v1 magic/version.");
575         warning++;
576       }
577
578     } else {
579       ad->ad_magic = ntohl( ad->ad_magic );
580       ad->ad_version = ntohl( ad->ad_version );
581     }
582
583     if ((ad->ad_magic != AD_MAGIC) || ((ad->ad_version != AD_VERSION1)
584 #if AD_VERSION == AD_VERSION2
585                                        && (ad->ad_version != AD_VERSION2)
586 #endif /* AD_VERSION == AD_VERSION2 */
587                                        )) {
588       errno = EIO;
589       LOG(log_debug, logtype_default, "ad_open: can't parse AppleDouble header.");
590       return -1;
591     }
592
593     memcpy(ad->ad_filler, buf + ADEDOFF_FILLER, sizeof( ad->ad_filler ));
594     memcpy(&nentries, buf + ADEDOFF_NENTRIES, sizeof( nentries ));
595     nentries = ntohs( nentries );
596
597     /* read in all the entry headers. if we have more than the 
598      * maximum, just hope that the rfork is specified early on. */
599     len = nentries*AD_ENTRY_LEN;
600
601     if (len + AD_HEADER_LEN > sizeof(ad->ad_data))
602       len = sizeof(ad->ad_data) - AD_HEADER_LEN;
603
604     buf += AD_HEADER_LEN;
605     if (len > header_len - AD_HEADER_LEN) {
606         errno = EIO;
607         LOG(log_debug, logtype_default, "ad_header_read: can't read entry info.");
608         return -1;
609     }
610
611     /* figure out all of the entry offsets and lengths. if we aren't
612      * able to read a resource fork entry, bail. */
613     nentries = len / AD_ENTRY_LEN;
614     parse_entries(ad, buf, nentries);
615     if (!ad_getentryoff(ad, ADEID_RFORK)
616         || (ad_getentryoff(ad, ADEID_RFORK) > sizeof(ad->ad_data))
617         ) {
618         errno = EIO;
619         LOG(log_debug, logtype_default, "ad_header_read: problem with rfork entry offset."); 
620         return -1;
621     }
622
623     if (ad_getentryoff(ad, ADEID_RFORK) > header_len) {
624         errno = EIO;
625         LOG(log_debug, logtype_default, "ad_header_read: can't read in entries.");
626         return -1;
627     }
628     
629     if (hst == NULL) {
630         hst = &st;
631         if (fstat(ad->ad_hf.adf_fd, &st) < 0) {
632             return 1; /* fail silently */
633          }
634     }
635     ad->ad_rlen = hst->st_size - ad_getentryoff(ad, ADEID_RFORK);
636
637     /* fix up broken dates */
638     if (ad->ad_version == AD_VERSION1) {
639       u_int32_t aint;
640       
641       /* check to see if the ad date is wrong. just see if we have
642       * a modification date in the future. */
643       if (((ad_getdate(ad, AD_DATE_MODIFY | AD_DATE_UNIX, &aint)) == 0) &&
644           (aint > TIMEWARP_DELTA + hst->st_mtime)) {
645         ad_setdate(ad, AD_DATE_MODIFY | AD_DATE_UNIX, aint - AD_DATE_DELTA);
646         ad_getdate(ad, AD_DATE_CREATE | AD_DATE_UNIX, &aint);
647         ad_setdate(ad, AD_DATE_CREATE | AD_DATE_UNIX, aint - AD_DATE_DELTA);
648         ad_getdate(ad, AD_DATE_BACKUP | AD_DATE_UNIX, &aint);
649         ad_setdate(ad, AD_DATE_BACKUP | AD_DATE_UNIX, aint - AD_DATE_DELTA);
650       }
651     }
652
653     return 0;
654 }
655
656 /* ---------------------------------------
657  * Put the .AppleDouble where it needs to be:
658  *
659  *          /   a/.AppleDouble/b
660  *      a/b
661  *          \   b/.AppleDouble/.Parent
662  *
663  * FIXME: should do something for pathname > MAXPATHLEN
664  */
665 char *
666 ad_path( path, adflags )
667     const char  *path;
668     int         adflags;
669 {
670     static char pathbuf[ MAXPATHLEN + 1];
671     char        c, *slash, buf[MAXPATHLEN + 1];
672     size_t      l;
673
674     l = strlcpy(buf, path, MAXPATHLEN +1);
675     if ( adflags & ADFLAGS_DIR ) {
676         strcpy( pathbuf, buf);
677         if ( *buf != '\0' && l < MAXPATHLEN) {
678             pathbuf[l++] = '/';
679             pathbuf[l] = 0;
680         }
681         slash = ".Parent";
682     } else {
683         if (NULL != ( slash = strrchr( buf, '/' )) ) {
684             c = *++slash;
685             *slash = '\0';
686             strcpy( pathbuf, buf);
687             *slash = c;
688         } else {
689             pathbuf[ 0 ] = '\0';
690             slash = buf;
691         }
692     }
693     strlcat( pathbuf, ".AppleDouble/", MAXPATHLEN +1);
694     strlcat( pathbuf, slash, MAXPATHLEN +1);
695
696     return( pathbuf );
697 }
698
699 /* ---------------------------------------
700  * Put the resource fork where it needs to be:
701  * ._name
702  */
703 char *
704 ad_path_osx( path, adflags )
705     const char  *path;
706     int         adflags;
707 {
708     static char pathbuf[ MAXPATHLEN + 1];
709     char        c, *slash, buf[MAXPATHLEN + 1];
710     
711     if (!strcmp(path,".")) {
712             /* fixme */
713         getcwd(buf, MAXPATHLEN);
714     }
715     else {
716         strlcpy(buf, path, MAXPATHLEN +1);
717     }
718     if (NULL != ( slash = strrchr( buf, '/' )) ) {
719         c = *++slash;
720         *slash = '\0';
721         strlcpy( pathbuf, buf, MAXPATHLEN +1);
722         *slash = c;
723     } else {
724         pathbuf[ 0 ] = '\0';
725         slash = buf;
726     }
727     strlcat( pathbuf, "._", MAXPATHLEN  +1);  
728     strlcat( pathbuf, slash, MAXPATHLEN +1);
729     return pathbuf;
730 }
731
732 /*
733  * Support inherited protection modes for AppleDouble files.  The supplied
734  * mode is ANDed with the parent directory's mask value in lieu of "umask",
735  * and that value is returned.
736  */
737
738 #define DEFMASK 07700   /* be conservative */
739
740 char 
741 *ad_dir(path)
742     const char          *path;
743 {
744     static char         modebuf[ MAXPATHLEN + 1];
745     char                *slash;
746     size_t              len;
747
748     if ( (len = strlen( path )) >= MAXPATHLEN ) {
749         errno = ENAMETOOLONG;
750         return NULL;  /* can't do it */
751     }
752
753     /*
754      * For a path with directories in it, remove the final component
755      * (path or subdirectory name) to get the name we want to stat.
756      * For a path which is just a filename, use "." instead.
757      */
758     strcpy( modebuf, path );
759     slash = strrchr( modebuf, '/' );
760     /* is last char a '/' */
761     if (slash && slash[1] == 0) {
762         while (modebuf < slash && slash[-1] == '/') {
763             --slash;
764         }
765         if (modebuf < slash) {
766             *slash = '\0';              /* remove pathname component */
767             slash = strrchr( modebuf, '/' );
768         }
769     }
770     if (slash) {
771         *slash = '\0';          /* remove pathname component */
772     } else {
773         modebuf[0] = '.';       /* use current directory */
774         modebuf[1] = '\0';
775     }
776     return modebuf;
777 }
778
779 /* ---------------- */
780 static uid_t default_uid = -1;
781
782 int ad_setfuid(const uid_t id)
783 {
784     default_uid = id;
785     return 0;
786 }
787
788 /* ---------------- */
789 uid_t ad_getfuid(void) 
790 {
791     return default_uid;
792 }
793
794 /* ---------------- 
795    return inode of path parent directory
796 */
797 int ad_stat(const char *path, struct stat *stbuf)
798 {
799     char                *p;
800
801     p = ad_dir(path);
802     if (!p) {
803         return -1;
804     }
805
806     return stat( p, stbuf );
807 }
808
809 /* ---------------- 
810    if we are root change path user/ group
811    It can be a native function for BSD cf. FAQ.Q10
812    path:  pathname to chown 
813    stbuf: parent directory inode
814    
815    use fstat and fchown or lchown with linux?
816 */
817 #define EMULATE_SUIDDIR
818  
819 static int ad_chown(const char *path, struct stat *stbuf)
820 {
821 int ret = 0;
822 #ifdef EMULATE_SUIDDIR
823 uid_t id;
824
825     if (default_uid != -1) {  
826         /* we are root (admin) */
827         id = (default_uid)?default_uid:stbuf->st_uid;
828         ret = chown( path, id, stbuf->st_gid );
829     }
830 #endif    
831     return ret;
832 }
833
834 /* ---------------- 
835    return access right and inode of path parent directory
836 */
837 static int ad_mode_st(const char *path, int *mode, struct stat *stbuf)
838 {
839     if (*mode == 0) {
840        return -1;
841     }
842     if (ad_stat(path, stbuf) != 0) {
843         *mode &= DEFMASK;
844         return -1;
845     }
846     *mode &= stbuf->st_mode;
847     return 0;    
848 }
849
850 /* ---------------- 
851    return access right of path parent directory
852 */
853 int
854 ad_mode( path, mode )
855     const char          *path;
856     int                 mode;
857 {
858     struct stat         stbuf;
859     ad_mode_st(path, &mode, &stbuf);
860     return mode;
861 }
862
863 /*
864  * Use mkdir() with mode bits taken from ad_mode().
865  */
866 int
867 ad_mkdir( path, mode )
868     const char          *path;
869     int                 mode;
870 {
871 int ret;
872 int st_invalid;
873 struct stat stbuf;
874
875 #ifdef DEBUG
876     LOG(log_info, logtype_default, "ad_mkdir: Creating directory with mode %d", mode);
877 #endif /* DEBUG */
878
879     st_invalid = ad_mode_st(path, &mode, &stbuf);
880     ret = mkdir( path, mode );
881     if (ret || st_invalid)
882         return ret;
883     ad_chown(path, &stbuf);
884
885     return ret;    
886 }
887
888 /* ----------------- */
889 static int ad_error(struct adouble *ad, int adflags)
890 {
891 int err = errno;
892     if ((adflags & ADFLAGS_NOHF)) {
893         /* FIXME double check : set header offset ?*/
894         return 0;
895     }
896     if ((adflags & ADFLAGS_DF)) {
897         ad_close( ad, ADFLAGS_DF );
898         err = errno;
899     }
900     return -1 ;
901 }
902
903 static int new_rfork(const char *path, struct adouble *ad, int adflags);
904
905 #ifdef  HAVE_PREAD
906 #define AD_SET(a) 
907 #else 
908 #define AD_SET(a) a = 0
909 #endif
910
911 void ad_init(struct adouble *ad, int flags)
912 {
913     memset( ad, 0, sizeof( struct adouble ) );
914     ad->ad_flags = flags;
915     if (flags == AD_VERSION2_OSX) {
916         ad->ad_path     = ad_path_osx;
917     }
918     else {
919         ad->ad_path     = ad_path;
920     }
921 }
922
923 /* -------------------
924  * It's not possible to open the header file O_RDONLY -- the read
925  * will fail and return an error. this refcounts things now. 
926  */
927 int ad_open( path, adflags, oflags, mode, ad )
928     const char          *path;
929     int                 adflags, oflags, mode;
930     struct adouble      *ad;
931 {
932     struct stat         st;
933     char                *slash, *ad_p;
934     int                 hoflags, admode;
935     int                 st_invalid;
936     int                 open_df = 0;
937     
938     if (ad->ad_inited != AD_INITED) {
939         ad_dfileno(ad) = -1;
940         ad_hfileno(ad) = -1;
941         adf_lock_init(&ad->ad_df);
942         adf_lock_init(&ad->ad_hf);
943         ad->ad_inited = AD_INITED;
944         ad->ad_refcount = 1;
945     }
946
947     if ((adflags & ADFLAGS_DF)) { 
948         if (ad_dfileno(ad) == -1) {
949           hoflags = (oflags & ~(O_RDONLY | O_WRONLY)) | O_RDWR;
950           admode = mode;
951           st_invalid = ad_mode_st(path, &admode, &st);
952           ad->ad_df.adf_fd =open( path, hoflags, admode );
953           if (ad->ad_df.adf_fd < 0 ) {
954              if ((errno == EACCES || errno == EROFS) && !(oflags & O_RDWR)) {
955                 hoflags = oflags;
956                 ad->ad_df.adf_fd =open( path, hoflags, admode );
957              }
958           }
959           if ( ad->ad_df.adf_fd < 0)
960                 return -1;
961
962           AD_SET(ad->ad_df.adf_off);
963           ad->ad_df.adf_flags = hoflags;
964           if ((oflags & O_CREAT) && !st_invalid) {
965               /* just created, set owner if admin (root) */
966               ad_chown(path, &st);
967           }
968         } 
969         else {
970             /* the file is already open... but */
971             if ((oflags & ( O_RDWR | O_WRONLY)) &&             /* we want write access */
972                 !(ad->ad_df.adf_flags & ( O_RDWR | O_WRONLY))) /* and it was denied the first time */
973             {
974                  errno = EACCES;
975                  return -1;
976             }
977             /* FIXME 
978              * for now ad_open is never called with O_TRUNC or O_EXCL if the file is
979              * already open. Should we check for it? ie
980              * O_EXCL --> error 
981              * O_TRUNC --> truncate the fork.
982              * idem for ressource fork.
983              */
984         }
985         open_df = ADFLAGS_DF;
986         ad->ad_df.adf_refcount++;
987     }
988
989     if (!(adflags & ADFLAGS_HF)) 
990         return 0;
991         
992     if (ad_hfileno(ad) != -1) { /* the file is already open */
993         if ((oflags & ( O_RDWR | O_WRONLY)) &&             
994                 !(ad->ad_hf.adf_flags & ( O_RDWR | O_WRONLY))) {
995             if (open_df) {
996                 /* don't call with ADFLAGS_HF because we didn't open ressource fork */
997                 ad_close( ad, open_df );
998             }
999             errno = EACCES;
1000             return -1;
1001         }
1002         ad_refresh(ad);
1003         ad->ad_hf.adf_refcount++;
1004         return 0;
1005     }
1006
1007     ad_p = ad->ad_path( path, adflags );
1008
1009     hoflags = oflags & ~O_CREAT;
1010     if (!(adflags & ADFLAGS_RDONLY)) {
1011         hoflags = (hoflags & ~(O_RDONLY | O_WRONLY)) | O_RDWR;
1012     }
1013     ad->ad_hf.adf_fd = open( ad_p, hoflags, 0 );
1014     if (ad->ad_hf.adf_fd < 0 ) {
1015         if ((errno == EACCES || errno == EROFS) && !(oflags & O_RDWR)) {
1016             hoflags = oflags & ~O_CREAT;
1017             ad->ad_hf.adf_fd = open( ad_p, hoflags, 0 );
1018         }    
1019     }
1020
1021     if ( ad->ad_hf.adf_fd < 0 ) { 
1022         if (errno == ENOENT && (oflags & O_CREAT) ) {
1023             /*
1024              * We're expecting to create a new adouble header file,
1025              * here.
1026              * if ((oflags & O_CREAT) ==> (oflags & O_RDWR)
1027              */
1028             admode = mode;
1029             errno = 0;
1030             st_invalid = ad_mode_st(ad_p, &admode, &st);
1031             admode = ad_hf_mode(admode); 
1032             if ( errno == ENOENT && !(adflags & ADFLAGS_NOADOUBLE) && ad->ad_flags != AD_VERSION2_OSX) {
1033                 /*
1034                  * Probably .AppleDouble doesn't exist, try to
1035                  * mkdir it.
1036                  */
1037                 if (NULL == ( slash = strrchr( ad_p, '/' )) ) {
1038                     return ad_error(ad, adflags);
1039                 }
1040                 *slash = '\0';
1041                 errno = 0;
1042                 if ( ad_mkdir( ad_p, 0777 ) < 0 ) {
1043                     return ad_error(ad, adflags);
1044                 }
1045                 *slash = '/';
1046                 admode = mode;
1047                 st_invalid = ad_mode_st(ad_p, &admode, &st);
1048                 admode = ad_hf_mode(admode); 
1049             }
1050             /* retry with O_CREAT */
1051             ad->ad_hf.adf_fd = open( ad_p, oflags,admode );
1052             if ( ad->ad_hf.adf_fd < 0 ) {
1053                 return ad_error(ad, adflags);
1054             }
1055             ad->ad_hf.adf_flags = oflags;
1056             /* just created, set owner if admin owner (root) */
1057             if (!st_invalid) {
1058                 ad_chown(ad_p, &st);
1059             }
1060         }
1061         else {
1062             return ad_error(ad, adflags);
1063         }
1064     } else if (fstat(ad->ad_hf.adf_fd, &st) == 0 && st.st_size == 0) {
1065         /* for 0 length files, treat them as new. */
1066         ad->ad_hf.adf_flags = hoflags| O_TRUNC;
1067     } else {
1068         ad->ad_hf.adf_flags = hoflags;
1069     }
1070     AD_SET(ad->ad_hf.adf_off);
1071           
1072     memset(ad->ad_eid, 0, sizeof( ad->ad_eid ));
1073     ad->ad_hf.adf_refcount++;
1074     if ((ad->ad_hf.adf_flags & ( O_TRUNC | O_CREAT ))) {
1075         /*
1076          * This is a new adouble header file. Initialize the structure,
1077          * instead of reading it.
1078         */
1079         if (new_rfork(path, ad, adflags) < 0) {
1080             int err = errno;
1081             /* the file is already deleted, perm, whatever, so return an error*/
1082             ad_close(ad, adflags);
1083             errno = err;
1084             return -1;
1085         }
1086     } else {
1087             /* Read the adouble header in and parse it.*/
1088         if ((ad_header_read( ad , &st) < 0)
1089 #if AD_VERSION == AD_VERSION2
1090                 || (ad_v1tov2(ad, ad_p) < 0) || (ad_update(ad, ad_p) < 0)
1091 #endif /* AD_VERSION == AD_VERSION2 */
1092         ) {
1093             int err = errno;
1094             
1095             ad_close( ad, adflags );
1096             errno = err;
1097             return -1;
1098         }
1099     }
1100     return 0 ;
1101 }
1102
1103 /* ----------------------------------- 
1104  * return only metadata but try very hard
1105 */
1106 int ad_metadata(const char *name, int flags, struct adouble *adp)
1107 {
1108     uid_t uid;
1109     int   ret, err;
1110
1111     if ((ret = ad_open(name, ADFLAGS_HF | (flags), O_RDONLY, 0, adp)) < 0 && errno == EACCES) {
1112         uid = geteuid();
1113         if (seteuid(0)) {
1114             LOG(log_error, logtype_default, "ad_metadata(%s): seteuid failed %s", name, strerror(errno));
1115             errno = EACCES;
1116             return -1;
1117         }
1118         /* we are root open read only */
1119         ret = ad_open(name, ADFLAGS_HF|ADFLAGS_RDONLY|(flags), O_RDONLY, 0, adp);
1120         err = errno;
1121         if ( seteuid(uid) < 0) {
1122             LOG(log_error, logtype_default, "ad_metadata: can't seteuid back");
1123             exit(EXITERR_SYS);
1124         }
1125         errno = err;
1126     }
1127     return ret;
1128 }
1129
1130 /* ----------------------------------- */
1131 static int new_rfork(const char *path, struct adouble *ad, int adflags)
1132 {
1133     const struct entry  *eid;
1134     u_int16_t           ashort;
1135     struct stat         st;
1136
1137     ad->ad_magic = AD_MAGIC;
1138     ad->ad_version = ad->ad_flags & 0x0f0000;
1139     if (!ad->ad_version) {
1140         ad->ad_version = AD_VERSION;
1141     }
1142
1143     memset(ad->ad_filler, 0, sizeof( ad->ad_filler ));
1144     memset(ad->ad_data, 0, sizeof(ad->ad_data));
1145
1146 #if AD_VERSION == AD_VERSION2
1147     if (ad->ad_flags == AD_VERSION2)
1148        eid = entry_order2;
1149     else if (ad->ad_flags == AD_VERSION2_OSX)
1150        eid = entry_order_osx;
1151     else
1152 #endif
1153        eid = entry_order1;
1154
1155     while (eid->id) {
1156         ad->ad_eid[eid->id].ade_off = eid->offset;
1157         ad->ad_eid[eid->id].ade_len = eid->len;
1158         eid++;
1159     }
1160             
1161     /* put something sane in the directory finderinfo */
1162     if ((adflags & ADFLAGS_DIR)) {
1163         /* set default view */
1164         ashort = htons(FINDERINFO_CLOSEDVIEW);
1165         memcpy(ad_entry(ad, ADEID_FINDERI) + FINDERINFO_FRVIEWOFF, 
1166                      &ashort, sizeof(ashort));
1167     } else {
1168         /* set default creator/type fields */
1169         memcpy(ad_entry(ad, ADEID_FINDERI) + FINDERINFO_FRTYPEOFF,"TEXT", 4);
1170         memcpy(ad_entry(ad, ADEID_FINDERI) + FINDERINFO_FRCREATOFF,"UNIX", 4);
1171     }
1172
1173     /* make things invisible */
1174     if ((*path == '.') && strcmp(path, ".") && strcmp(path, "..")) {
1175         ashort = htons(ATTRBIT_INVISIBLE);
1176         ad_setattr(ad, ashort);
1177         ashort = htons(FINDERINFO_INVISIBLE);
1178         memcpy(ad_entry(ad, ADEID_FINDERI) + FINDERINFO_FRFLAGOFF,
1179                      &ashort, sizeof(ashort));
1180     }
1181
1182     if (stat(path, &st) < 0) {
1183         return -1;
1184     }
1185             
1186     /* put something sane in the date fields */
1187     ad_setdate(ad, AD_DATE_CREATE | AD_DATE_UNIX, st.st_mtime);
1188     ad_setdate(ad, AD_DATE_MODIFY | AD_DATE_UNIX, st.st_mtime);
1189     ad_setdate(ad, AD_DATE_ACCESS | AD_DATE_UNIX, st.st_mtime);
1190     ad_setdate(ad, AD_DATE_BACKUP, AD_DATE_START);
1191     return 0;
1192 }
1193
1194 /* to do this with mmap, we need the hfs fs to understand how to mmap
1195    header files. */
1196 int ad_refresh(struct adouble *ad)
1197 {
1198
1199   if (ad->ad_hf.adf_fd < 0)
1200     return -1;
1201
1202   return ad_header_read(ad, NULL);
1203 }