version 1.13, 2003/02/03 18:03:51
|
version 1.15, 2003/05/27 15:44:32
|
Line 66 unless
|
Line 66 unless
|
{ |
{ |
print("**** ERROR **** Missing <TARGET />\n"); |
print("**** ERROR **** Missing <TARGET />\n"); |
} |
} |
|
<!-- Commented out by Matthew since MySQL insists on doing things its own way |
else # It exists, so look at the file metadata more closely. |
else # It exists, so look at the file metadata more closely. |
{ |
{ |
my @s = stat('<TARGET />'); |
my @s = stat('<TARGET />'); |
Line 76 else # It exists, so look at the file me
|
Line 77 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 87 else # It exists, so look at the file me
|
Line 88 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 97 else # It exists, so look at the file me
|
Line 98 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". |
Line 105 else # It exists, so look at the file me
|
Line 106 else # It exists, so look at the file me
|
} |
} |
} |
} |
} |
} |
|
--> |
</perlscript> |
</perlscript> |
</file> |
</file> |
<file> |
<file> |