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.
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
,
33 int level
,char *p
,file_info
*finfo
)
35 extern file_info def_finfo
;
40 if (!finfo
) finfo
= &finfo2
;
42 memcpy(finfo
,&def_finfo
,sizeof(*finfo
));
45 case 1: /* OS/2 understands this */
46 /* these dates are converted to GMT by
48 finfo
->ctime
= make_unix_date2(p
+4);
49 finfo
->atime
= make_unix_date2(p
+8);
50 finfo
->mtime
= make_unix_date2(p
+12);
51 finfo
->size
= IVAL(p
,16);
52 finfo
->mode
= CVAL(p
,24);
55 p
+= clistr_align_in(cli
, p
, 0);
56 /* the len+2 below looks strange but it is
57 important to cope with the differences
58 between win2000 and win9x for this call
60 p
+= clistr_pull(cli
, finfo
->name
, p
,
64 return PTR_DIFF(p
, base
);
66 case 2: /* this is what OS/2 uses mostly */
67 /* these dates are converted to GMT by
69 finfo
->ctime
= make_unix_date2(p
+4);
70 finfo
->atime
= make_unix_date2(p
+8);
71 finfo
->mtime
= make_unix_date2(p
+12);
72 finfo
->size
= IVAL(p
,16);
73 finfo
->mode
= CVAL(p
,24);
76 /* check for unisys! */
77 p
+= clistr_pull(cli
, finfo
->name
, p
,
81 return PTR_DIFF(p
, base
) + 1;
83 case 260: /* NT uses this, but also accepts 2 */
86 p
+= 4; /* next entry offset */
87 p
+= 4; /* fileindex */
89 /* these dates appear to arrive in a
90 weird way. It seems to be localtime
91 plus the serverzone given in the
92 initial connect. This is GMT when
93 DST is not in effect and one hour
94 from GMT otherwise. Can this really
97 I suppose this could be called
98 kludge-GMT. Is is the GMT you get
99 by using the current DST setting on
100 a different localtime. It will be
101 cheap to calculate, I suppose, as
102 no DST tables will be needed */
104 finfo
->ctime
= interpret_long_date(p
);
106 finfo
->atime
= interpret_long_date(p
);
108 finfo
->mtime
= interpret_long_date(p
);
111 finfo
->size
= IVAL2_TO_SMB_BIG_UINT(p
,0);
113 p
+= 8; /* alloc size */
114 finfo
->mode
= CVAL(p
,0);
118 p
+= 4; /* EA size */
122 /* stupid NT bugs. grr */
124 if (p
[1] == 0 && namelen
> 1) flags
|= STR_UNICODE
;
125 clistr_pull(cli
, finfo
->short_name
, p
,
126 sizeof(finfo
->short_name
),
129 p
+= 24; /* short name? */
130 clistr_pull(cli
, finfo
->name
, p
,
133 return (size_t)IVAL(base
, 0);
137 DEBUG(1,("Unknown long filename format %d\n",level
));
138 return (size_t)IVAL(base
,0);
141 /****************************************************************************
142 Do a directory listing, calling fn on each file found.
143 ****************************************************************************/
145 int cli_list_new(struct cli_state
*cli
,const char *Mask
,uint16 attribute
,
146 void (*fn
)(const char *, file_info
*, const char *, void *), void *state
)
149 int max_matches
= 1366; /* Match W2k - was 512. */
151 int max_matches
= 512;
158 char *tdl
, *dirlist
= NULL
;
160 int total_received
= -1;
162 int ff_searchcount
=0;
167 char *rparam
=NULL
, *rdata
=NULL
;
168 unsigned int param_len
, data_len
;
173 /* NT uses 260, OS/2 uses 2. Both accept 1. */
174 info_level
= (cli
->capabilities
&CAP_NT_SMBS
)?260:1;
176 /* when getting a directory listing from a 2k dfs root share,
177 we have to include the full path (\server\share\mask) here */
180 pstr_sprintf( mask
, "\\%s\\%s\\%s", cli
->desthost
, cli
->share
, Mask
);
184 while (ff_eos
== 0) {
186 if (loop_count
> 200) {
187 DEBUG(0,("Error: Looping in FIND_NEXT??\n"));
192 setup
= TRANSACT2_FINDFIRST
;
193 SSVAL(param
,0,attribute
); /* attribute */
194 SSVAL(param
,2,max_matches
); /* max count */
195 SSVAL(param
,4,(FLAG_TRANS2_FIND_REQUIRE_RESUME
|FLAG_TRANS2_FIND_CLOSE_IF_END
)); /* resume required + close on end */
196 SSVAL(param
,6,info_level
);
199 p
+= clistr_push(cli
, param
+12, mask
, sizeof(param
)-12,
202 setup
= TRANSACT2_FINDNEXT
;
203 SSVAL(param
,0,ff_dir_handle
);
204 SSVAL(param
,2,max_matches
); /* max count */
205 SSVAL(param
,4,info_level
);
206 SIVAL(param
,6,0); /* ff_resume_key */
207 /* NB. *DON'T* use continue here. If you do it seems that W2K and bretheren
208 can miss filenames. Use last filename continue instead. JRA */
209 SSVAL(param
,10,(FLAG_TRANS2_FIND_REQUIRE_RESUME
|FLAG_TRANS2_FIND_CLOSE_IF_END
)); /* resume required + close on end */
211 p
+= clistr_push(cli
, param
+12, mask
, sizeof(param
)-12,
215 param_len
= PTR_DIFF(p
, param
);
217 if (!cli_send_trans(cli
, SMBtrans2
,
219 -1, 0, /* fid, flags */
220 &setup
, 1, 0, /* setup, length, max */
221 param
, param_len
, 10, /* param, length, max */
225 MIN(16384,cli
->max_xmit
) /* data, length, max. */
227 cli
->max_xmit
/* data, length, max. */
233 if (!cli_receive_trans(cli
, SMBtrans2
,
235 &rdata
, &data_len
) &&
236 cli_is_dos_error(cli
)) {
237 /* we need to work around a Win95 bug - sometimes
238 it gives ERRSRV/ERRerror temprarily */
241 cli_dos_error(cli
, &eclass
, &ecode
);
242 if (eclass
!= ERRSRV
|| ecode
!= ERRerror
)
248 if (cli_is_error(cli
) || !rdata
|| !rparam
)
251 if (total_received
== -1)
254 /* parse out some important return info */
257 ff_dir_handle
= SVAL(p
,0);
258 ff_searchcount
= SVAL(p
,2);
260 ff_lastname
= SVAL(p
,8);
262 ff_searchcount
= SVAL(p
,0);
264 ff_lastname
= SVAL(p
,6);
267 if (ff_searchcount
== 0)
270 /* point to the data bytes */
273 /* we might need the lastname for continuations */
274 for (p2
=p
,i
=0;i
<ff_searchcount
;i
++) {
275 if ((info_level
== 260) && (i
== ff_searchcount
-1)) {
276 /* Last entry - fixup the last offset length. */
277 SIVAL(p2
,0,PTR_DIFF((rdata
+ data_len
),p2
));
279 p2
+= interpret_long_filename(cli
,info_level
,p2
,&finfo
);
282 if (ff_lastname
> 0) {
283 pstrcpy(mask
, finfo
.name
);
288 /* grab the data for later use */
289 /* and add them to the dirlist pool */
290 tdl
= SMB_REALLOC(dirlist
,dirlist_len
+ data_len
);
293 DEBUG(0,("cli_list_new: Failed to expand dirlist\n"));
299 memcpy(dirlist
+dirlist_len
,p
,data_len
);
300 dirlist_len
+= data_len
;
302 total_received
+= ff_searchcount
;
307 DEBUG(3,("received %d entries (eos=%d)\n",
308 ff_searchcount
,ff_eos
));
310 if (ff_searchcount
> 0)
316 mnt
= cli_cm_get_mntpoint( cli
);
318 for (p
=dirlist
,i
=0;i
<total_received
;i
++) {
319 p
+= interpret_long_filename(cli
,info_level
,p
,&finfo
);
320 fn( mnt
,&finfo
, Mask
, state
);
323 /* free up the dirlist buffer */
325 return(total_received
);
328 /****************************************************************************
329 Interpret a short filename structure.
330 The length of the structure is returned.
331 ****************************************************************************/
333 static int interpret_short_filename(struct cli_state
*cli
, char *p
,file_info
*finfo
)
335 extern file_info def_finfo
;
339 finfo
->mode
= CVAL(p
,21);
341 /* this date is converted to GMT by make_unix_date */
342 finfo
->ctime
= make_unix_date(p
+22);
343 finfo
->mtime
= finfo
->atime
= finfo
->ctime
;
344 finfo
->size
= IVAL(p
,26);
345 clistr_pull(cli
, finfo
->name
, p
+30, sizeof(finfo
->name
), 12, STR_ASCII
);
346 if (strcmp(finfo
->name
, "..") && strcmp(finfo
->name
, ".")) {
347 strncpy(finfo
->short_name
,finfo
->name
, sizeof(finfo
->short_name
)-1);
348 finfo
->short_name
[sizeof(finfo
->short_name
)-1] = '\0';
351 return(DIR_STRUCT_SIZE
);
355 /****************************************************************************
356 Do a directory listing, calling fn on each file found.
357 this uses the old SMBsearch interface. It is needed for testing Samba,
358 but should otherwise not be used.
359 ****************************************************************************/
361 int cli_list_old(struct cli_state
*cli
,const char *Mask
,uint16 attribute
,
362 void (*fn
)(const char *, file_info
*, const char *, void *), void *state
)
368 int num_asked
= (cli
->max_xmit
- 100)/DIR_STRUCT_SIZE
;
369 int num_received
= 0;
371 char *tdl
, *dirlist
= NULL
;
379 memset(cli
->outbuf
,'\0',smb_size
);
380 memset(cli
->inbuf
,'\0',smb_size
);
382 set_message(cli
->outbuf
,2,0,True
);
384 SCVAL(cli
->outbuf
,smb_com
,SMBsearch
);
386 SSVAL(cli
->outbuf
,smb_tid
,cli
->cnum
);
387 cli_setup_packet(cli
);
389 SSVAL(cli
->outbuf
,smb_vwv0
,num_asked
);
390 SSVAL(cli
->outbuf
,smb_vwv1
,attribute
);
392 p
= smb_buf(cli
->outbuf
);
395 p
+= clistr_push(cli
, p
, first
?mask
:"", -1, STR_TERMINATE
);
407 cli_setup_bcc(cli
, p
);
409 if (!cli_receive_smb(cli
)) break;
411 received
= SVAL(cli
->inbuf
,smb_vwv0
);
412 if (received
<= 0) break;
416 tdl
= SMB_REALLOC(dirlist
,(num_received
+ received
)*DIR_STRUCT_SIZE
);
419 DEBUG(0,("cli_list_old: failed to expand dirlist"));
425 p
= smb_buf(cli
->inbuf
) + 3;
427 memcpy(dirlist
+num_received
*DIR_STRUCT_SIZE
,
428 p
,received
*DIR_STRUCT_SIZE
);
430 memcpy(status
,p
+ ((received
-1)*DIR_STRUCT_SIZE
),21);
432 num_received
+= received
;
434 if (cli_is_error(cli
)) break;
438 memset(cli
->outbuf
,'\0',smb_size
);
439 memset(cli
->inbuf
,'\0',smb_size
);
441 set_message(cli
->outbuf
,2,0,True
);
442 SCVAL(cli
->outbuf
,smb_com
,SMBfclose
);
443 SSVAL(cli
->outbuf
,smb_tid
,cli
->cnum
);
444 cli_setup_packet(cli
);
446 SSVAL(cli
->outbuf
, smb_vwv0
, 0); /* find count? */
447 SSVAL(cli
->outbuf
, smb_vwv1
, attribute
);
449 p
= smb_buf(cli
->outbuf
);
459 cli_setup_bcc(cli
, p
);
461 if (!cli_receive_smb(cli
)) {
462 DEBUG(0,("Error closing search: %s\n",cli_errstr(cli
)));
466 for (p
=dirlist
,i
=0;i
<num_received
;i
++) {
468 p
+= interpret_short_filename(cli
, p
,&finfo
);
469 fn("\\", &finfo
, Mask
, state
);
473 return(num_received
);
476 /****************************************************************************
477 Do a directory listing, calling fn on each file found.
478 This auto-switches between old and new style.
479 ****************************************************************************/
481 int cli_list(struct cli_state
*cli
,const char *Mask
,uint16 attribute
,
482 void (*fn
)(const char *, file_info
*, const char *, void *), void *state
)
484 if (cli
->protocol
<= PROTOCOL_LANMAN1
)
485 return cli_list_old(cli
, Mask
, attribute
, fn
, state
);
486 return cli_list_new(cli
, Mask
, attribute
, fn
, state
);