atmitest/test082_autotran/atmisv82.c

0001 /**
0002  * @brief Test auto-transaction functionality - server
0003  *
0004  * @file atmisv82.c
0005  */
0006 /* -----------------------------------------------------------------------------
0007  * Enduro/X Middleware Platform for Distributed Transaction Processing
0008  * Copyright (C) 2009-2016, ATR Baltic, Ltd. All Rights Reserved.
0009  * Copyright (C) 2017-2023, Mavimax, Ltd. All Rights Reserved.
0010  * This software is released under one of the following licenses:
0011  * AGPL (with Java and Go exceptions) or Mavimax's license for commercial use.
0012  * See LICENSE file for full text.
0013  * -----------------------------------------------------------------------------
0014  * AGPL license:
0015  *
0016  * This program is free software; you can redistribute it and/or modify it under
0017  * the terms of the GNU Affero General Public License, version 3 as published
0018  * by the Free Software Foundation;
0019  *
0020  * This program is distributed in the hope that it will be useful, but WITHOUT ANY
0021  * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
0022  * PARTICULAR PURPOSE. See the GNU Affero General Public License, version 3
0023  * for more details.
0024  *
0025  * You should have received a copy of the GNU Affero General Public License along
0026  * with this program; if not, write to the Free Software Foundation, Inc.,
0027  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0028  *
0029  * -----------------------------------------------------------------------------
0030  * A commercial use license is available from Mavimax, Ltd
0031  * contact@mavimax.com
0032  * -----------------------------------------------------------------------------
0033  */
0034 #include <stdio.h>
0035 #include <stdlib.h>
0036 #include <ndebug.h>
0037 #include <atmi.h>
0038 #include <ndrstandard.h>
0039 #include <ubf.h>
0040 #include <test.fd.h>
0041 #include <string.h>
0042 #include <unistd.h>
0043 #include "test82.h"
0044
0045 /*---------------------------Externs------------------------------------*/
0046 /*---------------------------Macros-------------------------------------*/
0047 /*---------------------------Enums--------------------------------------*/
0048 /*---------------------------Typedefs-----------------------------------*/
0049 /*---------------------------Globals------------------------------------*/
0050 /*---------------------------Statics------------------------------------*/
0051 /*---------------------------Prototypes---------------------------------*/
0052
0053 /**
0054  * Standard service entry
0055  */
0056 void TESTSV (TPSVCINFO *p_svc)
0057 {
0058     int ret=EXSUCCEED;
0059     UBFH *p_ub = (UBFH *)p_svc->data;
0060     char testbuf[1024];
0061     static int first=EXTRUE;
0062     TPQCTL qc;
0063
0064     NDRX_LOG(log_debug, "%s got call", __func__);
0065
0066     if (first)
0067     {
0068         /* check the auto-tran goes to dynamic adv services
0069          * + routed..
0070          */
0071         if (EXSUCCEED!=tpadvertise("TESTSVD", TESTSV))
0072         {
0073             NDRX_LOG(log_error, "TESTERROR: Failed to advertise: %s", tpstrerror(tperrno));
0074             EXFAIL_OUT(ret);
0075         }
0076         first=EXFALSE;
0077     }
0078     if (EXFAIL==Bget(p_ub, T_STRING_FLD, 0, testbuf, 0))
0079     {
0080         NDRX_LOG(log_error, "TESTERROR: Failed to get T_STRING_FLD: %s",
0081                  Bstrerror(Berror));
0082         ret=EXFAIL;
0083         goto out;
0084     }
0085
0086     /* enqueue the data buffer */
0087     memset(&qc, 0, sizeof(qc));
0088
0089     /* add msg 1 */
0090     if (EXSUCCEED!=tpenqueue("MYSPACE", "MSGQ", &qc, (char *)p_ub, 0, 0))
0091     {
0092         NDRX_LOG(log_error, "TESTERROR: tpenqueue() failed %s diag: %d:%s",
0093                 tpstrerror(tperrno), qc.diagnostic, qc.diagmsg);
0094         EXFAIL_OUT(ret);
0095     }
0096
0097 out:
0098
0099     if (EXSUCCEED==ret)
0100     {
0101         /* forward to 2 svc */
0102         tpforward("TESTSV2", (char *)p_ub, 0, 0);
0103     }
0104     else
0105     {
0106         tpreturn(  TPFAIL,
0107                     0L,
0108                     (char *)p_ub,
0109                     0L,
0110                     0L);
0111     }
0112
0113 }
0114
0115 /**
0116  * Do initialisation
0117  */
0118 int NDRX_INTEGRA(tpsvrinit)(int argc, char **argv)
0119 {
0120     int ret = EXSUCCEED;
0121     NDRX_LOG(log_debug, "tpsvrinit called");
0122
0123     if (EXSUCCEED!=tpopen())
0124     {
0125         NDRX_LOG(log_error, "Failed to tpopen: %s", tpstrerror(tperrno));
0126         EXFAIL_OUT(ret);
0127     }
0128
0129     if (EXSUCCEED!=tpadvertise("TESTSV", TESTSV))
0130     {
0131         NDRX_LOG(log_error, "Failed to initialise TESTSV!");
0132         EXFAIL_OUT(ret);
0133     }
0134 out:
0135     return ret;
0136 }
0137
0138 /**
0139  * Do de-initialisation
0140  */
0141 void NDRX_INTEGRA(tpsvrdone)(void)
0142 {
0143     tpclose();
0144     NDRX_LOG(log_debug, "tpsvrdone called");
0145 }
0146
0147 /* vim: set ts=4 sw=4 et smartindent: */