static bool get_exclude_func(rfile *f)
{
if(risdotdir(f))
return true;
if(get_skip_empty == true && !risdir(f) && f->size == 0)
return true;
return false;
}
char rfile_classchar(const rfile *f)
{
if(risdir(f)) return '/';
if(rislink(f)) return '@';
if(rissock(f)) return '=';
if(rispipe(f)) return '|';
if(risexec(f)) return '*';
return 0;
}
/* returns number of directories in GL */
unsigned long long rglob_numdirs(list *gl)
{
listitem *li;
unsigned long long n = 0;
li = gl->first;
while(li) {
n += risdir((rfile *)li->data);
li = li->next;
}
return n;
}
int ftp_maybe_isdir(rfile *fp)
{
if(risdir(fp))
return 1;
if(rislink(fp)) {
/* found a link; if the link is in the cache,
* check if it's a directory, else we don't
* read the directory just to check if it's a
* directory
*/
char *adir = base_dir_xptr(fp->path);
char *ap = path_absolute(fp->link, adir, ftp->homedir);
rfile *lnfp = ftp_cache_get_file(ap);
free(adir);
free(ap);
if(lnfp)
return risdir(lnfp) ? 1 : 0;
else
/* return maybe ;-) */
return 2;
}
return 0;
}
int ssh_chdir(const char *path)
{
char* tmp = ftp_path_absolute(path);
char *p = sftp_canonicalize_path(ftp->sftp_session, tmp);
free(tmp);
if (!p)
{
ftp_err("%s: %s\n", path, ssh_get_error(ftp->session));
return -1;
}
bool isdir = false;
/* First check if this file is cached and is a directory, else we
* need to stat the file to see if it really is a directory
*/
stripslash(p);
isdir = (ftp_cache_get_directory(p) != 0);
if(!isdir) {
rfile *rf = ftp_cache_get_file(p);
isdir = (rf && risdir(rf));
}
if (!isdir)
{
sftp_attributes attrib = sftp_stat(ftp->sftp_session, p);
if (!attrib)
{
ftp_err(_("Couldn't stat directory: %s\n"), ssh_get_error(ftp->session));
free(p);
return -1;
}
if (!S_ISDIR(attrib->permissions)) {
ftp_err(_("%s: not a directory\n"), p);
sftp_attributes_free(attrib);
free(p);
return -1;
}
sftp_attributes_free(attrib);
}
ftp_update_curdir_x(p);
free(p);
return 0;
}
static void get_preserve_attribs(const rfile *fi, char *dest)
{
time_t t;
mode_t m = rfile_getmode(fi);
if(m != (mode_t)-1) {
if(access(dest, F_OK) == 0 && chmod(dest, m) != 0)
perror(dest);
}
if(!risdir(fi)) {
t = ftp_filetime(fi->path, true);
if(t != (time_t)-1) {
struct utimbuf u;
u.actime = t;
u.modtime = t;
if(utime(dest, &u) != 0)
perror(dest);
}
}
}
void rfile_parse_colors(rfile *f)
{
char *e, *q;
int i;
/* colors should already been initialized by init_colors */
e = 0;
if(risdir(f))
e = diclr;
else if(rislink(f))
e = lnclr;
else if(rischardev(f))
e = cdclr;
else if(risblockdev(f))
e = bdclr;
else if(rispipe(f))
e = piclr;
else if(rissock(f))
e = soclr;
/* do this before checking for executable, because
* on [v]fat filesystems, all files are 'executable'
*/
for(i=0;i<number_of_colors && !e;i++) {
if(fnmatch(clrs[i].msk, base_name_ptr(f->path), 0) == 0)
e = clrs[i].clr;
}
/* a file is considered executable if there is
* an 'x' anywhere in its permission string */
if(!e && risexec(f))
e = exclr;
q = e ? e : ficlr;
f->color = (char *)xmalloc(strlen(lc) + strlen(q) + strlen(rc) + 1);
sprintf(f->color, "%s%s%s", lc, q, rc);
}
int ssh_chdir(const char *path)
{
Attrib *aa;
char *p = ftp_path_absolute(path);
bool isdir = false;
/* First check if this file is cached and is a directory, else we
* need to stat the file to see if it really is a directory
*/
stripslash(p);
isdir = (ftp_cache_get_directory(p) != 0);
if(!isdir) {
rfile *rf = ftp_cache_get_file(p);
isdir = (rf && risdir(rf));
}
if(!isdir) {
if ((aa = ssh_stat(p)) == 0) {
free(p);
return -1;
}
if (!(aa->flags & SSH2_FILEXFER_ATTR_PERMISSIONS)) {
ftp_err("Can't change directory: Can't check target");
free(p);
return -1;
}
if (!S_ISDIR(aa->perm)) {
ftp_err("%s: not a directory\n", p);
free(p);
return -1;
}
}
ftp_update_curdir_x(p);
return 0;
}
static void getfiles(list *gl, unsigned int opt, const char *output)
{
listitem *li;
rfile *fp, *lnfp;
const char *opath, *ofile;
char *link = 0;
list_sort(gl, get_sort_func, false);
li = gl->first;
while(li && !get_quit) {
fp = (rfile *)li->data;
if(!ftp_connected())
return;
if(gvSighupReceived) {
if(!test(opt, GET_RESUME))
opt |= GET_UNIQUE;
opt |= GET_FORCE;
}
opath = fp->path;
ofile = base_name_ptr(opath);
if(strcmp(ofile, ".")==0 || strcmp(ofile, "..")==0) {
transfer_nextfile(gl, &li, true);
continue;
}
if(test(opt, GET_INTERACTIVE) && !get_batch && !gvSighupReceived) {
char* sp = shortpath(opath, 42, ftp->homedir);
int a = ask(ASKYES|ASKNO|ASKCANCEL|ASKALL, ASKYES,
_("Get '%s'?"), sp);
free(sp);
if(a == ASKNO) {
transfer_nextfile(gl, &li, true);
continue;
}
if(a == ASKCANCEL) {
get_quit = true;
break;
}
if(a == ASKALL)
get_batch = true;
/* else a==ASKYES */
}
if(rislink(fp)) {
link_to_link__duh:
if(test(opt, GET_NO_DEREFERENCE)) {
/* link the file, don't copy */
const int r = getfile(fp, opt, output, ofile);
transfer_nextfile(gl, &li, r == 0);
continue;
}
{
char *xcurdir = base_dir_xptr(opath);
link = path_absolute(fp->link, xcurdir, ftp->homedir);
stripslash(link);
free(xcurdir);
ftp_trace("found link: '%s' -> '%s'\n", opath, link);
}
lnfp = ftp_get_file(link);
if(lnfp == 0) {
/* couldn't dereference the link, try to RETR it */
ftp_trace("unable to dereference link\n");
const int r = getfile(fp, opt, output, ofile);
transfer_nextfile(gl, &li, r == 0);
continue;
}
if(strncmp(opath, lnfp->path, strlen(lnfp->path)) == 0) {
ftp_trace("opath == '%s', lnfp->path == '%s'\n", opath,
lnfp->path);
char* sp = shortpath(lnfp->path, 42, ftp->homedir);
fprintf(stderr, _("%s: circular link -- skipping\n"), sp);
free(sp);
transfer_nextfile(gl, &li, true);
continue;
}
fp = lnfp;
if(rislink(fp))
/* found a link pointing to another link
*/
/* forgive me father, for I have goto'ed */
goto link_to_link__duh;
}
if(risdir(fp)) {
if(test(opt, GET_RECURSIVE)) {
char *recurs_output;
char *recurs_mask;
list *rgl;
if((get_dir_glob_mask && fnmatch(get_dir_glob_mask,
base_name_ptr(fp->path),
FNM_EXTMATCH) == FNM_NOMATCH)
#ifdef HAVE_REGEX
|| (get_dir_rx_mask_set && regexec(&get_dir_rx_mask,
base_name_ptr(fp->path),
0, 0, 0) == REG_NOMATCH)
#endif
)
{
} else {
char *q_recurs_mask;
bool success = true;
if(!test(opt, GET_PARENTS))
success = asprintf(&recurs_output, "%s/%s",
output ? output : ".", ofile) != -1;
else
success = asprintf(&recurs_output, "%s",
output ? output : ".") != -1;
if (!success)
{
fprintf(stderr, _("Failed to allocate memory.\n"));
transfer_nextfile(gl, &li, true);
continue;
}
if (asprintf(&recurs_mask, "%s/*", opath) == -1)
{
free(recurs_output);
fprintf(stderr, _("Failed to allocate memory.\n"));
transfer_nextfile(gl, &li, true);
continue;
}
rgl = rglob_create();
q_recurs_mask = backslash_quote(recurs_mask);
rglob_glob(rgl, q_recurs_mask, true, true, get_exclude_func);
free(q_recurs_mask);
if(list_numitem(rgl) > 0)
getfiles(rgl, opt, recurs_output);
if(test(opt, GET_PRESERVE))
get_preserve_attribs(fp, recurs_output);
rglob_destroy(rgl);
free(recurs_output);
}
} else if(test(opt, GET_VERBOSE)) {
char* sp = shortpath(opath, 42, ftp->homedir);
fprintf(stderr, _("%s: omitting directory\n"), sp);
free(sp);
}
transfer_nextfile(gl, &li, true);
continue;
}
if(!risreg(fp)) {
if(test(opt, GET_VERBOSE)) {
char* sp = shortpath(opath, 42, ftp->homedir);
fprintf(stderr, _("%s: not a regular file\n"), sp);
free(sp);
}
transfer_nextfile(gl, &li, true);
continue;
}
const int r = getfile(fp, opt, output, ofile);
transfer_nextfile(gl, &li, r == 0);
if(gvInterrupted) {
gvInterrupted = false;
if(li && !get_quit && ftp_connected() && !gvSighupReceived)
{
int a = ask(ASKYES|ASKNO, ASKYES,
_("Continue transfer?"));
if(a == ASKNO) {
get_quit = true;
break;
}
/* else a == ASKYES */
fprintf(stderr, _("Excellent!!!\n"));
}
}
}
}
static void putfile(const char *path, struct stat *sb,
unsigned opt, const char *output)
{
putmode_t how = putNormal;
bool file_exists = false;
char *dest, *dpath;
int r;
bool dir_created;
char *dest_dir, *q_dest_dir;
if((put_glob_mask && fnmatch(put_glob_mask, base_name_ptr(path),
FNM_EXTMATCH) == FNM_NOMATCH)
#ifdef HAVE_REGEX
|| (put_rx_mask_set && regexec(&put_rx_mask, base_name_ptr(path),
0, 0, 0) == REG_NOMATCH)
#endif
)
return;
if(!output)
output = ".";
if(test(opt, PUT_PARENTS)) {
char *p = base_dir_xptr(path);
asprintf(&dest, "%s/%s/%s", output, p, base_name_ptr(path));
free(p);
} else if(test(opt, PUT_OUTPUT_FILE))
dest = xstrdup(output);
else
asprintf(&dest, "%s/%s", output, base_name_ptr(path));
path_collapse(dest);
/* make sure destination directory exists */
dpath = base_dir_xptr(dest);
dest_dir = ftp_path_absolute(dpath);
q_dest_dir = bash_backslash_quote(dest_dir);
r = ftp_mkpath(q_dest_dir);
free(q_dest_dir);
free(dest_dir);
if(r == -1) {
transfer_mail_msg(_("failed to create directory %s\n"), dest_dir);
free(dpath);
free(dest);
return;
}
dir_created = (r == 1);
if(!dir_created && !test(opt, PUT_UNIQUE) && !test(opt, PUT_FORCE)) {
rfile *f;
f = ftp_get_file(dest);
file_exists = (f != 0);
if(f && risdir(f)) {
/* can't overwrite a directory */
printf(_("%s: is a directory\n"), dest);
free(dest);
return;
}
}
if(test(opt, PUT_APPEND)) {
how = putAppend;
} else if(file_exists) {
if(test(opt, PUT_SKIP_EXISTING)) {
printf(_("Remote file '%s' exists, skipping...\n"),
shortpath(dest, 42, ftp->homedir));
free(dest);
return;
}
else if(test(opt, PUT_NEWER)) {
time_t ft = ftp_filetime(dest);
if(ft != (time_t)-1 && ft >= sb->st_mtime) {
printf(_("Remote file '%s' is newer than local, skipping...\n"),
shortpath(dest, 42, ftp->homedir));
free(dest);
return;
}
}
else if(!test(opt, PUT_RESUME)) {
if(!put_owbatch) {
struct tm *fan = gmtime(&sb->st_mtime);
time_t ft;
int a;
rfile *f;
char *e;
f = ftp_get_file(dest);
ft = ftp_filetime(f->path);
sb->st_mtime = gmt_mktime(fan);
e = xstrdup(ctime(&sb->st_mtime));
a = ask(ASKYES|ASKNO|ASKUNIQUE|ASKCANCEL|ASKALL|ASKRESUME,
ASKRESUME,
_("Remote file '%s' exists\nLocal: %lld bytes, %sRemote: %lld bytes, %sOverwrite?"),
shortpath(dest, 42, ftp->homedir),
(unsigned long long) sb->st_size, e ? e : "unknown size",
ftp_filesize(f->path), ctime(&ft));
free(e);
if(a == ASKCANCEL) {
put_quit = true;
free(dest);
return;
}
else if(a == ASKNO) {
free(dest);
return;
}
else if(a == ASKUNIQUE)
opt |= PUT_UNIQUE; /* for this file only */
else if(a == ASKALL)
put_owbatch = true;
else if(a == ASKRESUME)
opt |= PUT_RESUME; /* for this file only */
/* else a == ASKYES */
}
}
}
if(test(opt, PUT_RESUME))
how = putResume;
if(test(opt, PUT_UNIQUE))
how = putUnique;
r = do_the_put(path, dest, how, opt);
free(dest);
if(r != 0)
return;
if(test(opt, PUT_PRESERVE)) {
if(ftp->has_site_chmod_command)
ftp_chmod(ftp->ti.local_name, get_mode_string(sb->st_mode));
}
if(test(opt, PUT_DELETE_AFTER)) {
bool dodel = false;
if(!test(opt, PUT_FORCE) && !put_delbatch) {
int a = ask(ASKYES|ASKNO|ASKCANCEL|ASKALL, ASKYES,
_("Delete local file '%s'?"),
shortpath(path, 42, gvLocalHomeDir));
if(a == ASKALL) {
put_delbatch = true;
dodel = true;
}
else if(a == ASKCANCEL)
put_quit = true;
else if(a != ASKNO)
dodel = true;
} else
dodel = true;
if(dodel) {
if(unlink(path) == 0)
printf(_("%s: deleted\n"),
shortpath(path, 42, gvLocalHomeDir));
else
printf(_("error deleting '%s': %s\n"),
shortpath(path, 42, gvLocalHomeDir),
strerror(errno));
}
}
}
static int fxpfile(const rfile *fi, unsigned int opt,
const char *output, const char *destname)
{
fxpmode_t how = fxpNormal;
bool file_exists = false;
char *dest, *dpath;
bool dir_created;
char *dest_dir, *q_dest_dir;
Ftp *thisftp = ftp;
if((fxp_glob_mask
&& fnmatch(fxp_glob_mask, base_name_ptr(fi->path), 0) == FNM_NOMATCH)
#ifdef HAVE_REGEX
|| (fxp_rx_mask_set
&& regexec(&fxp_rx_mask,
base_name_ptr(fi->path), 0, 0, 0) == REG_NOMATCH)
#endif
)
return 0;
if(!output)
output = ".";
if(test(opt, FXP_PARENTS)) {
char *p = base_dir_xptr(fi->path);
if (asprintf(&dest, "%s/%s/%s", output, p, base_name_ptr(fi->path)) == -1)
{
fprintf(stderr, _("Failed to allocate memory.\n"));
free(p);
return -1;
}
free(p);
} else if(test(opt, FXP_OUTPUT_FILE))
dest = xstrdup(output);
else
if (asprintf(&dest, "%s/%s", output, base_name_ptr(fi->path)) == -1)
{
fprintf(stderr, _("Failed to allocate memory.\n"));
return -1;
}
path_collapse(dest);
ftp_use(fxp_target);
/* make sure destination directory exists */
dpath = base_dir_xptr(dest);
dest_dir = ftp_path_absolute(dpath);
q_dest_dir = backslash_quote(dest_dir);
int r = ftp_mkpath(q_dest_dir);
free(q_dest_dir);
free(dest_dir);
if(r == -1) {
transfer_mail_msg(_("Couldn't create directory: %s\n"), dest_dir);
free(dpath);
free(dest);
ftp_use(thisftp);
return -1;
}
dir_created = (r == 1);
if(!dir_created && !test(opt, FXP_UNIQUE) && !test(opt, FXP_FORCE)) {
rfile *f;
f = ftp_get_file(dest);
file_exists = (f != 0);
if(f && risdir(f)) {
/* can't overwrite a directory */
printf(_("%s: is a directory\n"), dest);
free(dest);
return 0;
}
}
if(test(opt, FXP_APPEND)) {
how = fxpAppend;
} else if(file_exists) {
if(test(opt, FXP_SKIP_EXISTING)) {
char* sp = shortpath(dest, 42, ftp->homedir);
printf(_("Remote file '%s' exists, skipping...\n"), sp);
free(sp);
free(dest);
ftp_use(thisftp);
return 0;
}
else if(test(opt, FXP_NEWER)) {
time_t src_ft;
time_t dst_ft;
ftp_use(thisftp);
src_ft = ftp_filetime(fi->path, test(opt, FXP_FORCE_NEWER));
ftp_use(fxp_target);
dst_ft = ftp_filetime(dest, test(opt, FXP_FORCE_NEWER));
if(src_ft != (time_t)-1 && dst_ft != (time_t)-1 && dst_ft >= src_ft) {
char* sp = shortpath(dest, 42, ftp->homedir);
printf(_("Remote file '%s' is newer than local, skipping...\n"), sp);
free(sp);
free(dest);
ftp_use(thisftp);
return 0;
}
}
else if(!test(opt, FXP_RESUME)) {
if(!fxp_owbatch) {
char* sp = shortpath(dest, 42, ftp->homedir);
int a = ask(ASKYES|ASKNO|ASKUNIQUE|ASKCANCEL|ASKALL|ASKRESUME,
ASKRESUME,
_("File '%s' exists, overwrite?"),
sp);
free(sp);
if(a == ASKCANCEL) {
fxp_quit = true;
free(dest);
ftp_use(thisftp);
return 0;
}
else if(a == ASKNO) {
free(dest);
ftp_use(thisftp);
return 0;
}
else if(a == ASKUNIQUE)
opt |= FXP_UNIQUE; /* for this file only */
else if(a == ASKALL)
fxp_owbatch = true;
else if(a == ASKRESUME)
opt |= FXP_RESUME; /* for this file only */
/* else a == ASKYES */
}
}
}
if(test(opt, FXP_RESUME))
how = fxpResume;
if(test(opt, FXP_UNIQUE))
how = fxpUnique;
r = do_the_fxp(thisftp, fi->path, fxp_target, dest, how, opt);
free(dest);
if(r != 0) {
ftp_use(thisftp);
return -1;
}
if(test(opt, FXP_PRESERVE))
fxp_preserve_attribs(fi, dest);
if(test(opt, FXP_DELETE_AFTER)) {
bool dodel = false;
ftp_use(thisftp);
if(!test(opt, FXP_FORCE)
&& !fxp_delbatch && !gvSighupReceived)
{
char* sp = shortpath(fi->path, 42, ftp->homedir);
int a = ask(ASKYES|ASKNO|ASKCANCEL|ASKALL, ASKYES,
_("Delete remote file '%s'?"),
sp);
free(sp);
if(a == ASKALL) {
fxp_delbatch = true;
dodel = true;
}
else if(a == ASKCANCEL)
fxp_quit = true;
else if(a != ASKNO)
dodel = true;
} else
dodel = true;
if(dodel) {
ftp_unlink(fi->path);
char* sp = shortpath(fi->path, 42, ftp->homedir);
if(ftp->code == ctComplete)
fprintf(stderr, _("%s: deleted\n"), sp);
else
fprintf(stderr, _("error deleting '%s': %s\n"), sp,
ftp_getreply(false));
free(sp);
}
}
ftp_use(thisftp);
return 0;
}
bool risreg(const rfile *f)
{
return !(risdir(f) || rispipe(f) || rischardev(f) || risblockdev(f));
}
bool risdotdir(const rfile *f)
{
return (risdir(f)
&& ((strcmp(base_name_ptr(f->path), ".") == 0
|| strcmp(base_name_ptr(f->path), "..") == 0)));
}