+
+static void send_directory(int f,struct file_list *flist,char *dir)
+{
+ DIR *d;
+ struct dirent *di;
+ char fname[MAXPATHLEN];
+ int l;
+ char *p;
+
+ d = opendir(dir);
+ if (!d) {
+ io_error = 1;
+ rprintf(FERROR,"opendir(%s): %s\n",
+ dir,strerror(errno));
+ return;
+ }
+
+ strlcpy(fname,dir,MAXPATHLEN-1);
+ l = strlen(fname);
+ if (fname[l-1] != '/') {
+ if (l == MAXPATHLEN-1) {
+ io_error = 1;
+ rprintf(FERROR,"skipping long-named directory %s\n",fname);
+ closedir(d);
+ return;
+ }
+ strlcat(fname,"/", MAXPATHLEN-1);
+ l++;
+ }
+ p = fname + strlen(fname);
+
+ if (cvs_exclude) {
+ if (strlen(fname) + strlen(".cvsignore") <= MAXPATHLEN-1) {
+ strcpy(p,".cvsignore");
+ local_exclude_list = make_exclude_list(fname,NULL,0,0);
+ } else {
+ io_error = 1;
+ rprintf(FINFO,"cannot cvs-exclude in long-named directory %s\n",fname);
+ }
+ }
+
+ for (di=readdir(d); di; di=readdir(d)) {
+ char *dname = d_name(di);
+ if (strcmp(dname,".")==0 ||
+ strcmp(dname,"..")==0)
+ continue;
+ strlcpy(p,dname,MAXPATHLEN-(l+1));
+ send_file_name(f,flist,fname,recurse,0);
+ }
+
+ closedir(d);
+}
+
+
+
+struct file_list *send_file_list(int f,int argc,char *argv[])
+{
+ int i,l;
+ STRUCT_STAT st;
+ char *p,*dir;
+ char dbuf[MAXPATHLEN];
+ char lastpath[MAXPATHLEN]="";
+ struct file_list *flist;
+
+ if (verbose && recurse && !am_server && f != -1) {
+ rprintf(FINFO,"building file list ... ");
+ rflush(FINFO);
+ }
+
+ flist = (struct file_list *)malloc(sizeof(flist[0]));
+ if (!flist) out_of_memory("send_file_list");
+
+ flist->count=0;
+ flist->malloced = 1000;
+ flist->files = (struct file_struct **)malloc(sizeof(flist->files[0])*
+ flist->malloced);
+ if (!flist->files) out_of_memory("send_file_list");
+
+ if (f != -1) {
+ io_start_buffering(f);
+ }
+
+ for (i=0;i<argc;i++) {
+ char fname2[MAXPATHLEN];
+ char *fname = fname2;
+
+ strlcpy(fname,argv[i],MAXPATHLEN-1);
+
+ l = strlen(fname);
+ if (l != 1 && fname[l-1] == '/') {
+ strlcat(fname,".",MAXPATHLEN-1);
+ }
+
+ if (link_stat(fname,&st) != 0) {
+ io_error=1;
+ rprintf(FERROR,"%s : %s\n",fname,strerror(errno));
+ continue;
+ }
+
+ if (S_ISDIR(st.st_mode) && !recurse) {
+ rprintf(FINFO,"skipping directory %s\n",fname);
+ continue;
+ }
+
+ dir = NULL;
+
+ if (!relative_paths) {
+ p = strrchr(fname,'/');
+ if (p) {
+ *p = 0;
+ if (p == fname)
+ dir = "/";
+ else
+ dir = fname;
+ fname = p+1;
+ }
+ } else if (f != -1 && (p=strrchr(fname,'/'))) {
+ /* this ensures we send the intermediate directories,
+ thus getting their permissions right */
+ *p = 0;
+ if (strcmp(lastpath,fname)) {
+ strlcpy(lastpath, fname, sizeof(lastpath)-1);
+ *p = '/';
+ for (p=fname+1; (p=strchr(p,'/')); p++) {
+ int copy_links_saved = copy_links;
+ *p = 0;
+ copy_links = 0;
+ send_file_name(f, flist, fname, 0, 0);
+ copy_links = copy_links_saved;
+ *p = '/';
+ }
+ } else {
+ *p = '/';
+ }
+ }
+
+ if (!*fname)
+ fname = ".";
+
+ if (dir && *dir) {
+ if (getcwd(dbuf,MAXPATHLEN-1) == NULL) {
+ rprintf(FERROR,"getwd : %s\n",strerror(errno));
+ exit_cleanup(1);
+ }
+ if (chdir(dir) != 0) {
+ io_error=1;
+ rprintf(FERROR,"chdir %s : %s\n",
+ dir,strerror(errno));
+ continue;
+ }
+ flist_dir = dir;
+ if (one_file_system)
+ set_filesystem(fname);
+ send_file_name(f,flist,fname,recurse,FLAG_DELETE);
+ flist_dir = NULL;
+ if (chdir(dbuf) != 0) {
+ rprintf(FERROR,"chdir %s : %s\n",
+ dbuf,strerror(errno));
+ exit_cleanup(1);
+ }
+ continue;
+ }
+
+ if (one_file_system)
+ set_filesystem(fname);
+ send_file_name(f,flist,fname,recurse,FLAG_DELETE);
+ }
+
+ if (f != -1) {
+ send_file_entry(NULL,f,0);
+ }
+
+ if (verbose && recurse && !am_server && f != -1)
+ rprintf(FINFO,"done\n");
+
+ clean_flist(flist);
+
+ /* now send the uid/gid list. This was introduced in protocol
+ version 15 */
+ if (f != -1 && remote_version >= 15) {
+ send_uid_list(f);
+ }
+
+ /* if protocol version is >= 17 then send the io_error flag */
+ if (f != -1 && remote_version >= 17) {
+ write_int(f, io_error);
+ }
+
+ if (f != -1) {
+ io_end_buffering(f);
+ }
+
+ if (verbose > 2)
+ rprintf(FINFO,"send_file_list done\n");
+
+ return flist;