[Benson-commit] CVS: benson2/src/modules/Benson Benson.pm,1.4,1.5 Benson.xs,1.7,1.8

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

Update of /cvsroot/benson/benson2/src/modules/Benson
In directory usw-pr-cvs1:/tmp/cvs-serv5377

Modified Files:
	Benson.pm Benson.xs 
Log Message:
Major bug fixes, and some small feature enhancments, looking into the memory leak bug that crop'd up again.

Index: Benson.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Benson/Benson.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Benson.pm	2001/04/22 03:09:48	1.4
--- Benson.pm	2001/06/17 20:35:23	1.5
***************
*** 8,11 ****
--- 8,33 ----
  bootstrap Benson $VERSION;
  
+ sub new {
+ 	my $this = shift;
+ 	my $class = ref($this) || $this;
+ 	my %args = @_;
+ 	my $self = {
+ 		forwarder => $args{"forwarder"},
+ 		port => $args{"port"}
+ 	};
+ 	bless ($self, $class);
+ 	return $self;
+ }
+ 
+ sub forwarder {
+ 	my $self = shift;
+ 	my @params = @_;
+ 
+ 	if($#params == 0) {
+ 		$self->{forwarder} = $params[0];
+ 	}
+ 	return $self->{forwarder};
+ }
+ 
  sub clear {
  	my ($self) = shift;

Index: Benson.xs
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Benson/Benson.xs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Benson.xs	2001/05/30 03:21:57	1.7
--- Benson.xs	2001/06/17 20:35:23	1.8
***************
*** 13,34 ****
  
  
- class Benson {
- 	public:
- 		Benson();
- 		~Benson();
- 		SV* submit(...);
- 		SV* alert_list(...);
- 		SV* acknowledge(...);
- 		SV* update_status(...);
- 		SV* increment_count(...);
- // Variable Declarations
- };
- 
- Benson::Benson() {
- }
- 
- Benson::~Benson() {
- }
- 
  MODULE = Benson		PACKAGE= Benson
  
--- 13,16 ----
***************
*** 38,49 ****
  	items = items; /*avoid warning*/
  
- Benson *
- Benson::new()
- 
- void
- Benson::DESTROY()
  
  SV*
! Benson::submit(...)
  	PREINIT:
  	int ctr;
--- 20,26 ----
  	items = items; /*avoid warning*/
  
  
  SV*
! submit(...)
  	PREINIT:
  	int ctr;
***************
*** 55,60 ****
--- 32,40 ----
  	string forwarder;
  	CORBA::Object_var obj;
+ 	SV* self;
  
  	CODE:
+ 	self = newSVsv(ST(0));
+ 	forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
  	for(ctr=1;ctr<items;ctr=ctr+2) {
  		if(!strcmp(SvPVX(ST(ctr)),"agent")) {
***************
*** 91,95 ****
  
  SV*
! Benson::ack(...)
  	PREINIT:
  	int ctr;
--- 71,75 ----
  
  SV*
! ack(...)
  	PREINIT:
  	int ctr;
***************
*** 98,103 ****
--- 78,86 ----
  	string forwarder;
  	CORBA::Object_var obj;
+ 	SV* self;
  
  	CODE:
+ 	self = newSVsv(ST(0));
+ 	forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
  	for(ctr=1;ctr<items;ctr=ctr+2) {
  		if(!strcmp(SvPVX(ST(ctr)),"identity")) {
***************
*** 129,133 ****
  
  SV*
! Benson::alert_list(...)
  	PREINIT:
  	int ctr;
--- 112,116 ----
  
  SV*
! alert_list(...)
  	PREINIT:
  	int ctr;
***************
*** 137,142 ****
--- 120,128 ----
  	HV* hashedAlert;
  	CORBA::Object_var obj;
+ 	SV* self;
  
  	CODE:
+ 	self = newSVsv(ST(0));
+ 	forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
  	for(ctr=1;ctr<items;ctr=ctr+2) {
  		if(!strcmp(SvPVX(ST(ctr)),"forwarder")) {
***************
*** 192,196 ****
  
  SV*
! Benson::update_status(...)
  	PREINIT:
  	int ctr;
--- 178,182 ----
  
  SV*
! update_status(...)
  	PREINIT:
  	int ctr;
***************
*** 199,204 ****
--- 185,193 ----
  	string forwarder;
  	CORBA::Object_var obj;
+ 	SV* self;
  
  	CODE:
+ 	self = newSVsv(ST(0));
+ 	forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
  	for(ctr=1;ctr<items;ctr=ctr+2) {
  		if(!strcmp(SvPVX(ST(ctr)),"identity")) {
***************
*** 227,231 ****
  
  SV*
! Benson::increment_count(...)
  	PREINIT:
  	int ctr;
--- 216,220 ----
  
  SV*
! increment_count(...)
  	PREINIT:
  	int ctr;
***************
*** 233,238 ****
--- 222,230 ----
  	string forwarder;
  	CORBA::Object_var obj;
+ 	SV* self;
  
  	CODE:
+ 	self = newSVsv(ST(0));
+ 	forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
  	for(ctr=1;ctr<items;ctr=ctr+2) {
  		if(!strcmp(SvPVX(ST(ctr)),"identity")) {