root/tags/REL-0.0.9beta/trunk/src/renetcol.c @ 37

Revision 37, 22.1 KB (checked in by andreu, 16 years ago)

tag creation - release 0.0.9beta

  • Property svn:eol-style set to native
Line 
1/*
2 * File: renetcol.c
3 *
4 * Authors: ANDREU Francois-Xavier
5 *
6 * Copyright (C) 2005 2006 2007 GIP RENATER
7 */
8
9/*  This file is part of renetcol.
10 *
11 *  renetcol is free software; you can redistribute it and/or modify
12 *  it under the terms of the GNU General Public License as published by
13 *  the Free Software Foundation; either version 2 of the License, or
14 *  (at your option) any later version.
15 *
16 *  renetcol is distributed in the hope that it will be useful,
17 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
18 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19 *  GNU General Public License for more details.
20 *
21 *  You should have received a copy of the GNU General Public License
22 *  along with renetcol; if not, write to the Free Software
23 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
24 */
25
26#include "renetcol.h"
27
28struct MyPtrs myPtrs; /* defined in routers_mgmt.h */
29
30struct SHMForAgg *shmForAgg;
31
32struct IPFLowCache tabIP[MAX_IP_FLOW];
33struct MPLSFlowCache tabMPLS[MAX_MPLS_FLOW];
34unsigned long ipNb = 0;                     /* counter of IP flows number */
35unsigned long mplsNb = 0;                   /* counter of MPLS flow number */
36
37unsigned short currentIPOutputFile = 0;    /* index on the current IP file */
38unsigned short currentMPLSOutputFile = 0;  /* index on the current MPLS file */
39char outputName[256];
40char cof_str[20];                          /* current ouput file name */
41FILE *fIP;                                 /* pointer on the IP output file */
42FILE *fMPLS;                              /* pointer on the MPLS output file */
43
44char *rulesFileName;                    /* file name of the rules (like acl) */
45char *configFileName;                   /* file name where routers list is */
46char *prefixV4FileName;                 /* IPv4 prefix list */
47
48struct sigaction myAction; /* handler for renetcolSender communication */
49sigjmp_buf contextSigalrm; /* '' */
50volatile sig_atomic_t sigusr1Up = 0;
51/* struct sigaction myAction;  for timer not used in this version */
52
53unsigned short currentIntervalle = 0;        /* based on 5 min intervalles */ 
54
55unsigned short offsetV9 = 0;                 /* index in a neflow v9 packet */
56
57unsigned char buffer1;
58unsigned char buffer2[2];
59unsigned char buffer4[4];
60unsigned char buffer6[6];
61
62short currentFlowsetNumber;
63short currentFlowsetId;
64TplFlowSetPtr curTplFlSetPtr; /* current template flowset pointer */
65TplOptionPtr curTplOptionPtr;
66RouterPtr routersListPtr;
67
68unsigned long sortedRouterList[ROUTER_INDEX_MAX];
69unsigned long indexedRouterList[ROUTER_INDEX_MAX];
70int routerNb = 0;                                  /* routers number */
71
72key_t myKey = 0;
73int myQueue = 0;
74
75/* Next structure used as cache in rules reading */
76RuleDefPtr rulesAddress[FIELD_TYPE_NUMBER+1][MAX_RULES_PER_FIELD];
77
78int reInitConf = 0;
79
80static time_t lastRock;
81static struct tm *tmPtr;
82
83extern int errno;
84static int inputSock;
85static int sockNamelg;
86static int inputSock2;
87static int sockNameFromlg;
88static int rcv;
89static int sockBufSize = SOCKET_BUFFER_SIZE;           
90/* static unsigned short flowNumber; */
91static unsigned short receptPort = RECEPTION_PORT;
92/* static unsigned char *ptr_buffer; */
93static char *receptAddress = RECEPTION_ADDRESS;
94static struct sockaddr_in name;
95static struct sockaddr_in name2;
96static struct sockaddr_in fromName;
97
98/*
99 * Main
100 * ----
101 */
102int 
103main (int argc, char *argv[])
104{
105  RulesPtr tmp = NULL;
106  int shmid;
107  key_t key;
108  int i,j;
109 
110  if ( argc != 4) {
111    fprintf (stderr,
112             "%s: Usage: %s <routers file> <prefix IPv4 file> <rules file>\n exp: %s routers.txt IPv4_prefix.txt rules.txt\n",
113             argv[0], argv[0], argv[0]);
114    exit(1);
115  }
116
117#ifdef CRIHAN
118  fprintf(stderr, "renetcol compilation with CRIHAN feature enable\n");
119#endif
120#ifdef IPV4AGG
121  fprintf(stderr, "renetcol compilation and execution with IPv4 Aggregation feature enable\n");
122#endif
123 
124  openlog(argv[0], LOG_PID, LOG_USER);
125 
126  configFileName = (char *) malloc((strlen(argv[1])+1) * sizeof(char));
127  strcpy (configFileName, argv[1]);
128  prefixV4FileName = (char *) malloc((strlen(argv[2])+1) * sizeof(char));
129  strcpy (prefixV4FileName, argv[2]);
130  rulesFileName = (char *) malloc((strlen(argv[3])+1) * sizeof(char));
131  strcpy (rulesFileName, argv[3]);
132
133  initCache();
134  routerNb = getRegisteredRouters(configFileName, &sortedRouterList[0],
135                                  &indexedRouterList[0]);
136  key = 8765;
137  if ((shmid = shmget(key, SHMSIZE, IPC_CREAT | 0666)) < 0) {
138    perror("shmget");
139    exit(1);
140  }
141  if ((shmForAgg = (struct SHMForAgg *)shmat(shmid, (void *)0, 0)) == (void *) -1) {
142    perror("shmat");
143    exit(1);
144  }
145
146  if ( (shmForAgg->v4PrefixNb = getPrefixV4(prefixV4FileName, &(shmForAgg->prefixV4Tab[0][0]))) < 1){
147    fprintf(stderr, "renetcol: Error \n");
148    exit(1);
149  }
150  if ( (shmForAgg->v4PrefixNb = getPrefixV4(prefixV4FileName, &(shmForAgg->prefixV4Tab[1][0]))) < 1){
151    fprintf(stderr, "renetcol:  Error \n");
152    exit(1);
153  }
154
155  shmForAgg->currentTable = 0;
156  shmForAgg->secondTable = 1;
157
158  myPtrs.rulesListPtr = NULL;
159/*   myPtrs.rulesListPtr = getLightRules(myPtrs.rulesListPtr, rulesFileName); */
160  myPtrs.rulesListPtr = getRules(myPtrs.rulesListPtr, rulesFileName);
161  tmp = myPtrs.rulesListPtr;
162  for ( ; tmp->next; tmp=tmp->next) {
163    if (tmp->type != 2) {
164      myPtrs.rulesListPtr = delRule(tmp, myPtrs.rulesListPtr);
165    }
166  }
167  tmp = NULL;
168/*   printRule(rulesListPtr); */
169/*   exit(1); */
170
171  fprintf(stderr, "renetcol: I become a deamon, next messages via syslogd. By.\n");
172  if (fork () != 0)
173    exit (0);
174  if (setsid() == -1){
175    exit(4);
176  }
177
178  /* handler, SIGUSR1 from renetcolSender */
179  myAction.sa_handler = sigusr1Mgmt;
180  myAction.sa_flags = SA_RESTART;
181  sigemptyset (&(myAction.sa_mask));
182  sigaddset (&(myAction.sa_mask), SIGALRM);
183  sigaction (SIGUSR1, &myAction, NULL);
184
185  /* Pointer on rules Table */
186  setCache(myPtrs.rulesListPtr);
187  myPtrs.rulesAddressPtr = (RuleDefPtr *)rulesAddress;
188
189  /* init IPC messages queue */
190  myKey = createKey(argv[0]);
191  myQueue = createQueue(myKey);
192  sendMyPid(myQueue);
193
194  /* INIT THE CURRENTS VARIABLES*/
195  myPtrs.currentRouterPtr = routersListPtr;
196  myPtrs.currentHeaderV9Ptr = (NetFlowV9HeaderPtr)
197    malloc(sizeof(struct NetFlowV9Header));
198  myPtrs.offsetV9Ptr = &offsetV9;
199  myPtrs.currentFlowsetIdPtr = &currentFlowsetId;
200  myPtrs.pcktPtr = (DatagramPtr) malloc(sizeof(struct Datagram));
201  myPtrs.currentFlowsetNumberPtr = &currentFlowsetNumber;
202  myPtrs.ipNbPtr =  &ipNb;
203  myPtrs.mplsNbPtr =  &mplsNb;
204  myPtrs.routersID = &indexedRouterList;
205  myPtrs.currentV4Tab = shmForAgg->prefixV4Tab[shmForAgg->currentTable];
206  myPtrs.secondV4Tab = shmForAgg->prefixV4Tab[shmForAgg->secondTable];
207  myPtrs.matrixPOP = &(shmForAgg->matrixPOP[shmForAgg->currentTable][0][0]);
208
209  myPtrs.nbFluxSR4 =0;
210  myPtrs.nbFluxSE =0;
211  myPtrs.nbFluxIR4 =0;
212  myPtrs.nbFluxUK = 0;
213  myPtrs.nbFluxTT = 0;
214
215  for (i=0; i<ROUTER_INDEX_MAX; i++){
216    for (j=0; j<ROUTER_INDEX_MAX; j++) {
217      shmForAgg->matrixPOP[0][i][j].bytesNb = 0;
218      shmForAgg->matrixPOP[0][i][j].pktsNb = 0;
219      shmForAgg->matrixPOP[0][i][j].flowNb = 0;
220      shmForAgg->matrixPOP[1][i][j].bytesNb = 0;
221      shmForAgg->matrixPOP[1][i][j].pktsNb = 0;
222      shmForAgg->matrixPOP[1][i][j].flowNb = 0;
223    }
224  }
225
226  if (myPtrs.pcktPtr==NULL) {
227    fprintf(stderr, "ERROR in struct Datagram allocation\n");
228    exit(1);
229  } else {
230    myPtrs.pcktPtr->ipH = (IpHeaderPtr) malloc(sizeof(struct IpHeader));
231    myPtrs.pcktPtr->udp_header = (UdpHeaderPtr) malloc(sizeof(struct UdpHeader));
232  }
233
234  if (! (myPtrs.ptr_buffer = malloc(sockBufSize))) 
235    {
236      printf("ERROR during socket buffer allocation\n");
237      exit(2);
238    }
239
240  /* INIT INPUT STREAM*/
241  initStream();
242
243  socketLoop(); /* all work on datagram is made here */
244
245  closelog();
246
247  fprintf(stderr, "END\n");
248
249  return (0);
250}
251
252/*
253 * send his PID to another program via IPC message queue
254 *
255 * @param queueID the IPC queue ident
256 *
257 */
258void 
259sendMyPid(int queueID)
260{
261  msgType myMsg;
262  char *msgTextIndex;
263  unsigned short tplMsgType = 12;
264  pid_t myPID;
265 
266  myPID = getpid();
267  msgTextIndex = mempcpy(mempcpy(myMsg.text,
268                                 &tplMsgType,
269                                 sizeof (unsigned short)
270                                 ),
271                         &myPID,
272                         sizeof(pid_t)
273                         );
274  myMsg.type = 1;
275  msgSend(queueID, myMsg);
276}
277
278/*
279 * Send the "read rules list" message to another program
280 *
281 * @param queueID the IPC queue ident
282 *
283 */
284void sendReadRulesSignal(int queueID)
285{
286  msgType myMsg;
287  char *msgTextIndex;
288  unsigned short tplMsgType = 13;
289 
290  msgTextIndex = mempcpy(myMsg.text,
291                         &tplMsgType,
292                         sizeof (unsigned short)
293                         );
294  myMsg.type = 1;
295  msgSend(queueID, myMsg);
296}
297
298/*
299 *
300 */
301void 
302sigusr1Mgmt(int num)
303{
304  sigusr1Up = 1;
305}
306
307/*
308 * init the rule structure
309 */
310void 
311initRule()
312{
313  RulesPtr tmp = NULL;
314  initCache();
315  tmp = myPtrs.rulesListPtr;
316  for ( ; tmp; tmp=tmp->next) {
317    myPtrs.rulesListPtr = delRule(tmp, myPtrs.rulesListPtr);
318  }
319  myPtrs.rulesListPtr = NULL;
320  myPtrs.rulesListPtr = getRules(myPtrs.rulesListPtr, rulesFileName);
321  tmp = myPtrs.rulesListPtr;
322  for ( ; tmp; tmp=tmp->next) {
323    if (tmp->type != 2) {
324      myPtrs.rulesListPtr = delRule(tmp, myPtrs.rulesListPtr);
325    }
326  }
327  tmp = NULL;
328  initCache();
329  setCache(myPtrs.rulesListPtr);
330  sendReadRulesSignal(myQueue);
331}
332
333/*
334 * init cache table
335 */
336void
337initCache()
338{
339  int i,j;
340  for (i=0; i<FIELD_TYPE_NUMBER+1; i++){
341    for (j=0; j<MAX_RULES_PER_FIELD; j++){
342      rulesAddress[i][j] = NULL;
343    }
344  }
345}
346
347/*
348 * setCache()
349 */
350void
351setCache(RulesPtr rPtr)
352{
353  int i=0;
354  RulesPtr tmp = rPtr;
355  RuleDefPtr def = NULL;
356
357  while (tmp) {
358    def = tmp->def;
359    while (def) {
360      i = 0;
361      while (rulesAddress[def->fieldType][i] != NULL){
362        i++;
363      }
364      rulesAddress[def->fieldType][i] = def;
365      def = def->next;
366    }
367    tmp = tmp->next;
368  }
369}
370
371/*
372 * initStream()
373 */
374void 
375initStream()
376{
377  static unsigned short n0, n1, n2, n3;
378
379  initSocket();
380  if (sscanf(receptAddress,"%hu.%hu.%hu.%hu",&n0,&n1,&n2,&n3)==0) {
381    perror("sscanf");
382  }             
383  buffer4[0] = (unsigned char)n3;
384  buffer4[1] = (unsigned char)n2;
385  buffer4[2] = (unsigned char)n1;
386  buffer4[3] = (unsigned char)n0;
387}
388
389/*
390 * socketLoop()
391 */
392int 
393socketLoop()
394{
395  short shift;
396  short version = 0;
397  int regRouter = 0;
398  time_t now = time((time_t *)NULL);
399  int iIP, iMPLS, i, z, x;
400  int loopNb = 0;
401  int gardeFou = 0;
402  time_t lastIPOutput, lastMPLSOutput;
403  time_t receptionTime;
404
405  now = time((time_t *)NULL);
406  tmPtr = localtime(&now);
407  currentIntervalle = tmPtr->tm_min;
408  lastMPLSOutput = now;
409  lastIPOutput = now;
410  do {
411#ifdef DEBUG   
412    fprintf (stderr, "[");
413#endif
414    if ( ((tmPtr->tm_min)%STEP == 0) && (currentIntervalle != tmPtr->tm_min)){
415      currentIntervalle = tmPtr->tm_min;
416      if (shmForAgg->currentTable == 0) {
417        shmForAgg->currentTable = 1;
418        shmForAgg->secondTable = 0;
419      }else{
420        shmForAgg->currentTable = 0;
421        shmForAgg->secondTable = 1;
422      }
423      shmForAgg->readed = 1;
424      myPtrs.matrixPOP = &(shmForAgg->matrixPOP[shmForAgg->currentTable][0][0]);
425      fprintf(stderr,"\n\nComptage FLUX:\n SR4: %llu\n SE: %llu\n IR4: %llu\n UK: %llu\n TT: %llu\n",
426              myPtrs.nbFluxSR4,
427              myPtrs.nbFluxSE,
428              myPtrs.nbFluxIR4,
429              myPtrs.nbFluxUK,
430              myPtrs.nbFluxTT
431              );
432      myPtrs.nbFluxSR4 =0;
433      myPtrs.nbFluxSE =0;
434      myPtrs.nbFluxIR4 =0;
435      myPtrs.nbFluxUK = 0;
436      myPtrs.nbFluxTT = 0;
437    }
438    if (sigusr1Up == 1){
439      sigusr1Up = 0;
440      initRule();
441    }
442    socketReading();
443    getIpHeader(myPtrs.pcktPtr, myPtrs.ptr_buffer);
444    regRouter = checkIpHeader(myPtrs.pcktPtr, &sortedRouterList[0], routerNb);
445    getUdpHeader(myPtrs.pcktPtr, myPtrs.ptr_buffer);
446    if ( checkUdpHeader(myPtrs.pcktPtr, regRouter, receptPort) == 1 ){
447      continue;
448    }
449   
450    switch( version =
451            getNetFlowHeader(myPtrs.pcktPtr, myPtrs.ptr_buffer,
452                             myPtrs.currentHeaderV9Ptr, myPtrs.offsetV9Ptr)){
453    case 9:
454      if ((myPtrs.currentRouterPtr=notExistRouter(routersListPtr,
455                                                  myPtrs.pcktPtr->ipH->srcAdd))==NULL) {
456        routersListPtr = addRouter(routersListPtr,
457                                   myPtrs.pcktPtr->ipH->srcAdd,
458                                   (unsigned long) 0,
459                                   shmForAgg->prefixV4Tab[shmForAgg->currentTable],
460                                   (size_t) shmForAgg->v4PrefixNb,
461                                   &myPtrs
462                                   );
463        myPtrs.currentRouterPtr = routersListPtr;
464      }
465      currentFlowsetNumber = 0;
466      shift = 0;
467      gardeFou=0;
468      while ((currentFlowsetNumber < myPtrs.currentHeaderV9Ptr->count)) {
469        gardeFou++;
470        curTplFlSetPtr = NULL;
471        currentFlowsetId=getFlowsetId(currentFlowsetNumber,
472                                      myPtrs.offsetV9Ptr, myPtrs.ptr_buffer);
473        if ( currentFlowsetId == 0 ) {
474          if ( (shift = checkTemplateFlowSet(myPtrs.currentRouterPtr, myPtrs.offsetV9Ptr,
475                                             myPtrs.ptr_buffer, myPtrs.currentHeaderV9Ptr,
476                                             curTplFlSetPtr,
477                                             myPtrs.currentFlowsetNumberPtr,
478                                             myQueue)) < 0 ) {
479#ifdef DEBUG
480            fprintf (stderr, "w>\n");
481#endif
482            currentFlowsetNumber = myPtrs.currentHeaderV9Ptr->count + 1;
483          };
484          writeAllTplFlSet();
485        } else if (currentFlowsetId == 1) {
486          if ( (shift = checkTemplateOption(myPtrs.currentRouterPtr, myPtrs.offsetV9Ptr,
487                                      myPtrs.ptr_buffer, myPtrs.currentHeaderV9Ptr,
488                                      curTplOptionPtr,
489                                            myPtrs.currentFlowsetNumberPtr) ) < 0 ) {
490#ifdef DEBUG
491            fprintf (stderr, "wo>\n");
492#endif 
493            currentFlowsetNumber = myPtrs.currentHeaderV9Ptr->count + 1;
494          }
495        } else if (currentFlowsetId > 255) {
496          if ( (shift = checkDataFlowSet(shift,
497                                         &myPtrs,
498                                         myQueue,
499                                         shmForAgg->prefixV4Tab[shmForAgg->currentTable],
500                                         (size_t) shmForAgg->v4PrefixNb
501                                         ) ) < 0 ) {
502#ifdef DEBUG   
503            fprintf (stderr, "wd>\n");
504#endif
505            currentFlowsetNumber = myPtrs.currentHeaderV9Ptr->count + 1;
506          }
507        } else {
508#ifdef DEBUG   
509          fprintf (stderr, "1<<255\n");
510#endif
511          currentFlowsetNumber = myPtrs.currentHeaderV9Ptr->count + 1;
512        }
513        if ( gardeFou > 200) { exit(-1); }
514      } /* end while flowset exist */
515      break;
516    default:
517      syslog(LOG_INFO,
518             "NetFlow exp. version unknown: %hu, from router: %lu.%lu.%lu.%lu",
519             (unsigned short) version,
520             (myPtrs.pcktPtr->ipH->srcAdd>>24),
521             (myPtrs.pcktPtr->ipH->srcAdd<<8>>24),
522             (myPtrs.pcktPtr->ipH->srcAdd<<16>>24),
523             (myPtrs.pcktPtr->ipH->srcAdd<<24>>24));
524      break;
525    }
526    if (loopNb  > 1000 ){
527      /* FIXME perhaps call this function via the compilation options */
528      writeAllTplFlSet();
529#ifdef DEBUG   
530      fprintf(stderr, "W");
531#endif
532      loopNb = 0;
533    }
534    loopNb++;
535
536#ifdef CRIHAN
537    now = time((time_t *)NULL);
538    receptionTime = now;
539    if ( (ipNb > (MAX_IP_FLOW - 50)) ||
540         ( (now-lastIPOutput) > IP_TIME_THRESHOLD) ) {
541      outputName[0] = '\0';
542      sprintf(cof_str, "%d", currentIPOutputFile);
543      strcat(outputName, OUTPUT_IP);
544      strcat(outputName, cof_str);
545      strcat(outputName, EXTENSION);
546      if (fopen(outputName, "x") == NULL) {
547        currentIPOutputFile = (currentIPOutputFile + 1)%MAX_IP_OUTPUT_FILES;
548        outputName[0] = '\0';
549        sprintf(cof_str, "%d", currentIPOutputFile);
550        strcat(outputName, OUTPUT_IP);
551        strcat(outputName, cof_str);
552        strcat(outputName, EXTENSION);
553      }
554      if ((fIP = fopen(outputName, "w")) == NULL) {
555        syslog(LOG_ERR,"Error in OUTPUT_IP opening : %s", strerror(errno));
556      } else {
557        for ( iIP = 0; iIP < ipNb; iIP++){
558          if ( tabIP[iIP].ipProt == 0 ) {
559            fprintf(fIP, "%lu;%lu;%hu;%hu;%lu.%lu.%lu.%lu;%lu.%lu.%lu.%lu;%d;%hu;%hu;%d;%d;%lu.%lu.%lu.%lu;%lu;%d\n",
560                    tabIP[iIP].bytes, tabIP[iIP].pkts,
561                    tabIP[iIP].inSnmp,  tabIP[iIP].outSnmp,
562                    tabIP[iIP].v4AdS>>24, tabIP[iIP].v4AdS<<8>>24,
563                    tabIP[iIP].v4AdS<<16>>24, tabIP[iIP].v4AdS<<24>>24,
564                    tabIP[iIP].v4AdD>>24, tabIP[iIP].v4AdD<<8>>24,
565                    tabIP[iIP].v4AdD<<16>>24, tabIP[iIP].v4AdD<<24>>24,
566                    tabIP[iIP].tProt, tabIP[iIP].sPort,
567                    tabIP[iIP].dPort, tabIP[iIP].maskD,
568                    tabIP[iIP].maskS, tabIP[iIP].routerAd>>24,
569                    tabIP[iIP].routerAd<<8>>24, tabIP[iIP].routerAd<<16>>24,
570                    tabIP[iIP].routerAd<<24>>24, tabIP[iIP].liveTime,
571                    receptionTime
572                    );
573          }
574        }
575        fclose(fIP);
576      }
577      ipNb = 0;
578      lastIPOutput = now;
579    }
580    now = time((time_t *)NULL);
581    if ( mplsNb > (MAX_MPLS_FLOW - 50) ||
582         ( (now-lastMPLSOutput) > MPLS_TIME_THRESHOLD) ) {
583      outputName[0] = '\0';
584      sprintf(cof_str, "%d", currentMPLSOutputFile);
585      strcat(outputName, OUTPUT_MPLS);
586      strcat(outputName, cof_str);
587      strcat(outputName, EXTENSION);
588      if (fopen(outputName, "x") == NULL) {
589        currentMPLSOutputFile = (currentMPLSOutputFile + 1)%MAX_MPLS_OUTPUT_FILES;
590        outputName[0] = '\0';
591        sprintf(cof_str, "%d", currentMPLSOutputFile);
592        strcat(outputName, OUTPUT_MPLS);
593        strcat(outputName, cof_str);
594        strcat(outputName, EXTENSION);
595      }
596      if ((fMPLS = fopen(outputName, "w")) == NULL) {
597        syslog(LOG_ERR,"Error in OUTPUT_MPLS opening : %s", strerror(errno));
598      } else {
599        for ( iMPLS = 0; iMPLS < mplsNb; iMPLS++){
600          if ( tabMPLS[iMPLS].ipProt == 0 ) {
601            fprintf(fMPLS, "%lu.%lu.%lu.%lu;%hu;%lu.%lu.%lu.%lu;%lu.%lu.%lu.%lu\n",
602                    tabMPLS[iMPLS].routerAd>>24,tabMPLS[iMPLS].routerAd<<8>>24,
603                    tabMPLS[iMPLS].routerAd<<16>>24,
604                    tabMPLS[iMPLS].routerAd<<24>>24,
605                    tabMPLS[iMPLS].mplsLabel1,tabMPLS[iMPLS].v4AdS>>24,
606                    tabMPLS[iMPLS].v4AdS<<8>>24,tabMPLS[iMPLS].v4AdS<<16>>24,
607                    tabMPLS[iMPLS].v4AdS<<24>>24,tabMPLS[iMPLS].v4AdD>>24,
608                    tabMPLS[iMPLS].v4AdD<<8>>24,tabMPLS[iMPLS].v4AdD<<16>>24,
609                    tabMPLS[iMPLS].v4AdD<<24>>24
610                    );
611          }
612        }
613        fclose(fMPLS);
614      }
615      mplsNb = 0;
616      lastMPLSOutput = now;
617    }
618#endif /* CRIHAN */
619    now = time((time_t *)NULL);
620    tmPtr = localtime(&now);
621#ifdef DEBUG   
622    fprintf (stderr, "]\n");
623#endif
624  } while (1);
625}
626
627/*
628 * initSocket()
629 */
630short 
631initSocket()
632{
633  inputSock = socket(AF_INET, SOCK_RAW, IPPROTO_UDP);
634  if (inputSock < 0)
635    {
636      syslog(LOG_ERR,"socket : %s", strerror(errno));
637      exit(1);
638    }
639  memset((void*)&name, 0, sizeof(name));
640  name.sin_family = AF_INET;
641  name.sin_addr.s_addr = htonl(INADDR_ANY);
642  if (name.sin_addr.s_addr == INADDR_NONE){
643    syslog(LOG_ERR, " INADDR_NONE ");
644    exit(1);
645  }
646  name.sin_port = htons(receptPort);
647  if (bind(inputSock,(struct sockaddr *)(&name), sizeof(name)) < 0)
648    {
649      syslog(LOG_ERR, "bind : %s", strerror(errno));
650      exit(1);
651    }                                                           
652  sockNamelg = sizeof(name);
653  if (getsockname(inputSock, (struct sockaddr *) (&name),
654                  (socklen_t *)&sockNamelg) < 0)
655    {
656      syslog(LOG_ERR, "getsockname: %s", strerror(errno));
657      exit(1);
658    }
659  /* Here socket DGRAM creation, only to not have a unreachable service */
660  /* message in return */
661  inputSock2 = socket(AF_INET, SOCK_DGRAM, 0);
662  if (inputSock2 < 0)
663    {
664      syslog(LOG_ERR,"socket : %s", strerror(errno));
665      exit(1);
666    }
667  memset((void*)&name, 0, sizeof(name));
668  name2.sin_family = AF_INET;
669  name2.sin_addr.s_addr = htonl(INADDR_ANY);
670  if (name2.sin_addr.s_addr == INADDR_NONE){
671    syslog(LOG_ERR, " INADDR_NONE ");
672    exit(1);
673  }
674  name2.sin_port = htons(receptPort);
675  if (bind(inputSock2,(struct sockaddr *)(&name2), sizeof(name2)) < 0)
676    {
677      syslog(LOG_ERR, "bind : %s", strerror(errno));
678      exit(1);
679    }                                                           
680  sockNamelg = sizeof(name2);
681  if (getsockname(inputSock2, (struct sockaddr *) (&name2),
682                  (socklen_t *)&sockNamelg) < 0)
683    {
684      syslog(LOG_ERR, "getsockname: %s", strerror(errno));
685      exit(1);
686    }
687  return(0);
688}
689
690
691/*
692 * init socket
693 */
694short 
695socketReading()
696{
697  signed short sockLg;
698
699  sockNameFromlg = sizeof(fromName);
700  rcv = recvfrom(inputSock, myPtrs.ptr_buffer, sockBufSize, 0,
701                 (struct sockaddr *)(&fromName),
702                 (socklen_t *)&sockNameFromlg);   
703  sockLg = rcv;
704  if (sockLg < 0) {
705    syslog(LOG_ERR,"recvfrom : %s", strerror(errno));
706    exit(1);
707  }
708  if (sockLg == 0) {
709    syslog(LOG_ERR,"recvfrom : %s", strerror(errno));
710    exit(1);
711  }
712  return(0);
713}
714 
715/*
716 * check up flow datagramme 
717 */
718short 
719checkFlow(short flowNumber)
720{
721  return(0); /* FIXME : why this function ??? */
722}
723
724/*
725 * showAllTplFlSet
726 *
727 * to use only in debug mode
728 */
729void 
730showAllTplFlSet()
731{
732  RouterPtr tmp = routersListPtr;
733  TplFlowSetPtr tmpFS;
734  TplOptionPtr tmpOP;
735  fprintf(stderr,"\n*********************************************\n* All template definitions: (field, size) : *\n*********************************************\n");
736  for (; tmp; tmp=tmp->next) {
737    fprintf(stderr,"----------------------\nrouter %lu.%lu.%lu.%lu : \n----------------------\n",
738            (tmp->IpAddress>>24),
739            (tmp->IpAddress<<8>>24),
740            (tmp->IpAddress<<16>>24),
741            (tmp->IpAddress<<24>>24));
742    tmpFS =  tmp->tplList;
743    for (; tmpFS; tmpFS=tmpFS->next) {
744      fprintf(stderr,"TId %hu (sourceId: %lu):\n",
745              tmpFS->templateFlowSetId,
746              tmpFS->sourceId);
747      printFieldSet(stderr, tmpFS->fieldSet);
748      fprintf(stderr,"\n");
749    }
750    if ((tmpOP = tmp->tplOptList) != NULL){
751      for (; tmpOP; tmpOP=tmpOP->next) {
752        fprintf(stderr,"OpTId %hu (sourceId: %lu) >\n",
753                tmpOP->templateOptionId,
754                tmpOP->sourceId);
755        printFieldSet(stderr, tmpOP->fieldSet);
756        fprintf(stderr,"\n");
757      }
758      fprintf(stderr,"\n");
759    }
760  }
761}
762
763
764/*
765 * writeAllTplFlSet
766 *
767 */
768void 
769writeAllTplFlSet()
770{
771
772  RouterPtr tmp = routersListPtr;
773  TplFlowSetPtr tmpFS;
774  TplOptionPtr tmpOP;
775  FILE *TPLFILE;
776  if (!(TPLFILE = fopen("/tmp/TemplateDef.txt", "w"))) {
777    syslog (LOG_ERR, "error during %s opening", "/tmp/TemplateDef.txt");
778  }
779  fprintf(TPLFILE,"\n*********************************************\n* All template definitions: (field, size) : *\n*********************************************\n");
780  for (; tmp; tmp=tmp->next) {
781    fprintf(TPLFILE,"----------------------\nrouter %lu.%lu.%lu.%lu : \n----------------------\n",
782            (tmp->IpAddress>>24),
783            (tmp->IpAddress<<8>>24),
784            (tmp->IpAddress<<16>>24),
785            (tmp->IpAddress<<24>>24));
786    tmpFS =  tmp->tplList;
787    for (; tmpFS; tmpFS=tmpFS->next) {
788      fprintf(TPLFILE,"TId %hu (sourceId: %lu):\n",
789              tmpFS->templateFlowSetId,
790              tmpFS->sourceId);
791      printFieldSet(TPLFILE, tmpFS->fieldSet);
792      fprintf(TPLFILE,"\n");
793    }
794    if ((tmpOP = tmp->tplOptList) != NULL){
795      for (; tmpOP; tmpOP=tmpOP->next) {
796        fprintf(TPLFILE,"OpTId %hu (sourceId: %lu) last %d brackets are Scope >\n lg: %hu, opScopeLg: %hu, opLg: %hu\n",
797                tmpOP->templateOptionId,
798                tmpOP->sourceId,
799                tmpOP->optionScopeLg/4,
800                tmpOP->length,
801                tmpOP->optionScopeLg,
802                tmpOP->optionLg);
803        printFieldSet(TPLFILE, tmpOP->fieldSet);
804        fprintf(TPLFILE,"\n");
805      }
806      fprintf(TPLFILE,"\n");
807    }
808  }
809  fclose(TPLFILE);
810}
Note: See TracBrowser for help on using the browser.