loncom/build/CHECKRPMS.default - diff

Return to CHECKRPMS.default CVS log

Up to [LON-CAPA] / loncom / build

version 1.10, 2002/11/04 02:53:07	version 1.11, 2002/11/15 18:42:34
Line 321 sub clean_exit	Line 321 sub clean_exit
if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin.	if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin.
{	{
close(FOUT);	close(FOUT);

# Read in configuration to get e-mail addresses.	# Read in configuration to get e-mail addresses.
my $perlvarref = read_conf('loncapa.conf');	my $perlvarref = read_conf('loncapa.conf');
my %perlvar = %{$perlvarref};	my %perlvar = %{$perlvarref};
Line 330 sub clean_exit	Line 331 sub clean_exit

# Set metadata for the e-mail.	# Set metadata for the e-mail.
my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
# my $emailto = "sharrison\@users.sourceforge.net";
my $subj="LON: $perlvar{'lonHostID'}, RPMS to upgrade";	my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade';

	# Make the e-mail's subject header to describe whether up-to-date.
	if ($reallygoodoutput)
	{
	$subj = 'happy_lon: '.$subj; # Machine is up-to-date.
	}
	else
	{
	$subj = 'ALERT_lon: '.$subj; # There are out-of-date RPMs.
	}

	# Send the e-mail.
system(	system(
'metasend -b -t '.$emailto.' -s '.	'metasend -b -t '.$emailto.' -s '.
"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");	"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");