Lines 776-790
Link Here
|
776 |
# fatal("Cannot open file '%s'. ($!)", $file); |
776 |
# fatal("Cannot open file '%s'. ($!)", $file); |
777 |
warning("Cannot open file '%s'. ($!)", $file); |
777 |
warning("Cannot open file '%s'. ($!)", $file); |
778 |
} |
778 |
} |
779 |
# Check for only owner has any access to config file |
779 |
# Guard against world-readability of config file |
780 |
my ($dev, $ino, $mode, @statrest) = stat(FD); |
780 |
my ($dev, $ino, $mode, @statrest) = stat(FD); |
781 |
if ($mode & 077) { |
781 |
if ($mode & 007) { |
782 |
if (-f FD && (chmod 0600, $file)) { |
782 |
fatal("Must not be world-accessible\nchange its permissions using e.g.\nchmod 600", $file); |
783 |
warning("file $file must be accessible only by its owner (fixed)."); |
|
|
784 |
} else { |
785 |
# fatal("file $file must be accessible only by its owner."); |
786 |
warning("file $file must be accessible only by its owner."); |
787 |
} |
788 |
} |
783 |
} |
789 |
|
784 |
|
790 |
local $lineno = 0; |
785 |
local $lineno = 0; |