doc/loncapafiles/sanitycheck.piml - diff

Return to sanitycheck.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/sanitycheck.piml between versions 1.13 and 1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

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>

Removed from v.1.13
changed lines
	Added in v.1.15