loncom/configuration/Checksumming.pm - diff

Return to Checksumming.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.2, 2013/02/02 15:20:02	version 1.4, 2013/02/06 13:47:47
Line 125 sub get_checksums {	Line 125 sub get_checksums {
sub compare_checksums {	sub compare_checksums {
my ($target,$lonhost,$version,$serversums,$serverversions) = @_;	my ($target,$lonhost,$version,$serversums,$serverversions) = @_;
my ($message,$numchg,$linefeed);	my ($message,$numchg,$linefeed);
if ($target = 'web') {	if ($target eq 'web') {
$linefeed = '<br />';	$linefeed = '<br />';
} else {	} else {
$linefeed = "\n";	$linefeed = "\n";
Line 148 sub compare_checksums {	Line 148 sub compare_checksums {
$numchg ++;	$numchg ++;
}	}
} else {	} else {
$missing{$key} = 1;	unless ((-e $key) && (-B $key)) {
$numchg ++;	$missing{$key} = 1;
	$numchg ++;
	}
}	}
}	}
foreach my $key (keys(%{$serversums})) {	foreach my $key (keys(%{$serversums})) {