benson-commit Mailing List for Benson Distributed Monitoring System (Page 33)

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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")) {

2001	Jan	Feb	Mar	Apr	May (1)	Jun (27)	Jul (24)	Aug (64)	Sep (15)	Oct (72)	Nov (28)	Dec (44)
2002	Jan (72)	Feb (58)	Mar (33)	Apr (3)	May (5)	Jun (4)	Jul	Aug	Sep	Oct (24)	Nov (29)	Dec (12)
2003	Jan (37)	Feb (44)	Mar (13)	Apr (23)	May (9)	Jun (3)	Jul	Aug (7)	Sep (33)	Oct (30)	Nov (31)	Dec (11)
2004	Jan (4)	Feb (35)	Mar (14)	Apr	May (2)	Jun	Jul	Aug (5)	Sep	Oct	Nov	Dec
2005	Jan	Feb (2)	Mar (2)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

benson-commit Mailing List for Benson Distributed Monitoring System (Page 33)

benson-commit — Benson Commit Mailing List