loncom/build/CHECKRPMS - diff

Return to CHECKRPMS CVS log

Up to [LON-CAPA] / loncom / build

version 1.9, 2007/09/13 21:50:37	version 1.10, 2007/12/04 04:43:24
Line 55 Must be run as root or www.	Line 55 Must be run as root or www.
use strict;	use strict;
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	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');

# Determine who we email	# Determine who we email
my $emailto = "$perlvar->{'lonAdmEMail'}";	my $defdom = $perlvar->{'lonDefDomain'};
	my $origmail = $perlvar->{'lonAdmEMail'};
	my $emailto = &Apache::loncommon::build_recipient_list(undef,
	'packagesmail',$defdom,$origmail);
my $subj = $perlvar->{'lonHostID'};	my $subj = $perlvar->{'lonHostID'};

# Get Linux distro	# Get Linux distro
Line 125 if ($distro =~ /^fedora\d+$/) {	Line 129 if ($distro =~ /^fedora\d+$/) {
}	}
if ($send) {	if ($send) {
$subj .= $addsubj;	$subj .= $addsubj;
system(qq{mail -s '$subj' $emailto < $tmpfile});	system(qq{mail -s '$subj' "$emailto" < $tmpfile});
}	}

sub prepare_msg {	sub prepare_msg {