-/* ------------------------------------------------
- Copyright 2014 AT&T Intellectual Property
- Licensed under the Apache License, Version 2.0 (the "License");
- you may not use this file except in compliance with the License.
- You may obtain a copy of the License at
-
- http://www.apache.org/licenses/LICENSE-2.0
-
- Unless required by applicable law or agreed to in writing, software
- distributed under the License is distributed on an "AS IS" BASIS,
- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- See the License for the specific language governing permissions and
- limitations under the License.
- ------------------------------------------- */
-#include <app.h>
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-#include <unistd.h>
-#include <signal.h>
-#include <time.h>
-#include <string.h>
-#include <sys/time.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <sys/socket.h>
-#include <netinet/in.h>
-
-#include "gsconfig.h"
-#include "gstypes.h"
-#include <schemaparser.h>
-#include <gshub.h>
-
-#define MAXSTRLEN 256
-#define MAXNUMFIELDS 64
-
-//#define GSBZIP2
-
-#ifdef GSBZIP2
-#include "bzlib.h"
-#endif
-
-#ifdef ZLIB
-#include "zlib.h"
-#endif
-
-gs_sp_t me; /* saved copy argv[0] */
-
-struct FTA_state {
- FTAID fta_id;
- gs_schemahandle_t schema;
- gs_sp_t asciischema;
- gs_int32_t numfields;
- gs_int32_t timefieldoffset;
-};
-
-struct gsasciiprint_state {
- // configuration state
- gs_uint32_t bufsz;
- gs_int32_t stream;
- gs_int32_t flush;
- gs_int32_t parserversion;
- gs_int32_t compressed;
- gs_int32_t verbose;
- gs_int32_t notemp;
- gs_sp_t timefield;
- gs_int32_t interval;
- gs_int32_t quitcnt;
- gs_int32_t quittime;
- gs_int32_t numfields;
- gs_sp_t extension;
- gs_sp_t query;
- gs_int32_t remote_print;
-
-
- // runtime state
- struct FTA_state fs;
-};
-
-
-void hand(int iv) {
- ftaapp_exit();
- gslog(LOG_NOTICE, "exiting via signal handler %d...\n", iv);
- exit(0);
-}
-
-void timeouthand(int iv) {
- ftaapp_exit();
- // if (s->verbose!=0) fprintf(stderr, "exiting because of timeout...\n");
- exit(0);
-}
-
-
-static void print_usage_exit(gs_sp_t reason) {
- fprintf(stderr,
- "%s::error: %s\n"
- "%s::usage: %s -r <int> -v -f -s -z -c <int> -q <int> -b <field> -t <int> -e <string> <gshub-hostname>:<gshub-port> <gsinstance_name> <query_name> <parameters>\n"
- "\t-v makes output verbose\n"
- "\t-f flushes each tuple individually\n"
- "\t-h <int> print within the hfta int identifies how many output streams based on the SubInterface field\n"
- "\t-r sets the ringbuffer size default is 8MB\n"
- "\t-s uses %s in streaming mode cannot be used with -v -z -b -t -e\n"
- "\t-c <int> indicates that %s should terminate after <int> tuples.\n"
- "\t-q <int> indicates that %s should terminate after <int> seconds.\n"
- "\t-z the output is compressed with gzip \n"
- "\t-b <field> identifies the field which is increasing and is used to\n"
- "\t\tbin output files. Field has to be of type uint.\n"
- "\t\tThe default is the UNIX system time\n"
- "\t-t <int> specifies the number the <field> specified with -b\n"
- "\t\thas to increase before a new output file is used\n"
- "\t\tthe default is 60 for 1 minute if the default UNIX time is used\n"
- "\t-e <string> identifies the file string extension used for the \n"
- "\t\toutput file. The output file always starts with the current value\n"
- "\t\tof the b field (or UNIX time) the default extension is .txt \n"
- "\t\twithout the -z option and .txt.gz with the -z option\n"
- "\t<query_name> specifies the query which will be\n"
- "\t\t instanciated.\n"
- "\t<parameters> sets the parameters for the query\n"
- , me, reason, me, me, me,me,me);
- exit(1);
-}
-
-
-
-
-static void init(gs_int32_t argc, gs_sp_t argv[], struct gsasciiprint_state *s) {
- void *pblk;
- gs_int32_t x, y, schema, pblklen, lcv;
- gs_int32_t n_actual_param;
- gs_int32_t n_expected_param;
- gs_sp_t c;
- gs_int8_t name[1024];
-
- sprintf(name,"gsgdatprint:%s",argv[0]);
-
- gsopenlog(name);
-
-
- if (s->verbose!=0) gslog(LOG_DEBUG,"Initializing gscp\n");
- if (ftaapp_init(s->bufsz)!=0) {
- gslog(LOG_EMERG,"%s::error:could not initialize gscp\n", me);
- exit(1);
- }
-
- signal(SIGTERM, hand);
- signal(SIGINT, hand);
- signal(SIGPIPE, hand);
-
- if (s->verbose!=0) gslog(LOG_DEBUG,"Initializing FTAs\n");
-
- schema = ftaapp_get_fta_schema_by_name(argv[0]);
- if (schema < 0) {
- gslog(LOG_EMERG,"%s::error:can't get fta '%s' schema\n", me ,argv[0]);
- exit(1);
- }
- n_expected_param = ftaschema_parameter_len(schema);
- if (n_expected_param == 0) {
- pblk = 0;
- pblklen = 0;
- if (s->verbose) gslog(LOG_DEBUG,"[query does not have any params]\n");
- } else {
- n_actual_param = argc-1;
- if(n_actual_param < n_expected_param){
- gslog(LOG_EMERG,"Error, %d query parameters expected, %d provided.\n",n_expected_param, n_actual_param);
- exit(1);
- }
- /* parse the params */
- for (lcv = 1 ; lcv < argc ; lcv++) {
- char *k, *e;
- int rv;
- k = argv[lcv];
- e = k;
- while (*e && *e != '=') e++;
- if (*e == 0) {
- gslog(LOG_EMERG,"param parse error '%s' (fmt 'key=val')\n",
- argv[lcv]);
- exit(1);
- }
- *e = 0;
- rv = ftaschema_setparam_by_name(schema, k, e+1, strlen(e+1));
- *e = '=';
- if (rv < 0) {
- gslog(LOG_EMERG,"param setparam error '%s' (fmt 'key=val')\n",
- argv[lcv]);
- exit(1);
- }
- }
- if (ftaschema_create_param_block(schema, &pblk, &pblklen) < 0) {
- gslog(LOG_EMERG, "ftaschema_create_param_block failed!\n");
- exit(1);
- }
- }
- ftaschema_free(schema); /* XXXCDC */
-
-
- if (s->remote_print>=0) {
- s->fs.fta_id=ftaapp_add_fta_print(s->query,pblk?0:1,pblk?0:1,0,pblklen,pblk,"./data",s->extension,s->timefield,"SubInterface",s->interval,s->remote_print);
- if (s->fs.fta_id.streamid==0){
- gslog(LOG_EMERG,"%s::error:could not initialize fta_print %s\n",
- me,s->query);
- exit(1);
- }
- again:
- // wait forever
- sleep(60);
- goto again;
- }
-
-
- s->fs.fta_id=ftaapp_add_fta(s->query,pblk?0:1,pblk?0:1,0,pblklen,pblk);
- if (s->fs.fta_id.streamid==0){
- gslog(LOG_EMERG,"%s::error:could not initialize fta %s\n",
- me,s->query);
- exit(1);
- }
- /* XXXCDC: pblk is malloc'd, should we free it? */
-
- if ((c=ftaapp_get_fta_ascii_schema_by_name(s->query))==0){
- gslog(LOG_EMERG,"%s::error:could not get ascii schema for %s\n",
- me,s->query);
- exit(1);
- }
-
- //ftaapp_get_fta_ascii_schema_by_name uses static buffer so make a copy
- s->fs.asciischema=strdup(c);
-
-
- // Set parser version here
- s->parserversion=get_schemaparser_version();
-
- if ((s->fs.schema=ftaapp_get_fta_schema(s->fs.fta_id))<0) {
- gslog(LOG_EMERG,"%s::error:could not get schema for query\n",
- me,s->query);
- exit(1);
- }
-
- // Use all available fields
- if ((s->fs.numfields=ftaschema_tuple_len(s->fs.schema))<0) {
- gslog(LOG_EMERG,"%s::error:could not get number of fields for query %s\n",
- me,s->query);
- exit(1);
- }
- if (s->timefield!=0) {
- if ((s->fs.timefieldoffset=ftaschema_get_field_offset_by_name(
- s->fs.schema,s->timefield))<0) {
- gslog(LOG_EMERG,"%s::error:could not get "
- "offset for timefield %s in query %s\n",
- me,s->timefield,s->query);
- exit(1);
- }
-
- if (ftaschema_get_field_type_by_name(
- s->fs.schema,s->timefield)!=UINT_TYPE) {
- gslog(LOG_EMERG,"%s::error: illegal type for timefield "
- "%s in query %s UINT expected\n",
- me,s->timefield,s->query);
- exit(1);
- }
- }
-}
-
-
-static void process_data(struct gsasciiprint_state *s)
-{
- gs_int32_t x;
- gs_int32_t y;
- gs_int32_t z;
- gs_int32_t tb;
- gs_uint32_t nsz;
- FTAID rfta_id;
- gs_uint32_t rsize;
- gs_int8_t rbuf[2*MAXTUPLESZ];
- gs_int32_t problem;
-
- gs_int32_t ctb=0;
- gs_int8_t fname[1024];
- gs_int8_t tmpname[1024];
- gs_int8_t command[1024];
- gs_int8_t topb[1024];
- gs_int32_t rcnt=0;
- gs_retval_t code;
-#ifdef GSBZIP2
- int bzerror;
- BZFILE * b;
- int abandon=0;
- unsigned int bytes_in;
- unsigned int bytes_out;
-#endif
-#ifdef ZLIB
- gzFile of=0;
-#else
- FILE * of=0;
-#endif
-
-
- tmpname[0]=0;
-
- if (s->verbose!=0) gslog(LOG_INFO,"Getting Data for %s",s->query);
-
- sprintf(&topb[0],"GDAT\nVERSION:%u\nSCHEMALENGTH:%lu\n",
- s->parserversion,strlen(s->fs.asciischema)+1);
- if (s->stream!=0) {
- of=stdout;
- // need to get ASCII version of schema
- fwrite(&topb[0],strlen(topb),1,of);
- fwrite(s->fs.asciischema,strlen(s->fs.asciischema)+1,1,of);
- }
-
- if (s->quittime !=0 ) {
- signal(SIGALRM,timeouthand);
- alarm(s->quittime);
- }
-
-
- while((code=ftaapp_get_tuple(&rfta_id,&rsize,rbuf,2*MAXTUPLESZ,0))>=0) {
- rcnt++;
- if ((s->notemp==1) && (code==2)) continue;
- if (((s->quitcnt>0) && (rcnt>s->quitcnt))||ftaschema_is_eof_tuple(s->fs.schema, rbuf)) {
- if (s->verbose!=0)
- gslog(LOG_EMERG, "exiting reached tuple limit or all data has been proccessed\n");
- if (of!=0) {
- fclose(of);
-
- if (s->compressed) {
- system(command);
- }
- rename(tmpname,fname);
- }
- exit(0);
- }
- if (((code==0) || (code==2))&&(s->fs.fta_id.streamid==rfta_id.streamid)) {
- if (s->stream==0) {
- if (s->timefield!=0) {
- tb=fta_unpack_uint(rbuf,
- rsize,
- s->fs.timefieldoffset,
- &problem);
- } else {
- tb=time(0);
- }
- if ((ctb+s->interval)<=tb) {
- gsstats();
- if (of!=0) {
-#ifdef GSBZIP2
- BZ2_bzWriteClose(&bzerror, b, abandon, &bytes_in, &bytes_out );
- if (bzerror!=BZ_OK) {
- gslog(LOG_EMERG,"Could not bz close file .. EXITING\n");
- exit(0);
- }
-#endif
-#ifdef ZLIB
- gzclose(of);
-#else
- fclose(of);
-#endif
-#ifndef GSBZIP2
- if (s->compressed) {
- system(command);
- }
-#endif
- rename(tmpname,fname);
- }
- while((ctb+s->interval)<=tb) {
- if (ctb==0) {
- ctb=(tb/s->interval)*s->interval;
- } else {
- ctb=ctb+s->interval;
- }
- }
-#ifdef ZLIB
- sprintf(tmpname,"%u%s.gz.tmp",ctb,s->extension);
- sprintf(fname,"%u%s.gz",ctb,s->extension);
-#else
- sprintf(tmpname,"%u%s.tmp",ctb,s->extension);
- sprintf(fname,"%u%s",ctb,s->extension);
-#endif
-#ifndef GSBZIP2
- if (s->compressed) {
- sprintf(command,"gzip -S .tmpgz %s ; mv %s.tmpgz %s",tmpname,tmpname,tmpname);
- }
-#endif
-#ifdef ZLIB
- if ((of=gzopen(tmpname,"wb"))==0) {
- gslog(LOG_EMERG,"Could not open file \"%s\".. EXITING\n",
- tmpname);
- exit(0);
- }
-#else
- if ((of=fopen(tmpname,"w"))==0) {
- gslog(LOG_EMERG,"Could not open file \"%s\".. EXITING\n",
- tmpname);
- exit(0);
- }
-#endif
-#ifdef GSBZIP2
- if (s->compressed) {
- b=BZ2_bzWriteOpen(&bzerror,of,5,0,30);
- if (bzerror!=BZ_OK) {
- gslog(LOG_EMERG,"Could not bz open file \"%s\".. EXITING\n",
- tmpname);
- exit(0);
- }
- }
-#endif
-
- if (s->compressed) {
-#ifdef GSBZIP2
- BZ2_bzWrite ( &bzerror, b, &topb[0],strlen(topb));
- BZ2_bzWrite ( &bzerror, b, s->fs.asciischema,strlen(s->fs.asciischema)+1);
-#endif
- } else {
- // need to get ASCII version of schema
-#ifdef ZLIB
- gzwrite(of,&topb[0],strlen(topb));
- gzwrite(of,s->fs.asciischema,strlen(s->fs.asciischema)+1);
-#else
- fwrite(&topb[0],strlen(topb),1,of);
- fwrite(s->fs.asciischema,strlen(s->fs.asciischema)+1,1,of);
-#endif
- }
- }
- }
- if (code==0) {
- nsz=htonl(rsize);
- if (s->compressed) {
-#ifdef GSBZIP2
- BZ2_bzWrite ( &bzerror, b,&nsz,sizeof(gs_uint32_t) );
- BZ2_bzWrite ( &bzerror, b,rbuf,rsize);
-#endif
- } else {
-#ifdef ZLIB
- gzwrite(of,&nsz,sizeof(gs_uint32_t));
- gzwrite(of,rbuf,rsize);
- }
-#else
- if (fwrite(&nsz,sizeof(gs_uint32_t),1,of)!=1) {
- ftaapp_exit();
- if (s->verbose!=0)
- gslog(LOG_EMERG,"Could not write to output\"%s\".. EXITING\n",
- tmpname);
- exit(0);
- }
-
- if (fwrite(rbuf,rsize,1,of)!=1) {
- ftaapp_exit();
- if (s->verbose!=0)
- gslog(LOG_EMERG,"Could not write to output\"%s\".. EXITING\n",
- tmpname);
- exit(0);
- }
- if ((s->stream!=0) || (s->flush!=0)) {
- fflush(of);
- }
- }
-#endif
- }
- }
-}
-}
-
-
-
-int main(int argc, char** argv) {
-
- struct gsasciiprint_state s;
- gs_retval_t ch;
- endpoint gshub;
- endpoint dummyep;
- gs_uint32_t tip1,tip2,tip3,tip4;
- gs_sp_t instance_name;
-
- me = argv[0];
-
- /* initialize host library and the sgroup */
-
- if (argc<=1) {
- print_usage_exit("Not enough arguments");
- }
-
- /* parse args */
- bzero(&s, sizeof(s));
- s.interval = 60; /* default */
- s.quittime=0;
- s.quitcnt=-1;
- s.remote_print=-1;
- s.bufsz=8*1024*1024;
-
- while ((ch = getopt(argc, argv, "nr:b:e:t:c:q:sfvzmh:")) != -1) {
- switch(ch) {
- case 'r':
- s.bufsz=atoi(optarg);
- break;
- case 'c':
- s.quitcnt = atoi(optarg);
- break;
- case 'q':
- s.quittime = atoi(optarg);
- break;
- case 'b':
- s.timefield = optarg;
- break;
- case 'e':
- s.extension = optarg;
- break;
- case 'n':
- s.notemp=1;
- break;
- case 't':
- s.interval = atoi(optarg);
- if (s.interval < 1) {
- goto usage;
- }
- break;
- case 's':
- s.stream++;
- break;
- case 'f':
- s.flush++;
- break;
- case 'v':
- s.verbose++;
- break;
- case 'z':
- s.compressed++;
- break;
- case 'h':
- s.remote_print=atoi(optarg);
- break;
- default:
- usage:
- print_usage_exit("invalid args");
- }
- }
-
- if ((s.stream!=0) & (s.compressed!=0 | s.verbose!=0 |
- s.timefield!=0 | s.extension!=0)) {
- print_usage_exit("illegal argument combination with -s");
- }
-
- if (!s.extension) {
- s.extension = (s.compressed) ? ".txt.gz" : ".txt";
- }
-
- argc -= optind;
- argv += optind;
- if (argc<3) print_usage_exit("must specify hub info and query");
-
- if (sscanf(argv[0],"%u.%u.%u.%u:%hu",&tip1,&tip2,&tip3,&tip4,&(gshub.port))!= 5 ) {
- gslog(LOG_EMERG,"HUB IP NOT DEFINED");
- exit(1);
- }
- gshub.ip=htonl(tip1<<24|tip2<<16|tip3<<8|tip4);
- gshub.port=htons(gshub.port);
- instance_name=strdup(argv[1]);
- if (set_hub(gshub)!=0) {
- gslog(LOG_EMERG,"Could not set hub");
- exit(1);
- }
- if (set_instance_name(instance_name)!=0) {
- gslog(LOG_EMERG,"Could not set instance name");
- exit(1);
- }
-
- if (get_initinstance(gshub,instance_name,&dummyep,1)!=0) {
- gslog(LOG_EMERG,"Did not receive signal that GS is initiated\n");
- }
-
-
- argc -=2;
- argv +=2;
-
- s.query = argv[0];
-
- init(argc, argv, &s);
-
- process_data(&s);
-
- gslog(LOG_EMERG,"%s::internal error reached unexpected end", me);
-}
-
+/* ------------------------------------------------\r
+ Copyright 2014 AT&T Intellectual Property\r
+ Licensed under the Apache License, Version 2.0 (the "License");\r
+ you may not use this file except in compliance with the License.\r
+ You may obtain a copy of the License at\r
+ \r
+ http://www.apache.org/licenses/LICENSE-2.0\r
+ \r
+ Unless required by applicable law or agreed to in writing, software\r
+ distributed under the License is distributed on an "AS IS" BASIS,\r
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\r
+ See the License for the specific language governing permissions and\r
+ limitations under the License.\r
+ ------------------------------------------- */\r
+#include <app.h>\r
+#include <stdlib.h>\r
+#include <string.h>\r
+#include <stdio.h>\r
+#include <unistd.h>\r
+#include <signal.h>\r
+#include <time.h>\r
+#include <string.h>\r
+#include <sys/time.h>\r
+#include <sys/stat.h>\r
+#include <sys/types.h>\r
+#include <sys/socket.h>\r
+#include <netinet/in.h>\r
+\r
+#include "gsconfig.h"\r
+#include "gstypes.h"\r
+#include <schemaparser.h>\r
+#include <gshub.h>\r
+\r
+#define MAXSTRLEN 256\r
+#define MAXNUMFIELDS 64\r
+\r
+//#define GSBZIP2\r
+\r
+#ifdef GSBZIP2\r
+#include "bzlib.h"\r
+#endif\r
+\r
+#ifdef ZLIB\r
+#include "zlib.h"\r
+#endif\r
+\r
+gs_sp_t me; /* saved copy argv[0] */\r
+\r
+struct FTA_state {\r
+ FTAID fta_id;\r
+ gs_schemahandle_t schema;\r
+ gs_sp_t asciischema;\r
+ gs_int32_t numfields;\r
+ gs_int32_t timefieldoffset;\r
+};\r
+\r
+struct gsasciiprint_state {\r
+ // configuration state\r
+ gs_uint32_t bufsz;\r
+ gs_int32_t stream;\r
+ gs_int32_t flush;\r
+ gs_int32_t parserversion;\r
+ gs_int32_t compressed;\r
+ gs_int32_t verbose;\r
+ gs_int32_t notemp;\r
+ gs_sp_t timefield;\r
+ gs_int32_t interval;\r
+ gs_int32_t quitcnt;\r
+ gs_int32_t quittime;\r
+ gs_int32_t numfields;\r
+ gs_sp_t extension;\r
+ gs_sp_t query;\r
+ gs_int32_t remote_print;\r
+ \r
+ \r
+ // runtime state\r
+ struct FTA_state fs;\r
+};\r
+\r
+\r
+void hand(int iv) {\r
+ ftaapp_exit();\r
+ gslog(LOG_NOTICE, "exiting via signal handler %d...\n", iv);\r
+ exit(0);\r
+}\r
+\r
+void timeouthand(int iv) {\r
+ ftaapp_exit();\r
+ // if (s->verbose!=0) fprintf(stderr, "exiting because of timeout...\n");\r
+ exit(0);\r
+}\r
+\r
+\r
+static void print_usage_exit(gs_sp_t reason) {\r
+ fprintf(stderr,\r
+ "%s::error: %s\n"\r
+ "%s::usage: %s -r <int> -v -f -s -z -c <int> -q <int> -b <field> -t <int> -e <string> <gshub-hostname>:<gshub-port> <gsinstance_name> <query_name> <parameters>\n"\r
+ "\t-v makes output verbose\n"\r
+ "\t-f flushes each tuple individually\n"\r
+ "\t-h <int> print within the hfta int identifies how many output streams based on the SubInterface field\n"\r
+ "\t-r sets the ringbuffer size default is 8MB\n"\r
+ "\t-s uses %s in streaming mode cannot be used with -v -z -b -t -e\n"\r
+ "\t-c <int> indicates that %s should terminate after <int> tuples.\n"\r
+ "\t-q <int> indicates that %s should terminate after <int> seconds.\n"\r
+ "\t-z the output is compressed with gzip \n"\r
+ "\t-b <field> identifies the field which is increasing and is used to\n"\r
+ "\t\tbin output files. Field has to be of type uint.\n"\r
+ "\t\tThe default is the UNIX system time\n"\r
+ "\t-t <int> specifies the number the <field> specified with -b\n"\r
+ "\t\thas to increase before a new output file is used\n"\r
+ "\t\tthe default is 60 for 1 minute if the default UNIX time is used\n"\r
+ "\t-e <string> identifies the file string extension used for the \n"\r
+ "\t\toutput file. The output file always starts with the current value\n"\r
+ "\t\tof the b field (or UNIX time) the default extension is .txt \n"\r
+ "\t\twithout the -z option and .txt.gz with the -z option\n"\r
+ "\t<query_name> specifies the query which will be\n"\r
+ "\t\t instanciated.\n"\r
+ "\t<parameters> sets the parameters for the query\n"\r
+ , me, reason, me, me, me,me,me);\r
+ exit(1);\r
+}\r
+\r
+\r
+\r
+\r
+static void init(gs_int32_t argc, gs_sp_t argv[], struct gsasciiprint_state *s) {\r
+ void *pblk;\r
+ gs_int32_t x, y, schema, pblklen, lcv;\r
+ gs_int32_t n_actual_param;\r
+ gs_int32_t n_expected_param;\r
+ gs_sp_t c;\r
+ gs_int8_t name[1024];\r
+ \r
+ sprintf(name,"gsgdatprint:%s",argv[0]);\r
+ \r
+ gsopenlog(name);\r
+ \r
+ \r
+ if (s->verbose!=0) gslog(LOG_DEBUG,"Initializing gscp\n");\r
+ if (ftaapp_init(s->bufsz)!=0) {\r
+ gslog(LOG_EMERG,"%s::error:could not initialize gscp\n", me);\r
+ exit(1);\r
+ }\r
+ \r
+ signal(SIGTERM, hand);\r
+ signal(SIGINT, hand);\r
+ signal(SIGPIPE, hand);\r
+ \r
+ if (s->verbose!=0) gslog(LOG_DEBUG,"Initializing FTAs\n");\r
+ \r
+ schema = ftaapp_get_fta_schema_by_name(argv[0]);\r
+ if (schema < 0) {\r
+ gslog(LOG_EMERG,"%s::error:can't get fta '%s' schema\n", me ,argv[0]);\r
+ exit(1);\r
+ }\r
+ n_expected_param = ftaschema_parameter_len(schema);\r
+ if (n_expected_param == 0) {\r
+ pblk = 0;\r
+ pblklen = 0;\r
+ if (s->verbose) gslog(LOG_DEBUG,"[query does not have any params]\n");\r
+ } else {\r
+ n_actual_param = argc-1;\r
+ if(n_actual_param < n_expected_param){\r
+ gslog(LOG_EMERG,"Error, %d query parameters expected, %d provided.\n",n_expected_param, n_actual_param);\r
+ exit(1);\r
+ }\r
+ /* parse the params */\r
+ for (lcv = 1 ; lcv < argc ; lcv++) {\r
+ char *k, *e;\r
+ int rv;\r
+ k = argv[lcv];\r
+ e = k;\r
+ while (*e && *e != '=') e++;\r
+ if (*e == 0) {\r
+ gslog(LOG_EMERG,"param parse error '%s' (fmt 'key=val')\n",\r
+ argv[lcv]);\r
+ exit(1);\r
+ }\r
+ *e = 0;\r
+ rv = ftaschema_setparam_by_name(schema, k, e+1, strlen(e+1));\r
+ *e = '=';\r
+ if (rv < 0) {\r
+ gslog(LOG_EMERG,"param setparam error '%s' (fmt 'key=val')\n",\r
+ argv[lcv]);\r
+ exit(1);\r
+ }\r
+ }\r
+ if (ftaschema_create_param_block(schema, &pblk, &pblklen) < 0) {\r
+ gslog(LOG_EMERG, "ftaschema_create_param_block failed!\n");\r
+ exit(1);\r
+ }\r
+ }\r
+ ftaschema_free(schema); /* XXXCDC */\r
+ \r
+ \r
+ if (s->remote_print>=0) {\r
+ s->fs.fta_id=ftaapp_add_fta_print(s->query,pblk?0:1,pblk?0:1,0,pblklen,pblk,"./data",s->extension,s->timefield,"SubInterface",s->interval,s->remote_print);\r
+ if (s->fs.fta_id.streamid==0){\r
+ gslog(LOG_EMERG,"%s::error:could not initialize fta_print %s\n",\r
+ me,s->query);\r
+ exit(1);\r
+ }\r
+ again:\r
+ // wait forever\r
+ sleep(60);\r
+ goto again;\r
+ }\r
+ \r
+ \r
+ s->fs.fta_id=ftaapp_add_fta(s->query,pblk?0:1,pblk?0:1,0,pblklen,pblk);\r
+ if (s->fs.fta_id.streamid==0){\r
+ gslog(LOG_EMERG,"%s::error:could not initialize fta %s\n",\r
+ me,s->query);\r
+ exit(1);\r
+ }\r
+ /* XXXCDC: pblk is malloc'd, should we free it? */\r
+ \r
+ if ((c=ftaapp_get_fta_ascii_schema_by_name(s->query))==0){\r
+ gslog(LOG_EMERG,"%s::error:could not get ascii schema for %s\n",\r
+ me,s->query);\r
+ exit(1);\r
+ }\r
+ \r
+ //ftaapp_get_fta_ascii_schema_by_name uses static buffer so make a copy\r
+ s->fs.asciischema=strdup(c);\r
+ \r
+ \r
+ // Set parser version here\r
+ s->parserversion=get_schemaparser_version();\r
+ \r
+ if ((s->fs.schema=ftaapp_get_fta_schema(s->fs.fta_id))<0) {\r
+ gslog(LOG_EMERG,"%s::error:could not get schema for query\n",\r
+ me,s->query);\r
+ exit(1);\r
+ }\r
+ \r
+ // Use all available fields\r
+ if ((s->fs.numfields=ftaschema_tuple_len(s->fs.schema))<0) {\r
+ gslog(LOG_EMERG,"%s::error:could not get number of fields for query %s\n",\r
+ me,s->query);\r
+ exit(1);\r
+ }\r
+ if (s->timefield!=0) {\r
+ if ((s->fs.timefieldoffset=ftaschema_get_field_offset_by_name(\r
+ s->fs.schema,s->timefield))<0) {\r
+ gslog(LOG_EMERG,"%s::error:could not get "\r
+ "offset for timefield %s in query %s\n",\r
+ me,s->timefield,s->query);\r
+ exit(1);\r
+ }\r
+ \r
+ if (ftaschema_get_field_type_by_name(\r
+ s->fs.schema,s->timefield)!=UINT_TYPE) {\r
+ gslog(LOG_EMERG,"%s::error: illegal type for timefield "\r
+ "%s in query %s UINT expected\n",\r
+ me,s->timefield,s->query);\r
+ exit(1);\r
+ }\r
+ }\r
+}\r
+\r
+\r
+static void process_data(struct gsasciiprint_state *s)\r
+{\r
+ gs_int32_t x;\r
+ gs_int32_t y;\r
+ gs_int32_t z;\r
+ gs_int32_t tb;\r
+ gs_uint32_t nsz;\r
+ FTAID rfta_id;\r
+ gs_uint32_t rsize;\r
+ gs_int8_t rbuf[2*MAXTUPLESZ];\r
+ gs_int32_t problem;\r
+ \r
+ gs_int32_t ctb=0;\r
+ gs_int8_t fname[1024];\r
+ gs_int8_t tmpname[1024];\r
+ gs_int8_t command[1024];\r
+ gs_int8_t topb[1024];\r
+ gs_int32_t rcnt=0;\r
+ gs_retval_t code;\r
+#ifdef GSBZIP2\r
+ int bzerror;\r
+ BZFILE * b;\r
+ int abandon=0;\r
+ unsigned int bytes_in;\r
+ unsigned int bytes_out;\r
+#endif\r
+#ifdef ZLIB\r
+ gzFile of=0;\r
+#else\r
+ FILE * of=0;\r
+#endif\r
+ \r
+ \r
+ tmpname[0]=0;\r
+ \r
+ if (s->verbose!=0) gslog(LOG_INFO,"Getting Data for %s",s->query);\r
+ \r
+ sprintf(&topb[0],"GDAT\nVERSION:%u\nSCHEMALENGTH:%lu\n",\r
+ s->parserversion,strlen(s->fs.asciischema)+1);\r
+ if (s->stream!=0) {\r
+ of=stdout;\r
+ // need to get ASCII version of schema\r
+ fwrite(&topb[0],strlen(topb),1,of);\r
+ fwrite(s->fs.asciischema,strlen(s->fs.asciischema)+1,1,of);\r
+ }\r
+ \r
+ if (s->quittime !=0 ) {\r
+ signal(SIGALRM,timeouthand);\r
+ alarm(s->quittime);\r
+ }\r
+ \r
+ \r
+ while((code=ftaapp_get_tuple(&rfta_id,&rsize,rbuf,2*MAXTUPLESZ,0))>=0) {\r
+ rcnt++;\r
+ if ((s->notemp==1) && (code==2)) continue;\r
+ if (((s->quitcnt>0) && (rcnt>s->quitcnt))||ftaschema_is_eof_tuple(s->fs.schema, rbuf)) {\r
+ if (s->verbose!=0)\r
+ gslog(LOG_EMERG, "exiting reached tuple limit or all data has been proccessed\n");\r
+ if (of!=0) {\r
+ fclose(of);\r
+ \r
+ if (s->compressed) {\r
+ system(command);\r
+ }\r
+ rename(tmpname,fname);\r
+ }\r
+ exit(0);\r
+ }\r
+ if (((code==0) || (code==2))&&(s->fs.fta_id.streamid==rfta_id.streamid)) {\r
+ if (s->stream==0) {\r
+ if (s->timefield!=0) {\r
+ tb=fta_unpack_uint(rbuf,\r
+ rsize,\r
+ s->fs.timefieldoffset,\r
+ &problem);\r
+ } else {\r
+ tb=time(0);\r
+ }\r
+ if ((ctb+s->interval)<=tb) {\r
+ gsstats();\r
+ if (of!=0) {\r
+#ifdef GSBZIP2\r
+ BZ2_bzWriteClose(&bzerror, b, abandon, &bytes_in, &bytes_out );\r
+ if (bzerror!=BZ_OK) {\r
+ gslog(LOG_EMERG,"Could not bz close file .. EXITING\n");\r
+ exit(0);\r
+ }\r
+#endif\r
+#ifdef ZLIB\r
+ gzclose(of);\r
+#else\r
+ fclose(of);\r
+#endif\r
+#ifndef GSBZIP2\r
+ if (s->compressed) {\r
+ system(command);\r
+ }\r
+#endif\r
+ rename(tmpname,fname);\r
+ }\r
+ while((ctb+s->interval)<=tb) {\r
+ if (ctb==0) {\r
+ ctb=(tb/s->interval)*s->interval;\r
+ } else {\r
+ ctb=ctb+s->interval;\r
+ }\r
+ }\r
+#ifdef ZLIB\r
+ sprintf(tmpname,"%u%s.gz.tmp",ctb,s->extension);\r
+ sprintf(fname,"%u%s.gz",ctb,s->extension);\r
+#else\r
+ sprintf(tmpname,"%u%s.tmp",ctb,s->extension);\r
+ sprintf(fname,"%u%s",ctb,s->extension);\r
+#endif\r
+#ifndef GSBZIP2\r
+ if (s->compressed) {\r
+ sprintf(command,"gzip -S .tmpgz %s ; mv %s.tmpgz %s",tmpname,tmpname,tmpname);\r
+ }\r
+#endif\r
+#ifdef ZLIB\r
+ if ((of=gzopen(tmpname,"wb"))==0) {\r
+ gslog(LOG_EMERG,"Could not open file \"%s\".. EXITING\n",\r
+ tmpname);\r
+ exit(0);\r
+ }\r
+#else\r
+ if ((of=fopen(tmpname,"w"))==0) {\r
+ gslog(LOG_EMERG,"Could not open file \"%s\".. EXITING\n",\r
+ tmpname);\r
+ exit(0);\r
+ }\r
+#endif\r
+#ifdef GSBZIP2\r
+ if (s->compressed) {\r
+ b=BZ2_bzWriteOpen(&bzerror,of,5,0,30);\r
+ if (bzerror!=BZ_OK) {\r
+ gslog(LOG_EMERG,"Could not bz open file \"%s\".. EXITING\n",\r
+ tmpname);\r
+ exit(0);\r
+ }\r
+ }\r
+#endif\r
+ \r
+ if (s->compressed) {\r
+#ifdef GSBZIP2\r
+ BZ2_bzWrite ( &bzerror, b, &topb[0],strlen(topb));\r
+ BZ2_bzWrite ( &bzerror, b, s->fs.asciischema,strlen(s->fs.asciischema)+1);\r
+#endif\r
+ } else {\r
+ // need to get ASCII version of schema\r
+#ifdef ZLIB\r
+ gzwrite(of,&topb[0],strlen(topb));\r
+ gzwrite(of,s->fs.asciischema,strlen(s->fs.asciischema)+1);\r
+#else\r
+ fwrite(&topb[0],strlen(topb),1,of);\r
+ fwrite(s->fs.asciischema,strlen(s->fs.asciischema)+1,1,of);\r
+#endif\r
+ }\r
+ }\r
+ }\r
+ if (code==0) {\r
+ nsz=htonl(rsize);\r
+ if (s->compressed) {\r
+#ifdef GSBZIP2\r
+ BZ2_bzWrite ( &bzerror, b,&nsz,sizeof(gs_uint32_t) );\r
+ BZ2_bzWrite ( &bzerror, b,rbuf,rsize);\r
+#endif\r
+ } else {\r
+#ifdef ZLIB\r
+ gzwrite(of,&nsz,sizeof(gs_uint32_t));\r
+ gzwrite(of,rbuf,rsize);\r
+ }\r
+#else\r
+ if (fwrite(&nsz,sizeof(gs_uint32_t),1,of)!=1) {\r
+ ftaapp_exit();\r
+ if (s->verbose!=0)\r
+ gslog(LOG_EMERG,"Could not write to output\"%s\".. EXITING\n",\r
+ tmpname);\r
+ exit(0);\r
+ }\r
+ \r
+ if (fwrite(rbuf,rsize,1,of)!=1) {\r
+ ftaapp_exit();\r
+ if (s->verbose!=0)\r
+ gslog(LOG_EMERG,"Could not write to output\"%s\".. EXITING\n",\r
+ tmpname);\r
+ exit(0);\r
+ }\r
+ if ((s->stream!=0) || (s->flush!=0)) {\r
+ fflush(of);\r
+ }\r
+ }\r
+#endif\r
+ }\r
+ }\r
+}\r
+}\r
+\r
+\r
+\r
+int main(int argc, char** argv) {\r
+ \r
+ struct gsasciiprint_state s;\r
+ gs_retval_t ch;\r
+ endpoint gshub;\r
+ endpoint dummyep;\r
+ gs_uint32_t tip1,tip2,tip3,tip4;\r
+ gs_sp_t instance_name;\r
+ \r
+ me = argv[0];\r
+ \r
+ /* initialize host library and the sgroup */\r
+ \r
+ if (argc<=1) {\r
+ print_usage_exit("Not enough arguments");\r
+ }\r
+ \r
+ /* parse args */\r
+ bzero(&s, sizeof(s));\r
+ s.interval = 60; /* default */\r
+ s.quittime=0;\r
+ s.quitcnt=-1;\r
+ s.remote_print=-1;\r
+ s.bufsz=8*1024*1024;\r
+ \r
+ while ((ch = getopt(argc, argv, "nr:b:e:t:c:q:sfvzmh:")) != -1) {\r
+ switch(ch) {\r
+ case 'r':\r
+ s.bufsz=atoi(optarg);\r
+ break;\r
+ case 'c':\r
+ s.quitcnt = atoi(optarg);\r
+ break;\r
+ case 'q':\r
+ s.quittime = atoi(optarg);\r
+ break;\r
+ case 'b':\r
+ s.timefield = optarg;\r
+ break;\r
+ case 'e':\r
+ s.extension = optarg;\r
+ break;\r
+ case 'n':\r
+ s.notemp=1;\r
+ break;\r
+ case 't':\r
+ s.interval = atoi(optarg);\r
+ if (s.interval < 1) {\r
+ goto usage;\r
+ }\r
+ break;\r
+ case 's':\r
+ s.stream++;\r
+ break;\r
+ case 'f':\r
+ s.flush++;\r
+ break;\r
+ case 'v':\r
+ s.verbose++;\r
+ break;\r
+ case 'z':\r
+ s.compressed++;\r
+ break;\r
+ case 'h':\r
+ s.remote_print=atoi(optarg);\r
+ break;\r
+ default:\r
+ usage:\r
+ print_usage_exit("invalid args");\r
+ }\r
+ }\r
+ \r
+ if ((s.stream!=0) & (s.compressed!=0 | s.verbose!=0 |\r
+ s.timefield!=0 | s.extension!=0)) {\r
+ print_usage_exit("illegal argument combination with -s");\r
+ }\r
+ \r
+ if (!s.extension) {\r
+ s.extension = (s.compressed) ? ".txt.gz" : ".txt";\r
+ }\r
+ \r
+ argc -= optind;\r
+ argv += optind;\r
+ if (argc<3) print_usage_exit("must specify hub info and query");\r
+ \r
+ if (sscanf(argv[0],"%u.%u.%u.%u:%hu",&tip1,&tip2,&tip3,&tip4,&(gshub.port))!= 5 ) {\r
+ gslog(LOG_EMERG,"HUB IP NOT DEFINED");\r
+ exit(1);\r
+ }\r
+ gshub.ip=htonl(tip1<<24|tip2<<16|tip3<<8|tip4);\r
+ gshub.port=htons(gshub.port);\r
+ instance_name=strdup(argv[1]);\r
+ if (set_hub(gshub)!=0) {\r
+ gslog(LOG_EMERG,"Could not set hub");\r
+ exit(1);\r
+ }\r
+ if (set_instance_name(instance_name)!=0) {\r
+ gslog(LOG_EMERG,"Could not set instance name");\r
+ exit(1);\r
+ }\r
+ \r
+ if (get_initinstance(gshub,instance_name,&dummyep,1)!=0) {\r
+ gslog(LOG_EMERG,"Did not receive signal that GS is initiated\n");\r
+ }\r
+ \r
+ \r
+ argc -=2;\r
+ argv +=2;\r
+ \r
+ s.query = argv[0];\r
+ \r
+ init(argc, argv, &s);\r
+ \r
+ process_data(&s);\r
+ \r
+ gslog(LOG_EMERG,"%s::internal error reached unexpected end", me);\r
+}\r
+\r