--- loncom/build/Attic/parse.pl	2000/12/21 14:38:31	1.18
+++ loncom/build/Attic/parse.pl	2001/01/16 15:48:45	1.24
@@ -146,7 +146,69 @@ 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::0:0:root:/root:/bin/bash
+bin:!!:1:1:bin:/bin:
+daemon:!!:2:2:daemon:/sbin:
+adm:!!:3:4:adm:/var/adm:
+lp:!!:4:7:lp:/var/spool/lpd:
+sync:!!:5:0:sync:/sbin:/bin/sync
+shutdown:!!:6:0:shutdown:/sbin:/sbin/shutdown
+halt:!!:7:0:halt:/sbin:/sbin/halt
+mail:!!:8:12:mail:/var/spool/mail:
+news:!!:9:13:news:/var/spool/news:
+uucp:!!:10:14:uucp:/var/spool/uucp:
+operator:!!:11:0:operator:/root:
+games:!!:12:100:games:/usr/games:
+gopher:!!:13:30:gopher:/usr/lib/gopher-data:
+ftp:!!:14:50:FTP User:/home/ftp:
+nobody:!!:99:99:Nobody:/:
+www:!!:500:500:www:/home/www:/bin/bash
+END
+close OUT;
+    open OUT,">>setup_file_list.txt";
+    print OUT "BinaryRoot/etc/hosts.deny\n";
+    close OUT;
+    open OUT,">BinaryRoot/etc/hosts.deny";
+    print OUT<<END;
+ALL: ALL
+END
+close OUT;
     
+    `install -d BinaryRoot/etc/pam.d`;
+    open OUT,">>setup_file_list.txt";
+    print OUT "BinaryRoot/etc/pam.d/passwd\n";
+    close OUT;
+    open OUT,">BinaryRoot/etc/pam.d/passwd";
+    print OUT<<END;
+#%PAM-1.0
+auth       required     /lib/security/pam_pwdb.so shadow nullok
+account    required     /lib/security/pam_pwdb.so
+password   required     /lib/security/pam_cracklib.so retry=3
+password   required     /lib/security/pam_pwdb.so use_authtok nullok
+END
+close OUT;
+    open OUT,">>setup_file_list.txt";
+    print OUT "BinaryRoot/etc/pam.d/login\n";
+    close OUT;
+    open OUT,">BinaryRoot/etc/pam.d/login";
+    print OUT<<END;
+#%PAM-1.0
+auth       required     /lib/security/pam_securetty.so
+auth       required     /lib/security/pam_pwdb.so shadow nullok
+auth       required     /lib/security/pam_nologin.so
+account    required     /lib/security/pam_pwdb.so
+password   required     /lib/security/pam_cracklib.so
+password   required     /lib/security/pam_pwdb.so nullok use_authtok
+session    required     /lib/security/pam_pwdb.so
+session    optional     /lib/security/pam_console.so
+END
+close OUT;
+
 }
 elsif ($mode eq "status") {
 }
@@ -181,7 +243,7 @@ sub make_file_list {
     my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
     foreach my $d (@$dirs) {
 	# set other values
-	$description.=<<END
+	$description.=<<END;
 BinaryRoot/$d
 END
 	my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
@@ -251,9 +313,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;
@@ -298,8 +361,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
 	    }
 	}