/*
 * 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);
}