s3:libsmb: move cli->protocol to cli->conn.protocol
[nivanova/samba-autobuild/.git] / source3 / libsmb / clientgen.c
1 /* 
2    Unix SMB/CIFS implementation.
3    SMB client generic functions
4    Copyright (C) Andrew Tridgell 1994-1998
5    Copyright (C) Jeremy Allison 2007.
6    
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 3 of the License, or
10    (at your option) any later version.
11    
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.
16    
17    You should have received a copy of the GNU General Public License
18    along with this program.  If not, see <http://www.gnu.org/licenses/>.
19 */
20
21 #include "includes.h"
22 #include "libsmb/libsmb.h"
23 #include "../lib/util/tevent_ntstatus.h"
24 #include "smb_signing.h"
25 #include "async_smb.h"
26
27 /*******************************************************************
28  Setup the word count and byte count for a client smb message.
29 ********************************************************************/
30
31 int cli_set_message(char *buf,int num_words,int num_bytes,bool zero)
32 {
33         if (zero && (num_words || num_bytes)) {
34                 memset(buf + smb_size,'\0',num_words*2 + num_bytes);
35         }
36         SCVAL(buf,smb_wct,num_words);
37         SSVAL(buf,smb_vwv + num_words*SIZEOFWORD,num_bytes);
38         smb_setlen(buf,smb_size + num_words*2 + num_bytes - 4);
39         return (smb_size + num_words*2 + num_bytes);
40 }
41
42 /****************************************************************************
43  Change the timeout (in milliseconds).
44 ****************************************************************************/
45
46 unsigned int cli_set_timeout(struct cli_state *cli, unsigned int timeout)
47 {
48         unsigned int old_timeout = cli->timeout;
49         cli->timeout = timeout;
50         return old_timeout;
51 }
52
53 /****************************************************************************
54  convenience routine to find if we negotiated ucs2
55 ****************************************************************************/
56
57 bool cli_ucs2(struct cli_state *cli)
58 {
59         return ((cli_state_capabilities(cli) & CAP_UNICODE) != 0);
60 }
61
62 /****************************************************************************
63  Setup basics in a outgoing packet.
64 ****************************************************************************/
65
66 void cli_setup_packet_buf(struct cli_state *cli, char *buf)
67 {
68         uint16 flags2;
69         cli->rap_error = 0;
70         SIVAL(buf,smb_rcls,0);
71         SSVAL(buf,smb_pid,cli->smb1.pid);
72         memset(buf+smb_pidhigh, 0, 12);
73         SSVAL(buf,smb_uid, cli_state_get_uid(cli));
74         SSVAL(buf,smb_mid, 0);
75
76         if (cli_state_protocol(cli) <= PROTOCOL_CORE) {
77                 return;
78         }
79
80         if (cli->case_sensitive) {
81                 SCVAL(buf,smb_flg,0x0);
82         } else {
83                 /* Default setting, case insensitive. */
84                 SCVAL(buf,smb_flg,0x8);
85         }
86         flags2 = FLAGS2_LONG_PATH_COMPONENTS;
87         if (cli_state_capabilities(cli) & CAP_UNICODE)
88                 flags2 |= FLAGS2_UNICODE_STRINGS;
89         if ((cli_state_capabilities(cli) & CAP_DFS) && cli->dfsroot)
90                 flags2 |= FLAGS2_DFS_PATHNAMES;
91         if (cli_state_capabilities(cli) & CAP_STATUS32)
92                 flags2 |= FLAGS2_32_BIT_ERROR_CODES;
93         if (cli_state_capabilities(cli) & CAP_EXTENDED_SECURITY)
94                 flags2 |= FLAGS2_EXTENDED_SECURITY;
95         SSVAL(buf,smb_flg2, flags2);
96 }
97
98 /****************************************************************************
99  Initialize Domain, user or password.
100 ****************************************************************************/
101
102 NTSTATUS cli_set_domain(struct cli_state *cli, const char *domain)
103 {
104         TALLOC_FREE(cli->domain);
105         cli->domain = talloc_strdup(cli, domain ? domain : "");
106         if (cli->domain == NULL) {
107                 return NT_STATUS_NO_MEMORY;
108         }
109         return NT_STATUS_OK;
110 }
111
112 NTSTATUS cli_set_username(struct cli_state *cli, const char *username)
113 {
114         TALLOC_FREE(cli->user_name);
115         cli->user_name = talloc_strdup(cli, username ? username : "");
116         if (cli->user_name == NULL) {
117                 return NT_STATUS_NO_MEMORY;
118         }
119         return NT_STATUS_OK;
120 }
121
122 NTSTATUS cli_set_password(struct cli_state *cli, const char *password)
123 {
124         TALLOC_FREE(cli->password);
125
126         /* Password can be NULL. */
127         if (password) {
128                 cli->password = talloc_strdup(cli, password);
129                 if (cli->password == NULL) {
130                         return NT_STATUS_NO_MEMORY;
131                 }
132         } else {
133                 /* Use zero NTLMSSP hashes and session key. */
134                 cli->password = NULL;
135         }
136
137         return NT_STATUS_OK;
138 }
139
140 /****************************************************************************
141  Initialise credentials of a client structure.
142 ****************************************************************************/
143
144 NTSTATUS cli_init_creds(struct cli_state *cli, const char *username, const char *domain, const char *password)
145 {
146         NTSTATUS status = cli_set_username(cli, username);
147         if (!NT_STATUS_IS_OK(status)) {
148                 return status;
149         }
150         status = cli_set_domain(cli, domain);
151         if (!NT_STATUS_IS_OK(status)) {
152                 return status;
153         }
154         DEBUG(10,("cli_init_creds: user %s domain %s\n", cli->user_name, cli->domain));
155
156         return cli_set_password(cli, password);
157 }
158
159 /****************************************************************************
160  Initialise a client structure. Always returns a talloc'ed struct.
161  Set the signing state (used from the command line).
162 ****************************************************************************/
163
164 struct cli_state *cli_state_create(TALLOC_CTX *mem_ctx,
165                                    int fd,
166                                    const char *remote_name,
167                                    const char *remote_realm,
168                                    int signing_state, int flags)
169 {
170         struct cli_state *cli = NULL;
171         bool allow_smb_signing;
172         bool desire_smb_signing;
173         bool mandatory_signing;
174         socklen_t ss_length;
175         int ret;
176         bool use_spnego = lp_client_use_spnego();
177         bool force_dos_errors = false;
178         bool force_ascii = false;
179         bool use_level_II_oplocks = false;
180
181         /* Check the effective uid - make sure we are not setuid */
182         if (is_setuid_root()) {
183                 DEBUG(0,("libsmb based programs must *NOT* be setuid root.\n"));
184                 return NULL;
185         }
186
187         cli = talloc_zero(mem_ctx, struct cli_state);
188         if (!cli) {
189                 return NULL;
190         }
191
192         cli->dfs_mountpoint = talloc_strdup(cli, "");
193         if (!cli->dfs_mountpoint) {
194                 goto error;
195         }
196         cli->raw_status = NT_STATUS_INTERNAL_ERROR;
197         cli->timeout = 20000; /* Timeout is in milliseconds. */
198         cli->max_xmit = CLI_BUFFER_SIZE+4;
199         cli->case_sensitive = false;
200
201         /* Set the CLI_FORCE_DOSERR environment variable to test
202            client routines using DOS errors instead of STATUS32
203            ones.  This intended only as a temporary hack. */    
204         if (getenv("CLI_FORCE_DOSERR")) {
205                 force_dos_errors = true;
206         }
207         if (flags & CLI_FULL_CONNECTION_FORCE_DOS_ERRORS) {
208                 force_dos_errors = true;
209         }
210
211         if (getenv("CLI_FORCE_ASCII")) {
212                 force_ascii = true;
213         }
214         if (flags & CLI_FULL_CONNECTION_FORCE_ASCII) {
215                 force_ascii = true;
216         }
217
218         if (flags & CLI_FULL_CONNECTION_DONT_SPNEGO) {
219                 use_spnego = false;
220         } else if (flags & CLI_FULL_CONNECTION_USE_KERBEROS) {
221                 cli->use_kerberos = true;
222         }
223         if ((flags & CLI_FULL_CONNECTION_FALLBACK_AFTER_KERBEROS) &&
224              cli->use_kerberos) {
225                 cli->fallback_after_kerberos = true;
226         }
227
228         if (flags & CLI_FULL_CONNECTION_USE_CCACHE) {
229                 cli->use_ccache = true;
230         }
231
232         if (flags & CLI_FULL_CONNECTION_OPLOCKS) {
233                 cli->use_oplocks = true;
234         }
235         if (flags & CLI_FULL_CONNECTION_LEVEL_II_OPLOCKS) {
236                 use_level_II_oplocks = true;
237         }
238
239         if (signing_state == Undefined) {
240                 signing_state = lp_client_signing();
241         }
242
243         switch (signing_state) {
244         case false:
245                 /* never */
246                 allow_smb_signing = false;
247                 desire_smb_signing = false;
248                 mandatory_signing = false;
249                 break;
250         case true:
251                 /* if the server supports it */
252                 allow_smb_signing = true;
253                 desire_smb_signing = true;
254                 mandatory_signing = false;
255                 break;
256         default:
257         case Undefined:
258         case Auto:
259                 /* if the server requires it */
260                 allow_smb_signing = true;
261                 desire_smb_signing = false;
262                 mandatory_signing = false;
263                 break;
264         case Required:
265                 /* always */
266                 allow_smb_signing = true;
267                 desire_smb_signing = true;
268                 mandatory_signing = true;
269                 break;
270         }
271
272         /* initialise signing */
273         cli->signing_state = smb_signing_init(cli,
274                                               allow_smb_signing,
275                                               desire_smb_signing,
276                                               mandatory_signing);
277         if (!cli->signing_state) {
278                 goto error;
279         }
280
281         cli->capabilities = 0;
282         cli->capabilities |= CAP_LARGE_FILES;
283         cli->capabilities |= CAP_NT_SMBS | CAP_RPC_REMOTE_APIS;
284         cli->capabilities |= CAP_LOCK_AND_READ | CAP_NT_FIND;
285         cli->capabilities |= CAP_DFS | CAP_W2K_SMBS;
286         cli->capabilities |= CAP_LARGE_READX|CAP_LARGE_WRITEX;
287         cli->capabilities |= CAP_LWIO;
288
289         if (!force_dos_errors) {
290                 cli->capabilities |= CAP_STATUS32;
291         }
292
293         if (!force_ascii) {
294                 cli->capabilities |= CAP_UNICODE;
295         }
296
297         if (use_spnego) {
298                 cli->capabilities |= CAP_EXTENDED_SECURITY;
299         }
300
301         if (use_level_II_oplocks) {
302                 cli->capabilities |= CAP_LEVEL_II_OPLOCKS;
303         }
304
305         cli->conn.outgoing = tevent_queue_create(cli, "cli_outgoing");
306         if (cli->conn.outgoing == NULL) {
307                 goto error;
308         }
309         cli->conn.pending = NULL;
310
311         cli->conn.remote_name = talloc_strdup(cli, remote_name);
312         if (cli->conn.remote_name == NULL) {
313                 goto error;
314         }
315
316         if (remote_realm) {
317                 cli->conn.remote_realm = talloc_strdup(cli, remote_realm);
318                 if (cli->conn.remote_realm == NULL) {
319                         goto error;
320                 }
321         }
322
323         cli->conn.fd = fd;
324
325         ss_length = sizeof(cli->conn.local_ss);
326         ret = getsockname(fd,
327                           (struct sockaddr *)(void *)&cli->conn.local_ss,
328                           &ss_length);
329         if (ret == -1) {
330                 goto error;
331         }
332         ss_length = sizeof(cli->conn.remote_ss);
333         ret = getpeername(fd,
334                           (struct sockaddr *)(void *)&cli->conn.remote_ss,
335                           &ss_length);
336         if (ret == -1) {
337                 goto error;
338         }
339
340         cli->smb1.mid = 1;
341         cli->smb1.pid = (uint16_t)sys_getpid();
342         cli->smb1.vc_num = cli->smb1.pid;
343         cli->smb1.tid = UINT16_MAX;
344         cli->smb1.uid = UID_FIELD_INVALID;
345
346         cli->initialised = 1;
347         return cli;
348
349         /* Clean up after malloc() error */
350
351  error:
352
353         TALLOC_FREE(cli);
354         return NULL;
355 }
356
357 bool cli_state_encryption_on(struct cli_state *cli)
358 {
359         return common_encryption_on(cli->trans_enc_state);
360 }
361
362
363 /****************************************************************************
364  Close all pipes open on this session.
365 ****************************************************************************/
366
367 void cli_nt_pipes_close(struct cli_state *cli)
368 {
369         while (cli->pipe_list != NULL) {
370                 /*
371                  * No TALLOC_FREE here!
372                  */
373                 talloc_free(cli->pipe_list);
374         }
375 }
376
377 /****************************************************************************
378  Shutdown a client structure.
379 ****************************************************************************/
380
381 static void _cli_shutdown(struct cli_state *cli)
382 {
383         cli_nt_pipes_close(cli);
384
385         /*
386          * tell our peer to free his resources.  Wihtout this, when an
387          * application attempts to do a graceful shutdown and calls
388          * smbc_free_context() to clean up all connections, some connections
389          * can remain active on the peer end, until some (long) timeout period
390          * later.  This tree disconnect forces the peer to clean up, since the
391          * connection will be going away.
392          */
393         if (cli_state_has_tcon(cli)) {
394                 cli_tdis(cli);
395         }
396         
397         data_blob_free(&cli->secblob);
398         data_blob_free(&cli->user_session_key);
399
400         cli_state_disconnect(cli);
401
402         /*
403          * Need to free pending first, they remove themselves
404          */
405         while (cli->conn.pending) {
406                 talloc_free(cli->conn.pending[0]);
407         }
408         TALLOC_FREE(cli);
409 }
410
411 void cli_shutdown(struct cli_state *cli)
412 {
413         struct cli_state *cli_head;
414         if (cli == NULL) {
415                 return;
416         }
417         DLIST_HEAD(cli, cli_head);
418         if (cli_head == cli) {
419                 /*
420                  * head of a DFS list, shutdown all subsidiary DFS
421                  * connections.
422                  */
423                 struct cli_state *p, *next;
424
425                 for (p = cli_head->next; p; p = next) {
426                         next = p->next;
427                         DLIST_REMOVE(cli_head, p);
428                         _cli_shutdown(p);
429                 }
430         } else {
431                 DLIST_REMOVE(cli_head, cli);
432         }
433
434         _cli_shutdown(cli);
435 }
436
437 /****************************************************************************
438  Set socket options on a open connection.
439 ****************************************************************************/
440
441 void cli_sockopt(struct cli_state *cli, const char *options)
442 {
443         set_socket_options(cli->conn.fd, options);
444 }
445
446 const struct sockaddr_storage *cli_state_local_sockaddr(struct cli_state *cli)
447 {
448         return &cli->conn.local_ss;
449 }
450
451 const struct sockaddr_storage *cli_state_remote_sockaddr(struct cli_state *cli)
452 {
453         return &cli->conn.remote_ss;
454 }
455
456 const char *cli_state_remote_name(struct cli_state *cli)
457 {
458         return cli->conn.remote_name;
459 }
460
461 const char *cli_state_remote_realm(struct cli_state *cli)
462 {
463         return cli->conn.remote_realm;
464 }
465
466 uint16_t cli_state_get_vc_num(struct cli_state *cli)
467 {
468         return cli->smb1.vc_num;
469 }
470
471 uint32_t cli_state_server_session_key(struct cli_state *cli)
472 {
473         return cli->sesskey;
474 }
475
476 /****************************************************************************
477  Set the PID to use for smb messages. Return the old pid.
478 ****************************************************************************/
479
480 uint16 cli_setpid(struct cli_state *cli, uint16 pid)
481 {
482         uint16_t ret = cli->smb1.pid;
483         cli->smb1.pid = pid;
484         return ret;
485 }
486
487 uint16_t cli_getpid(struct cli_state *cli)
488 {
489         return cli->smb1.pid;
490 }
491
492 bool cli_state_has_tcon(struct cli_state *cli)
493 {
494         if (cli->smb1.tid == UINT16_MAX) {
495                 return false;
496         }
497
498         return true;
499 }
500
501 uint16_t cli_state_get_tid(struct cli_state *cli)
502 {
503         return cli->smb1.tid;
504 }
505
506 uint16_t cli_state_set_tid(struct cli_state *cli, uint16_t tid)
507 {
508         uint16_t ret = cli->smb1.tid;
509         cli->smb1.tid = tid;
510         return ret;
511 }
512
513 uint16_t cli_state_get_uid(struct cli_state *cli)
514 {
515         return cli->smb1.uid;
516 }
517
518 uint16_t cli_state_set_uid(struct cli_state *cli, uint16_t uid)
519 {
520         uint16_t ret = cli->smb1.uid;
521         cli->smb1.uid = uid;
522         return ret;
523 }
524
525 /****************************************************************************
526  Set the case sensitivity flag on the packets. Returns old state.
527 ****************************************************************************/
528
529 bool cli_set_case_sensitive(struct cli_state *cli, bool case_sensitive)
530 {
531         bool ret = cli->case_sensitive;
532         cli->case_sensitive = case_sensitive;
533         return ret;
534 }
535
536 enum protocol_types cli_state_protocol(struct cli_state *cli)
537 {
538         return cli->conn.protocol;
539 }
540
541 uint32_t cli_state_capabilities(struct cli_state *cli)
542 {
543         return cli->capabilities;
544 }
545
546 uint32_t cli_state_available_size(struct cli_state *cli, uint32_t ofs)
547 {
548         uint32_t ret = cli->max_xmit;
549
550         if (ofs >= ret) {
551                 return 0;
552         }
553
554         ret -= ofs;
555
556         return ret;
557 }
558
559 uint16_t cli_state_max_requests(struct cli_state *cli)
560 {
561         return cli->max_mux;
562 }
563
564 uint16_t cli_state_security_mode(struct cli_state *cli)
565 {
566         return cli->sec_mode;
567 }
568
569 int cli_state_server_time_zone(struct cli_state *cli)
570 {
571         return cli->serverzone;
572 }
573
574 time_t cli_state_server_time(struct cli_state *cli)
575 {
576         return cli->servertime;
577 }
578
579 struct cli_echo_state {
580         uint16_t vwv[1];
581         DATA_BLOB data;
582         int num_echos;
583 };
584
585 static void cli_echo_done(struct tevent_req *subreq);
586
587 struct tevent_req *cli_echo_send(TALLOC_CTX *mem_ctx, struct event_context *ev,
588                                  struct cli_state *cli, uint16_t num_echos,
589                                  DATA_BLOB data)
590 {
591         struct tevent_req *req, *subreq;
592         struct cli_echo_state *state;
593
594         req = tevent_req_create(mem_ctx, &state, struct cli_echo_state);
595         if (req == NULL) {
596                 return NULL;
597         }
598         SSVAL(state->vwv, 0, num_echos);
599         state->data = data;
600         state->num_echos = num_echos;
601
602         subreq = cli_smb_send(state, ev, cli, SMBecho, 0, 1, state->vwv,
603                               data.length, data.data);
604         if (subreq == NULL) {
605                 goto fail;
606         }
607         tevent_req_set_callback(subreq, cli_echo_done, req);
608         return req;
609  fail:
610         TALLOC_FREE(req);
611         return NULL;
612 }
613
614 static void cli_echo_done(struct tevent_req *subreq)
615 {
616         struct tevent_req *req = tevent_req_callback_data(
617                 subreq, struct tevent_req);
618         struct cli_echo_state *state = tevent_req_data(
619                 req, struct cli_echo_state);
620         NTSTATUS status;
621         uint32_t num_bytes;
622         uint8_t *bytes;
623         uint8_t *inbuf;
624
625         status = cli_smb_recv(subreq, state, &inbuf, 0, NULL, NULL,
626                               &num_bytes, &bytes);
627         if (!NT_STATUS_IS_OK(status)) {
628                 tevent_req_nterror(req, status);
629                 return;
630         }
631         if ((num_bytes != state->data.length)
632             || (memcmp(bytes, state->data.data, num_bytes) != 0)) {
633                 tevent_req_nterror(req, NT_STATUS_INVALID_NETWORK_RESPONSE);
634                 return;
635         }
636
637         state->num_echos -=1;
638         if (state->num_echos == 0) {
639                 tevent_req_done(req);
640                 return;
641         }
642
643         if (!cli_smb_req_set_pending(subreq)) {
644                 tevent_req_nterror(req, NT_STATUS_NO_MEMORY);
645                 return;
646         }
647 }
648
649 /**
650  * Get the result out from an echo request
651  * @param[in] req       The async_req from cli_echo_send
652  * @retval Did the server reply correctly?
653  */
654
655 NTSTATUS cli_echo_recv(struct tevent_req *req)
656 {
657         return tevent_req_simple_recv_ntstatus(req);
658 }
659
660 /**
661  * @brief Send/Receive SMBEcho requests
662  * @param[in] mem_ctx   The memory context to put the async_req on
663  * @param[in] ev        The event context that will call us back
664  * @param[in] cli       The connection to send the echo to
665  * @param[in] num_echos How many times do we want to get the reply?
666  * @param[in] data      The data we want to get back
667  * @retval Did the server reply correctly?
668  */
669
670 NTSTATUS cli_echo(struct cli_state *cli, uint16_t num_echos, DATA_BLOB data)
671 {
672         TALLOC_CTX *frame = talloc_stackframe();
673         struct event_context *ev;
674         struct tevent_req *req;
675         NTSTATUS status = NT_STATUS_OK;
676
677         if (cli_has_async_calls(cli)) {
678                 /*
679                  * Can't use sync call while an async call is in flight
680                  */
681                 status = NT_STATUS_INVALID_PARAMETER;
682                 goto fail;
683         }
684
685         ev = event_context_init(frame);
686         if (ev == NULL) {
687                 status = NT_STATUS_NO_MEMORY;
688                 goto fail;
689         }
690
691         req = cli_echo_send(frame, ev, cli, num_echos, data);
692         if (req == NULL) {
693                 status = NT_STATUS_NO_MEMORY;
694                 goto fail;
695         }
696
697         if (!tevent_req_poll(req, ev)) {
698                 status = map_nt_error_from_unix(errno);
699                 goto fail;
700         }
701
702         status = cli_echo_recv(req);
703  fail:
704         TALLOC_FREE(frame);
705         return status;
706 }
707
708 /**
709  * Is the SMB command able to hold an AND_X successor
710  * @param[in] cmd       The SMB command in question
711  * @retval Can we add a chained request after "cmd"?
712  */
713 bool is_andx_req(uint8_t cmd)
714 {
715         switch (cmd) {
716         case SMBtconX:
717         case SMBlockingX:
718         case SMBopenX:
719         case SMBreadX:
720         case SMBwriteX:
721         case SMBsesssetupX:
722         case SMBulogoffX:
723         case SMBntcreateX:
724                 return true;
725                 break;
726         default:
727                 break;
728         }
729
730         return false;
731 }
732
733 NTSTATUS cli_smb(TALLOC_CTX *mem_ctx, struct cli_state *cli,
734                  uint8_t smb_command, uint8_t additional_flags,
735                  uint8_t wct, uint16_t *vwv,
736                  uint32_t num_bytes, const uint8_t *bytes,
737                  struct tevent_req **result_parent,
738                  uint8_t min_wct, uint8_t *pwct, uint16_t **pvwv,
739                  uint32_t *pnum_bytes, uint8_t **pbytes)
740 {
741         struct tevent_context *ev;
742         struct tevent_req *req = NULL;
743         NTSTATUS status = NT_STATUS_NO_MEMORY;
744
745         if (cli_has_async_calls(cli)) {
746                 return NT_STATUS_INVALID_PARAMETER;
747         }
748         ev = tevent_context_init(mem_ctx);
749         if (ev == NULL) {
750                 goto fail;
751         }
752         req = cli_smb_send(mem_ctx, ev, cli, smb_command, additional_flags,
753                            wct, vwv, num_bytes, bytes);
754         if (req == NULL) {
755                 goto fail;
756         }
757         if (!tevent_req_poll_ntstatus(req, ev, &status)) {
758                 goto fail;
759         }
760         status = cli_smb_recv(req, NULL, NULL, min_wct, pwct, pvwv,
761                               pnum_bytes, pbytes);
762 fail:
763         TALLOC_FREE(ev);
764         if (NT_STATUS_IS_OK(status) && (result_parent != NULL)) {
765                 *result_parent = req;
766         }
767         return status;
768 }