version 1.10, 2002/11/27 15:33:10
|
version 1.14, 2003/05/27 13:16:44
|
Line 1
|
Line 1
|
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
<!-- sanitycheck.piml --> |
<!-- sanitycheck.piml --> |
<!-- Scott Harrison --> |
|
|
|
<!-- $Id$ --> |
<!-- $Id$ --> |
|
|
Line 33 http://www.lon-capa.org/
|
Line 32 http://www.lon-capa.org/
|
<targetroot>/</targetroot> |
<targetroot>/</targetroot> |
<files> |
<files> |
<file> |
<file> |
|
<target dist='default'>/etc/hosts</target> |
|
<perlscript mode='fg'> |
|
unless |
|
(-e '<TARGET />') # Does file exist? |
|
{ |
|
print("**** ERROR **** Missing <TARGET />\n"); |
|
} |
|
else |
|
{ |
|
my $numentries = `grep -v '^#' <TARGET /> | grep -c '[[:alpha:]]'`; |
|
if ($numentries == 1) |
|
{ |
|
print("**** ERROR **** Malformatted <TARGET />\n"); |
|
print("<TARGET /> typically should have at least two entries, ". |
|
"e.g.:\n"); |
|
print("127.0.0.1 localhost.localdomain localhost\n"); |
|
print("35.8.63.26 s16.lite.msu.edu s16\n"); |
|
print("The <TARGET /> file on your machine looks like it was \n". |
|
"messed up due to a common bug with RedHat installations.\n". |
|
"(This weird bug is RedHat's fault, not LON-CAPA's.)\n"); |
|
print("Please read the man pages about \"hosts\" and fix your\n". |
|
"<TARGET /> file.\n"); |
|
} |
|
} |
|
</perlscript> |
|
</file> |
|
<file> |
<target dist='default'>/var/lib/mysql/mysql.sock</target> |
<target dist='default'>/var/lib/mysql/mysql.sock</target> |
<target dist='redhat7'>/tmp/mysql.sock</target> |
|
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless |
unless |
(-e '<TARGET />') # Does file exist? |
(-e '<TARGET />') # Does file exist? |
Line 51 else # It exists, so look at the file me
|
Line 76 else # It exists, so look at the file me
|
|
|
if ($uid ne $web_uid) # If file owned by someone else other than www. |
if ($uid ne $web_uid) # If file owned by someone else other than www. |
{ |
{ |
print('**** ERROR **** <TARGET /> should be owned by'. |
print('**** WARNING **** <TARGET /> should be owned by'. |
' www.'."\n".'Try these commands to make things right:'."\n". |
' www.'."\n".'Try these commands to make things right:'."\n". |
'chown www:www <TARGET />'."\n". |
'chown www:www <TARGET />'."\n". |
'chmod a-rwx,u+rwx <TARGET />'."\n"); |
'chmod a-rwx,u+rwx <TARGET />'."\n"); |
Line 62 else # It exists, so look at the file me
|
Line 87 else # It exists, so look at the file me
|
my $wflag = $1; |
my $wflag = $1; |
if ($wflag != 7) # Can www use this socket? (Hope so!) |
if ($wflag != 7) # Can www use this socket? (Hope so!) |
{ |
{ |
print('**** ERROR **** '. |
print('**** WARNING **** '. |
'<TARGET /> should be user "rwx" (by'. |
'<TARGET /> should be user "rwx" (by'. |
' www).'."\n".'Try these commands to make things right:'."\n". |
' www).'."\n".'Try these commands to make things right:'."\n". |
'chown www:www <TARGET />'."\n". |
'chown www:www <TARGET />'."\n". |
Line 72 else # It exists, so look at the file me
|
Line 97 else # It exists, so look at the file me
|
$wflag=$1; |
$wflag=$1; |
if ($wflag ne "00") # Can others use this socket? (Hope not!) |
if ($wflag ne "00") # Can others use this socket? (Hope not!) |
{ |
{ |
print('**** ERROR **** '. |
print('**** WARNING **** '. |
'<TARGET /> should not be group or everybody accessible'. |
'<TARGET /> should not be group or everybody accessible'. |
'.'."\n".'Try these commands to make things right:'."\n". |
'.'."\n".'Try these commands to make things right:'."\n". |
'chown www:www <TARGET />'."\n". |
'chown www:www <TARGET />'."\n". |