/*

 * This program converts an attached file (which has previously been

 * downloaded from sourceforge) into bugzilla-style XML.

 */

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#ifdef __linux__

#include <getopt.h>

#endif

#ifdef __linux__

static struct option long_options[] = {

    {"type", 1, 0, 't'},

    {"id", 1, 0, 'i'},

    {"patch", 0, 0, 'p'},

    {0, 0, 0, 0}

};

static char *long_option_str(char opt)

{

    int i;

    static char buf[100];

    for(i=0;long_options[i].name;i++)

	if (long_options[i].val==opt)

	{

	    sprintf(buf,", --%s",long_options[i].name);

	    return buf;

	}

    return "";

}

#else

#define long_option_str(opt)    ""

#endif

usage()

{

    fprintf(stderr,"Usage: xml_attached_file [OPTION] file\n");

    fprintf(stderr,"\n");

    fprintf(stderr,"  -t%s=MIME-type	    MIME type to use\n",

      long_option_str('t'));

    fprintf(stderr,"  -i%s=ID	            Attachment ID to use\n",

      long_option_str('i'));

    fprintf(stderr,"  -p%s	            Mark attachment as a patch\n",

      long_option_str('p'));

    exit(1);

}

/* Note that we limit line lengths to 76 characters following RFC 2045

 * (bugzilla uses MIME::Base64). This isn't strictly compliant with RFC 4648.

 */

static void base64_encode(FILE *in,FILE *out)

{

    int ng=0;		/* 76 characters == 19 groups */

    size_t nb;

    unsigned char bytes[3];

    const char alphabet[64]=

      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";

    while ((nb=fread(bytes,1,3,in))==3)

    {

	if (ng++>=19)

	{

	    putc('\n',out);

	    ng=1;

	}

	putc(alphabet[bytes[0]>>2],out);

	putc(alphabet[(bytes[0]<<4|bytes[1]>>4)&0x3F],out);

	putc(alphabet[(bytes[1]<<2|bytes[2]>>6)&0x3F],out);

	putc(alphabet[bytes[2]&0x3F],out);

    }

    if (nb)

    {

	if (ng>=19)

	    putc('\n',out);

	putc(alphabet[bytes[0]>>2],out);

	if (nb==2)

	{

	    putc(alphabet[(bytes[0]<<4|bytes[1]>>4)&0x3F],out);

	    putc(alphabet[bytes[1]<<2&0x3F],out);

	}

	else

	{

	    putc(alphabet[bytes[0]<<4&0x3F],out);

	    putc('=',out);

	}

	putc('=',out);

    }

}

int main(int argc,char **argv)

{

    int c;

    FILE *fp;

    unsigned long id=0;

    int ispatch=0;

    char *type=NULL;

    for(;;)

    {

#ifdef __linux__

	int option_index=0;

	c=getopt_long(argc,argv,"t:i:p",long_options,&option_index);

#else

	c=getopt(argc,argv,"t:i:p");

#endif

	if (c<0)

	    break;

	switch(c)

	{

	    case 't':

		type=optarg;

		break;

	    case 'i':

		id=strtoul(optarg,NULL,10);

		break;

	    case 'p':

		ispatch=1;

		break;

	    default:

		usage();

	}

    }

    if (optind<argc)

    {

	fp=fopen(argv[optind],"rb");

	if (!fp)

	{

	    perror(argv[optind]);

	    exit(1);

	}

    }

    else

	fp=stdin;

    printf("<attachment ispatch=\"%d\">\n",ispatch);

    if (id)

	printf("  <attachid>%lu</attachid>\n",id);

    if (type)

	printf("  <type>%s</type>\n",type);

    printf("  <data encoding=\"base64\">\n");

    base64_encode(fp,stdout);

    printf("\n  </data>\n");

    printf("</attachment>\n");

    exit(0);

}