--- loncom/build/Attic/parse.pl	2000/12/14 18:38:37	1.17
+++ loncom/build/Attic/parse.pl	2001/01/08 17:57:06	1.21
@@ -146,7 +146,33 @@ elsif ($mode eq "BinaryRoot") {
     $a=&make_file_list(\@directories);
     print OUT $a;
     close OUT;
-    
+    open OUT,">setup_file_list.txt";
+    print OUT "BinaryRoot/etc/passwd\n";
+    close OUT;
+    open OUT,">BinaryRoot/etc/passwd";
+    print OUT<<END;
+root:x:0:0:root:/root:/bin/bash
+bin:x:1:1:bin:/bin:
+daemon:x:2:2:daemon:/sbin:
+adm:x:3:4:adm:/var/adm:
+lp:x:4:7:lp:/var/spool/lpd:
+sync:x:5:0:sync:/sbin:/bin/sync
+shutdown:x:6:0:shutdown:/sbin:/sbin/shutdown
+halt:x:7:0:halt:/sbin:/sbin/halt
+mail:x:8:12:mail:/var/spool/mail:
+news:x:9:13:news:/var/spool/news:
+uucp:x:10:14:uucp:/var/spool/uucp:
+operator:x:11:0:operator:/root:
+games:x:12:100:games:/usr/games:
+gopher:x:13:30:gopher:/usr/lib/gopher-data:
+ftp:x:14:50:FTP User:/home/ftp:
+nobody:x:99:99:Nobody:/:
+xfs:x:43:43:X Font Server:/etc/X11/fs:/bin/false
+gdm:x:42:42::/home/gdm:/bin/bash
+www:x:500:500:www:/home/www:/bin/bash
+END
+close OUT;
+
 }
 elsif ($mode eq "status") {
 }
@@ -181,6 +207,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 +277,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 +325,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
 	    }
 	}