version 1.1, 2001/02/15 00:57:41
|
version 1.3, 2001/02/21 20:38:35
|
Line 16
|
Line 16
|
# |
# |
# 2/14 Gerd Kortemeyer) |
# 2/14 Gerd Kortemeyer) |
# |
# |
# 2/14 Gerd Kortemeyer |
# 2/14,2/17,2/19,2/20,2/21 Gerd Kortemeyer |
# |
# |
package Apache::loncreateuser; |
package Apache::loncreateuser; |
|
|
Line 24 use strict;
|
Line 24 use strict;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
sub handler { |
# =================================================================== Phase one |
my $r = shift; |
|
|
|
if ($r->header_only) { |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
return OK; |
|
} |
|
|
|
if (&Apache::lonnet::allowed('ccc',$ENV{'user.domain'})) { |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
|
|
|
|
|
sub phase_one { |
|
my $r=shift; |
|
my $defdom=$ENV{'user.domain'}; |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<head> |
<head> |
Line 45 sub handler {
|
Line 36 sub handler {
|
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<h1>Create User, Change User Privileges</h1> |
<h1>Create User, Change User Privileges</h1> |
<img src="/adm/lonKaputt/lonconstruct.gif"> |
<form action=/adm/createuser method=post> |
|
<input type=hidden name=phase value=two> |
|
Username: <input type=text size=15 name=ccuname><br> |
|
Domain: <input type=text size=15 name=ccdomain value=$defdom><p> |
|
<input type=submit value="Continue"> |
|
</form> |
</body> |
</body> |
</html> |
</html> |
ENDDOCUMENT |
ENDDOCUMENT |
|
} |
|
|
|
# =================================================================== Phase two |
|
|
|
sub phase_two { |
|
my $r=shift; |
|
my $ccuname=$ENV{'form.ccuname'}; |
|
my $ccdomain=$ENV{'form.ccdomain'}; |
|
$ccuname=~s/\W//g; |
|
$ccdomain=~s/\W//g; |
|
$r->print(<<ENDENHEAD); |
|
<html> |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
<script> |
|
|
|
function pclose() { |
|
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
parmwin.close(); |
|
} |
|
|
|
function pjump(type,dis,value,marker,ret,call) { |
|
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
|
+"&value="+escape(value)+"&marker="+escape(marker) |
|
+"&return="+escape(ret) |
|
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
|
|
} |
|
|
|
function dateset() { |
|
eval("document.cu."+document.cu.pres_marker.value+ |
|
".value=document.cu.pres_value.value"); |
|
pclose(); |
|
} |
|
|
|
</script> |
|
</head> |
|
<body bgcolor="#FFFFFF"> |
|
<img align=right src=/adm/lonIcons/lonlogos.gif> |
|
<h1>Create User, Change User Privileges</h1> |
|
<form action=/adm/createuser method=post name=cu> |
|
<input type=hidden name=phase value=three> |
|
<input type=hidden name=ccuname value=$ccuname> |
|
<input type=hidden name=ccdomain value=$ccdomain> |
|
<input type="hidden" value='' name="pres_value"> |
|
<input type="hidden" value='' name="pres_type"> |
|
<input type="hidden" value='' name="pres_marker"> |
|
|
|
ENDENHEAD |
|
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
|
my %incdomains; |
|
my %inccourses; |
|
$incdomains{$ENV{'user.domain'}}=1; |
|
map { |
|
if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { |
|
$inccourses{$1.'_'.$2}=1; |
|
} |
|
} %ENV; |
|
if ($uhome eq 'no_host') { |
|
$r->print('<h3>New user '.$ccuname.' at '.$ccdomain.'</h3>'); |
|
} else { |
|
$r->print('<h3>Existing user '.$ccuname.' at '.$ccdomain.'</h3>'); |
|
my $rolesdump=&Apache::lonnet::reply( |
|
"dump:$ccdomain:$ccuname:roles",$uhome); |
|
unless ($rolesdump eq 'con_lost') { |
|
my $now=time; |
|
$r->print('<h4>Revoke Existing Roles</h4>'. |
|
'<table border=2><tr><th>Revoke</th><th>Role</th><th>Extent</th>'. |
|
'<th>Start</th><th>End</th>'); |
|
map { |
|
if ($_!~/^rolesdef\&/) { |
|
|
|
my ($area,$role)=split(/=/,$_); |
|
my $thisrole=$area; |
|
$area=~s/\_\w\w$//; |
|
my ($trole,$tend,$tstart)=split(/_/,$role); |
|
my $bgcol='ffffff'; |
|
my $allows=0; |
|
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { |
|
my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); |
|
$area='Course: '. |
|
$coursedata{'description'}.'<br>Section/Group: '.$3; |
|
$inccourses{$1.'_'.$2}=1; |
|
if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) { |
|
$allows=1; |
|
} |
|
$bgcol=$1.'_'.$2; |
|
$bgcol=~s/[^8-9b-e]//g; |
|
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
|
} else { |
|
if ($1) { |
|
$incdomains{$1}=1; |
|
if (&Apache::lonnet::allowed('c'.$trole,$1)) { |
|
$allows=1; |
|
} |
|
} |
|
} |
|
|
|
my $active=1; |
|
if (($tend) && ($now>$tend)) { $active=0; } |
|
|
|
$r->print('<tr bgcolor=#'.$bgcol.'><td>'); |
|
if ($active) { |
|
if ($allows) { |
|
$r->print( |
|
'<input type=checkbox name="rev:'.$thisrole.'">'); |
|
} else { |
|
$r->print(' '); |
|
} |
|
} else { |
|
$r->print(' '); |
|
} |
|
$r->print('</td><td>'.&Apache::lonnet::plaintext($trole). |
|
'</td><td>'.$area.'</td><td>'. |
|
($tstart?localtime($tstart):' ').'</td><td>'. |
|
($tend?localtime($tend):' ')."</td></tr>\n"); |
|
} |
|
} split(/&/,$rolesdump); |
|
$r->print('</table>'); |
|
} |
|
} |
|
$r->print('<hr><h4>Add Roles</h4><h5>System Level</h5>'); |
|
$r->print('<h5>Domain Level</h5>'); |
|
map { |
|
my $thisdomain=$_; |
|
map { |
|
if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) { |
|
$r->print($_.' - '.$thisdomain.'<br>'); |
|
} |
|
} ('dc','cc','li','dg','au'); |
|
} sort keys %incdomains; |
|
$r->print('<h5>Course Level</h5>'. |
|
'<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. |
|
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
|
map { |
|
my $thiscourse=$_; |
|
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
|
my $area=$coursedata{'description'}; |
|
my $bgcol=$thiscourse; |
|
$bgcol=~s/[^8-9b-e]//g; |
|
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
|
map { |
|
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
|
my $plrole=&Apache::lonnet::plaintext($_); |
|
$r->print(<<ENDROW); |
|
<tr bgcolor=#$bgcol> |
|
<td><input type=checkbox name="act_$thiscourse\_$_"></td> |
|
<td>$plrole</td> |
|
<td>$area</td> |
|
<td><input type=text size=5 name="sec_$thiscourse\_$_"></td> |
|
<td><input type=hidden name="start_$thiscourse\_$_" value=''> |
|
<a href= |
|
"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$thiscourse\_$_.value,'start_$thiscourse\_$_','cu.pres','dateset')">Set Start Date</a></td> |
|
<td><input type=hidden name="end_$thiscourse\_$_" value=''> |
|
<a href= |
|
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$thiscourse\_$_.value,'end_$thiscourse\_$_','cu.pres','dateset')">Set End Date</a></td> |
|
</tr> |
|
ENDROW |
|
|
|
} |
|
} ('st','ta','ep','ad','in'); |
|
} sort keys %inccourses; |
|
$r->print('</table>'); |
|
$r->print('</form></body></html>'); |
|
} |
|
|
|
# ================================================================ Main Handler |
|
sub handler { |
|
my $r = shift; |
|
|
|
if ($r->header_only) { |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
return OK; |
|
} |
|
|
|
if ((&Apache::lonnet::allowed('cta',$ENV{'request.course.id'})) || |
|
(&Apache::lonnet::allowed('cin',$ENV{'request.course.id'})) || |
|
(&Apache::lonnet::allowed('ccr',$ENV{'request.course.id'})) || |
|
(&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) || |
|
(&Apache::lonnet::allowed('mau',$ENV{'user.domain'}))) { |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
unless ($ENV{'form.phase'}) { |
|
&phase_one($r); |
|
} |
|
if ($ENV{'form.phase'} eq 'two') { |
|
&phase_two($r); |
|
} |
} else { |
} else { |
$ENV{'user.error.msg'}= |
$ENV{'user.error.msg'}= |
"/adm/createcourse:ccc:0:0:Cannot create courses"; |
"/adm/createcourse:mau:0:0:Cannot modify user data"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
return OK; |
return OK; |
Line 60 ENDDOCUMENT
|
Line 246 ENDDOCUMENT
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|