[Benson-commit] CVS: benson3/src/perl/Benson Benson.xs,1.14,1.15 Makefile.PL,1.11,1.12

[Bob T. <bt...@us...>]

Update of /cvsroot/benson/benson3/src/perl/Benson
In directory sc8-pr-cvs1:/tmp/cvs-serv3889/src/perl/Benson

Modified Files:
	Benson.xs Makefile.PL 
Log Message:
More changes this may actually work.

Index: Benson.xs
===================================================================
RCS file: /cvsroot/benson/benson3/src/perl/Benson/Benson.xs,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** Benson.xs	28 Sep 2003 22:26:28 -0000	1.14
--- Benson.xs	8 Oct 2003 03:15:02 -0000	1.15
***************
*** 1,4 ****
--- 1,5 ----
  #include <benson/benson.h>
  #include <benson/perl_util.h>
+ #include "network/network.h"
  #include "XSUB.h"
  
***************
*** 178,182 ****
  	char destination[DST_MAXSIZE];
  	char agent[AGT_MAXSIZE];
! 	struct benson_alertlist_response *alertlist;
  	char port_number[10];
  	int port = 0;
--- 179,183 ----
  	char destination[DST_MAXSIZE];
  	char agent[AGT_MAXSIZE];
! 	struct benson_alertlist_response_v31 *alertlist;
  	char port_number[10];
  	int port = 0;
***************
*** 193,200 ****
  	port = atoi(port_number);
  
! 	if((alertlist = bn_alertlist(destination, port, agent, &buffer_size)) == NULL) {
  		croak("Benson.xs: alert_list: bn_alertlist() failed.");
  	}
! 	number_of_alerts = buffer_size / sizeof(struct benson_alertlist_response);
  	alerts = newAV();
  	for(ctr=0;ctr<number_of_alerts;ctr++) {
--- 194,201 ----
  	port = atoi(port_number);
  
! 	if((alertlist = (struct benson_alertlist_response_v31 *)bn_alertlist(destination, port, agent, &buffer_size)) == NULL) {
  		croak("Benson.xs: alert_list: bn_alertlist() failed.");
  	}
! 	number_of_alerts = buffer_size / sizeof(struct benson_alertlist_response_v31);
  	alerts = newAV();
  	for(ctr=0;ctr<number_of_alerts;ctr++) {

Index: Makefile.PL
===================================================================
RCS file: /cvsroot/benson/benson3/src/perl/Benson/Makefile.PL,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** Makefile.PL	28 Sep 2003 22:26:28 -0000	1.11
--- Makefile.PL	8 Oct 2003 03:15:02 -0000	1.12
***************
*** 25,29 ****
  	'LIBS'		=> ["-R$prefix/lib/ -L$prefix/lib/ -lbenson"],
  	'DEFINE'	=> '',
! 	'INC'		=> "-I$top_srcdir/include/",
  	'XSPROTOARG'	=> '-noprototypes',
  	'INSTALLDIRS'	=> 'perl',
--- 25,29 ----
  	'LIBS'		=> ["-R$prefix/lib/ -L$prefix/lib/ -lbenson"],
  	'DEFINE'	=> '',
! 	'INC'		=> "-I$top_srcdir/include/ -I$top_srcdir/src/",
  	'XSPROTOARG'	=> '-noprototypes',
  	'INSTALLDIRS'	=> 'perl',