[Benson-commit] CVS: benson2/src alertlist.cc,1.3,1.4

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

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

Modified Files:
	alertlist.cc 
Log Message:
Added some database hooks, cleaned up some of the alertlist code and bensonctl so that it respects the Port config option

Index: alertlist.cc
===================================================================
RCS file: /cvsroot/benson/benson2/src/alertlist.cc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** alertlist.cc	2001/04/08 01:41:57	1.3
--- alertlist.cc	2001/06/05 01:47:56	1.4
***************
*** 57,61 ****
  	
  	if((argc - optind) == 0) {
! 		destination = "inet:" + destination + ":9021";
  
  		if(verbose) {
--- 57,62 ----
  	
  	if((argc - optind) == 0) {
! 		string port = SvPVX(perl_object->get(srvref, "Port"));
! 		destination = "inet:" + destination + ":" + port;
  
  		if(verbose) {