--- loncom/build/Attic/parse.pl	2000/12/14 18:38:37	1.17
+++ loncom/build/Attic/parse.pl	2000/12/21 19:26:01	1.20
@@ -181,6 +181,9 @@ sub make_file_list {
     my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
     foreach my $d (@$dirs) {
 	# set other values
+	$description.=<<END;
+BinaryRoot/$d
+END
 	my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
 	$dirdescription="(" . $dirdescription . ")" if $dirdescription;
 	# find files that are contained in this directory
@@ -248,9 +251,10 @@ END
 	my $chmod=$info{'OWNERSHIP'}{$category}{'CHMOD'};
 	my $devchown=$info{'DEVOWNERSHIP'}{$category}{'CHOWN'};
 	my $devchmod=$info{'DEVOWNERSHIP'}{$category}{'CHMOD'};
+	my ($owner,$group)=split(/\:/,$devchown);
 	my $own=$devchown; $own=~s/\:/\,/;
 	$description.=<<END;
-\tinstall -m $devchmod -d \$(TARGET)/$d
+\tinstall -o $owner -g $group -m $devchmod -d \$(TARGET)/$d
 END
     }
     $description.=<<END;
@@ -295,8 +299,9 @@ END
 		my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
 		my $rot=$filesfull[$i];
 		$rot=~s/[^\/]+$/\./ if $rot=~/\*/;
+		my ($owner,$group)=split(/\:/,$devchown);
 		$description.=<<END if $category ne 'symbolic link';
-\tinstall -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
+\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
 END
 	    }
 	}