loncom/build/CHECKRPMS.default - diff

Return to CHECKRPMS.default CVS log

Up to [LON-CAPA] / loncom / build

version 1.13, 2002/12/18 14:37:45	version 1.15, 2003/03/10 17:34:52
Line 62 Scott Harrison, sharrison@users.sourcefo	Line 62 Scott Harrison, sharrison@users.sourcefo

=cut	=cut

# ' stupid emacs
# ================================================== READ IN COMMAND ARGUMENTS.	# ================================================== READ IN COMMAND ARGUMENTS.

# ---------------------------------------------------- Process download option.	# ---------------------------------------------------- Process download option.
Line 331 sub clean_exit	Line 330 sub clean_exit
delete $perlvar{'lonSqlAccess'}; # remove since sensitive	delete $perlvar{'lonSqlAccess'}; # remove since sensitive

# Set metadata for the e-mail.	# Set metadata for the e-mail.
my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	my $emailto = "$perlvar{'lonAdmEMail'}";

my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade';	my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade';

Line 346 sub clean_exit	Line 345 sub clean_exit
}	}

# Send the e-mail.	# Send the e-mail.
if (!$reallygoodoutput)	my $date = `date +"\%e"`; # Always send a day after the "Ides" or after
	# the beginning of a month. (In other words,
	# send an e-mail every two weeks regardless.)
	if (!$reallygoodoutput or
	$date == 2 or
	$date == 16)
{	{
system(	system(
'metasend -b -t '.$emailto.' -s '.	'metasend -b -t '.$emailto.' -s '.