Утечка памяти в функции

char * GET_(char *s, char *gete){
  char query[100000], url[100000], *ret_1;
  int i = 0, flag = 0;
  sprintf(url, "&%s", gete);
  sprintf(query, "&%s=", s);
  if(strstr(url, query) == '\0')
    return "";//если такого get не существует
  ret_1 = strstr(url, query);
  for(i = 0;;i++){
    if(ret_1[i] == '&' || ret_1[i] == '\0'){
      flag = i;
      break;
    }
  }
  ret_1 = strstr(ret_1, "=");
  for(i = 0;;i++){
    if(ret_1[i] == '&' || ret_1[i] == '\0'){
      flag = i;
      break;
    }
  }
  for(i = 0;;i++){
    if(ret_1[i] == '&' || ret_1[i] == '\0'){
      ret_1[i] = '\0';
      break;
    }else if(ret_1[i] == '='){
      continue;
    }else{
      ret_1[i-1] = ret_1[i];
    }
  }
  ret_1[i-1] = '\0';
  return ret_1;
}

char *get = strdup(GET_("get"));

get = "";

strchr(ret_1, '=')

env_getvar(*name, int *lenp)
{
        size_t len;
        u_int i;
        char *ptr;
 
        if ((ptr = getenv(name)) == NULL)
                return (NULL);
        /* тут нужно декодировать %xx */
 
        if (!(len = strlen(ptr)))
                return (NULL);
 
        if (lenp != NULL)
                *lenp = len;
 
        for (i = 0; i < len; i++) {
                if (ptr[i] == '&')
                        ptr[i] = '\0';
                /* тут хорошо бы проверить на допустимые символы. */
        }
 
        return (ptr);
}
 
char *
query_getarg(const char *name, char *arg, int len)
{
        char *ptr = arg;
        size_t namelen, ptrlen;
        int i;
 
        namelen = strlen(name);
 
        for (i = 0; i < len; i++) {
                if (arg[i] == '\0')
                        continue;
                ptr = arg + i;
                ptrlen = strlen(ptr);
                if (namelen >= ptrlen)
                        continue;
                if (strncmp(name, ptr, namelen) == 0)
                        return (ptr + namelen);
        }
 
        return (NULL);
}

int qlen;
char *query, *foo, *bar;
if (!(query = env_getvar("QUERY_STRING", &qlen)))
  /* ошибка */;;
if (!(foo = query_getarg("foo=", query, qlen)))
  /* нету или пустое значение у "foo" в запросе */;;