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.16

version 1.13, 2003/02/03 18:03:51	version 1.16, 2005/03/01 03:40:47
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>
Line 156 while (<IN>) {	Line 158 while (<IN>) {
$dbug=1 if $a[0]=~/\_/;	$dbug=1 if $a[0]=~/\_/;
$dbug=1 if $a[1]=~/\_/;	$dbug=1 if $a[1]=~/\_/;
$dbug=1 if $a[1]=~/\W/;	$dbug=1 if $a[1]=~/\W/;
$fbug=1 if (@a<5 \|\| @a>6);	$fbug=1 if (@a<4 \|\| @a>5);
my $expr='\s.+$';	my $expr='\s.+$';
$sbug=1 if ($a[0] =~ /$expr/ \|\|	$sbug=1 if ($a[0] =~ /$expr/ \|\|
$a[1] =~ /$expr/ \|\|	$a[1] =~ /$expr/ \|\|
$a[2] =~ /$expr/ \|\|	$a[2] =~ /$expr/ \|\|
$a[3] =~ /$expr/ \|\|	$a[3] =~ /$expr/ )
$a[4] =~ /$expr/ )
;	;
}	}
}	}
Line 174 if ($dbug) {	Line 175 if ($dbug) {
print "** ERROR ** <TARGET /> has invalid host id or domain id\n";	print "** ERROR ** <TARGET /> has invalid host id or domain id\n";
}	}
if ($fbug) {	if ($fbug) {
print "** ERROR ** <TARGET /> is lacking 5 or 6 columns for every row\n";	print "** ERROR ** <TARGET /> is lacking 4 or 5 columns for every row\n";
}	}
if ($sbug) {	if ($sbug) {
print "** ERROR ** <TARGET /> has illegal whitespace character\n";	print "** ERROR ** <TARGET /> has illegal whitespace character\n";

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

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