/******************************************************************************
 libprozilla - a download accelerator library
 Copyright (C) 2001 Kalum Somaratna

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
******************************************************************************/

//Rewrite of the ftp parsing code as we needed to extract the date of
//the file to save it when the downloading is complete.


#include "common.h"
#include "ftpparse.h"
#include "prozilla.h"


    
 
  /* MultiNet (some spaces removed from examples) */
  /* "00README.TXT;1      2 30-DEC-1996 17:44 [SYSTEM] (RWED,RWED,RE,RE)" */
  /* "CORE.DIR;1          1  8-SEP-1996 16:09 [SYSTEM] (RWE,RWE,RE,RE)" */
  /* and non-MutliNet VMS: */
  /* "CII-MANUAL.TEX;1  213/216  29-JAN-1996 03:33:12  [ANONYMOU,ANONYMOUS]   (RWED,RWED,,)" */

  /* MSDOS format */
  /* 04-27-00  09:09PM       <DIR>          licensed */
  /* 07-18-00  10:16AM       <DIR>          pub */
  /* 04-14-00  03:47PM                  589 readme.htm */



long getlong(char *buf,int len)
{
  long u = 0;
  while (len-- > 0)
    u = u * 10 + (*buf++ - '0');
  return u;
}


/*	Find next Field
**	---------------
**	Finds the next RFC822 token in a string
**	On entry,
**	*pstr	points to a string containing a word separated
**		by white white space "," ";" or "=". The word
**		can optionally be quoted using <"> or "<" ">"
**		Comments surrrounded by '(' ')' are filtered out
**
** 	On exit,
**	*pstr	has been moved to the first delimiter past the
**		field
**		THE STRING HAS BEEN MUTILATED by a 0 terminator
**
**	Returns	a pointer to the first word or NULL on error
*/
char * get_nextfield (char ** pstr)
{
    char * p = *pstr;

    char * start = NULL;
    if (!pstr || !*pstr) return NULL;
    while (1) {
	/* Strip white space and other delimiters */
	while (*p && (isspace((int) *p) || *p==',' || *p==';' || *p=='=')) p++;
	if (!*p) {
	    *pstr = p;
	    return NULL;				   	 /* No field */
	}

	if (*p == '"') {				     /* quoted field */
	    start = ++p;
	    for(;*p && *p!='"'; p++)
		if (*p == '\\' && *(p+1)) p++;	       /* Skip escaped chars */
	    break;			    /* kr95-10-9: needs to stop here */
	} else if (*p == '<') {				     /* quoted field */
	    start = ++p;
	    for(;*p && *p!='>'; p++)
		if (*p == '\\' && *(p+1)) p++;	       /* Skip escaped chars */
	    break;			    /* kr95-10-9: needs to stop here */
	} else if (*p == '(') {					  /* Comment */
	    for(;*p && *p!=')'; p++)
		if (*p == '\\' && *(p+1)) p++;	       /* Skip escaped chars */
	    p++;
	} else {					      /* Spool field */
	    start = p;
	    while(*p && !isspace((int) *p) && *p!=',' && *p!=';' && *p!='=')
		p++;
	    break;						   /* Got it */
	}
    }
    if (*p) *p++ = '\0';
    *pstr = p;
    return start;
}



uerr_t ftp_parse(ftpparse *fp,char *buf,int len)
{

  char *cp;
  char *token;
  char *ptr;
  char *date;
  int i;
  fp->filename = 0;
  fp->namelen = 0;
  //  fp->flagtrycwd = 0;
  // fp->flagtryretr = 0;
  //fp->sizetype = FTPPARSE_SIZE_UNKNOWN;
  fp->filesize = 0;
  //  fp->mtimetype = FTPPARSE_MTIME_UNKNOWN;
  fp->mtime = 0;
  // fp->idtype = FTPPARSE_ID_UNKNOWN;
  fp->id = 0;
  // fp->idlen = 0;

  proz_debug("FTP LIST to be parsed is %s", cp=strdup(buf));
  free(cp);

  if (len < 2) /* an empty name in EPLF, with no info, could be 2 chars */
    return  FTPPARSENOTEXIST;

  switch(*buf) {
    case 'b':
    case 'c':
    case 'd':
    case 'l':
    case 'p':
    case 's':
    case '-':
   /* UNIX-style listing, without inum and without blocks */
    /* "-rw-r--r--   1 root     other        531 Jan 29 03:26 README" */
    /* "dr-xr-xr-x   2 root     other        512 Apr  8  1994 etc" */
    /* "dr-xr-xr-x   2 root     512 Apr  8  1994 etc" */
    /* "lrwxrwxrwx   1 root     other          7 Jan 25 00:17 bin -> usr/bin" */
    /* Also produced by Microsoft's FTP servers for Windows: */
    /* "----------   1 owner    group         1803128 Jul 10 10:18 ls-lR.Z" */
    /* "d---------   1 owner    group               0 May  9 19:45 Softlib" */
    /* Also WFTPD for MSDOS: */
    /* "-rwxrwxrwx   1 noone    nogroup      322 Aug 19  1996 message.ftp" */
    /* Also NetWare: */
    /* "d [R----F--] supervisor            512       Jan 16 18:53    login" */
    /* "- [R----F--] rhesus             214059       Oct 20 15:27    cx.exe" */
    /* Also NetPresenz for the Mac: */
    /* "-------r--         326  1391972  1392298 Nov 22  1995 MegaPhone.sit" */
    /* "drwxrwxr-x               folder        2 May 10  1996 network"
       */

      if (*buf == 'd') fp->filetype = DIRECTORY;
      if (*buf == '-') fp->filetype = DIRECTORY;
      if (*buf == 'l') fp->filetype = SYMBOLIC_LINK;
      ptr=cp=strdup(buf);
   
   for (i=0;i<4;i++)
    {
      //add checking
      token= get_nextfield(&cp);
      if(token == NULL) //failed to parse
	return FTPPARSEFAIL;
    }
    /*
    ** This field can either be group or size. We find out by looking at the
    ** next field. If this is a non-digit then this field is the size.
    */
    while (*cp && isspace((int) *cp)) cp++;
        if (isdigit((int) *cp)) {
	token = get_nextfield(&cp);
	while (*cp && isspace((int) *cp)) cp++;
    }
	//if it is a filename
	fp->filesize=strtol(token,NULL,10);
	proz_debug("FTP file size is %ld", fp->filesize);


	while (*cp && isspace((int) *cp)) cp++;
	assert(cp+12<ptr+len);
	date = cp;
	cp += 12;
	*cp++ = '\0';
	fp->date_str = strdup(date);

	proz_debug("LIST date is %s", fp->date_str);

	return FTPPARSEOK;
  default:
    return FTPPARSEFAIL;

  }

}




time_t parse_time(const char * str)
{

    char * p;
    struct tm tm;
    time_t t;

    if (!str) return 0;

   if ((p = strchr(str, ','))) 
     {

}

    return 0;

}