loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.28, 2001/02/26 21:21:47	version 1.32, 2001/03/05 15:27:05
Line 727 END	Line 727 END
my ($owner,$group)=split(/\:/,$devchown);	my ($owner,$group)=split(/\:/,$devchown);
if ($category eq 'conf') {	if ($category eq 'conf') {
$description.=<<END;	$description.=<<END;
\tinstall -b -S `date +'.\%Y\%m\%d\%H\%M\%S'` -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot	\tcp -p \$(TARGET)/$rot \$(TARGET)/$rot`date +'.\%Y\%m\%d\%H\%M\%S'` 2>/dev/null; install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
END	END
}	}
}	}
Line 1392 END	Line 1392 END
chop $checksum_source;	chop $checksum_source;
$checksum_target=`md5sum /$filesfull[$i] \| cut -d ' ' -f1`;	$checksum_target=`md5sum /$filesfull[$i] \| cut -d ' ' -f1`;
chop $checksum_target;	chop $checksum_target;
warn ("CS: $checksum_source, CT: $checksum_target\n");	# warn ("CS: $checksum_source, CT: $checksum_target\n");
unless ($checksum_source eq $checksum_target) {	unless ($checksum_source eq $checksum_target) {
$checksum="<BR><B><U>CHECKSUM DIFFERENCE</U></B>";	$checksum="<BR><B><U>CHECKSUM DIFFERENCE</U></B>";
}	}