source: branches/samba-3.2.x/source/libsmb/libsmb_file.c

Last change on this file was 233, checked in by Herwig Bauernfeind, 16 years ago

Update 3.2 branch to 3.2.9
File size: 24.8 KB
Line 
1/*
2 Unix SMB/Netbios implementation.
3 SMB client library implementation
4 Copyright (C) Andrew Tridgell 1998
5 Copyright (C) Richard Sharpe 2000, 2002
6 Copyright (C) John Terpstra 2000
7 Copyright (C) Tom Jansen (Ninja ISD) 2002
8 Copyright (C) Derrell Lipman 2003-2008
9 Copyright (C) Jeremy Allison 2007, 2008
10
11 This program is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 3 of the License, or
14 (at your option) any later version.
15
16 This program is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 GNU General Public License for more details.
20
21 You should have received a copy of the GNU General Public License
22 along with this program. If not, see <http://www.gnu.org/licenses/>.
23*/
24
25#include "includes.h"
26#include "libsmbclient.h"
27#include "libsmb_internal.h"
28
29
30/*
31 * Routine to open() a file ...
32 */
33
34SMBCFILE *
35SMBC_open_ctx(SMBCCTX *context,
36 const char *fname,
37 int flags,
38 mode_t mode)
39{
40 char *server = NULL;
41 char *share = NULL;
42 char *user = NULL;
43 char *password = NULL;
44 char *workgroup = NULL;
45 char *path = NULL;
46 char *targetpath = NULL;
47 struct cli_state *targetcli = NULL;
48 SMBCSRV *srv = NULL;
49 SMBCFILE *file = NULL;
50 int fd;
51 TALLOC_CTX *frame = talloc_stackframe();
52
53 if (!context || !context->internal->initialized) {
54
55 errno = EINVAL; /* Best I can think of ... */
56 TALLOC_FREE(frame);
57 return NULL;
58
59 }
60
61 if (!fname) {
62
63 errno = EINVAL;
64 TALLOC_FREE(frame);
65 return NULL;
66
67 }
68
69 if (SMBC_parse_path(frame,
70 context,
71 fname,
72 &workgroup,
73 &server,
74 &share,
75 &path,
76 &user,
77 &password,
78 NULL)) {
79 errno = EINVAL;
80 TALLOC_FREE(frame);
81 return NULL;
82 }
83
84 if (!user || user[0] == (char)0) {
85 user = talloc_strdup(frame, smbc_getUser(context));
86 if (!user) {
87 errno = ENOMEM;
88 TALLOC_FREE(frame);
89 return NULL;
90 }
91 }
92
93 srv = SMBC_server(frame, context, True,
94 server, share, &workgroup, &user, &password);
95
96 if (!srv) {
97 if (errno == EPERM) errno = EACCES;
98 TALLOC_FREE(frame);
99 return NULL; /* SMBC_server sets errno */
100 }
101
102 /* Hmmm, the test for a directory is suspect here ... FIXME */
103
104 if (strlen(path) > 0 && path[strlen(path) - 1] == '\\') {
105 fd = -1;
106 } else {
107 file = SMB_MALLOC_P(SMBCFILE);
108
109 if (!file) {
110 errno = ENOMEM;
111 TALLOC_FREE(frame);
112 return NULL;
113 }
114
115 ZERO_STRUCTP(file);
116
117 /*d_printf(">>>open: resolving %s\n", path);*/
118 if (!cli_resolve_path(frame, "", srv->cli, path,
119 &targetcli, &targetpath)) {
120 d_printf("Could not resolve %s\n", path);
121 errno = ENOENT;
122 SAFE_FREE(file);
123 TALLOC_FREE(frame);
124 return NULL;
125 }
126 /*d_printf(">>>open: resolved %s as %s\n", path, targetpath);*/
127
128 if ((fd = cli_open(targetcli, targetpath, flags,
129 context->internal->share_mode)) < 0) {
130
131 /* Handle the error ... */
132
133 SAFE_FREE(file);
134 errno = SMBC_errno(context, targetcli);
135 TALLOC_FREE(frame);
136 return NULL;
137
138 }
139
140 /* Fill in file struct */
141
142 file->cli_fd = fd;
143 file->fname = SMB_STRDUP(fname);
144 file->srv = srv;
145 file->offset = 0;
146 file->file = True;
147
148 DLIST_ADD(context->internal->files, file);
149
150 /*
151 * If the file was opened in O_APPEND mode, all write
152 * operations should be appended to the file. To do that,
153 * though, using this protocol, would require a getattrE()
154 * call for each and every write, to determine where the end
155 * of the file is. (There does not appear to be an append flag
156 * in the protocol.) Rather than add all of that overhead of
157 * retrieving the current end-of-file offset prior to each
158 * write operation, we'll assume that most append operations
159 * will continuously write, so we'll just set the offset to
160 * the end of the file now and hope that's adequate.
161 *
162 * Note to self: If this proves inadequate, and O_APPEND
163 * should, in some cases, be forced for each write, add a
164 * field in the context options structure, for
165 * "strict_append_mode" which would select between the current
166 * behavior (if FALSE) or issuing a getattrE() prior to each
167 * write and forcing the write to the end of the file (if
168 * TRUE). Adding that capability will likely require adding
169 * an "append" flag into the _SMBCFILE structure to track
170 * whether a file was opened in O_APPEND mode. -- djl
171 */
172 if (flags & O_APPEND) {
173 if (SMBC_lseek_ctx(context, file, 0, SEEK_END) < 0) {
174 (void) SMBC_close_ctx(context, file);
175 errno = ENXIO;
176 TALLOC_FREE(frame);
177 return NULL;
178 }
179 }
180
181 TALLOC_FREE(frame);
182 return file;
183
184 }
185
186 /* Check if opendir needed ... */
187
188 if (fd == -1) {
189 int eno = 0;
190
191 eno = SMBC_errno(context, srv->cli);
192 file = smbc_getFunctionOpendir(context)(context, fname);
193 if (!file) errno = eno;
194 TALLOC_FREE(frame);
195 return file;
196
197 }
198
199 errno = EINVAL; /* FIXME, correct errno ? */
200 TALLOC_FREE(frame);
201 return NULL;
202
203}
204
205/*
206 * Routine to create a file
207 */
208
209SMBCFILE *
210SMBC_creat_ctx(SMBCCTX *context,
211 const char *path,
212 mode_t mode)
213{
214
215 if (!context || !context->internal->initialized) {
216
217 errno = EINVAL;
218 return NULL;
219
220 }
221
222 return SMBC_open_ctx(context, path,
223 O_WRONLY | O_CREAT | O_TRUNC, mode);
224}
225
226/*
227 * Routine to read() a file ...
228 */
229
230ssize_t
231SMBC_read_ctx(SMBCCTX *context,
232 SMBCFILE *file,
233 void *buf,
234 size_t count)
235{
236 int ret;
237 char *server = NULL, *share = NULL, *user = NULL, *password = NULL;
238 char *path = NULL;
239 char *targetpath = NULL;
240 struct cli_state *targetcli = NULL;
241 TALLOC_CTX *frame = talloc_stackframe();
242
243 /*
244 * offset:
245 *
246 * Compiler bug (possibly) -- gcc (GCC) 3.3.5 (Debian 1:3.3.5-2) --
247 * appears to pass file->offset (which is type off_t) differently than
248 * a local variable of type off_t. Using local variable "offset" in
249 * the call to cli_read() instead of file->offset fixes a problem
250 * retrieving data at an offset greater than 4GB.
251 */
252 off_t offset;
253
254 if (!context || !context->internal->initialized) {
255
256 errno = EINVAL;
257 TALLOC_FREE(frame);
258 return -1;
259
260 }
261
262 DEBUG(4, ("smbc_read(%p, %d)\n", file, (int)count));
263
264 if (!file || !SMBC_dlist_contains(context->internal->files, file)) {
265 errno = EBADF;
266 TALLOC_FREE(frame);
267 return -1;
268
269 }
270
271 offset = file->offset;
272
273 /* Check that the buffer exists ... */
274
275 if (buf == NULL) {
276 errno = EINVAL;
277 TALLOC_FREE(frame);
278 return -1;
279
280 }
281
282 /*d_printf(">>>read: parsing %s\n", file->fname);*/
283 if (SMBC_parse_path(frame,
284 context,
285 file->fname,
286 NULL,
287 &server,
288 &share,
289 &path,
290 &user,
291 &password,
292 NULL)) {
293 errno = EINVAL;
294 TALLOC_FREE(frame);
295 return -1;
296 }
297
298 /*d_printf(">>>read: resolving %s\n", path);*/
299 if (!cli_resolve_path(frame, "", file->srv->cli, path,
300 &targetcli, &targetpath)) {
301 d_printf("Could not resolve %s\n", path);
302 errno = ENOENT;
303 TALLOC_FREE(frame);
304 return -1;
305 }
306 /*d_printf(">>>fstat: resolved path as %s\n", targetpath);*/
307
308 ret = cli_read(targetcli, file->cli_fd, (char *)buf, offset, count);
309
310 if (ret < 0) {
311
312 errno = SMBC_errno(context, targetcli);
313 TALLOC_FREE(frame);
314 return -1;
315
316 }
317
318 file->offset += ret;
319
320 DEBUG(4, (" --> %d\n", ret));
321
322 TALLOC_FREE(frame);
323 return ret; /* Success, ret bytes of data ... */
324
325}
326
327/*
328 * Routine to write() a file ...
329 */
330
331ssize_t
332SMBC_write_ctx(SMBCCTX *context,
333 SMBCFILE *file,
334 void *buf,
335 size_t count)
336{
337 int ret;
338 off_t offset;
339 char *server = NULL, *share = NULL, *user = NULL, *password = NULL;
340 char *path = NULL;
341 char *targetpath = NULL;
342 struct cli_state *targetcli = NULL;
343 TALLOC_CTX *frame = talloc_stackframe();
344
345 /* First check all pointers before dereferencing them */
346
347 if (!context || !context->internal->initialized) {
348
349 errno = EINVAL;
350 TALLOC_FREE(frame);
351 return -1;
352
353 }
354
355 if (!file || !SMBC_dlist_contains(context->internal->files, file)) {
356 errno = EBADF;
357 TALLOC_FREE(frame);
358 return -1;
359 }
360
361 /* Check that the buffer exists ... */
362
363 if (buf == NULL) {
364 errno = EINVAL;
365 TALLOC_FREE(frame);
366 return -1;
367
368 }
369
370 offset = file->offset; /* See "offset" comment in SMBC_read_ctx() */
371
372 /*d_printf(">>>write: parsing %s\n", file->fname);*/
373 if (SMBC_parse_path(frame,
374 context,
375 file->fname,
376 NULL,
377 &server,
378 &share,
379 &path,
380 &user,
381 &password,
382 NULL)) {
383 errno = EINVAL;
384 TALLOC_FREE(frame);
385 return -1;
386 }
387
388 /*d_printf(">>>write: resolving %s\n", path);*/
389 if (!cli_resolve_path(frame, "", file->srv->cli, path,
390 &targetcli, &targetpath)) {
391 d_printf("Could not resolve %s\n", path);
392 errno = ENOENT;
393 TALLOC_FREE(frame);
394 return -1;
395 }
396 /*d_printf(">>>write: resolved path as %s\n", targetpath);*/
397
398 ret = cli_write(targetcli, file->cli_fd,
399 0, (char *)buf, offset, count);
400
401 if (ret <= 0) {
402 errno = SMBC_errno(context, targetcli);
403 TALLOC_FREE(frame);
404 return -1;
405
406 }
407
408 file->offset += ret;
409
410 TALLOC_FREE(frame);
411 return ret; /* Success, 0 bytes of data ... */
412}
413
414/*
415 * Routine to close() a file ...
416 */
417
418int
419SMBC_close_ctx(SMBCCTX *context,
420 SMBCFILE *file)
421{
422 SMBCSRV *srv;
423 char *server = NULL, *share = NULL, *user = NULL, *password = NULL;
424 char *path = NULL;
425 char *targetpath = NULL;
426 struct cli_state *targetcli = NULL;
427 TALLOC_CTX *frame = talloc_stackframe();
428
429 if (!context || !context->internal->initialized) {
430
431 errno = EINVAL;
432 TALLOC_FREE(frame);
433 return -1;
434 }
435
436 if (!file || !SMBC_dlist_contains(context->internal->files, file)) {
437 errno = EBADF;
438 TALLOC_FREE(frame);
439 return -1;
440 }
441
442 /* IS a dir ... */
443 if (!file->file) {
444 TALLOC_FREE(frame);
445 return smbc_getFunctionClosedir(context)(context, file);
446 }
447
448 /*d_printf(">>>close: parsing %s\n", file->fname);*/
449 if (SMBC_parse_path(frame,
450 context,
451 file->fname,
452 NULL,
453 &server,
454 &share,
455 &path,
456 &user,
457 &password,
458 NULL)) {
459 errno = EINVAL;
460 TALLOC_FREE(frame);
461 return -1;
462 }
463
464 /*d_printf(">>>close: resolving %s\n", path);*/
465 if (!cli_resolve_path(frame, "", file->srv->cli, path,
466 &targetcli, &targetpath)) {
467 d_printf("Could not resolve %s\n", path);
468 errno = ENOENT;
469 TALLOC_FREE(frame);
470 return -1;
471 }
472 /*d_printf(">>>close: resolved path as %s\n", targetpath);*/
473
474 if (!cli_close(targetcli, file->cli_fd)) {
475
476 DEBUG(3, ("cli_close failed on %s. purging server.\n",
477 file->fname));
478 /* Deallocate slot and remove the server
479 * from the server cache if unused */
480 errno = SMBC_errno(context, targetcli);
481 srv = file->srv;
482 DLIST_REMOVE(context->internal->files, file);
483 SAFE_FREE(file->fname);
484 SAFE_FREE(file);
485 smbc_getFunctionRemoveUnusedServer(context)(context, srv);
486 TALLOC_FREE(frame);
487 return -1;
488
489 }
490
491 DLIST_REMOVE(context->internal->files, file);
492 SAFE_FREE(file->fname);
493 SAFE_FREE(file);
494 TALLOC_FREE(frame);
495
496 return 0;
497}
498
499/*
500 * Get info from an SMB server on a file. Use a qpathinfo call first
501 * and if that fails, use getatr, as Win95 sometimes refuses qpathinfo
502 */
503bool
504SMBC_getatr(SMBCCTX * context,
505 SMBCSRV *srv,
506 char *path,
507 uint16 *mode,
508 SMB_OFF_T *size,
509 struct timespec *create_time_ts,
510 struct timespec *access_time_ts,
511 struct timespec *write_time_ts,
512 struct timespec *change_time_ts,
513 SMB_INO_T *ino)
514{
515 char *fixedpath = NULL;
516 char *targetpath = NULL;
517 struct cli_state *targetcli = NULL;
518 time_t write_time;
519 TALLOC_CTX *frame = talloc_stackframe();
520
521 if (!context || !context->internal->initialized) {
522
523 errno = EINVAL;
524 TALLOC_FREE(frame);
525 return false;
526 }
527
528 /* path fixup for . and .. */
529 if (strequal(path, ".") || strequal(path, "..")) {
530 fixedpath = talloc_strdup(frame, "\\");
531 if (!fixedpath) {
532 errno = ENOMEM;
533 TALLOC_FREE(frame);
534 return false;
535 }
536 } else {
537 fixedpath = talloc_strdup(frame, path);
538 if (!fixedpath) {
539 errno = ENOMEM;
540 TALLOC_FREE(frame);
541 return false;
542 }
543 trim_string(fixedpath, NULL, "\\..");
544 trim_string(fixedpath, NULL, "\\.");
545 }
546 DEBUG(4,("SMBC_getatr: sending qpathinfo\n"));
547
548 if (!cli_resolve_path(frame, "", srv->cli, fixedpath,
549 &targetcli, &targetpath)) {
550 d_printf("Couldn't resolve %s\n", path);
551 errno = ENOENT;
552 TALLOC_FREE(frame);
553 return False;
554 }
555
556 if (!srv->no_pathinfo2 &&
557 cli_qpathinfo2(targetcli, targetpath,
558 create_time_ts,
559 access_time_ts,
560 write_time_ts,
561 change_time_ts,
562 size, mode, ino)) {
563 TALLOC_FREE(frame);
564 return True;
565 }
566
567 /* if this is NT then don't bother with the getatr */
568 if (targetcli->capabilities & CAP_NT_SMBS) {
569 errno = EPERM;
570 TALLOC_FREE(frame);
571 return False;
572 }
573
574 if (cli_getatr(targetcli, targetpath, mode, size, &write_time)) {
575
576 struct timespec w_time_ts;
577
578 w_time_ts = convert_time_t_to_timespec(write_time);
579
580 if (write_time_ts != NULL) {
581 *write_time_ts = w_time_ts;
582 }
583
584 if (create_time_ts != NULL) {
585 *create_time_ts = w_time_ts;
586 }
587
588 if (access_time_ts != NULL) {
589 *access_time_ts = w_time_ts;
590 }
591
592 if (change_time_ts != NULL) {
593 *change_time_ts = w_time_ts;
594 }
595
596 srv->no_pathinfo2 = True;
597 TALLOC_FREE(frame);
598 return True;
599 }
600
601 errno = EPERM;
602 TALLOC_FREE(frame);
603 return False;
604
605}
606
607/*
608 * Set file info on an SMB server. Use setpathinfo call first. If that
609 * fails, use setattrE..
610 *
611 * Access and modification time parameters are always used and must be
612 * provided. Create time, if zero, will be determined from the actual create
613 * time of the file. If non-zero, the create time will be set as well.
614 *
615 * "mode" (attributes) parameter may be set to -1 if it is not to be set.
616 */
617bool
618SMBC_setatr(SMBCCTX * context, SMBCSRV *srv, char *path,
619 time_t create_time,
620 time_t access_time,
621 time_t write_time,
622 time_t change_time,
623 uint16 mode)
624{
625 int fd;
626 int ret;
627 TALLOC_CTX *frame = talloc_stackframe();
628
629 /*
630 * First, try setpathinfo (if qpathinfo succeeded), for it is the
631 * modern function for "new code" to be using, and it works given a
632 * filename rather than requiring that the file be opened to have its
633 * attributes manipulated.
634 */
635 if (srv->no_pathinfo ||
636 ! cli_setpathinfo(srv->cli, path,
637 create_time,
638 access_time,
639 write_time,
640 change_time,
641 mode)) {
642
643 /*
644 * setpathinfo is not supported; go to plan B.
645 *
646 * cli_setatr() does not work on win98, and it also doesn't
647 * support setting the access time (only the modification
648 * time), so in all cases, we open the specified file and use
649 * cli_setattrE() which should work on all OS versions, and
650 * supports both times.
651 */
652
653 /* Don't try {q,set}pathinfo() again, with this server */
654 srv->no_pathinfo = True;
655
656 /* Open the file */
657 if ((fd = cli_open(srv->cli, path, O_RDWR, DENY_NONE)) < 0) {
658
659 errno = SMBC_errno(context, srv->cli);
660 TALLOC_FREE(frame);
661 return -1;
662 }
663
664 /* Set the new attributes */
665 ret = cli_setattrE(srv->cli, fd,
666 change_time,
667 access_time,
668 write_time);
669
670 /* Close the file */
671 cli_close(srv->cli, fd);
672
673 /*
674 * Unfortunately, setattrE() doesn't have a provision for
675 * setting the access mode (attributes). We'll have to try
676 * cli_setatr() for that, and with only this parameter, it
677 * seems to work on win98.
678 */
679 if (ret && mode != (uint16) -1) {
680 ret = cli_setatr(srv->cli, path, mode, 0);
681 }
682
683 if (! ret) {
684 errno = SMBC_errno(context, srv->cli);
685 TALLOC_FREE(frame);
686 return False;
687 }
688 }
689
690 TALLOC_FREE(frame);
691 return True;
692}
693
694/*
695 * A routine to lseek() a file
696 */
697
698off_t
699SMBC_lseek_ctx(SMBCCTX *context,
700 SMBCFILE *file,
701 off_t offset,
702 int whence)
703{
704 SMB_OFF_T size;
705 char *server = NULL, *share = NULL, *user = NULL, *password = NULL;
706 char *path = NULL;
707 char *targetpath = NULL;
708 struct cli_state *targetcli = NULL;
709 TALLOC_CTX *frame = talloc_stackframe();
710
711 if (!context || !context->internal->initialized) {
712
713 errno = EINVAL;
714 TALLOC_FREE(frame);
715 return -1;
716 }
717
718 if (!file || !SMBC_dlist_contains(context->internal->files, file)) {
719
720 errno = EBADF;
721 TALLOC_FREE(frame);
722 return -1;
723
724 }
725
726 if (!file->file) {
727
728 errno = EINVAL;
729 TALLOC_FREE(frame);
730 return -1; /* Can't lseek a dir ... */
731
732 }
733
734 switch (whence) {
735 case SEEK_SET:
736 file->offset = offset;
737 break;
738
739 case SEEK_CUR:
740 file->offset += offset;
741 break;
742
743 case SEEK_END:
744 /*d_printf(">>>lseek: parsing %s\n", file->fname);*/
745 if (SMBC_parse_path(frame,
746 context,
747 file->fname,
748 NULL,
749 &server,
750 &share,
751 &path,
752 &user,
753 &password,
754 NULL)) {
755 errno = EINVAL;
756 TALLOC_FREE(frame);
757 return -1;
758 }
759
760 /*d_printf(">>>lseek: resolving %s\n", path);*/
761 if (!cli_resolve_path(frame, "", file->srv->cli, path,
762 &targetcli, &targetpath)) {
763 d_printf("Could not resolve %s\n", path);
764 errno = ENOENT;
765 TALLOC_FREE(frame);
766 return -1;
767 }
768 /*d_printf(">>>lseek: resolved path as %s\n", targetpath);*/
769
770 if (!cli_qfileinfo(targetcli, file->cli_fd, NULL,
771 &size, NULL, NULL, NULL, NULL, NULL))
772 {
773 SMB_OFF_T b_size = size;
774 if (!cli_getattrE(targetcli, file->cli_fd,
775 NULL, &b_size, NULL, NULL, NULL))
776 {
777 errno = EINVAL;
778 TALLOC_FREE(frame);
779 return -1;
780 } else
781 size = b_size;
782 }
783 file->offset = size + offset;
784 break;
785
786 default:
787 errno = EINVAL;
788 break;
789
790 }
791
792 TALLOC_FREE(frame);
793 return file->offset;
794
795}
796
797
798/*
799 * Routine to truncate a file given by its file descriptor, to a specified size
800 */
801
802int
803SMBC_ftruncate_ctx(SMBCCTX *context,
804 SMBCFILE *file,
805 off_t length)
806{
807 SMB_OFF_T size = length;
808 char *server = NULL;
809 char *share = NULL;
810 char *user = NULL;
811 char *password = NULL;
812 char *path = NULL;
813 char *targetpath = NULL;
814 struct cli_state *targetcli = NULL;
815 TALLOC_CTX *frame = talloc_stackframe();
816
817 if (!context || !context->internal->initialized) {
818
819 errno = EINVAL;
820 TALLOC_FREE(frame);
821 return -1;
822 }
823
824 if (!file || !SMBC_dlist_contains(context->internal->files, file)) {
825 errno = EBADF;
826 TALLOC_FREE(frame);
827 return -1;
828 }
829
830 if (!file->file) {
831 errno = EINVAL;
832 TALLOC_FREE(frame);
833 return -1;
834 }
835
836 /*d_printf(">>>fstat: parsing %s\n", file->fname);*/
837 if (SMBC_parse_path(frame,
838 context,
839 file->fname,
840 NULL,
841 &server,
842 &share,
843 &path,
844 &user,
845 &password,
846 NULL)) {
847 errno = EINVAL;
848 TALLOC_FREE(frame);
849 return -1;
850 }
851
852 /*d_printf(">>>fstat: resolving %s\n", path);*/
853 if (!cli_resolve_path(frame, "", file->srv->cli, path,
854 &targetcli, &targetpath)) {
855 d_printf("Could not resolve %s\n", path);
856 errno = ENOENT;
857 TALLOC_FREE(frame);
858 return -1;
859 }
860 /*d_printf(">>>fstat: resolved path as %s\n", targetpath);*/
861
862 if (!cli_ftruncate(targetcli, file->cli_fd, size)) {
863 errno = EINVAL;
864 TALLOC_FREE(frame);
865 return -1;
866 }
867
868 TALLOC_FREE(frame);
869 return 0;
870
871}
Note: See TracBrowser for help on using the repository browser.