vcl-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From fapee...@apache.org
Subject svn commit: r757529 - /incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
Date Mon, 23 Mar 2009 20:17:08 GMT
Author: fapeeler
Date: Mon Mar 23 20:17:08 2009
New Revision: 757529

URL: http://svn.apache.org/viewvc?rev=757529&view=rev
Log:
VCL-117 


Removed hardcoded value for the return-path sendmail -f option in the
utils:mail routine

created a global value that gets set in the vcld.conf file RETURNPATH

NOTE: the previous utils.pm was a premature check-in of work being done on healthcheck. this
checkin are the changes
related to the return-path variable.


Modified:
    incubator/vcl/trunk/managementnode/lib/VCL/utils.pm

Modified: incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/utils.pm?rev=757529&r1=757528&r2=757529&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/utils.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/utils.pm Mon Mar 23 20:17:08 2009
@@ -254,7 +254,7 @@
 	our ($JABBER, $jabServer, $jabUser, $jabPass, $jabResource, $jabPort) = 0;
 	our ($LOGFILE, $PIDFILE, $PROCESSNAME) = 0;
 	our ($DATABASE, $SERVER, $WRTUSER, $WRTPASS, $LockerRdUser, $rdPass) = 0;
-	our ($SYSADMIN, $SHARED_MAILBOX, $DEFAULTURL, $DEFAULTHELPEMAIL) = 0;
+	our ($SYSADMIN, $SHARED_MAILBOX, $DEFAULTURL, $DEFAULTHELPEMAIL, $RETURNPATH) = 0;
 	our ($XCATROOT) = 0;
 	our ($FQDN)     = 0;
 	our ($MYSQL_SSL,       $MYSQL_SSL_CERT);
@@ -391,10 +391,15 @@
 				$ETHDEVICE = $1;
 			}
 			#Sysadmin list
-			if ($l =~ /^sysadmin=([,.\@a-zA-Z0-9]*)/) {
+			if ($l =~ /^sysadmin=([,-.\@a-zA-Z0-9]*)/) {
 				$SYSADMIN = $1;
 			}
 
+			#Sendmail Envelope Sender 
+			if ($l =~ /^RETURNPATH=([,-.\@a-zA-Z0-9]*)/) {
+				$RETURNPATH = $1;
+			}
+
 			#sharedmailbox
 			if ($l =~ /^sharedmailbox=([,-.\@a-zA-Z0-9]*)/) {
 				$SHARED_MAILBOX = $1;
@@ -538,6 +543,9 @@
 		#set default
 		$PIDFILE = "/var/run/$PROCESSNAME.pid";
 	}
+	if (!($RETURNPATH)){
+		$RETURNPATH="";
+	}
 	if (!$IPCONFIGURATION) {
 		#default
 		$IPCONFIGURATION = "manualDHCP";
@@ -586,7 +594,7 @@
 our %ERRORS = ('DEPENDENT' => 4, 'UNKNOWN' => 3, 'OK' => 0, 'WARNING' => 1, 'CRITICAL'
=> 2, 'MAILMASTERS' => 5, 'DEBUG' => 6);
 our ($LockerWrtUser, $wrtPass,  $database,       $server);
 our ($jabServer,     $jabUser,  $jabPass,        $jabResource, $jabPort);
-our ($vcldquerykey,  $SYSADMIN, $SHARED_MAILBOX, $DEFAULTURL, $DEFAULTHELPEMAIL);
+our ($vcldquerykey,  $SYSADMIN, $SHARED_MAILBOX, $DEFAULTURL, $DEFAULTHELPEMAIL,$RETURNPATH);
 our ($LOGFILE, $PIDFILE, $VCLDRPCQUERYKEY);
 our ($SERVER, $DATABASE, $WRTUSER, $WRTPASS);
 our ($MYSQL_SSL,       $MYSQL_SSL_CERT);
@@ -1263,9 +1271,11 @@
 
 	# compare requestor and owner, if same only mail one
 	if (!(defined($from))) {
-		$from = "vcl_help\@ncsu.edu";
+		$from = $DEFAULTHELPEMAIL;
 	}
-	my $mailer = Mail::Mailer->new("sendmail", "-fitecs-vclsysroot\@engr.ncsu.edu");
+	my $localreturnpath = "-f$RETURNPATH";
+	my $mailer = Mail::Mailer->new("sendmail", $localreturnpath);
+#	my $mailer = Mail::Mailer->new("sendmail", "-fitecs-vclsysroot\@engr.ncsu.edu");
 
 	if ($SHARED_MAILBOX) {
 		my $bcc = $SHARED_MAILBOX;
@@ -7158,21 +7168,15 @@
    predictivemodule.prettyname AS predictive_prettyname,
    predictivemodule.description AS predictive_description,
    predictivemodule.perlpackage  AS predictive_perlpackage,
-	state.name AS statename,
-	resource.id AS resource_id
+	state.name AS statename
    FROM
    managementnode,
    module predictivemodule,
-	state,
-	resource,
-	resourcetype
+	state
    WHERE
    managementnode.predictivemoduleid = predictivemodule.id
 	AND managementnode.stateid = state.id
-	AND resource.resourcetypeid = resourcetype.id
-	AND resource.subid = managementnode.id
-	AND resourcetype.name = \'managementnode\'
-	AND
+   AND
    ";
 
 	# Figure out if the ID or hostname was passed as the identifier and complete the SQL statement
@@ -7268,100 +7272,6 @@
 
 #/////////////////////////////////////////////////////////////////////////////
 
-=head2 get_management_node_resource_groups
-
- Parameters  : mangement node resource id 
- Returns     : Hash containing data contained in the managementnode table
- Description :
-
-=cut
-
-sub get_management_node_resource_groups {
-	my ($management_resource_id) = @_;
-   my ($package, $filename, $line, $sub) = caller(0);
-
-   if (!(defined($management_resource_id))) {
-      notify($ERRORS{'WARNING'}, 0, "management resource ID was not specified");
-      return ();
-   }
-
-   my $select_statement = "
-   SELECT DISTINCT
-	resourcegroupid AS resourcegroupid
-	FROM
-	resourcegroupmembers
-	WHERE resourceid = $management_resource_id
-	 ";
-
-   # Call the database select subroutine
-   # This will return an array of one or more rows based on the
-	# select statement
-   my @selected_rows = database_select($select_statement);
-
-   # Check to make sure 1 or more rows were returned
-   if (scalar @selected_rows == 0) {
-      return ();
-   }
-
-	#Build the list
-	my %ret_grouplist;
-
-	for (@selected_rows) {
-	 	 my %resroucegroupids = %{$_};
-		 $ret_grouplist{$resroucegroupids{resourcegroupid}}= $resroucegroupids{resourcegroupid};
-	}
-
-	return %ret_grouplist;
-	
-}
-
-#/////////////////////////////////////////////////////////////////////////////
-
-=head2 get_managementnode_computer_groups
-
- Parameters  : mangement node resource group id 
- Returns     : Hash containing computer groups controlled by resource group
- Description :
-
-=cut
-
-sub get_managementnode_computer_groups {
-	my $manging_resource_grp_id = @_;
-   my ($package, $filename, $line, $sub) = caller(0);
-
-   if (!(defined($manging_resource_grp_id))) {
-      notify($ERRORS{'WARNING'}, 0, "management resource group ID was not specified");
-      return ();
-   }
-
-   my $select_statement = "
-   SELECT DISTINCT
-	resourcemap.resourcegroupid2
-	FROM
-	resourcemap,
-	resourcetype
-	WHERE 
-	resourcemap.resourcetypeid2 = resourcetype.id 
-	AND resourcemap.resourcegroupid1 = $manging_resource_grp_id
-	AND resourcetype.name = 'computer'
-	 ";
-
-   # Call the database select subroutine
-   # This will return an array of one or more rows based on the
-	# select statement
-   my @selected_rows = database_select($select_statement);
-
-   # Check to make sure 1 or more rows were returned
-   if (scalar @selected_rows == 0) {
-      return ();
-   }
-
-	#Build the list
-
-}
-
-#/////////////////////////////////////////////////////////////////////////////
-
 =head2 update_currentimage
 
  Parameters  : $computerid, $imageid, $imagerevisionid, $preferredimagid(optional)



Mime
View raw message