bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 09:03:23 -05:00
Code Issues Projects Releases Wiki Activity

Fixed pam test so that the 3rd field rather than the 4th field is being

Browse Source 
checked in the service-name files found in /etc/pam.d/.  The 4th field is
acceptable for pam.conf.  If a path is specified in either conf format,
that path will be checked, otherwise, either the pam default path of
/usr/lib/security or the FSSTD location /lib/security will be checked
for a match.
This commit is contained in:
freesource 2001-11-27 20:09:08 +00:00
parent 1501d365e3
commit dab981e68f
1 changed files with 76 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
BootRoot/Yard.pm
View File

@ -2202,10 +2202,42 @@ sub check_pam {
chomp;
next if /^\#/ or /^\s*$/; # Skip comments and empty lines
my($file) = (split)[3]; # Get fourth field
if (!-e "$mount_point/$file") {
warning_test "$pam_conf($.): $_\n",
"\tLibrary $file does not exist on root fs\n";
# This adds a more extensive path search --freesource
my @file;
if ( $file !~ m,^/, ) {
my $base = basename($file);
@file = ("/usr/lib/security/$base", "/lib/security/$base");
}
else {
@file = ($file);
}
my (%file_check, $ok);
foreach my $files ( @file ) {
if (!-e "$mount_point/$files") {
info(0,"NO $mount_point/$files\n");
$file_check{$files} = 0;
}
else {
info(0,"OK $mount_point/$files\n");
$file_check{$files} = 1;
}
}
for ( values %file_check ) {
$ok = 1 if $_ == 1;
}
if ( !$ok ) {
foreach $file ( @file ) {
warning_test "$pam_conf($.): $_\n",
"\tLibrary $file does not exist on root fs\n";
}
}
# That's all we check for now
}
close(PAM) or error("Closing PAM: $!");
@ -2226,14 +2258,52 @@ sub check_pam {
next if /^\#/ or /^\s*$/; # Skip comments and empty lines
my($file) = (split)[2]; ## Get third field --freesource
$pam_configured = 1;
if (!-e "$mount_point/$file") {
warning_test "$file2($.): $_\n",
"\tLibrary $file does not exist on root fs\n";
# This adds a more extensive path search --freesource
my @file;
if ( $file !~ m,^/, ) {
my $base = basename($file);
@file = ("/usr/lib/security/$base", "/lib/security/$base");
}
else {
@file = ($file);
}
my (%file_check, $ok);
foreach my $files ( @file ) {
if (!-e "$mount_point/$files") {
info(0,"NO $mount_point/$files\n");
$file_check{$files} = 0;
}
else {
info(0,"OK $mount_point/$files\n");
$file_check{$files} = 1;
}
}
for ( values %file_check ) {
$ok = 1 if $_ == 1;
}
if ( !$ok ) {
foreach $file ( @file ) {
warning_test "$pam_conf($.): $_\n",
"\tLibrary $file does not exist on root fs\n";
}
}
# if (!-e "$mount_point/$file") {
# warning_test "$file2($.): $_\n",
# "\tLibrary $file does not exist on root fs\n";
# }
}
close(PF);
}
closedir(PAMD);
info(0, "Done with $pamd_dir\n");
}
# Finally, see whether PAM configuration is needed