wrfile.c

harvest是一个下载html网页得机器人

	}
	if(stat(infodir, &sbuf) == -1) {  /* directory doesn't exist */
	    if(mkdir(infodir, 0777) == -1) {
	 	(void)fprintf(stderr, "Can't create subdirectory %s\n",
			infodir);
	 	exit(1);
	    }
	} else {
	    if((sbuf.st_mode & S_IFMT) != S_IFDIR) {
		(void)fprintf(stderr, "Directory name %s already in use\n",
			infodir);
		exit(1);
	    }
	}
	dirinfo[0] = 0;
	(void)strcat(dirinfo, "../");
	(void)strcat(dirinfo, infodir);
	(void)strcat(dirinfo, "/");
	(void)strcat(dirinfo, share_name);
	fp = fopen(dirinfo, "w");
	if(fp == NULL) {
	    perror(dirinfo);
	    exit(1);
	}
	wr_aufs_info(fp);
	(void)fclose(fp);
    } else {
	fp = fopen(f_folder, "w");
	if(fp == NULL) {
	    perror(f_folder);
	    exit(1);
	}
        header[I_NAMEOFF] |= 0x80;
	(void)fwrite(header, 1, INFOBYTES, fp);
	header[I_NAMEOFF] &= 0x7f;
	(void)fclose(fp);
    }
#endif /* AUFS */
#ifdef APPLEDOUBLE
    if(mode == APSH) {
	if(stat(infodir, &sbuf) == -1) {  /* directory doesn't exist */
	    if(mkdir(infodir, 0777) == -1) {
	 	(void)fprintf(stderr, "Can't create subdirectory %s\n",
			infodir);
	 	exit(1);
	    }
	} else {
	    if((sbuf.st_mode & S_IFMT) != S_IFDIR) {
		(void)fprintf(stderr, "Directory name %s already in use\n",
			infodir);
		exit(1);
	    }
	}
	dirinfo[0] = 0;
	(void)strcat(dirinfo, infodir);
	(void)strcat(dirinfo, "/.Parent");
	fp = fopen(dirinfo, "w");
	if(fp == NULL) {
	    perror(dirinfo);
	    exit(1);
	}
	rsz = 0;
	wr_appledouble_info(fp);
	(void)fclose(fp);
    } else {
	fp = fopen(f_folder, "w");
	if(fp == NULL) {
	    perror(f_folder);
	    exit(1);
	}
	header[I_NAMEOFF] |= 0x80;
	(void)fwrite(header, 1, INFOBYTES, fp);
	header[I_NAMEOFF] &= 0x7f;
	(void)fclose(fp);
    }
#endif /* APPLEDOUBLE */
#else /* APPLESHARE */
    fp = fopen(f_folder, "w");
    if(fp == NULL) {
	perror(f_folder);
	exit(1);
    }
    header[I_NAMEOFF] |= 0x80;
    (void)fwrite(header, 1, INFOBYTES, fp);
    header[I_NAMEOFF] &= 0x7f;
    (void)fclose(fp);
#endif /* APPLESHARE */
}

void enddir()
{
char header[INFOBYTES];
int i;

#ifndef SCAN
    if(mode == MACS) {
#else /* SCAN */
    if(mode == MACS || mode == MACI) {
#endif /* SCAN */
	for(i = 0; i < INFOBYTES; i++) {
	    header[i] = 0;
	}
	header[I_NAMEOFF] = 0x80;
	(void)fwrite(header, 1, INFOBYTES, stdout);
    } else {
	(void)chdir("..");
    }
}

#ifdef APPLESHARE
#ifdef AUFS
static void check_aufs()
{
    /* check for .resource/ and .finderinfo/ */
    struct stat stbuf;
    int error = 0;

    if(stat(rsrcdir,&stbuf) < 0) {
	error ++;
    } else {
	if((stbuf.st_mode & S_IFMT) != S_IFDIR) {
		  error ++;
	}
    }
    if(stat(infodir,&stbuf) < 0) {
	error ++;
    } else {
	if((stbuf.st_mode & S_IFMT) != S_IFDIR) {
		  error++;
	}
    }
    if(error) {
	(void)fprintf(stderr, "Not in an Aufs folder.\n");
	exit(1);
    }
}

static void aufs_namings()
{
    mk_share_name();
    (void)sprintf(f_info_aufs, "%s/%s", infodir, share_name);
    (void)sprintf(f_rsrc_aufs, "%s/%s", rsrcdir, share_name);
    (void)sprintf(f_data, "%s", share_name);
}

static void wr_aufs_info(fp)
FILE *fp;
{
    FileInfo theinfo;
    int n;

    bzero((char *) &theinfo, sizeof theinfo);
    theinfo.fi_magic1 = FI_MAGIC1;
    theinfo.fi_version = FI_VERSION;
    theinfo.fi_magic = FI_MAGIC;
    theinfo.fi_bitmap = FI_BM_MACINTOSHFILENAME;

    /* AUFS stores Unix times. */
#ifdef AUFSPLUS
    theinfo.fi_datemagic = FI_MAGIC;
    theinfo.fi_datevalid = FI_CDATE | FI_MDATE;
    put4(theinfo.fi_ctime, get4(buffer + I_CTIMOFF) - TIMEDIFF);
    put4(theinfo.fi_mtime, get4(buffer + I_MTIMOFF) - TIMEDIFF);
    put4(theinfo.fi_utime, (unsigned long)time((time_t *)0));
#endif /* AUFSPLUS */
    bcopy(buffer + I_TYPEOFF, theinfo.fi_fndr, 4);
    bcopy(buffer + I_AUTHOFF, theinfo.fi_fndr + 4, 4);
    bcopy(buffer + I_FLAGOFF, theinfo.fi_fndr + 8, 2);
    if((n = buffer[I_NAMEOFF] & 0xff) > F_NAMELEN) {
	n = F_NAMELEN;
    }
    (void)strncpy((char *)theinfo.fi_macfilename, buffer + I_NAMEOFF + 1,n);
    /* theinfo.fi_macfilename[n] = '\0'; */
    (void)strcpy((char *)theinfo.fi_comnt,
	"Converted by Unix utility to Aufs format");
    theinfo.fi_comln = strlen((char *)theinfo.fi_comnt);
    (void)fwrite((char *) &theinfo, 1, sizeof theinfo, fp);
}
#endif /* AUFS */

#ifdef APPLEDOUBLE
static void check_appledouble()
{
    /* check for .AppleDouble/ */
    struct stat stbuf;
    int error = 0;

    if(stat(infodir,&stbuf) < 0) {
	error ++;
    } else {
	if((stbuf.st_mode & S_IFMT) != S_IFDIR) {
		  error++;
	}
    }
    if(error) {
	(void)fprintf(stderr, "Not in an AppleDouble folder.\n");
	exit(1);
    }
}

static void appledouble_namings()
{
    mk_share_name();
    (void)sprintf(f_info_appledouble, "%s/%s", infodir, share_name);
    (void)sprintf(f_data, "%s", share_name);
}

static void wr_appledouble_info(fp)
FILE *fp;
{
    FileInfo theinfo;
    int n;

    bzero((char *) &theinfo, sizeof theinfo);
    put4(theinfo.fi_magic, (unsigned long)FI_MAGIC);
    put2(theinfo.fi_version, (unsigned long)FI_VERSION);
    put4(theinfo.fi_fill5, (unsigned long)FI_FILL5);
    put4(theinfo.fi_fill6, (unsigned long)FI_FILL6);
    put4(theinfo.fi_hlen, (unsigned long)FI_HLEN);
    put4(theinfo.fi_fill7, (unsigned long)FI_FILL7);
    put4(theinfo.fi_namptr, (unsigned long)FI_NAMPTR);
    put4(theinfo.fi_fill9, (unsigned long)FI_FILL9);
    put4(theinfo.fi_commptr, (unsigned long)FI_COMMPTR);
    put4(theinfo.fi_fill12, (unsigned long)FI_FILL12);
    put4(theinfo.fi_timeptr, (unsigned long)FI_TIMEPTR);
    put4(theinfo.fi_timesize, (unsigned long)FI_TIMESIZE);
    put4(theinfo.fi_fill15, (unsigned long)FI_FILL15);
    put4(theinfo.fi_infoptr, (unsigned long)FI_INFOPTR);
    put4(theinfo.fi_infosize, (unsigned long)FI_INFOSIZE);

    bcopy(buffer + I_TYPEOFF, theinfo.fi_type, 4);
    bcopy(buffer + I_AUTHOFF, theinfo.fi_auth, 4);
    bcopy(buffer + I_FLAGOFF, theinfo.fi_finfo, 2);
    /* AppleDouble stores Unix times. */
    put4(theinfo.fi_ctime, get4(buffer + I_CTIMOFF) - TIMEDIFF);
    put4(theinfo.fi_mtime, get4(buffer + I_MTIMOFF) - TIMEDIFF);
    if((n = buffer[I_NAMEOFF] & 0xff) > F_NAMELEN) {
	n = F_NAMELEN;
    }
    put4(theinfo.fi_namlen, (unsigned long)n);
    (void)strncpy((char *)theinfo.fi_name, buffer + I_NAMEOFF + 1,n);
    /* theinfo.fi_macfilename[n] = '\0'; */
    (void)strcpy((char *)theinfo.fi_comment,
	"Converted by Unix utility to AppleDouble format");
    put4(theinfo.fi_commsize, (unsigned long)strlen(theinfo.fi_comment));
    put4(theinfo.fi_rsrc, (unsigned long)rsz);
    /*  Still TODO */
    /*  char	fi_ctime[4];	/* Creation time (Unix time) */
    /*  char	fi_mtime[4];	/* Modification time (Unix time) */
    (void)fwrite((char *) &theinfo, 1, sizeof theinfo, fp);
}
#endif /* APPLEDOUBLE */

static void mk_share_name()
{
    int ch;
    char *mp, *up;

    mp = buffer + 2;
    up = &(share_name[0]);
    while(ch = *mp++) {
	if(isascii(ch) && ! iscntrl(ch) && isprint(ch) && ch != '/') {
	    *up++ = ch;
	} else {
	    *up++ = ':';
	    *up++ = hex[(ch >> 4) & 0xf];
	    *up++ = hex[ch & 0xf];
	}
    }
    *up = 0;
}
#endif /* APPLESHARE */

int wrfileopt(c)
char c;
{
    switch(c) {
    case 'b':
	mode = MACB;
	break;
    case 'r':
	if(mode_restricted) {
	    return 0;
	}
	mode = RSRC;
	break;
    case 'd':
	if(mode_restricted) {
	    return 0;
	}
	mode = DATA;
	break;
    case 'u':
	if(mode_restricted) {
	    return 0;
	}
	mode = TEXT;
	break;
    case 'U':
	if(mode_restricted) {
	    return 0;
	}
	mode = UNIX;
	break;
    case 'f':
	mode = FORK;
	break;
    case '3':
	mode = FULL;
	break;
    case 's':
	if(mode_s_restricted) {
	    return 0;
	}
	mode = MACS;
	break;
#ifdef SCAN
    case 'S':
	if(mode_s_restricted) {
	    return 0;
	}
	mode = MACI;
	break;
#endif /* SCAN */
    case 'a':
#ifdef APPLESHARE
#ifdef AUFS
	check_aufs();
	mode = APSH;
	break;
#endif /* AUFS */
#ifdef APPLEDOUBLE
	check_appledouble();
	mode = APSH;
	break;
#endif /* APPLEDOUBLE */
#else /* APPLESHARE */
	(void)fprintf(stderr, "Sorry, Apple-Unix sharing is not supported.\n");
	(void)fprintf(stderr, "Recompile or omit -a option.\n");
	exit(1);
#endif /* APPLESHARE */
    default:
	return 0;
    }
    return 1;
}

void give_wrfileopt()
{
    (void)fprintf(stderr, "File output options:\n");
    (void)fprintf(stderr, "-b:\tMacBinary (default)\n");
    if(!mode_s_restricted) {
	(void)fprintf(stderr, "-s:\tMacBinary stream to standard output\n");
#ifdef SCAN
	(void)fprintf(stderr,
	    "-S:\tas -s but with indication of orignal Unix filename\n");
#endif /* SCAN */
    }
    (void)fprintf(stderr, "-f:\tthree fork mode, skipping empty forks\n");
    (void)fprintf(stderr, "-3:\tthe same, writing also empty forks\n");
    if(!mode_restricted) {
	(void)fprintf(stderr, "-r:\tresource forks only\n");
	(void)fprintf(stderr, "-d:\tdata forks only\n");
	(void)fprintf(stderr,
	    "-u:\tdata forks only with Mac -> Unix text file translation\n");
	(void)fprintf(stderr,
	    "-U:\tas -u, but filename will not have an extension\n");
    }
#ifdef APPLESHARE
#ifdef AUFS
    (void)fprintf(stderr, "-a:\tAUFS format\n");
#endif /* AUFS */
#ifdef APPLEDOUBLE
    (void)fprintf(stderr, "-a:\tAppleDouble format\n");
#endif /* APPLEDOUBLE */
#else /* APPLESHARE */
    (void)fprintf(stderr, "-a:\tnot supported, needs recompilation\n");
#endif /* APPLESHARE */
}

void set_wrfileopt(restricted)
{
    mode_restricted = restricted;
}

void set_s_wrfileopt(restricted)
{
    mode_s_restricted = restricted;
}

char *get_wrfileopt()
{
    static char options[20];

    (void)strcpy(options, "b");
    if(!mode_s_restricted) {
	(void)strcat(options, "s");
#ifdef SCAN
	(void)strcat(options, "S");
#endif /* SCAN */
    }
    (void)strcat(options, "f3");
    if(!mode_restricted) {
	(void)strcat(options, "rduU");
    }
    (void)strcat(options, "a");
    return options;
}

char *get_mina()
{
#ifdef APPLESHARE
#ifdef AUFS
    return ", AUFS supported";
#endif /* AUFS */
#ifdef APPLEDOUBLE
    return ", AppleDouble supported";
#endif /* APPLEDOUBLE */
#else /* APPLESHARE */
    return ", no Apple-Unix sharing supported";
#endif /* APPLESHARE */
}