loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/Attic/lchtmldir between versions 1.2 and 1.5

version 1.2, 2002/05/03 03:21:25	version 1.5, 2004/05/13 20:44:38
Line 117 if($DEBUG) {	Line 117 if($DEBUG) {

if( $authentication ne "unix:" &&	if( $authentication ne "unix:" &&
$authentication ne "internal:" &&	$authentication ne "internal:" &&
$authentication ne "krb4:" &&	$authentication !~ /^krb(4\|5):(.*)/ &&
$authentication ne "localauth:") {	$authentication ne "localauth:") {
if($DEBUG) {	if($DEBUG) {
print("Invalid authentication parameter: ".$authentication."\n");	print("Invalid authentication parameter: ".$authentication."\n");
Line 175 if(!( -e $dirtry1)) {	Line 175 if(!( -e $dirtry1)) {
if($DEBUG) {	if($DEBUG) {
print("User's home directory $dirtry1 does not exist\n");	print("User's home directory $dirtry1 does not exist\n");
}	}
exit 6;	if ($authentication eq "unix:") {
	exit 6;
	}
}	}
&EnableRoot;	&EnableRoot;

&System("/bin/mkdir $fulldir") unless (-e $fulldir);	&System("/bin/mkdir -p $fulldir") unless (-e $fulldir);
unless(-e $fulldir."/index.html") {	unless(-e $fulldir."/index.html") {
open OUT,">".$fulldir."/index.html";	open OUT,">".$fulldir."/index.html";
print OUT<<END;	print OUT<<END;
Line 187 if(!( -e $dirtry1)) {	Line 189 if(!( -e $dirtry1)) {
<head>	<head>
<title>$safeuser</title>	<title>$safeuser</title>
</head>	</head>
<body>	<body bgcolor="#ccffdd">
<h1>$safeuser</h1>	<h1>$safeuser Construction Space</h1>
	<h2>
	The Learning<i>Online</i> Network with Computer-Assisted Personalized Approach
	</h2>
<p>	<p>
Learning Online Network	This is your construction space within LON-CAPA, where you would construct resources which are meant to be
	used across courses and institutions.
</p>	</p>
<p>	<p>
This area provides for:	Material within this area can only be seen and edited by $safeuser and designated co-authors. To make
	it available to students and other instructors, the material needs to be published.
</p>	</p>
<ul>
<li>resource construction</li>
<li>resource publication</li>
<li>record-keeping</li>
</ul>
</body>	</body>
</html>	</html>
END	END
Line 212 END	Line 214 END
# Based on the authentiation mode, set the ownership of the directory.	# Based on the authentiation mode, set the ownership of the directory.

if($authentication eq "unix:") { # Unix mode authentication...	if($authentication eq "unix:") { # Unix mode authentication...


&System("/bin/chown -R $username".":".$username." ".$fulldir);	&System("/bin/chown -R $username".":".$username." ".$fulldir);
&JoinGroup($username);	&JoinGroup($username);
	} else {
	# Internal, Kerberos, and Local authentication are for users
}	# who do not have unix accounts on the system. Therefore we
elsif ($authentication eq "internal:") { # Internal authentication.	# will give ownership of their public_html directories to www:www
	&System("/bin/chown -R www:www ".$fulldir);
&System("/bin/chown -R www:www $fulldir");
}
elsif ($authentication eq "krb4:") { # Kerberos version 4 authentication
&System("/bin/chown -R $username".':'.$username." ".$fulldir);
&JoinGroup($username);
}
elsif ($authentication eq "localauth:") { # Local authentiation
&System("/bin/chown -R $username".':'.$username." $fulldir");
}
else {
if($DEBUG) {
print("Authentication not legal".$authentication);
}
&DisableRoot;
exit 5;

}	}
&DisableRoot;	&DisableRoot;

Line 254 exit 0;	Line 238 exit 0;

sub EnableRoot {	sub EnableRoot {
if ($wwwid==$>) {	if ($wwwid==$>) {
	print ("EnableRoot $< $>\n");
($<,$>)=($>,$<);	($<,$>)=($>,$<);
($(,$))=($),$();	($(,$))=($),$();
}	}
Line 261 sub EnableRoot {	Line 246 sub EnableRoot {
# root capability is already enabled	# root capability is already enabled
}	}
if($DEBUG) {	if($DEBUG) {
print("Enable Root - id = $> \n");	print("Enable Root - id = $> $<\n");
}	}
return $>;	return $>;
}	}

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

Removed from v.1.2
changed lines
	Added in v.1.5