2 Unix SMB/CIFS implementation.
3 client directory list routines
4 Copyright (C) Andrew Tridgell 1994-1998
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23 extern file_info def_finfo
;
25 /****************************************************************************
26 Interpret a long filename structure - this is mostly guesses at the moment.
27 The length of the structure is returned
28 The structure of a long filename depends on the info level. 260 is used
29 by NT and 2 is used by OS/2
30 ****************************************************************************/
32 static size_t interpret_long_filename(struct cli_state
*cli
, int level
,char *p
,file_info
*finfo
,
33 uint32
*p_resume_key
, DATA_BLOB
*p_last_name_raw
, uint32
*p_last_name_raw_len
)
46 memcpy(finfo
,&def_finfo
,sizeof(*finfo
));
49 case 1: /* OS/2 understands this */
50 /* these dates are converted to GMT by
52 finfo
->ctime
= cli_make_unix_date2(cli
, p
+4);
53 finfo
->atime
= cli_make_unix_date2(cli
, p
+8);
54 finfo
->mtime
= cli_make_unix_date2(cli
, p
+12);
55 finfo
->size
= IVAL(p
,16);
56 finfo
->mode
= CVAL(p
,24);
59 p
+= clistr_align_in(cli
, p
, 0);
60 /* the len+2 below looks strange but it is
61 important to cope with the differences
62 between win2000 and win9x for this call
64 p
+= clistr_pull(cli
, finfo
->name
, p
,
68 return PTR_DIFF(p
, base
);
70 case 2: /* this is what OS/2 uses mostly */
71 /* these dates are converted to GMT by
73 finfo
->ctime
= cli_make_unix_date2(cli
, p
+4);
74 finfo
->atime
= cli_make_unix_date2(cli
, p
+8);
75 finfo
->mtime
= cli_make_unix_date2(cli
, p
+12);
76 finfo
->size
= IVAL(p
,16);
77 finfo
->mode
= CVAL(p
,24);
80 /* check for unisys! */
81 p
+= clistr_pull(cli
, finfo
->name
, p
,
85 return PTR_DIFF(p
, base
) + 1;
87 case 260: /* NT uses this, but also accepts 2 */
90 p
+= 4; /* next entry offset */
93 *p_resume_key
= IVAL(p
,0);
95 p
+= 4; /* fileindex */
97 /* Offset zero is "create time", not "change time". */
99 finfo
->atime
= interpret_long_date(p
);
101 finfo
->mtime
= interpret_long_date(p
);
103 finfo
->ctime
= interpret_long_date(p
);
105 finfo
->size
= IVAL2_TO_SMB_BIG_UINT(p
,0);
107 p
+= 8; /* alloc size */
108 finfo
->mode
= CVAL(p
,0);
112 p
+= 4; /* EA size */
116 /* stupid NT bugs. grr */
118 if (p
[1] == 0 && namelen
> 1) flags
|= STR_UNICODE
;
119 clistr_pull(cli
, finfo
->short_name
, p
,
120 sizeof(finfo
->short_name
),
123 p
+= 24; /* short name? */
124 clistr_pull(cli
, finfo
->name
, p
,
128 /* To be robust in the face of unicode conversion failures
129 we need to copy the raw bytes of the last name seen here.
130 Namelen doesn't include the terminating unicode null, so
133 if (p_last_name_raw
&& p_last_name_raw_len
) {
134 if (namelen
+ 2 > p_last_name_raw
->length
) {
135 memset(p_last_name_raw
->data
, '\0', sizeof(p_last_name_raw
->length
));
136 *p_last_name_raw_len
= 0;
138 memcpy(p_last_name_raw
->data
, p
, namelen
);
139 SSVAL(p_last_name_raw
->data
, namelen
, 0);
140 *p_last_name_raw_len
= namelen
+ 2;
143 return (size_t)IVAL(base
, 0);
147 DEBUG(1,("Unknown long filename format %d\n",level
));
148 return (size_t)IVAL(base
,0);
151 /****************************************************************************
152 Do a directory listing, calling fn on each file found.
153 ****************************************************************************/
155 int cli_list_new(struct cli_state
*cli
,const char *Mask
,uint16 attribute
,
156 void (*fn
)(const char *, file_info
*, const char *, void *), void *state
)
159 int max_matches
= 1366; /* Match W2k - was 512. */
161 int max_matches
= 512;
168 char *dirlist
= NULL
;
170 int total_received
= -1;
172 int ff_searchcount
=0;
176 char *rparam
=NULL
, *rdata
=NULL
;
177 unsigned int param_len
, data_len
;
181 uint32 resume_key
= 0;
182 uint32 last_name_raw_len
= 0;
183 DATA_BLOB last_name_raw
= data_blob(NULL
, 2*sizeof(pstring
));
185 /* NT uses 260, OS/2 uses 2. Both accept 1. */
186 info_level
= (cli
->capabilities
&CAP_NT_SMBS
)?260:1;
188 /* when getting a directory listing from a 2k dfs root share,
189 we have to include the full path (\server\share\mask) here */
192 pstr_sprintf( mask
, "\\%s\\%s\\%s", cli
->desthost
, cli
->share
, Mask
);
196 while (ff_eos
== 0) {
198 if (loop_count
> 200) {
199 DEBUG(0,("Error: Looping in FIND_NEXT??\n"));
204 setup
= TRANSACT2_FINDFIRST
;
205 SSVAL(param
,0,attribute
); /* attribute */
206 SSVAL(param
,2,max_matches
); /* max count */
207 SSVAL(param
,4,(FLAG_TRANS2_FIND_REQUIRE_RESUME
|FLAG_TRANS2_FIND_CLOSE_IF_END
)); /* resume required + close on end */
208 SSVAL(param
,6,info_level
);
211 p
+= clistr_push(cli
, param
+12, mask
, sizeof(param
)-12,
214 setup
= TRANSACT2_FINDNEXT
;
215 SSVAL(param
,0,ff_dir_handle
);
216 SSVAL(param
,2,max_matches
); /* max count */
217 SSVAL(param
,4,info_level
);
218 /* For W2K servers serving out FAT filesystems we *must* set the
219 resume key. If it's not FAT then it's returned as zero. */
220 SIVAL(param
,6,resume_key
); /* ff_resume_key */
221 /* NB. *DON'T* use continue here. If you do it seems that W2K and bretheren
222 can miss filenames. Use last filename continue instead. JRA */
223 SSVAL(param
,10,(FLAG_TRANS2_FIND_REQUIRE_RESUME
|FLAG_TRANS2_FIND_CLOSE_IF_END
)); /* resume required + close on end */
225 if (last_name_raw_len
&& (last_name_raw_len
< (sizeof(param
)-12))) {
226 memcpy(p
, last_name_raw
.data
, last_name_raw_len
);
227 p
+= last_name_raw_len
;
229 p
+= clistr_push(cli
, param
+12, mask
, sizeof(param
)-12, STR_TERMINATE
);
233 param_len
= PTR_DIFF(p
, param
);
235 if (!cli_send_trans(cli
, SMBtrans2
,
237 -1, 0, /* fid, flags */
238 &setup
, 1, 0, /* setup, length, max */
239 param
, param_len
, 10, /* param, length, max */
243 MIN(16384,cli
->max_xmit
) /* data, length, max. */
245 cli
->max_xmit
/* data, length, max. */
251 if (!cli_receive_trans(cli
, SMBtrans2
,
253 &rdata
, &data_len
) &&
254 cli_is_dos_error(cli
)) {
255 /* we need to work around a Win95 bug - sometimes
256 it gives ERRSRV/ERRerror temprarily */
263 cli_dos_error(cli
, &eclass
, &ecode
);
264 if (eclass
!= ERRSRV
|| ecode
!= ERRerror
)
270 if (cli_is_error(cli
) || !rdata
|| !rparam
) {
276 if (total_received
== -1)
279 /* parse out some important return info */
282 ff_dir_handle
= SVAL(p
,0);
283 ff_searchcount
= SVAL(p
,2);
286 ff_searchcount
= SVAL(p
,0);
290 if (ff_searchcount
== 0) {
296 /* point to the data bytes */
299 /* we might need the lastname for continuations */
300 for (p2
=p
,i
=0;i
<ff_searchcount
;i
++) {
301 if ((info_level
== 260) && (i
== ff_searchcount
-1)) {
302 /* Last entry - fixup the last offset length. */
303 SIVAL(p2
,0,PTR_DIFF((rdata
+ data_len
),p2
));
305 p2
+= interpret_long_filename(cli
,info_level
,p2
,&finfo
,
306 &resume_key
,&last_name_raw
,&last_name_raw_len
);
308 if (!First
&& *mask
&& strcsequal(finfo
.name
, mask
)) {
309 DEBUG(0,("Error: Looping in FIND_NEXT as name %s has already been seen?\n",
316 if (ff_searchcount
> 0) {
317 pstrcpy(mask
, finfo
.name
);
322 /* grab the data for later use */
323 /* and add them to the dirlist pool */
324 dirlist
= (char *)SMB_REALLOC(dirlist
,dirlist_len
+ data_len
);
327 DEBUG(0,("cli_list_new: Failed to expand dirlist\n"));
333 memcpy(dirlist
+dirlist_len
,p
,data_len
);
334 dirlist_len
+= data_len
;
336 total_received
+= ff_searchcount
;
341 DEBUG(3,("received %d entries (eos=%d)\n",
342 ff_searchcount
,ff_eos
));
344 if (ff_searchcount
> 0)
350 mnt
= cli_cm_get_mntpoint( cli
);
352 for (p
=dirlist
,i
=0;i
<total_received
;i
++) {
353 p
+= interpret_long_filename(cli
,info_level
,p
,&finfo
,NULL
,NULL
,NULL
);
354 fn( mnt
,&finfo
, Mask
, state
);
357 /* free up the dirlist buffer and last name raw blob */
359 data_blob_free(&last_name_raw
);
360 return(total_received
);
363 /****************************************************************************
364 Interpret a short filename structure.
365 The length of the structure is returned.
366 ****************************************************************************/
368 static int interpret_short_filename(struct cli_state
*cli
, char *p
,file_info
*finfo
)
373 finfo
->mode
= CVAL(p
,21);
375 /* this date is converted to GMT by make_unix_date */
376 finfo
->ctime
= cli_make_unix_date(cli
, p
+22);
377 finfo
->mtime
= finfo
->atime
= finfo
->ctime
;
378 finfo
->size
= IVAL(p
,26);
379 clistr_pull(cli
, finfo
->name
, p
+30, sizeof(finfo
->name
), 12, STR_ASCII
);
380 if (strcmp(finfo
->name
, "..") && strcmp(finfo
->name
, ".")) {
381 strncpy(finfo
->short_name
,finfo
->name
, sizeof(finfo
->short_name
)-1);
382 finfo
->short_name
[sizeof(finfo
->short_name
)-1] = '\0';
385 return(DIR_STRUCT_SIZE
);
389 /****************************************************************************
390 Do a directory listing, calling fn on each file found.
391 this uses the old SMBsearch interface. It is needed for testing Samba,
392 but should otherwise not be used.
393 ****************************************************************************/
395 int cli_list_old(struct cli_state
*cli
,const char *Mask
,uint16 attribute
,
396 void (*fn
)(const char *, file_info
*, const char *, void *), void *state
)
402 int num_asked
= (cli
->max_xmit
- 100)/DIR_STRUCT_SIZE
;
403 int num_received
= 0;
405 char *dirlist
= NULL
;
413 memset(cli
->outbuf
,'\0',smb_size
);
414 memset(cli
->inbuf
,'\0',smb_size
);
416 set_message(cli
->outbuf
,2,0,True
);
418 SCVAL(cli
->outbuf
,smb_com
,SMBsearch
);
420 SSVAL(cli
->outbuf
,smb_tid
,cli
->cnum
);
421 cli_setup_packet(cli
);
423 SSVAL(cli
->outbuf
,smb_vwv0
,num_asked
);
424 SSVAL(cli
->outbuf
,smb_vwv1
,attribute
);
426 p
= smb_buf(cli
->outbuf
);
429 p
+= clistr_push(cli
, p
, first
?mask
:"", -1, STR_TERMINATE
);
441 cli_setup_bcc(cli
, p
);
443 if (!cli_receive_smb(cli
)) break;
445 received
= SVAL(cli
->inbuf
,smb_vwv0
);
446 if (received
<= 0) break;
450 dirlist
= (char *)SMB_REALLOC(
451 dirlist
,(num_received
+ received
)*DIR_STRUCT_SIZE
);
453 DEBUG(0,("cli_list_old: failed to expand dirlist"));
457 p
= smb_buf(cli
->inbuf
) + 3;
459 memcpy(dirlist
+num_received
*DIR_STRUCT_SIZE
,
460 p
,received
*DIR_STRUCT_SIZE
);
462 memcpy(status
,p
+ ((received
-1)*DIR_STRUCT_SIZE
),21);
464 num_received
+= received
;
466 if (cli_is_error(cli
)) break;
470 memset(cli
->outbuf
,'\0',smb_size
);
471 memset(cli
->inbuf
,'\0',smb_size
);
473 set_message(cli
->outbuf
,2,0,True
);
474 SCVAL(cli
->outbuf
,smb_com
,SMBfclose
);
475 SSVAL(cli
->outbuf
,smb_tid
,cli
->cnum
);
476 cli_setup_packet(cli
);
478 SSVAL(cli
->outbuf
, smb_vwv0
, 0); /* find count? */
479 SSVAL(cli
->outbuf
, smb_vwv1
, attribute
);
481 p
= smb_buf(cli
->outbuf
);
491 cli_setup_bcc(cli
, p
);
493 if (!cli_receive_smb(cli
)) {
494 DEBUG(0,("Error closing search: %s\n",cli_errstr(cli
)));
498 for (p
=dirlist
,i
=0;i
<num_received
;i
++) {
500 p
+= interpret_short_filename(cli
, p
,&finfo
);
501 fn("\\", &finfo
, Mask
, state
);
505 return(num_received
);
508 /****************************************************************************
509 Do a directory listing, calling fn on each file found.
510 This auto-switches between old and new style.
511 ****************************************************************************/
513 int cli_list(struct cli_state
*cli
,const char *Mask
,uint16 attribute
,
514 void (*fn
)(const char *, file_info
*, const char *, void *), void *state
)
516 if (cli
->protocol
<= PROTOCOL_LANMAN1
)
517 return cli_list_old(cli
, Mask
, attribute
, fn
, state
);
518 return cli_list_new(cli
, Mask
, attribute
, fn
, state
);