static char  rcsid[] = "$Id: FtpFull.c,v 5.0 1995/12/10 10:28:38 orel Exp $";/*	$Log: FtpFull.c,v $ * Revision 5.0  1995/12/10  10:28:38  orel * LIBFTP Version 5.0 (Distributed revision) * * Revision 4.1  1995/09/09  09:49:42  orel *  Change type String to FtpString for clean conflicting with * X11's type string which is pointer to character only. * Thanks for MIT for this good name of type. * * Revision 4.1  1995/09/09  09:49:42  orel *  Change type String to FtpString for clean conflicting with * X11's type string which is pointer to character only. * Thanks for MIT for this good name of type. * * Revision 4.0  1995/07/11  07:00:26  orel * Libftp Version 4.0 * * Revision 3.0  1995/03/20  05:26:07  orel * *** empty log message *** * * Revision 3.0  1995/03/20  05:26:07  orel * *** empty log message *** * * Revision 2.6  1995/03/20  05:18:13  orel * *** empty log message *** * * Revision 2.5  1995/02/26  16:46:50  orel * *** empty log message *** * * Revision 2.5  1995/02/26  16:46:50  orel * *** empty log message *** * * Revision 2.4  1995/02/18  15:42:53  orel * modify for recurive mget * * Revision 2.4  1995/02/18  15:42:53  orel * modify for recurive mget * * Revision 2.2  1995/02/04  09:02:53  orel * add rcsid **//*		      Library for ftpd clients.(libftp)			Copyright by Oleg Orel			 All rights reserved.			This  library is desined  for  free,  non-commercial  software  creation. It is changeable and can be improved. The author would greatly appreciate any  advises, new  components  and  patches  of  the  existing  programs.Commercial  usage is  also  possible  with  participation of it's author.*/#include "FtpLibrary.h"#include <pwd.h>static FTP *ftp_table[256];static STATUS syntax();FILE * FtpFullOpen(char * file , char * mode ){  FTP *ftp;  FILE *tmp;  FtpString Host,User,Passwd,RemoteFile;  STATUS i;  if ( ! FtpFullSyntax (file,Host,User,Passwd,RemoteFile))    {      tmp=fopen(file,mode);      if (tmp==NULL) return tmp;      ftp_table[(int)fileno(tmp)] = NULL;      return tmp;    }  if ( FtpLogin(&ftp,Host,User,Passwd,NULL) < 0 )    return NULL;  if (mode[1]=='b') FtpBinary(ftp);  switch(mode[0])    {    case 'r': 	if (FtpError(FtpOpenRead(ftp,RemoteFile))) 	  return NULL;	ftp_table[fileno(FTPDATA(ftp))] = ftp;	return FTPDATA(ftp);    case 'w':	if (FtpError(FtpOpenWrite(ftp,RemoteFile)))	  return NULL;	ftp_table[fileno(FTPDATA(ftp))] = ftp;	return FTPDATA(ftp);    case 'a':	if (FtpError(FtpOpenAppend(ftp,RemoteFile)))	  return NULL;	ftp_table[fileno(FTPDATA(ftp))] = ftp;	return FTPDATA(ftp);    }  /* Error Mode */  return NULL;}STATUS   FtpFullClose(FILE *f){  FTP *ftp=ftp_table[(int)fileno(f)];  if (ftp == NULL)    return fclose(f);  FtpClose(ftp);  return FtpQuickBye(ftp);}/* Format of ftp's file [user[/passord]@]hostname:filename_with_path */STATUS FtpFullSyntax ( FtpString source ,		       FtpString host ,		       FtpString user ,		       FtpString passwd ,		       FtpString file){  char *in,*out;  FtpString tmp;    host[0] = user[0] = passwd[0] = file[0] = '\0';   for ( in=source, out = user;       *in !='\0' && *in != '/' && *in!='@' && *in!=':' ;       *out++ = *in++);  *out = '\0';    if ( *in == '\0' ) return 0;    if ( *in == ':' )    {      strcpy(host,user);      strcpy(user,"anonymous");      gethostname(tmp, sizeof tmp);      sprintf(passwd,"%s@%s",	      getpwuid(getuid())->pw_name,gethostbyname(tmp)->h_name);      goto file;    }   if ( *in == '/' )    {      for ( in++, out = passwd;	   *in !='\0' && *in!='@' ;	   *out++ = *in++);      *out = '\0';      if ( *in == '\0' ) return 0;    }  else    {      gethostname(tmp, sizeof tmp);      sprintf(passwd,"%s@%s",	      getpwuid(getuid())->pw_name,gethostbyname(tmp)->h_name);    }      for ( in++, out = host;       *in !='\0' && *in!=':' ;       *out++ = *in++);  *out = '\0';    if ( *in == '\0' ) return 0;file:    for ( in++, out = file;       *in !='\0';       *out++ = *in++);  *out = '\0';    return 1;}