loncom/build/CHECKRPMS - diff

Return to CHECKRPMS CVS log

Up to [LON-CAPA] / loncom / build

version 1.13, 2011/05/13 00:21:45	version 1.14, 2011/10/17 19:11:42
Line 63 use Apache::loncommon();	Line 63 use Apache::loncommon();

my $tmpfile = '/tmp/CHECKRPMS.'.$$;	my $tmpfile = '/tmp/CHECKRPMS.'.$$;
my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');	my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');
	my $docroot = $perlvar->{'lonDocRoot'};

# Determine who we email	# Determine who we email
my $defdom = $perlvar->{'lonDefDomain'};	my $defdom = $perlvar->{'lonDefDomain'};
Line 142 if ($distro =~ /^fedora\d+$/) {	Line 143 if ($distro =~ /^fedora\d+$/) {
}	}
if ($send) {	if ($send) {
$subj .= $addsubj;	$subj .= $addsubj;
	if ($docroot ne '') {
	system("cat $tmpfile > $docroot/lon-status/checkrpms.txt");
	}
system(qq{mail -s '$subj' "$emailto" < $tmpfile});	system(qq{mail -s '$subj' "$emailto" < $tmpfile});
}	}