loncom/configuration/Checksumming.pm - diff

Return to Checksumming.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.4, 2013/02/06 13:47:47	version 1.5, 2013/02/08 15:14:22
Line 85 sub get_checksums {	Line 85 sub get_checksums {
}	}
if (@paths) {	if (@paths) {
my $pathstr = join (' ',@paths);	my $pathstr = join (' ',@paths);
if (open($dirh,"grep '$revtag' $pathstr \|")) {	if (open($dirh,"grep '$revtag' $pathstr 2>&1 \|")) {
while (my $line=<$dirh>) {	while (my $line=<$dirh>) {
if ($line =~ m{^([^#]+):#\s\\s[\w.]+,v\s([\d.]+)\s}) {	if ($line =~ m{^([^#]+):#\s\\s[\w.]+,v\s([\d.]+)\s}) {
$versions{$1} = $2;	$versions{$1} = $2;
Line 130 sub compare_checksums {	Line 130 sub compare_checksums {
} else {	} else {
$linefeed = "\n";	$linefeed = "\n";
}	}
	if (!$Apache::lonlocal::lh) {
	&Apache::lonlocal::get_language_handle();
	}
if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) {	if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) {
my $checksums = &Apache::lonnet::fetch_dns_checksums();	my $checksums = &Apache::lonnet::fetch_dns_checksums();
my (%extra,%missing,%diffs,%stdsums,%stdversions);	my (%extra,%missing,%diffs,%stdsums,%stdversions);