[Nagios-checkins] CVS: nagios/contrib mini_epn.c,1.3,1.4

[Ethan G. <ega...@us...>]

Update of /cvsroot/nagios/nagios/contrib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18506/contrib

Modified Files:
	mini_epn.c 
Log Message:
Fixes for mini_epn embedded Perl and volatile service notification logic

Index: mini_epn.c
===================================================================
RCS file: /cvsroot/nagios/nagios/contrib/mini_epn.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** mini_epn.c	14 Feb 2003 01:50:34 -0000	1.3
--- mini_epn.c	11 Feb 2004 04:48:47 -0000	1.4
***************
*** 24,28 ****
  #define MAX_COMMANDLINE_LENGTH 160
  
! static PerlInterpreter *perl = NULL;
  
  
--- 24,28 ----
  #define MAX_COMMANDLINE_LENGTH 160
  
! static PerlInterpreter *my_perl = NULL;
  
  
***************
*** 42,46 ****
          int i;
  
!         if((perl=perl_alloc())==NULL){
                  snprintf(buffer,sizeof(buffer),"Error: Could not allocate memory for embedded Perl interpreter!\n");
                  buffer[sizeof(buffer)-1]='\x0';
--- 42,46 ----
          int i;
  
!         if((my_perl=perl_alloc())==NULL){
                  snprintf(buffer,sizeof(buffer),"Error: Could not allocate memory for embedded Perl interpreter!\n");
                  buffer[sizeof(buffer)-1]='\x0';
***************
*** 48,56 ****
                  exit(1);
                  }
!         perl_construct(perl);
!         exitstatus=perl_parse(perl,xs_init,2,embedding,NULL);
          if(!exitstatus){
  
!                 exitstatus=perl_run(perl);
  
  		while(printf("Enter file name: ") && fgets(command_line,sizeof(command_line),stdin)){
--- 48,56 ----
                  exit(1);
                  }
!         perl_construct(my_perl);
!         exitstatus=perl_parse(my_perl,xs_init,2,embedding,NULL);
          if(!exitstatus){
  
!                 exitstatus=perl_run(my_perl);
  
  		while(printf("Enter file name: ") && fgets(command_line,sizeof(command_line),stdin)){
***************
*** 115,120 ****
          
          PL_perl_destruct_level = 0;
!         perl_destruct(perl);
!         perl_free(perl);
          exit(exitstatus);
  }
--- 115,120 ----
          
          PL_perl_destruct_level = 0;
!         perl_destruct(my_perl);
!         perl_free(my_perl);
          exit(exitstatus);
  }