#include <stdio.h>
#include <stdlib.h>
#include <regex.h>
#include <string.h>
#include <ctype.h>

#define BUFF_SIZE 4096

/* Converts a hex character to its integer value */
char from_hex(char ch) {
  return isdigit(ch) ? ch - '0' : tolower(ch) - 'a' + 10;
}

/* Converts an integer value to its hex character*/
char to_hex(char code) {
  static char hex[] = "0123456789abcdef";
  return hex[code & 15];
}

/* Returns a url-encoded version of str */
/* IMPORTANT: be sure to free() the returned string after use */
char *url_encode(char *str) {
  char *pstr = str, *buf = malloc(strlen(str) * 3 + 1), *pbuf = buf;
  while (*pstr) {
    if (isalnum(*pstr) || *pstr == '-' || *pstr == '_' || *pstr == '.' || *pstr == '~') 
      *pbuf++ = *pstr;
    /* else if (*pstr == ' ') 
      *pbuf++ = '+'; */
    else 
      *pbuf++ = '%', *pbuf++ = to_hex(*pstr >> 4), *pbuf++ = to_hex(*pstr & 15);
    pstr++;
  }
  *pbuf = '\0';
  return buf;
}

/* Returns a url-decoded version of str */
/* IMPORTANT: be sure to free() the returned string after use */
char *url_decode(char *str) {
  char *pstr = str, *buf = malloc(strlen(str) + 1), *pbuf = buf;
  while (*pstr) {
    if (*pstr == '%') {
      if (pstr[1] && pstr[2]) {
        *pbuf++ = from_hex(pstr[1]) << 4 | from_hex(pstr[2]);
        pstr += 2;
      }
    } else if (*pstr == '+') { 
      *pbuf++ = ' ';
    } else {
      *pbuf++ = *pstr;
    }
    pstr++;
  }
  *pbuf = '\0';
  return buf;
}

int main (void)
{
  regex_t regexnm, regexgn, regexmi, regexbr, regexrn;
  unsigned char buffer[BUFF_SIZE];
  unsigned char line[256];
  unsigned char *meta[2];
  unsigned char icyok = 0;
  int count, done = 0;
  int reti, br, metaint = 0;
  int i, m, n;
  int bsize;
  char *cp, *urlenc;
  char tmpstr[512];

  reti = regcomp(&regexnm, "^icy-name", 0);
  reti = regcomp(&regexgn, "^icy-genre", 0);
  reti = regcomp(&regexmi, "^icy-metaint", 0);
  reti = regcomp(&regexbr, "^icy-br", 0);
  reti = regcomp(&regexrn, "^\r\n$", 0);

  cp = fgets(line, 256, stdin);
  while (cp != NULL && !done) {
    reti = regexec(&regexnm, line, 0, NULL, 0);
    if (!reti) {
      //fputs(line, stderr);
      meta[0] = strtok(line, ":");
      meta[1] = strtok(NULL, "\r");
      fprintf(stderr, "name=%s\n", meta[1]);
      urlenc = url_encode(meta[1]);
      sprintf(tmpstr, "curl -s -u root:arduino http://localhost/arduino/name/%c%s%c", '"', urlenc, '"');
      system((char *)tmpstr);
      //fprintf(stderr, "curl=%s\n", tmpstr);
      free(urlenc);
    }

    reti = regexec(&regexgn, line, 0, NULL, 0);
    if (!reti) {
      //fputs(line, stderr);
      meta[0] = strtok(line, ":");
      meta[1] = strtok(NULL, "\r");
      fprintf(stderr, "genre=%s\n", meta[1]);
      urlenc = url_encode(meta[1]);
      sprintf(tmpstr, "curl -s -u root:arduino http://localhost/arduino/genre/%c%s%c", '"', urlenc, '"');
      system((char *)tmpstr);
      //fprintf(stderr, "curl=%s\n", tmpstr);
      free(urlenc);
    }

    reti = regexec(&regexmi, line, 0, NULL, 0);
    if (!reti) {
      //fputs(line, stderr);
      meta[0] = strtok(line, ":");
      meta[1] = strtok(NULL, "\r");
      metaint = atoi(meta[1]);
      fprintf(stderr, "metaint=%i\n", metaint);
    }

    reti = regexec(&regexbr, line, 0, NULL, 0);
    if (!reti) {
      //fputs(line, stderr);
      meta[0] = strtok(line, ":");
      meta[1] = strtok(NULL, "\r");
      br = atoi(meta[1]);
      fprintf(stderr, "br=%i\n", br);
    }

    reti = regexec(&regexrn, line, 0, NULL, 0);
    if (!reti) {
      done = 1;
      fputs("\n", stderr);
    }

    if (!done) {
      cp = fgets(line, 256, stdin);
    }
  }

  if (metaint == 0) {
    n = 4;
  } else if (metaint > 0) {
    bsize = BUFF_SIZE;
    if ((metaint % bsize) != 0) {
      bsize = 4000;
      while ((metaint % bsize) != 0) {
        bsize -= 1000;
        if (bsize == 0) {
          fprintf(stderr, "Error: metaint is not multiple of bsize\n");
          return 1;
        }
      }
    }
    n = metaint / bsize;
  } else {
    fprintf(stderr, "Error: metainf less then 0\n");
  }

  fprintf(stderr, "bsize=%i\n", bsize);

  while (!feof(stdin)) {
    for (i = 0; i < n; i++)
    {
      count = fread(buffer, 1, bsize, stdin);
      fwrite(buffer, 1, count, stdout);
    }

    if (metaint > 0) {
      count = fread(buffer, 1, 1, stdin);
      m = buffer[0];

      if (m != 0) {
        count = fread(buffer, 1, m * 16, stdin);
        //fwrite(buffer, 1, m * 16, stderr);
        //fputs("\n", stderr);
        meta[0] = strtok(buffer, "'");
        meta[1] = strtok(NULL, "'");
        fputs("StreamTitle=", stderr);
        fputs(meta[1], stderr);
        fputs("\n", stderr);
        urlenc = url_encode(meta[1]);
        sprintf(tmpstr, "curl -s -u root:arduino http://localhost/arduino/title/%c%s%c", '"', urlenc, '"');
        system((char *)tmpstr);
        //fprintf(stderr, "curl=%s\n", tmpstr);
        free(urlenc);
      }
    }
  }

  return 0;
}