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.26 and 1.31

version 1.26, 2001/01/23 16:12:56	version 1.31, 2001/02/27 15:36:02
Line 179 ALL: ALL	Line 179 ALL: ALL
END	END
close OUT;	close OUT;

`install -d BinaryRoot/etc/pam.d`;
`install -o 500 -g 500 -m 0700 -d BinaryRoot/home/www`;	`install -o 500 -g 500 -m 0700 -d BinaryRoot/home/www`;
open OUT,">>setup_file_list.txt";	open OUT,">>setup_file_list.txt";
	print OUT "BinaryRoot/home/www\n";
	close OUT;
	`install -d BinaryRoot/etc/pam.d`;
	open OUT,">>setup_file_list.txt";
print OUT "BinaryRoot/etc/pam.d/passwd\n";	print OUT "BinaryRoot/etc/pam.d/passwd\n";
close OUT;	close OUT;
open OUT,">BinaryRoot/etc/pam.d/passwd";	open OUT,">BinaryRoot/etc/pam.d/passwd";
Line 724 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 1326 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 1358 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 1380 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 1403 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.26
changed lines
	Added in v.1.31