/**
* Initialize the application
* @param argc argument count
* @param argv argument values
* @return SUCCEED/FAIL
*/
int init(int argc, char** argv)
{
int ret = SUCCEED;
TP_LOG(log_info, "Initialising...");
if (SUCCEED!=tpinit(NULL))
{
TP_LOG(log_error, "Failed to Initialise: %s",
tpstrerror(tperrno));
ret = FAIL;
goto out;
}
/* Advertise our service */
if (SUCCEED!=tpadvertise(msg_service(), USERREGSV))
{
TP_LOG(log_error, "Failed to initialise USERREGSV_UBF!");
ret=FAIL;
goto out;
}
out:
return ret;
}
/*************************************
* 功能: 程序注册 *
* 参数: AppID：应用程序类型 *
* AppInfo：应用程序注册信息 *
* 返回值： *
* =0 成功 *
* <0 失败 *
**************************************/
int csllogin(int AppID,APPINIT *AppInfo)
{
if (tpinit(AppInfo)==-1)
return (0-TuxedoErrNo[tperrno].ierrno);
else
return 0;
}
int main(int argc, char *argv[])
{
char *sendbuf, *rcvbuf;
long sendlen, rcvlen;
char svcname[16];
int ret;
if(argc != 3) {
(void) fprintf(stderr, "arg:clientpetri servname sendbuf");
exit(1);
}
/* 作为tuxedo客户端连入tuxedo System */
if (tpinit((TPINIT *) NULL) == -1) {
(void) fprintf(stderr, "Tpinit failed ");
exit(1);
}
sendlen = strlen(argv[2]);
/* 使用tpalloc申请string类型buffer作为请求和应答buffer */
if((sendbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
(void) fprintf(stderr,"Error allocating send buffer ");
tpterm();
exit(1);
}
if((rcvbuf = (char *) tpalloc("STRING", NULL, 1024*2)) == NULL) {
(void) fprintf(stderr,"Error allocating receive buffer ");
tpfree(sendbuf);
tpterm();
exit(1);
}
(void) strcpy(svcname, argv[1]);
(void) strcpy(sendbuf, argv[2]);
/* 同步调用服务 */
ret = tpcall(svcname, (char *)sendbuf, 0, (char **)&rcvbuf, &rcvlen, (long)0);
if(ret == -1) {
(void) fprintf(stderr, "Can't send request to service ");
(void) fprintf(stderr, "Tperrno = %d ", tperrno);
tpfree(sendbuf);
tpfree(rcvbuf);
tpterm();
exit(1);
}
(void) fprintf(stdout, "Returned string is: %s ", rcvbuf);
/* 使用tpfree释放申请的请求和应答buffer空间 */
tpfree(sendbuf);
tpfree(rcvbuf);
/* 使用tpterm离开tuxedo System */
tpterm();
return(0);
}
void GenericTuxedoClient::connect(const string &srvAddr, const string &srvPort)
throw(TPConnectionException)
{
// codigo que da tpinit no Tuxedo sem nenhuma autenticacao
// NOTA: sobrecarregar este metodo para os casos possiveis de autenticacao
if (connected)
throw TPConnectionException("Ja esta conectado ao TP Monitor");
if (! srvAddr.empty() && ! srvPort.empty()) {
checkEnvVar("WSNADDR", "//" + srvAddr + ":" + srvPort);
}
if (tpinit((TPINIT *)NULL) < 0)
throw TPConnectionException(
string("Falha na conexao ao TP Monitor - ").append(tpstrerror(tperrno)));
connected = true;
}
int
main(int argc, char* argv[])
{
DB *dbp3;
DBT key, data;
TPINIT *initBuf;
FBFR *replyBuf;
long replyLen;
int ch, ret, i;
char *target;
char *home = HOME;
u_int32_t flags = DB_INIT_MPOOL | DB_INIT_LOG | DB_INIT_TXN |
DB_INIT_LOCK | DB_CREATE | DB_THREAD | DB_RECOVER | DB_REGISTER;
u_int32_t dbflags = DB_CREATE | DB_THREAD;
progname = argv[0];
initBuf = NULL;
ret = 0;
replyBuf = NULL;
replyLen = 1024;
while ((ch = getopt(argc, argv, "v")) != EOF)
switch (ch) {
case 'v':
verbose = 1;
break;
case '?':
default:
return (usage());
}
argc -= optind;
argv += optind;
if (verbose)
printf("%s: called\n", progname);
if (tpinit((TPINIT *)NULL) == -1)
goto tuxedo_err;
if (verbose)
printf("%s: tpinit() OK\n", progname);
/* Create the DB environment. */
if ((ret = db_env_create(&dbenv, 0)) != 0 ||
(ret = dbenv->open(dbenv, home, flags, 0)) != 0) {
fprintf(stderr,
"%s: %s: %s\n", progname, home, db_strerror(ret));
goto err;
}
dbenv->set_errfile(dbenv, stderr);
if (verbose)
printf("%s: opened %s OK\n", progname, home);
memset(&key, 0, sizeof(key));
memset(&data, 0, sizeof(data));
/* Allocate reply buffer. */
if ((replyBuf = (FBFR*)tpalloc("FML32", NULL, replyLen))
== NULL)
goto tuxedo_err;
if (verbose)
printf("%s: tpalloc(\"FML32\"), reply buffer OK\n",
progname);
for (i = 0; i < 2; i++) {
if (tpbegin(10L, 0L) == -1)
goto tuxedo_err;
if (verbose)
printf("%s: tpbegin() OK\n", progname);
if (tpcall("TestTxn1", NULL, 0L, (char **)&replyBuf,
&replyLen, TPSIGRSTRT) == -1)
goto tuxedo_err;
/* This call will timeout. */
tpcall("TestTxn2", NULL, 0L, (char **)&replyBuf, &replyLen,
TPSIGRSTRT);
if (tperrno != TPETIME)
goto tuxedo_err;
if (i == 0) {
if (tpabort(0L) == -1)
goto tuxedo_err;
if (verbose)
printf("%s: tpabort() OK\n", progname);
} else {
/* Commit will fail due to the time out. */
tpcommit(0L);
if (tperrno != TPEABORT)
goto tuxedo_err;
if (verbose)
printf("%s: tpcommit() OK\n", progname);
}
ret = check_data(dbenv, TABLE1, dbenv, TABLE2, progname);
}
if (0) {
tuxedo_err: fprintf(stderr, "%s: TUXEDO ERROR: %s (code %d)\n",
progname, tpstrerror(tperrno), tperrno);
goto err;
}
if (0) {
err: ret = EXIT_FAILURE;
}
if (replyBuf != NULL)
tpfree((char *)replyBuf);
if (dbenv != NULL)
(void)dbenv->close(dbenv, 0);
tpterm();
if (verbose)
printf("%s: tpterm() OK\n", progname);
if (verbose && ret == 0)
printf("%s: test passed.\n", progname);
else if (verbose)
printf("%s: test failed.\n", progname);
return (ret);
}
//using namespace std;
int main(int argc, char *argv[])
{
FBFR32 *sendbuf, *rcvbuf;
long ret, numread = 0;
char sOrderListID[13]={0};
char sAreaCode[10]={0};
char sInXML[MAX_XML_SIZE];
char sOutXML[MAX_XML_SIZE];
char sFileName[30];
long lResult;
char sErrMsg[1000];
struct timeb tp1,tp2;
memset(sOutXML, 0, MAX_XML_SIZE);
memset(sErrMsg, 0, 1000);
memset(sFileName, 0, 30);
strcpy(sFileName, (char*)argv[1]);
printf("you input fileName is <%s>\n", sFileName);
FILE *fp;
if((fp = fopen(sFileName, "r")) == NULL)
{
printf("can't open file: %s\n", sFileName);
return 0;
}
numread = fread(sInXML, sizeof(char), MAX_XML_SIZE, fp);
printf("read size is %d\n", numread);
fclose(fp);
long rcvlen = 0L;
if ((sendbuf = (FBFR32*)tpalloc("FML32", NULL,MAX_XML_SIZE ))==NULL)
{
printf("分配发送buff error\n");
}
if ((rcvbuf = (FBFR32*)tpalloc("FML32", NULL, MAX_XML_SIZE))==NULL)
{
printf("分配接收buff error\n");
}
rcvlen = Fsizeof32(rcvbuf);
//初始化
//if ((ret=tpinit((TPINIT * )NULL))<0)
if ((ret=tpinit(NULL))<0)
{
printf( "tpinit fail\n");
tpfree((char *)sendbuf);
tpfree((char *)rcvbuf);
return -1;
}
Fchg32(sendbuf, IN_XML, 0, (char *)&sInXML, 0L);
ftime(&tp1);
ret=tpcall("POWER_CTL_RUN",(char*)sendbuf,0L,(char**)&rcvbuf,&rcvlen,0L);
ftime(&tp2);
if (Fgets32(rcvbuf, OUT_XML, 0, sOutXML) == -1)
{
printf( " OUT_XML error \n");
}
if (Fget32(rcvbuf, IRESULT, 0, (char*)&lResult, 0) == -1)
{
printf( " IRESULT error \n");
}
if (Fgets32(rcvbuf, SMSG, 0, sErrMsg) == -1)
{
printf( " SMSG error \n");
}
printf("InXML is %s\n", sInXML);
printf("OutXML is : %s\n", sOutXML);
printf("Result is : %ld\n", lResult);
printf("ErrMsg is : %s\n", sErrMsg);
printf(" 用时: %d ms\n", tp2.time*1000+tp2.millitm - tp1.time*1000 -tp1.millitm );
return 0;
}
int
main(int argc, char* argv[])
{
DB *dbp2;
DBT key, data;
FBFR *buf, *replyBuf;
HDbRec rec;
TPINIT *initBuf;
DB_ENV *dbenv2, *dbenv1;
long len, replyLen, seqNo;
int ch, cnt, cnt_abort, cnt_commit, cnt_server1, i, ret;
char *target;
char *home = HOME;
u_int32_t flags = DB_INIT_MPOOL | DB_INIT_LOG | DB_INIT_TXN |
DB_INIT_LOCK | DB_CREATE | DB_RECOVER | DB_REGISTER;
u_int32_t dbflags = DB_CREATE;
progname = argv[0];
dbenv2 = dbenv1 = NULL;
dbp2 = NULL;
buf = replyBuf = NULL;
initBuf = NULL;
cnt = 1000;
cnt_abort = cnt_commit = cnt_server1 = 0;
while ((ch = getopt(argc, argv, "n:v")) != EOF)
switch (ch) {
case 'n':
cnt = atoi(optarg);
break;
case 'v':
verbose = 1;
break;
case '?':
default:
return (usage());
}
argc -= optind;
argv += optind;
if (verbose)
printf("%s: called\n", progname);
/* Seed random number generator. */
srand((u_int)(time(NULL) | getpid()));
if (tpinit((TPINIT *)NULL) == -1)
goto tuxedo_err;
if (verbose)
printf("%s: tpinit() OK\n", progname);
/* Allocate init buffer */
if ((initBuf = (TPINIT *)tpalloc("TPINIT", NULL, TPINITNEED(0))) == 0)
goto tuxedo_err;
if (verbose)
printf("%s: tpalloc(\"TPINIT\") OK\n", progname);
/* Create the DB environment. */
if ((ret = db_env_create(&dbenv2, 0)) != 0 ||
(ret = dbenv2->open(dbenv2, home, flags, 0)) != 0) {
fprintf(stderr,
"%s: %s: %s\n", progname, home, db_strerror(ret));
goto err;
}
dbenv2->set_errfile(dbenv2, stderr);
if (verbose)
printf("%s: opened %s OK\n", progname, home);
/*
* Open table #2 -- Data is inserted into table 1 using XA
* transactions, and inserted into table 2 using regular transactions.
*/
if ((ret = db_create(&dbp2, dbenv2, 0)) != 0 ||
(ret = dbp2->open(dbp2,
NULL, TABLE2, NULL, DB_BTREE, dbflags, 0660)) != 0) {
fprintf(stderr,
"%s: %s %s\n", progname, TABLE2, db_strerror(ret));
goto err;
}
if (verbose)
printf("%s: opened %s OK\n", progname, TABLE2);
/* Allocate send buffer. */
len = Fneeded(1, 3 * sizeof(long));
if ((buf = (FBFR*)tpalloc("FML32", NULL, len)) == 0)
goto tuxedo_err;
if (verbose)
printf("%s: tpalloc(\"FML32\"), send buffer OK\n", progname);
/* Allocate reply buffer. */
replyLen = 1024;
if ((replyBuf = (FBFR*)tpalloc("FML32", NULL, replyLen)) == NULL)
goto tuxedo_err;
if (verbose)
printf("%s: tpalloc(\"FML32\"), reply buffer OK\n", progname);
memset(&key, 0, sizeof(key));
memset(&data, 0, sizeof(data));
for (rec.SeqNo = 1, i = 0; i < cnt; ++i, ++rec.SeqNo) {
GetTime(&rec.Ts);
if (Fchg(buf, SEQ_NO, 0, (char *)&rec.SeqNo, 0) == -1)
goto tuxedo_fml_err;
if (verbose)
printf("%s: Fchg(), sequence number OK\n", progname);
if (Fchg(buf, TS_SEC, 0, (char *)&rec.Ts.Sec, 0) == -1)
goto tuxedo_fml_err;
if (verbose)
printf("%s: Fchg(), seconds OK\n", progname);
if (Fchg(buf, TS_USEC, 0, (char *)&rec.Ts.Usec, 0) == -1)
goto tuxedo_fml_err;
if (verbose)
printf("%s: Fchg(), microseconds OK\n", progname);
if (tpbegin(60L, 0L) == -1)
goto tuxedo_err;
if (verbose)
printf("%s: tpbegin() OK\n", progname);
/* Randomly send half of our requests to each server. */
if (rand() % 2 > 0) {
++cnt_server1;
target = "TestTxn1";
} else
target = "TestTxn2";
if (tpcall(target, (char *)buf,
0L, (char **)&replyBuf, &replyLen, TPSIGRSTRT) == -1)
goto tuxedo_err;
/* Commit for a return value of 0, otherwise abort. */
if (tpurcode == 0) {
++cnt_commit;
if (verbose)
printf("%s: txn success\n", progname);
if (tpcommit(0L) == -1)
goto abort;
if (verbose)
printf("%s: tpcommit() OK\n", progname);
/*
* Store a copy of the key/data pair into table #2
* on success, we'll compare table #1 and table #2
* after the run finishes.
*/
seqNo = rec.SeqNo;
key.data = &seqNo;
key.size = sizeof(seqNo);
data.data = &seqNo;
data.size = sizeof(seqNo);
if ((ret =
dbp2->put(dbp2, NULL, &key, &data, 0)) != 0) {
fprintf(stderr, "%s: DB->put: %s %s\n",
progname, TABLE2, db_strerror(ret));
goto err;
}
} else {
abort: ++cnt_abort;
if (verbose)
printf("%s: txn failure\n", progname);
if (tpabort(0L) == -1)
goto tuxedo_err;
if (verbose)
printf("%s: tpabort() OK\n", progname);
}
}
printf("%s: %d requests: %d committed, %d aborted\n",
progname, cnt, cnt_commit, cnt_abort);
printf("%s: %d sent to server #1, %d sent to server #2\n",
progname, cnt_server1, cnt - cnt_server1);
/* Check that database 1 and database 2 are identical. */
if (dbp2 != NULL)
(void)dbp2->close(dbp2, 0);
dbp2 = NULL;
if ((ret = db_env_create(&dbenv1, 0)) != 0 ||
(ret = dbenv1->open(dbenv1, "../data", flags, 0)) != 0)
goto err;
ret = check_data(dbenv1, TABLE1, dbenv2, TABLE2, progname);
if (0) {
tuxedo_err: fprintf(stderr, "%s: TUXEDO ERROR: %s (code %d)\n",
progname, tpstrerror(tperrno), tperrno);
goto err;
}
if (0) {
tuxedo_fml_err: fprintf(stderr, "%s: FML ERROR: %s (code %d)\n",
progname, Fstrerror(Ferror), Ferror);
}
if (0) {
err: ret = EXIT_FAILURE;
}
if (replyBuf != NULL)
tpfree((char *)replyBuf);
if (buf != NULL)
tpfree((char *)buf);
if (initBuf != NULL)
tpfree((char *)initBuf);
if (dbp2 != NULL)
(void)dbp2->close(dbp2, 0);
if (dbenv1 != NULL)
(void)dbenv1->close(dbenv1, 0);
if (dbenv2 != NULL)
(void)dbenv2->close(dbenv2, 0);
tpterm();
if (verbose)
printf("%s: tpterm() OK\n", progname);
return (ret);
}
