loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/parse.pl between versions 1.27 and 1.30

version 1.27, 2001/01/23 16:26:38	version 1.30, 2001/02/27 15:23:35
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'`; install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
END	END
}	}
}	}
Line 1329 END	Line 1329 END
my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};	my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};	my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};
my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};	my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
	my $source2=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};	my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};
$note.="<BR>" if $note;	$note.="<BR>" if $note;
my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};	my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
Line 1361 END	Line 1362 END
$source="<FONT COLOR=#FF0000>$source</FONT>";	$source="<FONT COLOR=#FF0000>$source</FONT>";
}	}
}	}
	my $checksum;
	my $checksum_source;
	my $checksum_target;
if ($mode eq 'status') {	if ($mode eq 'status') {
$filestatus='';	$filestatus='';
my $fs;	my $fs;
Line 1383 END	Line 1387 END
}	}
else {	else {
$fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;	$fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
	if (-f "/$filesfull[$i]" && !(-l "/$filesfull[$i]")) {
	$checksum_source=`md5sum ../../$source2 \| cut -d ' ' -f1`;
	chop $checksum_source;
	$checksum_target=`md5sum /$filesfull[$i] \| cut -d ' ' -f1`;
	chop $checksum_target;
	# warn ("CS: $checksum_source, CT: $checksum_target\n");
	unless ($checksum_source eq $checksum_target) {
	$checksum="<BR><B><U>CHECKSUM DIFFERENCE</U></B>";
	}
	}
}	}
my $fsl=`find /$filesfull[$i] -type l -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;	my $fsl=`find /$filesfull[$i] -type l -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
unless ($fs \|\| $filestatus) {	unless ($fs \|\| $filestatus) {
Line 1406 END	Line 1420 END
$s='';	$s='';
}	}
if ($fs eq "$chmod$s$chown" && $fs eq "$devchmod$s$devchown") {	if ($fs eq "$chmod$s$chown" && $fs eq "$devchmod$s$devchown") {
$filestatus='<TD BGCOLOR=#FFFFFF>runtime+development</TD>';	$filestatus="<TD BGCOLOR=#FFFFFF>runtime+development$checksum</TD>";
}	}
elsif ($fs eq "$chmod$s$chown") {	elsif ($fs eq "$chmod$s$chown") {
$filestatus='<TD BGCOLOR=#FFFFFF>runtime</TD>';	$filestatus="<TD BGCOLOR=#FFFFFF>runtime$checksum</TD>";
}	}
elsif ($fs eq "$devchmod$s$devchown") {	elsif ($fs eq "$devchmod$s$devchown") {
$filestatus='<TD BGCOLOR=#FFFFFF>development</TD>';	$filestatus="<TD BGCOLOR=#FFFFFF>development$checksum</TD>";
}	}
else {	else {
$filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$fs</TD>";	$filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$fs</TD>";

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.27
changed lines
	Added in v.1.30