freebsd-dev/lib/libftp/FtpFull.c
1995-04-25 15:08:02 +00:00

143 lines
2.8 KiB
C

/*
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 <unistd.h>
#include <pwd.h>
static FTP *ftp_table[256];
FILE * FtpFullOpen(char * file , char * mode )
{
FTP *ftp;
FILE *tmp;
String 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 ( FtpError(i=FtpLogin(&ftp,Host,User,Passwd,NULL)))
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 ( String source ,
String host ,
String user ,
String passwd ,
String file)
{
char *in,*out;
String 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;
}