2 Unix SMB/CIFS implementation.
4 Copyright (C) Andrew Tridgell 1994-1998
5 Copyright (C) Jeremy Allison 2001-2002
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
24 /****************************************************************************
25 Hard/Symlink a file (UNIX extensions).
26 Creates new name (sym)linked to oldname.
27 ****************************************************************************/
29 static BOOL cli_link_internal(struct cli_state *cli, const char *oldname, const char *newname, BOOL hard_link)
31 unsigned int data_len = 0;
32 unsigned int param_len = 0;
33 uint16 setup = TRANSACT2_SETPATHINFO;
34 char param[sizeof(pstring)+6];
36 char *rparam=NULL, *rdata=NULL;
38 size_t oldlen = 2*(strlen(oldname)+1);
39 size_t newlen = 2*(strlen(newname)+1);
41 memset(param, 0, sizeof(param));
42 SSVAL(param,0,hard_link ? SMB_SET_FILE_UNIX_HLINK : SMB_SET_FILE_UNIX_LINK);
45 p += clistr_push(cli, p, newname, MIN(newlen, sizeof(param)-6), STR_TERMINATE);
46 param_len = PTR_DIFF(p, param);
49 p += clistr_push(cli, p, oldname, MIN(oldlen,sizeof(data)), STR_TERMINATE);
50 data_len = PTR_DIFF(p, data);
52 if (!cli_send_trans(cli, SMBtrans2,
54 -1, 0, /* fid, flags */
55 &setup, 1, 0, /* setup, length, max */
56 param, param_len, 2, /* param, length, max */
57 (char *)&data, data_len, cli->max_xmit /* data, length, max */
62 if (!cli_receive_trans(cli, SMBtrans2,
74 /****************************************************************************
75 Map standard UNIX permissions onto wire representations.
76 ****************************************************************************/
78 uint32 unix_perms_to_wire(mode_t perms)
82 ret |= ((perms & S_IXOTH) ? UNIX_X_OTH : 0);
83 ret |= ((perms & S_IWOTH) ? UNIX_W_OTH : 0);
84 ret |= ((perms & S_IROTH) ? UNIX_R_OTH : 0);
85 ret |= ((perms & S_IXGRP) ? UNIX_X_GRP : 0);
86 ret |= ((perms & S_IWGRP) ? UNIX_W_GRP : 0);
87 ret |= ((perms & S_IRGRP) ? UNIX_R_GRP : 0);
88 ret |= ((perms & S_IXUSR) ? UNIX_X_USR : 0);
89 ret |= ((perms & S_IWUSR) ? UNIX_W_USR : 0);
90 ret |= ((perms & S_IRUSR) ? UNIX_R_USR : 0);
92 ret |= ((perms & S_ISVTX) ? UNIX_STICKY : 0);
95 ret |= ((perms & S_ISGID) ? UNIX_SET_GID : 0);
98 ret |= ((perms & S_ISUID) ? UNIX_SET_UID : 0);
103 /****************************************************************************
104 Map wire permissions to standard UNIX.
105 ****************************************************************************/
107 mode_t wire_perms_to_unix(uint32 perms)
109 mode_t ret = (mode_t)0;
111 ret |= ((perms & UNIX_X_OTH) ? S_IXOTH : 0);
112 ret |= ((perms & UNIX_W_OTH) ? S_IWOTH : 0);
113 ret |= ((perms & UNIX_R_OTH) ? S_IROTH : 0);
114 ret |= ((perms & UNIX_X_GRP) ? S_IXGRP : 0);
115 ret |= ((perms & UNIX_W_GRP) ? S_IWGRP : 0);
116 ret |= ((perms & UNIX_R_GRP) ? S_IRGRP : 0);
117 ret |= ((perms & UNIX_X_USR) ? S_IXUSR : 0);
118 ret |= ((perms & UNIX_W_USR) ? S_IWUSR : 0);
119 ret |= ((perms & UNIX_R_USR) ? S_IRUSR : 0);
121 ret |= ((perms & UNIX_STICKY) ? S_ISVTX : 0);
124 ret |= ((perms & UNIX_SET_GID) ? S_ISGID : 0);
127 ret |= ((perms & UNIX_SET_UID) ? S_ISUID : 0);
132 /****************************************************************************
133 Return the file type from the wire filetype for UNIX extensions.
134 ****************************************************************************/
136 static mode_t unix_filetype_from_wire(uint32 wire_type)
144 case UNIX_TYPE_SYMLINK:
148 case UNIX_TYPE_CHARDEV:
152 case UNIX_TYPE_BLKDEV:
160 case UNIX_TYPE_SOCKET:
168 /****************************************************************************
169 Do a POSIX getfacl (UNIX extensions).
170 ****************************************************************************/
172 BOOL cli_unix_getfacl(struct cli_state *cli, const char *name, size_t *prb_size, char **retbuf)
174 unsigned int param_len = 0;
175 unsigned int data_len = 0;
176 uint16 setup = TRANSACT2_QPATHINFO;
177 char param[sizeof(pstring)+6];
178 char *rparam=NULL, *rdata=NULL;
183 SSVAL(p, 0, SMB_QUERY_POSIX_ACL);
185 p += clistr_push(cli, p, name, sizeof(pstring)-6, STR_TERMINATE);
186 param_len = PTR_DIFF(p, param);
188 if (!cli_send_trans(cli, SMBtrans2,
190 -1, 0, /* fid, flags */
191 &setup, 1, 0, /* setup, length, max */
192 param, param_len, 2, /* param, length, max */
193 NULL, 0, cli->max_xmit /* data, length, max */
198 if (!cli_receive_trans(cli, SMBtrans2,
200 &rdata, &data_len)) {
212 *prb_size = (size_t)data_len;
217 /****************************************************************************
218 Stat a file (UNIX extensions).
219 ****************************************************************************/
221 BOOL cli_unix_stat(struct cli_state *cli, const char *name, SMB_STRUCT_STAT *sbuf)
223 unsigned int param_len = 0;
224 unsigned int data_len = 0;
225 uint16 setup = TRANSACT2_QPATHINFO;
226 char param[sizeof(pstring)+6];
227 char *rparam=NULL, *rdata=NULL;
234 SSVAL(p, 0, SMB_QUERY_FILE_UNIX_BASIC);
236 p += clistr_push(cli, p, name, sizeof(pstring)-6, STR_TERMINATE);
237 param_len = PTR_DIFF(p, param);
239 if (!cli_send_trans(cli, SMBtrans2,
241 -1, 0, /* fid, flags */
242 &setup, 1, 0, /* setup, length, max */
243 param, param_len, 2, /* param, length, max */
244 NULL, 0, cli->max_xmit /* data, length, max */
249 if (!cli_receive_trans(cli, SMBtrans2,
251 &rdata, &data_len)) {
261 sbuf->st_size = IVAL2_TO_SMB_BIG_UINT(rdata,0); /* total size, in bytes */
262 sbuf->st_blocks = IVAL2_TO_SMB_BIG_UINT(rdata,8); /* number of blocks allocated */
263 #if defined (HAVE_STAT_ST_BLOCKS) && defined(STAT_ST_BLOCKSIZE)
264 sbuf->st_blocks /= STAT_ST_BLOCKSIZE;
266 /* assume 512 byte blocks */
267 sbuf->st_blocks /= 512;
269 set_ctimespec(sbuf, interpret_long_date(rdata + 16)); /* time of last change */
270 set_atimespec(sbuf, interpret_long_date(rdata + 24)); /* time of last access */
271 set_mtimespec(sbuf, interpret_long_date(rdata + 32)); /* time of last modification */
273 sbuf->st_uid = (uid_t) IVAL(rdata,40); /* user ID of owner */
274 sbuf->st_gid = (gid_t) IVAL(rdata,48); /* group ID of owner */
275 sbuf->st_mode |= unix_filetype_from_wire(IVAL(rdata, 56));
276 #if defined(HAVE_MAKEDEV)
278 uint32 dev_major = IVAL(rdata,60);
279 uint32 dev_minor = IVAL(rdata,68);
280 sbuf->st_rdev = makedev(dev_major, dev_minor);
283 sbuf->st_ino = (SMB_INO_T)IVAL2_TO_SMB_BIG_UINT(rdata,76); /* inode */
284 sbuf->st_mode |= wire_perms_to_unix(IVAL(rdata,84)); /* protection */
285 sbuf->st_nlink = IVAL(rdata,92); /* number of hard links */
293 /****************************************************************************
294 Symlink a file (UNIX extensions).
295 ****************************************************************************/
297 BOOL cli_unix_symlink(struct cli_state *cli, const char *oldname, const char *newname)
299 return cli_link_internal(cli, oldname, newname, False);
302 /****************************************************************************
303 Hard a file (UNIX extensions).
304 ****************************************************************************/
306 BOOL cli_unix_hardlink(struct cli_state *cli, const char *oldname, const char *newname)
308 return cli_link_internal(cli, oldname, newname, True);
311 /****************************************************************************
312 Chmod or chown a file internal (UNIX extensions).
313 ****************************************************************************/
315 static BOOL cli_unix_chmod_chown_internal(struct cli_state *cli, const char *fname, uint32 mode, uint32 uid, uint32 gid)
317 unsigned int data_len = 0;
318 unsigned int param_len = 0;
319 uint16 setup = TRANSACT2_SETPATHINFO;
320 char param[sizeof(pstring)+6];
322 char *rparam=NULL, *rdata=NULL;
325 memset(param, 0, sizeof(param));
326 memset(data, 0, sizeof(data));
327 SSVAL(param,0,SMB_SET_FILE_UNIX_BASIC);
330 p += clistr_push(cli, p, fname, -1, STR_TERMINATE);
331 param_len = PTR_DIFF(p, param);
333 memset(data, 0xff, 40); /* Set all sizes/times to no change. */
341 if (!cli_send_trans(cli, SMBtrans2,
343 -1, 0, /* fid, flags */
344 &setup, 1, 0, /* setup, length, max */
345 param, param_len, 2, /* param, length, max */
346 (char *)&data, data_len, cli->max_xmit /* data, length, max */
351 if (!cli_receive_trans(cli, SMBtrans2,
353 &rdata, &data_len)) {
363 /****************************************************************************
364 chmod a file (UNIX extensions).
365 ****************************************************************************/
367 BOOL cli_unix_chmod(struct cli_state *cli, const char *fname, mode_t mode)
369 return cli_unix_chmod_chown_internal(cli, fname,
370 unix_perms_to_wire(mode), SMB_UID_NO_CHANGE, SMB_GID_NO_CHANGE);
373 /****************************************************************************
374 chown a file (UNIX extensions).
375 ****************************************************************************/
377 BOOL cli_unix_chown(struct cli_state *cli, const char *fname, uid_t uid, gid_t gid)
379 return cli_unix_chmod_chown_internal(cli, fname, SMB_MODE_NO_CHANGE, (uint32)uid, (uint32)gid);
382 /****************************************************************************
384 ****************************************************************************/
386 BOOL cli_rename(struct cli_state *cli, const char *fname_src, const char *fname_dst)
390 memset(cli->outbuf,'\0',smb_size);
391 memset(cli->inbuf,'\0',smb_size);
393 set_message(cli->outbuf,1, 0, True);
395 SCVAL(cli->outbuf,smb_com,SMBmv);
396 SSVAL(cli->outbuf,smb_tid,cli->cnum);
397 cli_setup_packet(cli);
399 SSVAL(cli->outbuf,smb_vwv0,aSYSTEM | aHIDDEN | aDIR);
401 p = smb_buf(cli->outbuf);
403 p += clistr_push(cli, p, fname_src, -1, STR_TERMINATE);
405 p += clistr_push(cli, p, fname_dst, -1, STR_TERMINATE);
407 cli_setup_bcc(cli, p);
410 if (!cli_receive_smb(cli))
413 if (cli_is_error(cli))
419 /****************************************************************************
421 ****************************************************************************/
423 BOOL cli_ntrename(struct cli_state *cli, const char *fname_src, const char *fname_dst)
427 memset(cli->outbuf,'\0',smb_size);
428 memset(cli->inbuf,'\0',smb_size);
430 set_message(cli->outbuf, 4, 0, True);
432 SCVAL(cli->outbuf,smb_com,SMBntrename);
433 SSVAL(cli->outbuf,smb_tid,cli->cnum);
434 cli_setup_packet(cli);
436 SSVAL(cli->outbuf,smb_vwv0,aSYSTEM | aHIDDEN | aDIR);
437 SSVAL(cli->outbuf,smb_vwv1, RENAME_FLAG_RENAME);
439 p = smb_buf(cli->outbuf);
441 p += clistr_push(cli, p, fname_src, -1, STR_TERMINATE);
443 p += clistr_push(cli, p, fname_dst, -1, STR_TERMINATE);
445 cli_setup_bcc(cli, p);
448 if (!cli_receive_smb(cli))
451 if (cli_is_error(cli))
457 /****************************************************************************
459 ****************************************************************************/
461 BOOL cli_nt_hardlink(struct cli_state *cli, const char *fname_src, const char *fname_dst)
465 memset(cli->outbuf,'\0',smb_size);
466 memset(cli->inbuf,'\0',smb_size);
468 set_message(cli->outbuf, 4, 0, True);
470 SCVAL(cli->outbuf,smb_com,SMBntrename);
471 SSVAL(cli->outbuf,smb_tid,cli->cnum);
472 cli_setup_packet(cli);
474 SSVAL(cli->outbuf,smb_vwv0,aSYSTEM | aHIDDEN | aDIR);
475 SSVAL(cli->outbuf,smb_vwv1, RENAME_FLAG_HARD_LINK);
477 p = smb_buf(cli->outbuf);
479 p += clistr_push(cli, p, fname_src, -1, STR_TERMINATE);
481 p += clistr_push(cli, p, fname_dst, -1, STR_TERMINATE);
483 cli_setup_bcc(cli, p);
486 if (!cli_receive_smb(cli))
489 if (cli_is_error(cli))
495 /****************************************************************************
497 ****************************************************************************/
499 BOOL cli_unlink(struct cli_state *cli, const char *fname)
503 memset(cli->outbuf,'\0',smb_size);
504 memset(cli->inbuf,'\0',smb_size);
506 set_message(cli->outbuf,1, 0,True);
508 SCVAL(cli->outbuf,smb_com,SMBunlink);
509 SSVAL(cli->outbuf,smb_tid,cli->cnum);
510 cli_setup_packet(cli);
512 SSVAL(cli->outbuf,smb_vwv0,aSYSTEM | aHIDDEN);
514 p = smb_buf(cli->outbuf);
516 p += clistr_push(cli, p, fname, -1, STR_TERMINATE);
518 cli_setup_bcc(cli, p);
520 if (!cli_receive_smb(cli)) {
524 if (cli_is_error(cli)) {
531 /****************************************************************************
533 ****************************************************************************/
535 BOOL cli_mkdir(struct cli_state *cli, const char *dname)
539 memset(cli->outbuf,'\0',smb_size);
540 memset(cli->inbuf,'\0',smb_size);
542 set_message(cli->outbuf,0, 0,True);
544 SCVAL(cli->outbuf,smb_com,SMBmkdir);
545 SSVAL(cli->outbuf,smb_tid,cli->cnum);
546 cli_setup_packet(cli);
548 p = smb_buf(cli->outbuf);
550 p += clistr_push(cli, p, dname, -1, STR_TERMINATE);
552 cli_setup_bcc(cli, p);
555 if (!cli_receive_smb(cli)) {
559 if (cli_is_error(cli)) {
566 /****************************************************************************
568 ****************************************************************************/
570 BOOL cli_rmdir(struct cli_state *cli, const char *dname)
574 memset(cli->outbuf,'\0',smb_size);
575 memset(cli->inbuf,'\0',smb_size);
577 set_message(cli->outbuf,0, 0, True);
579 SCVAL(cli->outbuf,smb_com,SMBrmdir);
580 SSVAL(cli->outbuf,smb_tid,cli->cnum);
581 cli_setup_packet(cli);
583 p = smb_buf(cli->outbuf);
585 p += clistr_push(cli, p, dname, -1, STR_TERMINATE);
587 cli_setup_bcc(cli, p);
590 if (!cli_receive_smb(cli)) {
594 if (cli_is_error(cli)) {
601 /****************************************************************************
602 Set or clear the delete on close flag.
603 ****************************************************************************/
605 int cli_nt_delete_on_close(struct cli_state *cli, int fnum, BOOL flag)
607 unsigned int data_len = 1;
608 unsigned int param_len = 6;
609 uint16 setup = TRANSACT2_SETFILEINFO;
612 char *rparam=NULL, *rdata=NULL;
614 memset(param, 0, param_len);
616 SSVAL(param,2,SMB_SET_FILE_DISPOSITION_INFO);
620 if (!cli_send_trans(cli, SMBtrans2,
622 -1, 0, /* fid, flags */
623 &setup, 1, 0, /* setup, length, max */
624 param, param_len, 2, /* param, length, max */
625 (char *)&data, data_len, cli->max_xmit /* data, length, max */
630 if (!cli_receive_trans(cli, SMBtrans2,
632 &rdata, &data_len)) {
642 /****************************************************************************
643 Open a file - exposing the full horror of the NT API :-).
645 ****************************************************************************/
647 int cli_nt_create_full(struct cli_state *cli, const char *fname,
648 uint32 CreatFlags, uint32 DesiredAccess,
649 uint32 FileAttributes, uint32 ShareAccess,
650 uint32 CreateDisposition, uint32 CreateOptions,
656 memset(cli->outbuf,'\0',smb_size);
657 memset(cli->inbuf,'\0',smb_size);
659 set_message(cli->outbuf,24,0,True);
661 SCVAL(cli->outbuf,smb_com,SMBntcreateX);
662 SSVAL(cli->outbuf,smb_tid,cli->cnum);
663 cli_setup_packet(cli);
665 SSVAL(cli->outbuf,smb_vwv0,0xFF);
666 if (cli->use_oplocks)
667 CreatFlags |= (REQUEST_OPLOCK|REQUEST_BATCH_OPLOCK);
669 SIVAL(cli->outbuf,smb_ntcreate_Flags, CreatFlags);
670 SIVAL(cli->outbuf,smb_ntcreate_RootDirectoryFid, 0x0);
671 SIVAL(cli->outbuf,smb_ntcreate_DesiredAccess, DesiredAccess);
672 SIVAL(cli->outbuf,smb_ntcreate_FileAttributes, FileAttributes);
673 SIVAL(cli->outbuf,smb_ntcreate_ShareAccess, ShareAccess);
674 SIVAL(cli->outbuf,smb_ntcreate_CreateDisposition, CreateDisposition);
675 SIVAL(cli->outbuf,smb_ntcreate_CreateOptions, CreateOptions);
676 SIVAL(cli->outbuf,smb_ntcreate_ImpersonationLevel, 0x02);
677 SCVAL(cli->outbuf,smb_ntcreate_SecurityFlags, SecuityFlags);
679 p = smb_buf(cli->outbuf);
680 /* this alignment and termination is critical for netapp filers. Don't change */
681 p += clistr_align_out(cli, p, 0);
682 len = clistr_push(cli, p, fname, -1, 0);
684 SSVAL(cli->outbuf,smb_ntcreate_NameLength, len);
685 /* sigh. this copes with broken netapp filer behaviour */
686 p += clistr_push(cli, p, "", -1, STR_TERMINATE);
688 cli_setup_bcc(cli, p);
691 if (!cli_receive_smb(cli)) {
695 if (cli_is_error(cli)) {
699 return SVAL(cli->inbuf,smb_vwv2 + 1);
702 /****************************************************************************
704 ****************************************************************************/
706 int cli_nt_create(struct cli_state *cli, const char *fname, uint32 DesiredAccess)
708 return cli_nt_create_full(cli, fname, 0, DesiredAccess, 0,
709 FILE_SHARE_READ|FILE_SHARE_WRITE, FILE_OPEN, 0x0, 0x0);
712 /****************************************************************************
714 WARNING: if you open with O_WRONLY then getattrE won't work!
715 ****************************************************************************/
717 int cli_open(struct cli_state *cli, const char *fname, int flags, int share_mode)
721 unsigned accessmode=0;
725 if (!(flags & O_EXCL)) {
732 accessmode = (share_mode<<4);
734 if ((flags & O_ACCMODE) == O_RDWR) {
736 } else if ((flags & O_ACCMODE) == O_WRONLY) {
741 if ((flags & O_SYNC) == O_SYNC) {
742 accessmode |= (1<<14);
746 if (share_mode == DENY_FCB) {
750 memset(cli->outbuf,'\0',smb_size);
751 memset(cli->inbuf,'\0',smb_size);
753 set_message(cli->outbuf,15,0,True);
755 SCVAL(cli->outbuf,smb_com,SMBopenX);
756 SSVAL(cli->outbuf,smb_tid,cli->cnum);
757 cli_setup_packet(cli);
759 SSVAL(cli->outbuf,smb_vwv0,0xFF);
760 SSVAL(cli->outbuf,smb_vwv2,0); /* no additional info */
761 SSVAL(cli->outbuf,smb_vwv3,accessmode);
762 SSVAL(cli->outbuf,smb_vwv4,aSYSTEM | aHIDDEN);
763 SSVAL(cli->outbuf,smb_vwv5,0);
764 SSVAL(cli->outbuf,smb_vwv8,openfn);
766 if (cli->use_oplocks) {
767 /* if using oplocks then ask for a batch oplock via
768 core and extended methods */
769 SCVAL(cli->outbuf,smb_flg, CVAL(cli->outbuf,smb_flg)|
770 FLAG_REQUEST_OPLOCK|FLAG_REQUEST_BATCH_OPLOCK);
771 SSVAL(cli->outbuf,smb_vwv2,SVAL(cli->outbuf,smb_vwv2) | 6);
774 p = smb_buf(cli->outbuf);
775 p += clistr_push(cli, p, fname, -1, STR_TERMINATE);
777 cli_setup_bcc(cli, p);
780 if (!cli_receive_smb(cli)) {
784 if (cli_is_error(cli)) {
788 return SVAL(cli->inbuf,smb_vwv2);
791 /****************************************************************************
793 ****************************************************************************/
795 BOOL cli_close(struct cli_state *cli, int fnum)
797 memset(cli->outbuf,'\0',smb_size);
798 memset(cli->inbuf,'\0',smb_size);
800 set_message(cli->outbuf,3,0,True);
802 SCVAL(cli->outbuf,smb_com,SMBclose);
803 SSVAL(cli->outbuf,smb_tid,cli->cnum);
804 cli_setup_packet(cli);
806 SSVAL(cli->outbuf,smb_vwv0,fnum);
807 SIVALS(cli->outbuf,smb_vwv1,-1);
810 if (!cli_receive_smb(cli)) {
814 return !cli_is_error(cli);
818 /****************************************************************************
819 send a lock with a specified locktype
820 this is used for testing LOCKING_ANDX_CANCEL_LOCK
821 ****************************************************************************/
823 NTSTATUS cli_locktype(struct cli_state *cli, int fnum,
824 uint32 offset, uint32 len, int timeout, unsigned char locktype)
827 int saved_timeout = cli->timeout;
829 memset(cli->outbuf,'\0',smb_size);
830 memset(cli->inbuf,'\0', smb_size);
832 set_message(cli->outbuf,8,0,True);
834 SCVAL(cli->outbuf,smb_com,SMBlockingX);
835 SSVAL(cli->outbuf,smb_tid,cli->cnum);
836 cli_setup_packet(cli);
838 SCVAL(cli->outbuf,smb_vwv0,0xFF);
839 SSVAL(cli->outbuf,smb_vwv2,fnum);
840 SCVAL(cli->outbuf,smb_vwv3,locktype);
841 SIVALS(cli->outbuf, smb_vwv4, timeout);
842 SSVAL(cli->outbuf,smb_vwv6,0);
843 SSVAL(cli->outbuf,smb_vwv7,1);
845 p = smb_buf(cli->outbuf);
846 SSVAL(p, 0, cli->pid);
852 cli_setup_bcc(cli, p);
857 cli->timeout = (timeout == -1) ? 0x7FFFFFFF : (timeout + 2*1000);
860 if (!cli_receive_smb(cli)) {
861 cli->timeout = saved_timeout;
862 return NT_STATUS_UNSUCCESSFUL;
865 cli->timeout = saved_timeout;
867 return cli_nt_error(cli);
870 /****************************************************************************
872 note that timeout is in units of 2 milliseconds
873 ****************************************************************************/
875 BOOL cli_lock(struct cli_state *cli, int fnum,
876 uint32 offset, uint32 len, int timeout, enum brl_type lock_type)
879 int saved_timeout = cli->timeout;
881 memset(cli->outbuf,'\0',smb_size);
882 memset(cli->inbuf,'\0', smb_size);
884 set_message(cli->outbuf,8,0,True);
886 SCVAL(cli->outbuf,smb_com,SMBlockingX);
887 SSVAL(cli->outbuf,smb_tid,cli->cnum);
888 cli_setup_packet(cli);
890 SCVAL(cli->outbuf,smb_vwv0,0xFF);
891 SSVAL(cli->outbuf,smb_vwv2,fnum);
892 SCVAL(cli->outbuf,smb_vwv3,(lock_type == READ_LOCK? 1 : 0));
893 SIVALS(cli->outbuf, smb_vwv4, timeout);
894 SSVAL(cli->outbuf,smb_vwv6,0);
895 SSVAL(cli->outbuf,smb_vwv7,1);
897 p = smb_buf(cli->outbuf);
898 SSVAL(p, 0, cli->pid);
904 cli_setup_bcc(cli, p);
909 cli->timeout = (timeout == -1) ? 0x7FFFFFFF : (timeout*2 + 5*1000);
912 if (!cli_receive_smb(cli)) {
913 cli->timeout = saved_timeout;
917 cli->timeout = saved_timeout;
919 if (cli_is_error(cli)) {
926 /****************************************************************************
928 ****************************************************************************/
930 BOOL cli_unlock(struct cli_state *cli, int fnum, uint32 offset, uint32 len)
934 memset(cli->outbuf,'\0',smb_size);
935 memset(cli->inbuf,'\0',smb_size);
937 set_message(cli->outbuf,8,0,True);
939 SCVAL(cli->outbuf,smb_com,SMBlockingX);
940 SSVAL(cli->outbuf,smb_tid,cli->cnum);
941 cli_setup_packet(cli);
943 SCVAL(cli->outbuf,smb_vwv0,0xFF);
944 SSVAL(cli->outbuf,smb_vwv2,fnum);
945 SCVAL(cli->outbuf,smb_vwv3,0);
946 SIVALS(cli->outbuf, smb_vwv4, 0);
947 SSVAL(cli->outbuf,smb_vwv6,1);
948 SSVAL(cli->outbuf,smb_vwv7,0);
950 p = smb_buf(cli->outbuf);
951 SSVAL(p, 0, cli->pid);
955 cli_setup_bcc(cli, p);
957 if (!cli_receive_smb(cli)) {
961 if (cli_is_error(cli)) {
968 /****************************************************************************
969 Lock a file with 64 bit offsets.
970 ****************************************************************************/
972 BOOL cli_lock64(struct cli_state *cli, int fnum,
973 SMB_BIG_UINT offset, SMB_BIG_UINT len, int timeout, enum brl_type lock_type)
976 int saved_timeout = cli->timeout;
979 if (! (cli->capabilities & CAP_LARGE_FILES)) {
980 return cli_lock(cli, fnum, offset, len, timeout, lock_type);
983 ltype = (lock_type == READ_LOCK? 1 : 0);
984 ltype |= LOCKING_ANDX_LARGE_FILES;
986 memset(cli->outbuf,'\0',smb_size);
987 memset(cli->inbuf,'\0', smb_size);
989 set_message(cli->outbuf,8,0,True);
991 SCVAL(cli->outbuf,smb_com,SMBlockingX);
992 SSVAL(cli->outbuf,smb_tid,cli->cnum);
993 cli_setup_packet(cli);
995 SCVAL(cli->outbuf,smb_vwv0,0xFF);
996 SSVAL(cli->outbuf,smb_vwv2,fnum);
997 SCVAL(cli->outbuf,smb_vwv3,ltype);
998 SIVALS(cli->outbuf, smb_vwv4, timeout);
999 SSVAL(cli->outbuf,smb_vwv6,0);
1000 SSVAL(cli->outbuf,smb_vwv7,1);
1002 p = smb_buf(cli->outbuf);
1003 SIVAL(p, 0, cli->pid);
1004 SOFF_T_R(p, 4, offset);
1005 SOFF_T_R(p, 12, len);
1008 cli_setup_bcc(cli, p);
1012 cli->timeout = (timeout == -1) ? 0x7FFFFFFF : (timeout + 5*1000);
1015 if (!cli_receive_smb(cli)) {
1016 cli->timeout = saved_timeout;
1020 cli->timeout = saved_timeout;
1022 if (cli_is_error(cli)) {
1029 /****************************************************************************
1030 Unlock a file with 64 bit offsets.
1031 ****************************************************************************/
1033 BOOL cli_unlock64(struct cli_state *cli, int fnum, SMB_BIG_UINT offset, SMB_BIG_UINT len)
1037 if (! (cli->capabilities & CAP_LARGE_FILES)) {
1038 return cli_unlock(cli, fnum, offset, len);
1041 memset(cli->outbuf,'\0',smb_size);
1042 memset(cli->inbuf,'\0',smb_size);
1044 set_message(cli->outbuf,8,0,True);
1046 SCVAL(cli->outbuf,smb_com,SMBlockingX);
1047 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1048 cli_setup_packet(cli);
1050 SCVAL(cli->outbuf,smb_vwv0,0xFF);
1051 SSVAL(cli->outbuf,smb_vwv2,fnum);
1052 SCVAL(cli->outbuf,smb_vwv3,LOCKING_ANDX_LARGE_FILES);
1053 SIVALS(cli->outbuf, smb_vwv4, 0);
1054 SSVAL(cli->outbuf,smb_vwv6,1);
1055 SSVAL(cli->outbuf,smb_vwv7,0);
1057 p = smb_buf(cli->outbuf);
1058 SIVAL(p, 0, cli->pid);
1059 SOFF_T_R(p, 4, offset);
1060 SOFF_T_R(p, 12, len);
1062 cli_setup_bcc(cli, p);
1064 if (!cli_receive_smb(cli)) {
1068 if (cli_is_error(cli)) {
1075 /****************************************************************************
1076 Get/unlock a POSIX lock on a file - internal function.
1077 ****************************************************************************/
1079 static BOOL cli_posix_lock_internal(struct cli_state *cli, int fnum,
1080 SMB_BIG_UINT offset, SMB_BIG_UINT len, BOOL wait_lock, enum brl_type lock_type)
1082 unsigned int param_len = 4;
1083 unsigned int data_len = POSIX_LOCK_DATA_SIZE;
1084 uint16 setup = TRANSACT2_SETFILEINFO;
1086 unsigned char data[POSIX_LOCK_DATA_SIZE];
1087 char *rparam=NULL, *rdata=NULL;
1088 int saved_timeout = cli->timeout;
1090 SSVAL(param,0,fnum);
1091 SSVAL(param,2,SMB_SET_POSIX_LOCK);
1093 switch (lock_type) {
1095 SSVAL(data, POSIX_LOCK_TYPE_OFFSET, POSIX_LOCK_TYPE_READ);
1098 SSVAL(data, POSIX_LOCK_TYPE_OFFSET, POSIX_LOCK_TYPE_WRITE);
1101 SSVAL(data, POSIX_LOCK_TYPE_OFFSET, POSIX_LOCK_TYPE_UNLOCK);
1108 SSVAL(data, POSIX_LOCK_FLAGS_OFFSET, POSIX_LOCK_FLAG_WAIT);
1109 cli->timeout = 0x7FFFFFFF;
1111 SSVAL(data, POSIX_LOCK_FLAGS_OFFSET, POSIX_LOCK_FLAG_NOWAIT);
1114 SIVAL(data, POSIX_LOCK_PID_OFFSET, cli->pid);
1115 SOFF_T(data, POSIX_LOCK_START_OFFSET, offset);
1116 SOFF_T(data, POSIX_LOCK_LEN_OFFSET, len);
1118 if (!cli_send_trans(cli, SMBtrans2,
1120 -1, 0, /* fid, flags */
1121 &setup, 1, 0, /* setup, length, max */
1122 param, param_len, 2, /* param, length, max */
1123 (char *)&data, data_len, cli->max_xmit /* data, length, max */
1125 cli->timeout = saved_timeout;
1129 if (!cli_receive_trans(cli, SMBtrans2,
1130 &rparam, ¶m_len,
1131 &rdata, &data_len)) {
1132 cli->timeout = saved_timeout;
1138 cli->timeout = saved_timeout;
1146 /****************************************************************************
1148 ****************************************************************************/
1150 BOOL cli_posix_lock(struct cli_state *cli, int fnum,
1151 SMB_BIG_UINT offset, SMB_BIG_UINT len,
1152 BOOL wait_lock, enum brl_type lock_type)
1154 if (lock_type != READ_LOCK && lock_type != WRITE_LOCK) {
1157 return cli_posix_lock_internal(cli, fnum, offset, len, wait_lock, lock_type);
1160 /****************************************************************************
1161 POSIX Unlock a file.
1162 ****************************************************************************/
1164 BOOL cli_posix_unlock(struct cli_state *cli, int fnum, SMB_BIG_UINT offset, SMB_BIG_UINT len)
1166 return cli_posix_lock_internal(cli, fnum, offset, len, False, UNLOCK_LOCK);
1169 /****************************************************************************
1170 POSIX Get any lock covering a file.
1171 ****************************************************************************/
1173 BOOL cli_posix_getlock(struct cli_state *cli, int fnum, SMB_BIG_UINT *poffset, SMB_BIG_UINT *plen)
1178 /****************************************************************************
1179 Do a SMBgetattrE call.
1180 ****************************************************************************/
1182 BOOL cli_getattrE(struct cli_state *cli, int fd,
1183 uint16 *attr, SMB_OFF_T *size,
1184 time_t *change_time,
1185 time_t *access_time,
1188 memset(cli->outbuf,'\0',smb_size);
1189 memset(cli->inbuf,'\0',smb_size);
1191 set_message(cli->outbuf,1,0,True);
1193 SCVAL(cli->outbuf,smb_com,SMBgetattrE);
1194 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1195 cli_setup_packet(cli);
1197 SSVAL(cli->outbuf,smb_vwv0,fd);
1200 if (!cli_receive_smb(cli)) {
1204 if (cli_is_error(cli)) {
1209 *size = IVAL(cli->inbuf, smb_vwv6);
1213 *attr = SVAL(cli->inbuf,smb_vwv10);
1217 *change_time = cli_make_unix_date2(cli, cli->inbuf+smb_vwv0);
1221 *access_time = cli_make_unix_date2(cli, cli->inbuf+smb_vwv2);
1225 *write_time = cli_make_unix_date2(cli, cli->inbuf+smb_vwv4);
1231 /****************************************************************************
1233 ****************************************************************************/
1235 BOOL cli_getatr(struct cli_state *cli, const char *fname,
1236 uint16 *attr, SMB_OFF_T *size, time_t *write_time)
1240 memset(cli->outbuf,'\0',smb_size);
1241 memset(cli->inbuf,'\0',smb_size);
1243 set_message(cli->outbuf,0,0,True);
1245 SCVAL(cli->outbuf,smb_com,SMBgetatr);
1246 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1247 cli_setup_packet(cli);
1249 p = smb_buf(cli->outbuf);
1251 p += clistr_push(cli, p, fname, -1, STR_TERMINATE);
1253 cli_setup_bcc(cli, p);
1256 if (!cli_receive_smb(cli)) {
1260 if (cli_is_error(cli)) {
1265 *size = IVAL(cli->inbuf, smb_vwv3);
1269 *write_time = cli_make_unix_date3(cli, cli->inbuf+smb_vwv1);
1273 *attr = SVAL(cli->inbuf,smb_vwv0);
1280 /****************************************************************************
1281 Do a SMBsetattrE call.
1282 ****************************************************************************/
1284 BOOL cli_setattrE(struct cli_state *cli, int fd,
1292 memset(cli->outbuf,'\0',smb_size);
1293 memset(cli->inbuf,'\0',smb_size);
1295 set_message(cli->outbuf,7,0,True);
1297 SCVAL(cli->outbuf,smb_com,SMBsetattrE);
1298 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1299 cli_setup_packet(cli);
1301 SSVAL(cli->outbuf,smb_vwv0, fd);
1302 cli_put_dos_date2(cli, cli->outbuf,smb_vwv1, change_time);
1303 cli_put_dos_date2(cli, cli->outbuf,smb_vwv3, access_time);
1304 cli_put_dos_date2(cli, cli->outbuf,smb_vwv5, write_time);
1306 p = smb_buf(cli->outbuf);
1309 cli_setup_bcc(cli, p);
1312 if (!cli_receive_smb(cli)) {
1316 if (cli_is_error(cli)) {
1323 /****************************************************************************
1324 Do a SMBsetatr call.
1325 ****************************************************************************/
1327 BOOL cli_setatr(struct cli_state *cli, const char *fname, uint16 attr, time_t t)
1331 memset(cli->outbuf,'\0',smb_size);
1332 memset(cli->inbuf,'\0',smb_size);
1334 set_message(cli->outbuf,8,0,True);
1336 SCVAL(cli->outbuf,smb_com,SMBsetatr);
1337 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1338 cli_setup_packet(cli);
1340 SSVAL(cli->outbuf,smb_vwv0, attr);
1341 cli_put_dos_date3(cli, cli->outbuf,smb_vwv1, t);
1343 p = smb_buf(cli->outbuf);
1345 p += clistr_push(cli, p, fname, -1, STR_TERMINATE);
1348 cli_setup_bcc(cli, p);
1351 if (!cli_receive_smb(cli)) {
1355 if (cli_is_error(cli)) {
1362 /****************************************************************************
1363 Check for existance of a dir.
1364 ****************************************************************************/
1365 BOOL cli_chkpath(struct cli_state *cli, const char *path)
1370 pstrcpy(path2,path);
1371 trim_char(path2,'\0','\\');
1375 memset(cli->outbuf,'\0',smb_size);
1376 set_message(cli->outbuf,0,0,True);
1377 SCVAL(cli->outbuf,smb_com,SMBcheckpath);
1378 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1379 cli_setup_packet(cli);
1380 p = smb_buf(cli->outbuf);
1382 p += clistr_push(cli, p, path2, -1, STR_TERMINATE);
1384 cli_setup_bcc(cli, p);
1387 if (!cli_receive_smb(cli)) {
1391 if (cli_is_error(cli)) return False;
1396 /****************************************************************************
1398 ****************************************************************************/
1400 BOOL cli_dskattr(struct cli_state *cli, int *bsize, int *total, int *avail)
1402 memset(cli->outbuf,'\0',smb_size);
1403 set_message(cli->outbuf,0,0,True);
1404 SCVAL(cli->outbuf,smb_com,SMBdskattr);
1405 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1406 cli_setup_packet(cli);
1409 if (!cli_receive_smb(cli)) {
1413 *bsize = SVAL(cli->inbuf,smb_vwv1)*SVAL(cli->inbuf,smb_vwv2);
1414 *total = SVAL(cli->inbuf,smb_vwv0);
1415 *avail = SVAL(cli->inbuf,smb_vwv3);
1420 /****************************************************************************
1421 Create and open a temporary file.
1422 ****************************************************************************/
1424 int cli_ctemp(struct cli_state *cli, const char *path, char **tmp_path)
1429 memset(cli->outbuf,'\0',smb_size);
1430 memset(cli->inbuf,'\0',smb_size);
1432 set_message(cli->outbuf,3,0,True);
1434 SCVAL(cli->outbuf,smb_com,SMBctemp);
1435 SSVAL(cli->outbuf,smb_tid,cli->cnum);
1436 cli_setup_packet(cli);
1438 SSVAL(cli->outbuf,smb_vwv0,0);
1439 SIVALS(cli->outbuf,smb_vwv1,-1);
1441 p = smb_buf(cli->outbuf);
1443 p += clistr_push(cli, p, path, -1, STR_TERMINATE);
1445 cli_setup_bcc(cli, p);
1448 if (!cli_receive_smb(cli)) {
1452 if (cli_is_error(cli)) {
1456 /* despite the spec, the result has a -1, followed by
1457 length, followed by name */
1458 p = smb_buf(cli->inbuf);
1460 len = smb_buflen(cli->inbuf) - 4;
1461 if (len <= 0) return -1;
1465 clistr_pull(cli, path2, p,
1466 sizeof(path2), len, STR_ASCII);
1467 *tmp_path = SMB_STRDUP(path2);
1470 return SVAL(cli->inbuf,smb_vwv0);
1475 send a raw ioctl - used by the torture code
1477 NTSTATUS cli_raw_ioctl(struct cli_state *cli, int fnum, uint32 code, DATA_BLOB *blob)
1479 memset(cli->outbuf,'\0',smb_size);
1480 memset(cli->inbuf,'\0',smb_size);
1482 set_message(cli->outbuf, 3, 0, True);
1483 SCVAL(cli->outbuf,smb_com,SMBioctl);
1484 cli_setup_packet(cli);
1486 SSVAL(cli->outbuf, smb_vwv0, fnum);
1487 SSVAL(cli->outbuf, smb_vwv1, code>>16);
1488 SSVAL(cli->outbuf, smb_vwv2, (code&0xFFFF));
1491 if (!cli_receive_smb(cli)) {
1492 return NT_STATUS_UNEXPECTED_NETWORK_ERROR;
1495 if (cli_is_error(cli)) {
1496 return cli_nt_error(cli);
1499 *blob = data_blob(NULL, 0);
1501 return NT_STATUS_OK;
1504 /*********************************************************
1505 Set an extended attribute utility fn.
1506 *********************************************************/
1508 static BOOL cli_set_ea(struct cli_state *cli, uint16 setup, char *param, unsigned int param_len,
1509 const char *ea_name, const char *ea_val, size_t ea_len)
1511 unsigned int data_len = 0;
1513 char *rparam=NULL, *rdata=NULL;
1515 size_t ea_namelen = strlen(ea_name);
1517 if (ea_namelen == 0 && ea_len == 0) {
1519 data = (char *)SMB_MALLOC(data_len);
1524 SIVAL(p,0,data_len);
1526 data_len = 4 + 4 + ea_namelen + 1 + ea_len;
1527 data = (char *)SMB_MALLOC(data_len);
1532 SIVAL(p,0,data_len);
1534 SCVAL(p, 0, 0); /* EA flags. */
1535 SCVAL(p, 1, ea_namelen);
1536 SSVAL(p, 2, ea_len);
1537 memcpy(p+4, ea_name, ea_namelen+1); /* Copy in the name. */
1538 memcpy(p+4+ea_namelen+1, ea_val, ea_len);
1541 if (!cli_send_trans(cli, SMBtrans2,
1543 -1, 0, /* fid, flags */
1544 &setup, 1, 0, /* setup, length, max */
1545 param, param_len, 2, /* param, length, max */
1546 data, data_len, cli->max_xmit /* data, length, max */
1551 if (!cli_receive_trans(cli, SMBtrans2,
1552 &rparam, ¶m_len,
1553 &rdata, &data_len)) {
1564 /*********************************************************
1565 Set an extended attribute on a pathname.
1566 *********************************************************/
1568 BOOL cli_set_ea_path(struct cli_state *cli, const char *path, const char *ea_name, const char *ea_val, size_t ea_len)
1570 uint16 setup = TRANSACT2_SETPATHINFO;
1571 unsigned int param_len = 0;
1572 char param[sizeof(pstring)+6];
1573 size_t srclen = 2*(strlen(path)+1);
1576 memset(param, 0, sizeof(param));
1577 SSVAL(param,0,SMB_INFO_SET_EA);
1580 p += clistr_push(cli, p, path, MIN(srclen, sizeof(param)-6), STR_TERMINATE);
1581 param_len = PTR_DIFF(p, param);
1583 return cli_set_ea(cli, setup, param, param_len, ea_name, ea_val, ea_len);
1586 /*********************************************************
1587 Set an extended attribute on an fnum.
1588 *********************************************************/
1590 BOOL cli_set_ea_fnum(struct cli_state *cli, int fnum, const char *ea_name, const char *ea_val, size_t ea_len)
1593 uint16 setup = TRANSACT2_SETFILEINFO;
1595 memset(param, 0, 6);
1596 SSVAL(param,0,fnum);
1597 SSVAL(param,2,SMB_INFO_SET_EA);
1599 return cli_set_ea(cli, setup, param, 6, ea_name, ea_val, ea_len);
1602 /*********************************************************
1603 Get an extended attribute list tility fn.
1604 *********************************************************/
1606 static BOOL cli_get_ea_list(struct cli_state *cli,
1607 uint16 setup, char *param, unsigned int param_len,
1610 struct ea_struct **pea_list)
1612 unsigned int data_len = 0;
1613 unsigned int rparam_len, rdata_len;
1614 char *rparam=NULL, *rdata=NULL;
1619 struct ea_struct *ea_list;
1626 if (!cli_send_trans(cli, SMBtrans2,
1628 -1, 0, /* fid, flags */
1629 &setup, 1, 0, /* setup, length, max */
1630 param, param_len, 10, /* param, length, max */
1631 NULL, data_len, cli->max_xmit /* data, length, max */
1636 if (!cli_receive_trans(cli, SMBtrans2,
1637 &rparam, &rparam_len,
1638 &rdata, &rdata_len)) {
1642 if (!rdata || rdata_len < 4) {
1646 ea_size = (size_t)IVAL(rdata,0);
1647 if (ea_size > rdata_len) {
1652 /* No EA's present. */
1660 /* Validate the EA list and count it. */
1661 for (num_eas = 0; ea_size >= 4; num_eas++) {
1662 unsigned int ea_namelen = CVAL(p,1);
1663 unsigned int ea_valuelen = SVAL(p,2);
1664 if (ea_namelen == 0) {
1667 if (4 + ea_namelen + 1 + ea_valuelen > ea_size) {
1670 ea_size -= 4 + ea_namelen + 1 + ea_valuelen;
1671 p += 4 + ea_namelen + 1 + ea_valuelen;
1679 *pnum_eas = num_eas;
1681 /* Caller only wants number of EA's. */
1686 ea_list = TALLOC_ARRAY(ctx, struct ea_struct, num_eas);
1691 ea_size = (size_t)IVAL(rdata,0);
1694 for (num_eas = 0; num_eas < *pnum_eas; num_eas++ ) {
1695 struct ea_struct *ea = &ea_list[num_eas];
1696 fstring unix_ea_name;
1697 unsigned int ea_namelen = CVAL(p,1);
1698 unsigned int ea_valuelen = SVAL(p,2);
1700 ea->flags = CVAL(p,0);
1701 unix_ea_name[0] = '\0';
1702 pull_ascii_fstring(unix_ea_name, p + 4);
1703 ea->name = talloc_strdup(ctx, unix_ea_name);
1704 /* Ensure the value is null terminated (in case it's a string). */
1705 ea->value = data_blob_talloc(ctx, NULL, ea_valuelen + 1);
1706 if (!ea->value.data) {
1710 memcpy(ea->value.data, p+4+ea_namelen+1, ea_valuelen);
1712 ea->value.data[ea_valuelen] = 0;
1714 p += 4 + ea_namelen + 1 + ea_valuelen;
1717 *pea_list = ea_list;
1727 /*********************************************************
1728 Get an extended attribute list from a pathname.
1729 *********************************************************/
1731 BOOL cli_get_ea_list_path(struct cli_state *cli, const char *path,
1734 struct ea_struct **pea_list)
1736 uint16 setup = TRANSACT2_QPATHINFO;
1737 unsigned int param_len = 0;
1738 char param[sizeof(pstring)+6];
1743 SSVAL(p, 0, SMB_INFO_QUERY_ALL_EAS);
1745 p += clistr_push(cli, p, path, sizeof(pstring)-6, STR_TERMINATE);
1746 param_len = PTR_DIFF(p, param);
1748 return cli_get_ea_list(cli, setup, param, param_len, ctx, pnum_eas, pea_list);
1751 /*********************************************************
1752 Get an extended attribute list from an fnum.
1753 *********************************************************/
1755 BOOL cli_get_ea_list_fnum(struct cli_state *cli, int fnum,
1758 struct ea_struct **pea_list)
1760 uint16 setup = TRANSACT2_QFILEINFO;
1763 memset(param, 0, 6);
1764 SSVAL(param,0,fnum);
1765 SSVAL(param,2,SMB_INFO_SET_EA);
1767 return cli_get_ea_list(cli, setup, param, 6, ctx, pnum_eas, pea_list);