|
version 1.353, 2019/04/22 00:38:45
|
version 1.372, 2020/09/17 00:35:04
|
|
Line 219 sub handler {
|
Line 219 sub handler {
|
| 'serverstatuses','requestcourses','helpsettings', |
'serverstatuses','requestcourses','helpsettings', |
| 'coursedefaults','usersessions','loadbalancing', |
'coursedefaults','usersessions','loadbalancing', |
| 'requestauthor','selfenrollment','inststatus', |
'requestauthor','selfenrollment','inststatus', |
| 'ltitools','ssl','trust','lti'],$dom); |
'ltitools','ssl','trust','lti','privacy','passwords', |
| |
'proctoring'],$dom); |
| my %encconfig = |
my %encconfig = |
| &Apache::lonnet::get_dom('encconfig',['ltitools','lti'],$dom); |
&Apache::lonnet::get_dom('encconfig',['ltitools','lti','proctoring'],$dom); |
| if (ref($domconfig{'ltitools'}) eq 'HASH') { |
if (ref($domconfig{'ltitools'}) eq 'HASH') { |
| if (ref($encconfig{'ltitools'}) eq 'HASH') { |
if (ref($encconfig{'ltitools'}) eq 'HASH') { |
| foreach my $id (keys(%{$domconfig{'ltitools'}})) { |
foreach my $id (keys(%{$domconfig{'ltitools'}})) { |
|
Line 246 sub handler {
|
Line 247 sub handler {
|
| } |
} |
| } |
} |
| } |
} |
| my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll', |
if (ref($domconfig{'proctoring'}) eq 'HASH') { |
| 'autoupdate','autocreate','directorysrch','contacts', |
if (ref($encconfig{'proctoring'}) eq 'HASH') { |
| |
foreach my $provider (keys(%{$domconfig{'proctoring'}})) { |
| |
if ((ref($domconfig{'proctoring'}{$provider}) eq 'HASH') && |
| |
(ref($encconfig{'proctoring'}{$provider}) eq 'HASH')) { |
| |
foreach my $item ('key','secret') { |
| |
$domconfig{'proctoring'}{$provider}{$item} = $encconfig{'proctoring'}{$provider}{$item}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my @prefs_order = ('rolecolors','login','defaults','passwords','quotas','autoenroll', |
| |
'autoupdate','autocreate','directorysrch','contacts','privacy', |
| 'usercreation','selfcreation','usermodification','scantron', |
'usercreation','selfcreation','usermodification','scantron', |
| 'requestcourses','requestauthor','coursecategories', |
'requestcourses','requestauthor','coursecategories', |
| 'serverstatuses','helpsettings','coursedefaults', |
'serverstatuses','helpsettings','coursedefaults', |
| 'ltitools','selfenrollment','usersessions','ssl','trust','lti'); |
'ltitools','proctoring','selfenrollment','usersessions','ssl', |
| |
'trust','lti'); |
| my %existing; |
my %existing; |
| if (ref($domconfig{'loadbalancing'}) eq 'HASH') { |
if (ref($domconfig{'loadbalancing'}) eq 'HASH') { |
| %existing = %{$domconfig{'loadbalancing'}}; |
%existing = %{$domconfig{'loadbalancing'}}; |
|
Line 291 sub handler {
|
Line 305 sub handler {
|
| help => 'Domain_Configuration_LangTZAuth', |
help => 'Domain_Configuration_LangTZAuth', |
| header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
| col2 => 'Value'}, |
col2 => 'Value'}, |
| {col1 => 'Internal Authentication', |
|
| col2 => 'Value'}, |
|
| {col1 => 'Institutional user types', |
{col1 => 'Institutional user types', |
| col2 => 'Name displayed'}], |
col2 => 'Name displayed'}], |
| print => \&print_defaults, |
print => \&print_defaults, |
| modify => \&modify_defaults, |
modify => \&modify_defaults, |
| }, |
}, |
| |
'passwords' => |
| |
{ text => 'Passwords (Internal authentication)', |
| |
help => 'Domain_Configuration_Passwords', |
| |
header => [{col1 => 'Resetting Forgotten Password', |
| |
col2 => 'Settings'}, |
| |
{col1 => 'Encryption of Stored Passwords (Internal Auth)', |
| |
col2 => 'Settings'}, |
| |
{col1 => 'Rules for LON-CAPA Passwords', |
| |
col2 => 'Settings'}, |
| |
{col1 => 'Course Owner Changing Student Passwords', |
| |
col2 => 'Settings'}], |
| |
print => \&print_passwords, |
| |
modify => \&modify_passwords, |
| |
}, |
| 'quotas' => |
'quotas' => |
| { text => 'Blogs, personal web pages, webDAV/quotas, portfolios', |
{ text => 'Blogs, personal web pages, webDAV/quotas, portfolios', |
| help => 'Domain_Configuration_Quotas', |
help => 'Domain_Configuration_Quotas', |
|
Line 485 sub handler {
|
Line 511 sub handler {
|
| modify => \&modify_selfenrollment, |
modify => \&modify_selfenrollment, |
| }, |
}, |
| 'privacy' => |
'privacy' => |
| {text => 'User Privacy', |
{text => 'Availability of User Information', |
| help => 'Domain_Configuration_User_Privacy', |
help => 'Domain_Configuration_User_Privacy', |
| header => [{col1 => 'Setting', |
header => [{col1 => 'Role assigned in different domain', |
| col2 => 'Value',}], |
col2 => 'Approval options'}, |
| |
{col1 => 'Role assigned in different domain to user of type', |
| |
col2 => 'User information available in that domain'}, |
| |
{col1 => "Role assigned in user's domain", |
| |
col2 => 'Information viewable by privileged user'}, |
| |
{col1 => "Role assigned in user's domain", |
| |
col2 => 'Information viewable by unprivileged user'}], |
| print => \&print_privacy, |
print => \&print_privacy, |
| modify => \&modify_privacy, |
modify => \&modify_privacy, |
| }, |
}, |
|
Line 523 sub handler {
|
Line 555 sub handler {
|
| print => \&print_ltitools, |
print => \&print_ltitools, |
| modify => \&modify_ltitools, |
modify => \&modify_ltitools, |
| }, |
}, |
| |
'proctoring' => |
| |
{text => 'Remote Proctoring Integration', |
| |
help => 'Domain_Configuration_Proctoring', |
| |
header => [{col1 => 'Name', |
| |
col2 => 'Configuration'}], |
| |
print => \&print_proctoring, |
| |
modify => \&modify_proctoring, |
| |
}, |
| 'ssl' => |
'ssl' => |
| {text => 'LON-CAPA Network (SSL)', |
{text => 'LON-CAPA Network (SSL)', |
| help => 'Domain_Configuration_Network_SSL', |
help => 'Domain_Configuration_Network_SSL', |
|
Line 753 sub process_changes {
|
Line 793 sub process_changes {
|
| $output = &modify_loadbalancing($dom,%domconfig); |
$output = &modify_loadbalancing($dom,%domconfig); |
| } elsif ($action eq 'ltitools') { |
} elsif ($action eq 'ltitools') { |
| $output = &modify_ltitools($r,$dom,$action,$lastactref,%domconfig); |
$output = &modify_ltitools($r,$dom,$action,$lastactref,%domconfig); |
| |
} elsif ($action eq 'proctoring') { |
| |
$output = &modify_proctoring($r,$dom,$action,$lastactref,%domconfig); |
| } elsif ($action eq 'ssl') { |
} elsif ($action eq 'ssl') { |
| $output = &modify_ssl($dom,$lastactref,%domconfig); |
$output = &modify_ssl($dom,$lastactref,%domconfig); |
| } elsif ($action eq 'trust') { |
} elsif ($action eq 'trust') { |
| $output = &modify_trust($dom,$lastactref,%domconfig); |
$output = &modify_trust($dom,$lastactref,%domconfig); |
| } elsif ($action eq 'lti') { |
} elsif ($action eq 'lti') { |
| $output = &modify_lti($r,$dom,$action,$lastactref,%domconfig); |
$output = &modify_lti($r,$dom,$action,$lastactref,%domconfig); |
| |
} elsif ($action eq 'privacy') { |
| |
$output = &modify_privacy($dom,%domconfig); |
| |
} elsif ($action eq 'passwords') { |
| |
$output = &modify_passwords($r,$dom,$confname,$lastactref,%domconfig); |
| } |
} |
| return $output; |
return $output; |
| } |
} |
|
Line 771 sub print_config_box {
|
Line 817 sub print_config_box {
|
| $output = &coursecategories_javascript($settings); |
$output = &coursecategories_javascript($settings); |
| } elsif ($action eq 'defaults') { |
} elsif ($action eq 'defaults') { |
| $output = &defaults_javascript($settings); |
$output = &defaults_javascript($settings); |
| |
} elsif ($action eq 'passwords') { |
| |
$output = &passwords_javascript(); |
| } elsif ($action eq 'helpsettings') { |
} elsif ($action eq 'helpsettings') { |
| my (%privs,%levelscurrent); |
my (%privs,%levelscurrent); |
| my %full=(); |
my %full=(); |
|
Line 791 sub print_config_box {
|
Line 839 sub print_config_box {
|
| $output .= <itools_javascript($settings); |
$output .= <itools_javascript($settings); |
| } elsif ($action eq 'lti') { |
} elsif ($action eq 'lti') { |
| $output .= <i_javascript($settings); |
$output .= <i_javascript($settings); |
| |
} elsif ($action eq 'proctoring') { |
| |
$output .= &proctoring_javascript($settings); |
| } |
} |
| $output .= |
$output .= |
| '<table class="LC_nested_outer"> |
'<table class="LC_nested_outer"> |
|
Line 807 sub print_config_box {
|
Line 857 sub print_config_box {
|
| if ($numheaders > 1) { |
if ($numheaders > 1) { |
| my $colspan = ''; |
my $colspan = ''; |
| my $rightcolspan = ''; |
my $rightcolspan = ''; |
| |
my $leftnobr = ''; |
| if (($action eq 'rolecolors') || ($action eq 'defaults') || |
if (($action eq 'rolecolors') || ($action eq 'defaults') || |
| ($action eq 'directorysrch') || |
($action eq 'directorysrch') || |
| (($action eq 'login') && ($numheaders < 4))) { |
(($action eq 'login') && ($numheaders < 4))) { |
|
Line 815 sub print_config_box {
|
Line 866 sub print_config_box {
|
| if ($action eq 'usersessions') { |
if ($action eq 'usersessions') { |
| $rightcolspan = ' colspan="3"'; |
$rightcolspan = ' colspan="3"'; |
| } |
} |
| |
if ($action eq 'passwords') { |
| |
$leftnobr = ' LC_nobreak'; |
| |
} |
| $output .= ' |
$output .= ' |
| <tr> |
<tr> |
| <td> |
<td> |
| <table class="LC_nested"> |
<table class="LC_nested"> |
| <tr class="LC_info_row"> |
<tr class="LC_info_row"> |
| <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
<td class="LC_left_item'.$leftnobr.'"'.$colspan.'>'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
| <td class="LC_right_item"'.$rightcolspan.'>'.&mt($item->{'header'}->[0]->{'col2'}).'</td> |
<td class="LC_right_item"'.$rightcolspan.'>'.&mt($item->{'header'}->[0]->{'col2'}).'</td> |
| </tr>'; |
</tr>'; |
| $rowtotal ++; |
$rowtotal ++; |
|
Line 828 sub print_config_box {
|
Line 882 sub print_config_box {
|
| ($action eq 'usermodification') || ($action eq 'defaults') || ($action eq 'coursedefaults') || |
($action eq 'usermodification') || ($action eq 'defaults') || ($action eq 'coursedefaults') || |
| ($action eq 'selfenrollment') || ($action eq 'usersessions') || ($action eq 'ssl') || |
($action eq 'selfenrollment') || ($action eq 'usersessions') || ($action eq 'ssl') || |
| ($action eq 'directorysrch') || ($action eq 'trust') || ($action eq 'helpsettings') || |
($action eq 'directorysrch') || ($action eq 'trust') || ($action eq 'helpsettings') || |
| ($action eq 'contacts')) { |
($action eq 'contacts') || ($action eq 'privacy')) { |
| $output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal); |
| |
} elsif ($action eq 'passwords') { |
| |
$output .= $item->{'print'}->('top',$dom,$confname,$settings,\$rowtotal); |
| } elsif ($action eq 'coursecategories') { |
} elsif ($action eq 'coursecategories') { |
| $output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal); |
$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal); |
| } elsif ($action eq 'scantron') { |
} elsif ($action eq 'scantron') { |
|
Line 861 sub print_config_box {
|
Line 917 sub print_config_box {
|
| if (($action eq 'autoupdate') || ($action eq 'usercreation') || |
if (($action eq 'autoupdate') || ($action eq 'usercreation') || |
| ($action eq 'selfcreation') || ($action eq 'selfenrollment') || |
($action eq 'selfcreation') || ($action eq 'selfenrollment') || |
| ($action eq 'usersessions') || ($action eq 'coursecategories') || |
($action eq 'usersessions') || ($action eq 'coursecategories') || |
| ($action eq 'trust') || ($action eq 'contacts') || ($action eq 'defaults')) { |
($action eq 'trust') || ($action eq 'contacts') || |
| |
($action eq 'privacy') || ($action eq 'passwords')) { |
| if ($action eq 'coursecategories') { |
if ($action eq 'coursecategories') { |
| $output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal); |
$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal); |
| $colspan = ' colspan="2"'; |
$colspan = ' colspan="2"'; |
| } elsif ($action eq 'trust') { |
} elsif ($action eq 'trust') { |
| $output .= $item->{'print'}->('shared',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('shared',$dom,$settings,\$rowtotal); |
| |
} elsif ($action eq 'passwords') { |
| |
$output .= $item->{'print'}->('middle',$dom,$confname,$settings,\$rowtotal); |
| } else { |
} else { |
| $output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal); |
| } |
} |
|
Line 912 sub print_config_box {
|
Line 971 sub print_config_box {
|
| </tr>'."\n"; |
</tr>'."\n"; |
| if ($action eq 'coursecategories') { |
if ($action eq 'coursecategories') { |
| $output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal); |
$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal); |
| } elsif ($action eq 'contacts') { |
} elsif (($action eq 'contacts') || ($action eq 'privacy') || ($action eq 'passwords')) { |
| $output .= $item->{'print'}->('lower',$dom,$settings,\$rowtotal).' |
if ($action eq 'passwords') { |
| |
$output .= $item->{'print'}->('lower',$dom,$confname,$settings,\$rowtotal); |
| |
} else { |
| |
$output .= $item->{'print'}->('lower',$dom,$settings,\$rowtotal); |
| |
} |
| |
$output .= ' |
| </tr> |
</tr> |
| </table> |
</table> |
| </td> |
</td> |
|
Line 922 sub print_config_box {
|
Line 986 sub print_config_box {
|
| <td> |
<td> |
| <table class="LC_nested"> |
<table class="LC_nested"> |
| <tr class="LC_info_row"> |
<tr class="LC_info_row"> |
| <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col1'}).'</td> |
<td class="LC_left_item'.$leftnobr.'"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col1'}).'</td> |
| <td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col2'}).'</td></tr>'. |
<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col2'}).'</td></tr>'."\n"; |
| $item->{'print'}->('bottom',$dom,$settings,\$rowtotal).' |
if ($action eq 'passwords') { |
| |
$output .= $item->{'print'}->('bottom',$dom,$confname,$settings,\$rowtotal); |
| |
} else { |
| |
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal); |
| |
} |
| |
$output .= ' |
| </table> |
</table> |
| </td> |
</td> |
| </tr> |
</tr> |
|
Line 1119 sub print_config_box {
|
Line 1188 sub print_config_box {
|
| $output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
| } elsif (($action eq 'autoenroll') || ($action eq 'autocreate') || |
} elsif (($action eq 'autoenroll') || ($action eq 'autocreate') || |
| ($action eq 'serverstatuses') || ($action eq 'loadbalancing') || |
($action eq 'serverstatuses') || ($action eq 'loadbalancing') || |
| ($action eq 'ltitools') || ($action eq 'lti')) { |
($action eq 'ltitools') || ($action eq 'lti') || |
| |
($action eq 'proctoring')) { |
| $output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
| } |
} |
| } |
} |
|
Line 2760 function toggleLTITools(form,setting,ite
|
Line 2830 function toggleLTITools(form,setting,ite
|
| ENDSCRIPT |
ENDSCRIPT |
| } |
} |
| |
|
| |
sub proctoring_javascript { |
| |
my ($settings) = @_; |
| |
my (%ordered,$total,%jstext); |
| |
$total = 0; |
| |
if (ref($settings) eq 'HASH') { |
| |
foreach my $item (keys(%{$settings})) { |
| |
if (ref($settings->{$item}) eq 'HASH') { |
| |
my $num = $settings->{$item}{'order'}; |
| |
$ordered{$num} = $item; |
| |
} |
| |
} |
| |
$total = scalar(keys(%{$settings})); |
| |
} else { |
| |
%ordered = ( |
| |
0 => 'proctorio', |
| |
1 => 'examity', |
| |
); |
| |
$total = 2; |
| |
} |
| |
my @jsarray = (); |
| |
foreach my $item (sort {$a <=> $b } (keys(%ordered))) { |
| |
push(@jsarray,$ordered{$item}); |
| |
} |
| |
my $jstext = ' var proctors = Array('."'".join("','",@jsarray)."'".');'."\n"; |
| |
return <<"ENDSCRIPT"; |
| |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
function reorderProctoring(form,item) { |
| |
var changedVal; |
| |
$jstext |
| |
var maxh = $total; |
| |
var current = new Array; |
| |
var changedVal = form.elements[item].options[form.elements[item].selectedIndex].value; |
| |
for (var i=0; i<proctors.length; i++) { |
| |
var elementName = 'proctoring_pos_'+proctors[i]; |
| |
if (elementName != item) { |
| |
if (form.elements[elementName]) { |
| |
var currVal = form.elements[elementName].options[form.elements[elementName].selectedIndex].value; |
| |
current[currVal] = elementName; |
| |
} |
| |
} |
| |
} |
| |
var oldVal; |
| |
for (var j=0; j<maxh; j++) { |
| |
if (current[j] == undefined) { |
| |
oldVal = j; |
| |
} |
| |
} |
| |
if (oldVal < changedVal) { |
| |
for (var k=oldVal+1; k<=changedVal ; k++) { |
| |
var elementName = current[k]; |
| |
form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex - 1; |
| |
} |
| |
} else { |
| |
for (var k=changedVal; k<oldVal; k++) { |
| |
var elementName = current[k]; |
| |
form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex + 1; |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
function toggleProctoring(form,item) { |
| |
var fieldsets = document.getElementsByClassName('proctoring_'+item); |
| |
if (fieldsets.length) { |
| |
var radioname = 'proctoring_available_'+item; |
| |
var num = form.elements[radioname].length; |
| |
if (num) { |
| |
var setvis = ''; |
| |
for (var i=0; i<num; i++) { |
| |
if (form.elements[radioname][i].checked) { |
| |
if (form.elements[radioname][i].value == '1') { |
| |
setvis = 1; |
| |
break; |
| |
} |
| |
} |
| |
} |
| |
for (var j=0; j<fieldsets.length; j++) { |
| |
if (setvis) { |
| |
fieldsets[j].style.display = 'block'; |
| |
} else { |
| |
fieldsets[j].style.display = 'none'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
// ]]> |
| |
</script> |
| |
|
| |
ENDSCRIPT |
| |
} |
| |
|
| |
|
| sub lti_javascript { |
sub lti_javascript { |
| my ($settings) = @_; |
my ($settings) = @_; |
| my $togglejs = <i_toggle_js(); |
my $togglejs = <i_toggle_js(); |
|
Line 2866 function toggleLTI(form,setting,item) {
|
Line 3032 function toggleLTI(form,setting,item) {
|
| } |
} |
| } |
} |
| } |
} |
| } else if ((setting == 'user') || (setting == 'crs') || (setting == 'passback')) { |
} else if ((setting == 'user') || (setting == 'crs') || (setting == 'passback') || (setting == 'callback')) { |
| var radioname = ''; |
var radioname = ''; |
| var divid = ''; |
var divid = ''; |
| if (setting == 'user') { |
if (setting == 'user') { |
|
Line 2875 function toggleLTI(form,setting,item) {
|
Line 3041 function toggleLTI(form,setting,item) {
|
| } else if (setting == 'crs') { |
} else if (setting == 'crs') { |
| radioname = 'lti_mapcrs_'+item; |
radioname = 'lti_mapcrs_'+item; |
| divid = 'lti_crsfield_'+item; |
divid = 'lti_crsfield_'+item; |
| |
} else if (setting == 'callback') { |
| |
radioname = 'lti_callback_'+item; |
| |
divid = 'lti_callbackfield_'+item; |
| } else { |
} else { |
| radioname = 'lti_passback_'+item; |
radioname = 'lti_passback_'+item; |
| divid = 'lti_passback_'+item; |
divid = 'lti_passback_'+item; |
|
Line 2884 function toggleLTI(form,setting,item) {
|
Line 3053 function toggleLTI(form,setting,item) {
|
| var setvis = ''; |
var setvis = ''; |
| for (var i=0; i<num; i++) { |
for (var i=0; i<num; i++) { |
| if (form.elements[radioname][i].checked) { |
if (form.elements[radioname][i].checked) { |
| if (setting == 'passback') { |
if ((setting == 'passback') || (setting == 'callback')) { |
| if (form.elements[radioname][i].value == '1') { |
if (form.elements[radioname][i].value == '1') { |
| if (document.getElementById(divid)) { |
if (document.getElementById(divid)) { |
| document.getElementById(divid).style.display = 'inline-block'; |
document.getElementById(divid).style.display = 'inline-block'; |
|
Line 4574 sub print_ltitools {
|
Line 4743 sub print_ltitools {
|
| } |
} |
| $datatable .= '<label>'. |
$datatable .= '<label>'. |
| '<input type="checkbox" name="ltitools_courseconfig_'.$i.'" value="'.$item.'"'.$checked.' />'. |
'<input type="checkbox" name="ltitools_courseconfig_'.$i.'" value="'.$item.'"'.$checked.' />'. |
| $lt{'crs'.$item}.'</label>'.(' ' x2)."\n"; |
$lt{'crs'.$item}.'</label> '."\n"; |
| } |
} |
| $datatable .= '</span></fieldset>'. |
$datatable .= '</span></fieldset>'. |
| '<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'. |
'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'. |
|
Line 4776 sub ltitools_names {
|
Line 4945 sub ltitools_names {
|
| return %lt; |
return %lt; |
| } |
} |
| |
|
| |
sub print_proctoring { |
| |
my ($dom,$settings,$rowtotal) = @_; |
| |
my $itemcount = 1; |
| |
my (%ordered,%providernames,%current,%currentdef); |
| |
my $confname = $dom.'-domainconfig'; |
| |
my $switchserver = &check_switchserver($dom,$confname); |
| |
if (ref($settings) eq 'HASH') { |
| |
foreach my $item (keys(%{$settings})) { |
| |
if (ref($settings->{$item}) eq 'HASH') { |
| |
my $num = $settings->{$item}{'order'}; |
| |
$ordered{$num} = $item; |
| |
} |
| |
} |
| |
} else { |
| |
%ordered = ( |
| |
1 => 'proctorio', |
| |
2 => 'examity', |
| |
); |
| |
} |
| |
%providernames = &proctoring_providernames(); |
| |
my $maxnum = scalar(keys(%ordered)); |
| |
my (%requserfields,%optuserfields,%defaults,%extended,%crsconf,@courseroles,@ltiroles); |
| |
my ($requref,$opturef,$defref,$extref,$crsref,$rolesref,$ltiref) = &proctoring_data(); |
| |
if (ref($requref) eq 'HASH') { |
| |
%requserfields = %{$requref}; |
| |
} |
| |
if (ref($opturef) eq 'HASH') { |
| |
%optuserfields = %{$opturef}; |
| |
} |
| |
if (ref($defref) eq 'HASH') { |
| |
%defaults = %{$defref}; |
| |
} |
| |
if (ref($extref) eq 'HASH') { |
| |
%extended = %{$extref}; |
| |
} |
| |
if (ref($crsref) eq 'HASH') { |
| |
%crsconf = %{$crsref}; |
| |
} |
| |
if (ref($rolesref) eq 'ARRAY') { |
| |
@courseroles = @{$rolesref}; |
| |
} |
| |
if (ref($ltiref) eq 'ARRAY') { |
| |
@ltiroles = @{$ltiref}; |
| |
} |
| |
my $datatable; |
| |
my $css_class; |
| |
if (keys(%ordered)) { |
| |
my @items = sort { $a <=> $b } keys(%ordered); |
| |
for (my $i=0; $i<@items; $i++) { |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
my $provider = $ordered{$items[$i]}; |
| |
my $optionsty = 'none'; |
| |
my ($available,$version,$lifetime,$imgsrc,$userincdom,$showroles, |
| |
%checkedfields,%rolemaps,%inuse,%crsconfig,%current); |
| |
if (ref($settings) eq 'HASH') { |
| |
if (ref($settings->{$provider}) eq 'HASH') { |
| |
%current = %{$settings->{$provider}}; |
| |
if ($current{'available'}) { |
| |
$optionsty = 'block'; |
| |
$available = 1; |
| |
} |
| |
if ($current{'lifetime'} =~ /^\d+$/) { |
| |
$lifetime = $current{'lifetime'}; |
| |
} |
| |
if ($current{'version'} =~ /^\d+\.\d+$/) { |
| |
$version = $current{'version'}; |
| |
} |
| |
if ($current{'image'} ne '') { |
| |
$imgsrc = '<img src="'.$current{'image'}.'" alt="'.&mt('Proctoring service icon').'" />'; |
| |
} |
| |
if (ref($current{'fields'}) eq 'ARRAY') { |
| |
map { $checkedfields{$_} = 1; } @{$current{'fields'}}; |
| |
} |
| |
$userincdom = $current{'incdom'}; |
| |
if (ref($current{'roles'}) eq 'HASH') { |
| |
%rolemaps = %{$current{'roles'}}; |
| |
$checkedfields{'roles'} = 1; |
| |
} |
| |
if (ref($current{'defaults'}) eq 'ARRAY') { |
| |
foreach my $val (@{$current{'defaults'}}) { |
| |
if (grep(/^\Q$val\E$/,@{$defaults{$provider}})) { |
| |
$inuse{$val} = 1; |
| |
} else { |
| |
foreach my $poss (keys(%{$extended{$provider}})) { |
| |
if (ref($extended{$provider}{$poss}) eq 'ARRAY') { |
| |
if (grep(/^\Q$val\E$/,@{$extended{$provider}{$poss}})) { |
| |
$inuse{$poss} = $val; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} elsif (ref($current{'defaults'}) eq 'HASH') { |
| |
foreach my $key (keys(%{$current{'defaults'}})) { |
| |
my $currval = $current{'defaults'}{$key}; |
| |
if (grep(/^\Q$key\E$/,@{$defaults{$provider}})) { |
| |
$inuse{$key} = 1; |
| |
} else { |
| |
my $match; |
| |
foreach my $poss (keys(%{$extended{$provider}})) { |
| |
if (ref($extended{$provider}{$poss}) eq 'ARRAY') { |
| |
if (grep(/^\Q$key\E$/,@{$extended{$provider}{$poss}})) { |
| |
$inuse{$poss} = $key; |
| |
last; |
| |
} |
| |
} elsif (ref($extended{$provider}{$poss}) eq 'HASH') { |
| |
foreach my $inner (sort(keys(%{$extended{$provider}{$poss}}))) { |
| |
if (ref($extended{$provider}{$poss}{$inner}) eq 'ARRAY') { |
| |
if (grep(/^\Q$currval\E$/,@{$extended{$provider}{$poss}{$inner}})) { |
| |
$currentdef{$inner} = $currval; |
| |
$match = 1; |
| |
last; |
| |
} |
| |
} elsif ($inner eq $key) { |
| |
$currentdef{$key} = $currval; |
| |
$match = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
last if ($match); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (ref($current{'crsconf'}) eq 'ARRAY') { |
| |
map { $crsconfig{$_} = 1; } @{$current{'crsconf'}}; |
| |
} |
| |
} |
| |
} |
| |
my %lt = &proctoring_titles($provider); |
| |
my %fieldtitles = &proctoring_fieldtitles($provider); |
| |
my $onclickavailable = ' onclick="toggleProctoring(this.form,'."'$provider'".');"'; |
| |
my %checkedavailable = ( |
| |
yes => '', |
| |
no => ' checked="checked"', |
| |
); |
| |
if ($available) { |
| |
$checkedavailable{'yes'} = $checkedavailable{'no'}; |
| |
$checkedavailable{'no'} = ''; |
| |
} |
| |
my $chgstr = ' onchange="javascript:reorderProctoring(this.form,'."'proctoring_pos_".$provider."'".');"'; |
| |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">' |
| |
.'<select name="proctoring_pos_'.$provider.'"'.$chgstr.'>'; |
| |
for (my $k=0; $k<$maxnum; $k++) { |
| |
my $vpos = $k+1; |
| |
my $selstr; |
| |
if ($k == $i) { |
| |
$selstr = ' selected="selected" '; |
| |
} |
| |
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>'; |
| |
} |
| |
if ($version eq '') { |
| |
if ($provider eq 'proctorio') { |
| |
$version = '1.0'; |
| |
} elsif ($provider eq 'examity') { |
| |
$version = '1.1'; |
| |
} |
| |
} |
| |
if ($lifetime eq '') { |
| |
$lifetime = '300'; |
| |
} |
| |
$datatable .= |
| |
'</select>'.(' 'x2).'<b>'.$providernames{$provider}.'</b></span><br />'. |
| |
'<span class="LC_nobreak">'.$lt{'avai'}.' '. |
| |
'<label><input type="radio" name="proctoring_available_'.$provider.'" value="1"'.$onclickavailable.$checkedavailable{yes}.' />'.&mt('Yes').'</label> '."\n". |
| |
'<label><input type="radio" name="proctoring_available_'.$provider.'" value="0"'.$onclickavailable.$checkedavailable{no}.' />'.&mt('No').'</label></span>'."\n". |
| |
'</td>'. |
| |
'<td colspan="2">'. |
| |
'<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'"><legend>'.$lt{'base'}.'</legend>'. |
| |
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="proctoring_'.$provider.'_version">'. |
| |
'<option value="'.$version.'" selected="selected">'.$version.'</option></select></span> '."\n". |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="proctoring_'.$provider.'_sigmethod">'. |
| |
'<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'. |
| |
'<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'. |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="proctoring_'.$provider.'_lifetime" value="'.$lifetime.'" /></span> '."\n". |
| |
'<br />'. |
| |
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="proctoring_'.$provider.'_url" value="'.$current{'url'}.'" /></span> '."\n". |
| |
'<br />'. |
| |
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="proctoring_'.$provider.'_key" value="'.$current{'key'}.'" /></span> '."\n". |
| |
(' 'x2). |
| |
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="proctoring_'.$provider.'_secret" value="'.$current{'secret'}.'" />'. |
| |
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.proctoring_'.$provider.'_secret.type='."'text'".' } else { this.form.proctoring_'.$provider.'_secret.type='."'password'".' }" />'.$lt{'visible'}.'</label></span><br />'."\n"; |
| |
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': '; |
| |
if ($imgsrc) { |
| |
$datatable .= $imgsrc. |
| |
'<label><input type="checkbox" name="proctoring_image_del"'. |
| |
' value="'.$provider.'" />'.&mt('Delete?').'</label></span> '. |
| |
'<span class="LC_nobreak"> '.&mt('Replace:'); |
| |
} |
| |
$datatable .= ' '; |
| |
if ($switchserver) { |
| |
$datatable .= &mt('Upload to library server: [_1]',$switchserver); |
| |
} else { |
| |
$datatable .= '<input type="file" name="proctoring_image_'.$provider.'" value="" />'; |
| |
} |
| |
unless ($imgsrc) { |
| |
$datatable .= '<br />('.&mt('if larger than 21x21 pixels, image will be scaled').')'; |
| |
} |
| |
$datatable .= '</fieldset>'."\n"; |
| |
if (ref($requserfields{$provider}) eq 'ARRAY') { |
| |
if (@{$requserfields{$provider}} > 0) { |
| |
$datatable .= '<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'"><legend>'.$lt{'requ'}.'</legend>'; |
| |
foreach my $field (@{$requserfields{$provider}}) { |
| |
$datatable .= '<span class="LC_nobreak">'. |
| |
'<label><input type="checkbox" name="proctoring_reqd_'.$provider.'" value="'.$field.'" checked="checked" disabled="disabled" />'. |
| |
$lt{$field}.'</label>'; |
| |
if ($field eq 'user') { |
| |
my $seluserdom = ''; |
| |
my $unseluserdom = ' selected="selected"'; |
| |
if ($userincdom) { |
| |
$seluserdom = $unseluserdom; |
| |
$unseluserdom = ''; |
| |
} |
| |
$datatable .= ': '. |
| |
'<select name="proctoring_userincdom_'.$provider.'">'. |
| |
'<option value="0"'.$unseluserdom.'>'.$lt{'username'}.'</option>'. |
| |
'<option value="1"'.$seluserdom.'>'.$lt{'uname:dom'}.'</option>'. |
| |
'</select> '; |
| |
} else { |
| |
$datatable .= ' '; |
| |
if ($field eq 'roles') { |
| |
$showroles = 1; |
| |
} |
| |
} |
| |
$datatable .= '</span> '; |
| |
} |
| |
} |
| |
$datatable .= '</fieldset>'."\n"; |
| |
} |
| |
if (ref($optuserfields{$provider}) eq 'ARRAY') { |
| |
if (@{$optuserfields{$provider}} > 0) { |
| |
$datatable .= '<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'"><legend>'.$lt{'optu'}.'</legend>'; |
| |
foreach my $field (@{$optuserfields{$provider}}) { |
| |
my $checked; |
| |
if ($checkedfields{$field}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak">'. |
| |
'<label><input type="checkbox" name="proctoring_optional_'.$provider.'" value="'.$field.'"'.$checked.' />'.$lt{$field}.'</label></span> '; |
| |
} |
| |
$datatable .= '</fieldset>'."\n"; |
| |
} |
| |
} |
| |
if (ref($defaults{$provider}) eq 'ARRAY') { |
| |
if (@{$defaults{$provider}}) { |
| |
my (%options,@selectboxes); |
| |
if (ref($extended{$provider}) eq 'HASH') { |
| |
%options = %{$extended{$provider}}; |
| |
} |
| |
$datatable .= '<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'"><legend>'.$lt{'defa'}.'</legend>'; |
| |
my ($rem,$numinrow,$dropdowns); |
| |
if ($provider eq 'proctorio') { |
| |
$datatable .= '<table>'; |
| |
$numinrow = 4; |
| |
} |
| |
my $i = 0; |
| |
foreach my $field (@{$defaults{$provider}}) { |
| |
my $checked; |
| |
if ($inuse{$field}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
if ($provider eq 'examity') { |
| |
if ($field eq 'display') { |
| |
$datatable .= '<span class="LC_nobreak">'.&mt('Display target:'); |
| |
foreach my $option ('iframe','tab','window') { |
| |
my $checkdisp; |
| |
if ($currentdef{'target'} eq $option) { |
| |
$checkdisp = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<label><input type="radio" name="proctoring_target_'.$provider.'" value="'.$option.'"'.$checkdisp.' />'. |
| |
$fieldtitles{$option}.'</label>'.(' 'x2); |
| |
} |
| |
$datatable .= (' 'x4); |
| |
foreach my $dimen ('width','height') { |
| |
$datatable .= '<label>'.$fieldtitles{$dimen}.' '. |
| |
'<input type="text" name="proctoring_'.$dimen.'_'.$provider.'" size="5" '. |
| |
'value="'.$currentdef{$dimen}.'" /></label>'. |
| |
(' 'x2); |
| |
} |
| |
$datatable .= '</span><br />'. |
| |
'<div class="LC_left_float">'.$fieldtitles{'linktext'}.'<br />'. |
| |
'<input type="text" name="proctoring_linktext_'.$provider.'" '. |
| |
'size="25" value="'.$currentdef{'linktext'}.'" /></div>'. |
| |
'<div class="LC_left_float">'.$fieldtitles{'explanation'}.'<br />'. |
| |
'<textarea name="proctoring_explanation_'.$provider.'" rows="5" cols="40">'. |
| |
$currentdef{'explanation'}. |
| |
'</textarea></div><div style=""></div><br />'; |
| |
} |
| |
} else { |
| |
if ((exists($options{$field})) && (ref($options{$field}) eq 'ARRAY')) { |
| |
my ($output,$selnone); |
| |
unless ($checked) { |
| |
$selnone = ' selected="selected"'; |
| |
} |
| |
$output .= '<span class="LC_nobreak">'.$fieldtitles{$field}.': '. |
| |
'<select name="proctoring_defaults_'.$field.'_'.$provider.'">'. |
| |
'<option value=""'.$selnone.'>'.&mt('Not in use').'</option>'; |
| |
foreach my $option (@{$options{$field}}) { |
| |
my $sel; |
| |
if ($inuse{$field} eq $option) { |
| |
$sel = ' selected="selected"'; |
| |
} |
| |
$output .= '<option value="'.$option.'"'.$sel.'>'.$fieldtitles{$option}.'</option>'; |
| |
} |
| |
$output .= '</select></span>'; |
| |
push(@selectboxes,$output); |
| |
} else { |
| |
$rem = $i%($numinrow); |
| |
if ($rem == 0) { |
| |
if ($i > 0) { |
| |
$datatable .= '</tr>'; |
| |
} |
| |
$datatable .= '<tr>'; |
| |
} |
| |
$datatable .= '<td class="LC_left_item">'. |
| |
'<span class="LC_nobreak">'. |
| |
'<label><input type="checkbox" name="proctoring_defaults_'.$provider.'" value="'.$field.'"'.$checked.' />'. |
| |
$fieldtitles{$field}.'</label></span></td>'; |
| |
$i++; |
| |
} |
| |
} |
| |
} |
| |
if ($provider eq 'proctorio') { |
| |
if ($numinrow) { |
| |
$rem = $i%$numinrow; |
| |
} |
| |
my $colsleft = $numinrow - $rem; |
| |
if ($colsleft > 1) { |
| |
$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'; |
| |
} else { |
| |
$datatable .= '<td class="LC_left_item">'; |
| |
} |
| |
$datatable .= ' '. |
| |
'</td></tr></table>'; |
| |
if (@selectboxes) { |
| |
$datatable .= '<hr /><table>'; |
| |
$numinrow = 2; |
| |
for (my $i=0; $i<@selectboxes; $i++) { |
| |
$rem = $i%($numinrow); |
| |
if ($rem == 0) { |
| |
if ($i > 0) { |
| |
$datatable .= '</tr>'; |
| |
} |
| |
$datatable .= '<tr>'; |
| |
} |
| |
$datatable .= '<td class="LC_left_item">'. |
| |
$selectboxes[$i].'</td>'; |
| |
} |
| |
if ($numinrow) { |
| |
$rem = $i%$numinrow; |
| |
} |
| |
$colsleft = $numinrow - $rem; |
| |
if ($colsleft > 1) { |
| |
$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'; |
| |
} else { |
| |
$datatable .= '<td class="LC_left_item">'; |
| |
} |
| |
$datatable .= ' '. |
| |
'</td></tr></table>'; |
| |
} |
| |
} |
| |
$datatable .= '</fieldset>'; |
| |
} |
| |
if (ref($crsconf{$provider}) eq 'ARRAY') { |
| |
$datatable .= '<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'">'. |
| |
'<legend>'.&mt('Configurable in course').'</legend>'; |
| |
my ($rem,$numinrow); |
| |
if ($provider eq 'proctorio') { |
| |
$datatable .= '<table>'; |
| |
$numinrow = 4; |
| |
} |
| |
my $i = 0; |
| |
foreach my $item (@{$crsconf{$provider}}) { |
| |
my $name; |
| |
if ($provider eq 'examity') { |
| |
$name = $lt{'crs'.$item}; |
| |
} elsif ($provider eq 'proctorio') { |
| |
$name = $fieldtitles{$item}; |
| |
$rem = $i%($numinrow); |
| |
if ($rem == 0) { |
| |
if ($i > 0) { |
| |
$datatable .= '</tr>'; |
| |
} |
| |
$datatable .= '<tr>'; |
| |
} |
| |
$datatable .= '<td class="LC_left_item>'; |
| |
} |
| |
my $checked; |
| |
if ($crsconfig{$item}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="proctoring_crsconf_'.$provider.'" value="'.$item.'"'.$checked.' />'. |
| |
$name.'</label></span>'; |
| |
if ($provider eq 'examity') { |
| |
$datatable .= ' '; |
| |
} |
| |
$datatable .= "\n"; |
| |
$i++; |
| |
} |
| |
if ($provider eq 'proctorio') { |
| |
if ($numinrow) { |
| |
$rem = $i%$numinrow; |
| |
} |
| |
my $colsleft = $numinrow - $rem; |
| |
if ($colsleft > 1) { |
| |
$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'; |
| |
} else { |
| |
$datatable .= '<td class="LC_left_item">'; |
| |
} |
| |
$datatable .= ' '. |
| |
'</td></tr></table>'; |
| |
} |
| |
$datatable .= '</fieldset>'; |
| |
} |
| |
if ($showroles) { |
| |
$datatable .= '<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'">'. |
| |
'<legend>'.&mt('Role mapping').'</legend><table><tr>'; |
| |
foreach my $role (@courseroles) { |
| |
my ($selected,$selectnone); |
| |
if (!$rolemaps{$role}) { |
| |
$selectnone = ' selected="selected"'; |
| |
} |
| |
$datatable .= '<td style="text-align: center">'. |
| |
&Apache::lonnet::plaintext($role,'Course').'<br />'. |
| |
'<select name="proctoring_roles_'.$role.'_'.$provider.'">'. |
| |
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>'; |
| |
foreach my $ltirole (@ltiroles) { |
| |
unless ($selectnone) { |
| |
if ($rolemaps{$role} eq $ltirole) { |
| |
$selected = ' selected="selected"'; |
| |
} else { |
| |
$selected = ''; |
| |
} |
| |
} |
| |
$datatable .= '<option value="'.$ltirole.'"'.$selected.'>'.$ltirole.'</option>'; |
| |
} |
| |
$datatable .= '</select></td>'; |
| |
} |
| |
$datatable .= '</tr></table></fieldset>'. |
| |
'<fieldset class="proctoring_'.$provider.'" style="display:'.$optionsty.'">'. |
| |
'<legend>'.&mt('Custom items sent on launch').'</legend>'. |
| |
'<table><tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th><th>'.&mt('Value').'</th></tr>'. |
| |
'<tr><td></td><td>lms</td>'. |
| |
'<td><input type="text" name="proctoring_customval_lms_'.$provider.'"'. |
| |
' value="Loncapa" disabled="disabled"/></td></tr>'; |
| |
if ((ref($settings) eq 'HASH') && (ref($settings->{$provider}) eq 'HASH') && |
| |
(ref($settings->{$provider}->{'custom'}) eq 'HASH')) { |
| |
my %custom = %{$settings->{$provider}->{'custom'}}; |
| |
if (keys(%custom) > 0) { |
| |
foreach my $key (sort(keys(%custom))) { |
| |
next if ($key eq 'lms'); |
| |
$datatable .= '<tr><td><span class="LC_nobreak">'. |
| |
'<label><input type="checkbox" name="proctoring_customdel_'.$provider.'" value="'. |
| |
$key.'" />'.&mt('Delete').'</label></span></td><td>'.$key.'</td>'. |
| |
'<td><input type="text" name="proctoring_customval_'.$key.'_'.$provider.'"'. |
| |
' value="'.$custom{$key}.'" /></td></tr>'; |
| |
} |
| |
} |
| |
} |
| |
$datatable .= '<tr><td><span class="LC_nobreak">'. |
| |
'<label><input type="checkbox" name="proctoring_customadd" value="'.$provider.'" />'. |
| |
&mt('Add more').'</label></span></td><td><input type="text" name="proctoring_custom_name_'.$provider.'" />'. |
| |
'</td><td><input type="text" name="proctoring_custom_value_'.$provider.'" /></td></tr>'. |
| |
'</table></fieldset></td></tr>'."\n"; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
} |
| |
$itemcount ++; |
| |
} |
| |
} |
| |
return $datatable; |
| |
} |
| |
|
| |
sub proctoring_data { |
| |
my $requserfields = { |
| |
proctorio => ['user'], |
| |
examity => ['roles','user'], |
| |
}; |
| |
my $optuserfields = { |
| |
proctorio => ['fullname'], |
| |
examity => ['fullname','firstname','lastname','email'], |
| |
}; |
| |
my $defaults = { |
| |
proctorio => ['recordvideo','recordaudio','recordscreen','recordwebtraffic', |
| |
'recordroomstart','verifyvideo','verifyaudio','verifydesktop', |
| |
'verifyid','verifysignature','fullscreen','clipboard','tabslinks', |
| |
'closetabs','onescreen','print','downloads','cache','rightclick', |
| |
'reentry','calculator','whiteboard'], |
| |
examity => ['display'], |
| |
}; |
| |
my $extended = { |
| |
proctorio => { |
| |
verifyid => ['verifyidauto','verifyidlive'], |
| |
fullscreen => ['fullscreenlenient','fullscreenmoderate','fullscreensever'], |
| |
tabslinks => ['notabs','linksonly'], |
| |
reentry => ['noreentry','agentreentry'], |
| |
calculator => ['calculatorbasic','calculatorsci'], |
| |
}, |
| |
examity => { |
| |
display => { |
| |
target => ['iframe','tab','window'], |
| |
width => '', |
| |
height => '', |
| |
linktext => '', |
| |
explanation => '', |
| |
}, |
| |
}, |
| |
}; |
| |
my $crsconf = { |
| |
proctorio => ['recordvideo','recordaudio','recordscreen','recordwebtraffic', |
| |
'recordroomstart','verifyvideo','verifyaudio','verifydesktop', |
| |
'verifyid','verifysignature','fullscreen','clipboard','tabslinks', |
| |
'closetabs','onescreen','print','downloads','cache','rightclick', |
| |
'reentry','calculator','whiteboard'], |
| |
examity => ['label','title','target','linktext','explanation','append'], |
| |
}; |
| |
my $courseroles = ['cc','in','ta','ep','st']; |
| |
my $ltiroles = ['Instructor','ContentDeveloper','TeachingAssistant','Learner']; |
| |
return ($requserfields,$optuserfields,$defaults,$extended,$crsconf,$courseroles,$ltiroles); |
| |
} |
| |
|
| |
sub proctoring_titles { |
| |
my ($item) = @_; |
| |
my (%common_lt,%custom_lt); |
| |
%common_lt = &Apache::lonlocal::texthash ( |
| |
'avai' => 'Available?', |
| |
'base' => 'Basic Settings', |
| |
'requ' => 'User data required to be sent on launch', |
| |
'optu' => 'User data optionally sent on launch', |
| |
'udsl' => 'User data sent on launch', |
| |
'defa' => 'Defaults for items configurable in course', |
| |
'sigmethod' => 'Signature Method', |
| |
'key' => 'Key', |
| |
'lifetime' => 'Nonce lifetime (s)', |
| |
'secret' => 'Secret', |
| |
'icon' => 'Icon', |
| |
'fullname' => 'Full Name', |
| |
'visible' => 'Visible input', |
| |
'username' => 'username', |
| |
'user' => 'User', |
| |
); |
| |
if ($item eq 'proctorio') { |
| |
%custom_lt = &Apache::lonlocal::texthash ( |
| |
'version' => 'OAuth version', |
| |
'url' => 'API URL', |
| |
'uname:dom' => 'username-domain', |
| |
); |
| |
} elsif ($item eq 'examity') { |
| |
%custom_lt = &Apache::lonlocal::texthash ( |
| |
'version' => 'LTI Version', |
| |
'url' => 'URL', |
| |
'uname:dom' => 'username:domain', |
| |
'msgtype' => 'Message Type', |
| |
'firstname' => 'First Name', |
| |
'lastname' => 'Last Name', |
| |
'email' => 'E-mail', |
| |
'roles' => 'Role', |
| |
'crstarget' => 'Display target', |
| |
'crslabel' => 'Course label', |
| |
'crstitle' => 'Course title', |
| |
'crslinktext' => 'Link Text', |
| |
'crsexplanation' => 'Explanation', |
| |
'crsappend' => 'Provider URL', |
| |
); |
| |
} |
| |
my %lt = (%common_lt,%custom_lt); |
| |
return %lt; |
| |
} |
| |
|
| |
sub proctoring_fieldtitles { |
| |
my ($item) = @_; |
| |
if ($item eq 'proctorio') { |
| |
return &Apache::lonlocal::texthash ( |
| |
'recordvideo' => 'Record video', |
| |
'recordaudio' => 'Record audio', |
| |
'recordscreen' => 'Record screen', |
| |
'recordwebtraffic' => 'Record web traffic', |
| |
'recordroomstart' => 'Record room scan', |
| |
'verifyvideo' => 'Verify webcam', |
| |
'verifyaudio' => 'Verify microphone', |
| |
'verifydesktop' => 'Verify desktop recording', |
| |
'verifyid' => 'Photo ID verification', |
| |
'verifysignature' => 'Require signature', |
| |
'fullscreen' => 'Fullscreen', |
| |
'clipboard' => 'Disable copy/paste', |
| |
'tabslinks' => 'New tabs/windows', |
| |
'closetabs' => 'Close other tabs', |
| |
'onescreen' => 'Limit to single screen', |
| |
'print' => 'Disable Printing', |
| |
'downloads' => 'Disable Downloads', |
| |
'cache' => 'Empty cache after exam', |
| |
'rightclick' => 'Disable right click', |
| |
'reentry' => 'Re-entry to exam', |
| |
'calculator' => 'Onscreen calculator', |
| |
'whiteboard' => 'Onscreen whiteboard', |
| |
'verifyidauto' => 'Automated verification', |
| |
'verifyidlive' => 'Live agent verification', |
| |
'fullscreenlenient' => 'Forced, but can navigate away for up to 30s', |
| |
'fullscreenmoderate' => 'Forced, but can navigate away for up to 15s', |
| |
'fullscreensever' => 'Forced, navigation away ends exam', |
| |
'notabs' => 'Disaallowed', |
| |
'linksonly' => 'Allowed from links in exam', |
| |
'noreentry' => 'Disallowed', |
| |
'agentreentry' => 'Agent required for re-entry', |
| |
'calculatorbasic' => 'Basic', |
| |
'calculatorsci' => 'Scientific', |
| |
); |
| |
} elsif ($item eq 'examity') { |
| |
return &Apache::lonlocal::texthash ( |
| |
'target' => 'Display target', |
| |
'window' => 'Window', |
| |
'tab' => 'Tab', |
| |
'iframe' => 'iFrame', |
| |
'height' => 'Height (pixels)', |
| |
'width' => 'Width (pixels)', |
| |
'linktext' => 'Default Link Text', |
| |
'explanation' => 'Default Explanation', |
| |
'append' => 'Provider URL', |
| |
); |
| |
} |
| |
} |
| |
|
| |
sub proctoring_providernames { |
| |
return ( |
| |
proctorio => 'Proctorio', |
| |
examity => 'Examity', |
| |
); |
| |
} |
| |
|
| sub print_lti { |
sub print_lti { |
| my ($dom,$settings,$rowtotal) = @_; |
my ($dom,$settings,$rowtotal) = @_; |
| my $itemcount = 1; |
my $itemcount = 1; |
|
Line 4918 sub lti_names {
|
Line 5721 sub lti_names {
|
| |
|
| sub lti_options { |
sub lti_options { |
| my ($num,$current,$itemcount,%lt) = @_; |
my ($num,$current,$itemcount,%lt) = @_; |
| my (%checked,%rolemaps,$crssecsrc,$userfield,$cidfield); |
my (%checked,%rolemaps,$crssecsrc,$userfield,$cidfield,$callback); |
| $checked{'mapuser'}{'sourcedid'} = ' checked="checked"'; |
$checked{'mapuser'}{'sourcedid'} = ' checked="checked"'; |
| $checked{'mapcrs'}{'course_offering_sourcedid'} = ' checked="checked"'; |
$checked{'mapcrs'}{'course_offering_sourcedid'} = ' checked="checked"'; |
| $checked{'makecrs'}{'N'} = ' checked="checked"'; |
$checked{'makecrs'}{'N'} = ' checked="checked"'; |
|
Line 4936 sub lti_options {
|
Line 5739 sub lti_options {
|
| my $crsfieldsty = 'none'; |
my $crsfieldsty = 'none'; |
| my $crssecfieldsty = 'none'; |
my $crssecfieldsty = 'none'; |
| my $secsrcfieldsty = 'none'; |
my $secsrcfieldsty = 'none'; |
| |
my $callbacksty = 'none'; |
| my $passbacksty = 'none'; |
my $passbacksty = 'none'; |
| my $optionsty = 'block'; |
my $optionsty = 'block'; |
| my $lcauthparm; |
my $lcauthparm; |
|
Line 5015 sub lti_options {
|
Line 5819 sub lti_options {
|
| } else { |
} else { |
| $checked{'crssec'}{'N'} = ' checked="checked"'; |
$checked{'crssec'}{'N'} = ' checked="checked"'; |
| } |
} |
| |
if ($current->{'callback'} ne '') { |
| |
$callback = $current->{'callback'}; |
| |
$checked{'callback'}{'Y'} = ' checked="checked"'; |
| |
$callbacksty = 'inline-block'; |
| |
} else { |
| |
$checked{'callback'}{'N'} = ' checked="checked"'; |
| |
} |
| if ($current->{'topmenu'}) { |
if ($current->{'topmenu'}) { |
| $checked{'topmenu'}{'Y'} = ' checked="checked"'; |
$checked{'topmenu'}{'Y'} = ' checked="checked"'; |
| } else { |
} else { |
|
Line 5040 sub lti_options {
|
Line 5851 sub lti_options {
|
| } else { |
} else { |
| $checked{'makecrs'}{'N'} = ' checked="checked"'; |
$checked{'makecrs'}{'N'} = ' checked="checked"'; |
| $checked{'crssec'}{'N'} = ' checked="checked"'; |
$checked{'crssec'}{'N'} = ' checked="checked"'; |
| |
$checked{'callback'}{'N'} = ' checked="checked"'; |
| $checked{'topmenu'}{'N'} = ' checked="checked"'; |
$checked{'topmenu'}{'N'} = ' checked="checked"'; |
| $checked{'inlinemenu'}{'Y'} = ' checked="checked"'; |
$checked{'inlinemenu'}{'Y'} = ' checked="checked"'; |
| $checked{'menuitem'}{'grades'} = ' checked="checked"'; |
$checked{'menuitem'}{'grades'} = ' checked="checked"'; |
|
Line 5068 sub lti_options {
|
Line 5880 sub lti_options {
|
| my $onclickuser = ' onclick="toggleLTI(this.form,'."'user','$num'".');"'; |
my $onclickuser = ' onclick="toggleLTI(this.form,'."'user','$num'".');"'; |
| my $onclickcrs = ' onclick="toggleLTI(this.form,'."'crs','$num'".');"'; |
my $onclickcrs = ' onclick="toggleLTI(this.form,'."'crs','$num'".');"'; |
| my $onclicksec = ' onclick="toggleLTI(this.form,'."'sec','$num'".');"'; |
my $onclicksec = ' onclick="toggleLTI(this.form,'."'sec','$num'".');"'; |
| |
my $onclickcallback = ' onclick="toggleLTI(this.form,'."'callback','$num'".');"'; |
| my $onclicksecsrc = ' onclick="toggleLTI(this.form,'."'secsrc','$num'".')"'; |
my $onclicksecsrc = ' onclick="toggleLTI(this.form,'."'secsrc','$num'".')"'; |
| my $onclicklcauth = ' onclick="toggleLTI(this.form,'."'lcauth','$num'".')"'; |
my $onclicklcauth = ' onclick="toggleLTI(this.form,'."'lcauth','$num'".')"'; |
| my $onclickmenu = ' onclick="toggleLTI(this.form,'."'lcmenu','$num'".');"'; |
my $onclickmenu = ' onclick="toggleLTI(this.form,'."'lcmenu','$num'".');"'; |
|
Line 5081 sub lti_options {
|
Line 5894 sub lti_options {
|
| $output .= '</span></div>'. |
$output .= '</span></div>'. |
| '<div class="LC_floatleft" style="display:'.$userfieldsty.';" id="lti_userfield_'.$num.'">'. |
'<div class="LC_floatleft" style="display:'.$userfieldsty.';" id="lti_userfield_'.$num.'">'. |
| '<input type="text" name="lti_customuser_'.$num.'" '. |
'<input type="text" name="lti_customuser_'.$num.'" '. |
| 'value="'.$userfield.'" /></div></fieldset>'. |
'value="'.$userfield.'" /></div></fieldset>'. |
| '<fieldset class="ltioption_'.$num.'" style="display:'.$optionsty.'"><legend>'.&mt('Mapping course roles').'</legend><table><tr>'; |
'<fieldset class="ltioption_'.$num.'" style="display:'.$optionsty.'"><legend>'.&mt('Mapping course roles').'</legend><table><tr>'; |
| foreach my $ltirole (@lticourseroles) { |
foreach my $ltirole (@lticourseroles) { |
| my ($selected,$selectnone); |
my ($selected,$selectnone); |
|
Line 5217 sub lti_options {
|
Line 6030 sub lti_options {
|
| '<label><input type="radio" name="lti_passbackformat_'.$num.'" value="1.1"'.$pb1p1chk.' />'. |
'<label><input type="radio" name="lti_passbackformat_'.$num.'" value="1.1"'.$pb1p1chk.' />'. |
| &mt('Outcomes Service (1.1)').'</label>'.(' 'x2). |
&mt('Outcomes Service (1.1)').'</label>'.(' 'x2). |
| '<label><input type="radio" name="lti_passbackformat_'.$num.'" value="1.0"'.$pb1p0chk.'/>'. |
'<label><input type="radio" name="lti_passbackformat_'.$num.'" value="1.0"'.$pb1p0chk.'/>'. |
| &mt('Outcomes Extension (1.0)').'</label></span></div></fieldset>'. |
&mt('Outcomes Extension (1.0)').'</label></span></div>'. |
| |
'<div style="padding:0;clear:both;margin:0;border:0"></div>'. |
| |
'<div class="LC_floatleft"><span class="LC_nobreak">'.&mt('Callback on logout').': '. |
| |
'<label><input type="radio" name="lti_callback_'.$num.'" value="0"'. |
| |
$checked{'callback'}{'N'}.$onclickcallback.' />'.&mt('No').'</label>'.(' 'x2). |
| |
'<label><input type="radio" name="lti_callback_'.$num.'" value="1"'. |
| |
$checked{'callback'}{'Y'}.$onclickcallback.' />'.&mt('Yes').'</label></span></div>'. |
| |
'<div class="LC_floatleft" style="display:'.$callbacksty.';" id="lti_callbackfield_'.$num.'">'. |
| |
'<span class="LC_nobreak">'.&mt('Parameter').': '. |
| |
'<input type="text" name="lti_callbackparam_'.$num.'" value="'.$callback.'" /></span>'. |
| |
'</div><div style="padding:0;clear:both;margin:0;border:0"></div></fieldset>'. |
| '<fieldset class="ltioption_'.$num.'" style="display:'.$optionsty.'"><legend>'.&mt('Course defaults (Course Coordinator can override)').'</legend>'. |
'<fieldset class="ltioption_'.$num.'" style="display:'.$optionsty.'"><legend>'.&mt('Course defaults (Course Coordinator can override)').'</legend>'. |
| '<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{'topmenu'}.': '. |
'<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{'topmenu'}.': '. |
| '<label><input type="radio" name="lti_topmenu_'.$num.'" value="0"'. |
'<label><input type="radio" name="lti_topmenu_'.$num.'" value="0"'. |
|
Line 5770 sub print_validation_rows {
|
Line 6593 sub print_validation_rows {
|
| return $datatable; |
return $datatable; |
| } |
} |
| |
|
| |
sub print_privacy { |
| |
my ($position,$dom,$settings,$rowtotal) = @_; |
| |
my ($datatable,$css_class,$numinrow,@items,%names,$othertitle,$usertypes,$types); |
| |
my $itemcount = 0; |
| |
unless ($position eq 'top') { |
| |
@items = ('domain','author','course','community'); |
| |
%names = &Apache::lonlocal::texthash ( |
| |
domain => 'Assigned domain role(s)', |
| |
author => 'Assigned co-author role(s)', |
| |
course => 'Assigned course role(s)', |
| |
community => 'Assigned community role', |
| |
); |
| |
$numinrow = 4; |
| |
($othertitle,$usertypes,$types) = |
| |
&Apache::loncommon::sorted_inst_types($dom); |
| |
} |
| |
if (($position eq 'top') || ($position eq 'middle')) { |
| |
my (%by_ip,%by_location,@intdoms,@instdoms); |
| |
&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms); |
| |
if ($position eq 'top') { |
| |
my %curr; |
| |
my @options = ('none','user','domain','auto'); |
| |
my %titles = &Apache::lonlocal::texthash ( |
| |
none => 'Not allowed', |
| |
user => 'User authorizes', |
| |
domain => 'DC authorizes', |
| |
auto => 'Unrestricted', |
| |
instdom => 'Other domain shares institution/provider', |
| |
extdom => 'Other domain has different institution/provider', |
| |
); |
| |
my %names = &Apache::lonlocal::texthash ( |
| |
domain => 'Domain role', |
| |
author => 'Co-author role', |
| |
course => 'Course role', |
| |
community => 'Community role', |
| |
); |
| |
my $primary_id = &Apache::lonnet::domain($dom,'primary'); |
| |
my $intdom = &Apache::lonnet::internet_dom($primary_id); |
| |
foreach my $domtype ('instdom','extdom') { |
| |
my (%checked,$skip); |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{$domtype}.'</td>'. |
| |
'<td class="LC_left_item">'; |
| |
if ($domtype eq 'instdom') { |
| |
unless (@instdoms > 1) { |
| |
$datatable .= &mt('Nothing to set, as no domains besides [_1] are hosted by [_2]',$dom,$intdom); |
| |
$skip = 1; |
| |
} |
| |
} elsif ($domtype eq 'extdom') { |
| |
if (keys(%by_location) == 0) { |
| |
$datatable .= &mt('Nothing to set, as no other hosts besides [_1]',$intdom); |
| |
$skip = 1; |
| |
} |
| |
} |
| |
unless ($skip) { |
| |
foreach my $roletype ('domain','author','course','community') { |
| |
$checked{'auto'} = ' checked="checked"'; |
| |
if (ref($settings) eq 'HASH') { |
| |
if (ref($settings->{approval}) eq 'HASH') { |
| |
if (ref($settings->{approval}->{$domtype}) eq 'HASH') { |
| |
if ($settings->{approval}->{$domtype}->{$roletype}=~ /^(none|user|domain)$/) { |
| |
$checked{$1} = ' checked="checked"'; |
| |
$checked{'auto'} = ''; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$datatable .= '<fieldset><legend>'.$names{$roletype}.'</legend>'; |
| |
foreach my $option (@options) { |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="radio" name="privacy_approval_'.$domtype.'_'.$roletype.'" '. |
| |
'value="'.$option.'"'.$checked{$option}.' />'.$titles{$option}. |
| |
'</label></span> '; |
| |
} |
| |
$datatable .= '</fieldset>'; |
| |
} |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
$itemcount ++; |
| |
} |
| |
} elsif ($position eq 'middle') { |
| |
if ((@instdoms > 1) || (keys(%by_location) > 0)) { |
| |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
| |
foreach my $item (@{$types}) { |
| |
$datatable .= &modifiable_userdata_row('privacy','othdom_'.$item,$settings, |
| |
$numinrow,$itemcount,'','','','','', |
| |
'',$usertypes->{$item}); |
| |
$itemcount ++; |
| |
} |
| |
} |
| |
$datatable .= &modifiable_userdata_row('privacy','othdom_default',$settings, |
| |
$numinrow,$itemcount,'','','','','', |
| |
'',$othertitle); |
| |
$itemcount ++; |
| |
} else { |
| |
my (@insttypes,%insttitles); |
| |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
| |
@insttypes = @{$types}; |
| |
%insttitles = %{$usertypes}; |
| |
} |
| |
foreach my $item (@insttypes,'default') { |
| |
my $title; |
| |
if ($item eq 'default') { |
| |
$title = $othertitle; |
| |
} else { |
| |
$title = $insttitles{$item}; |
| |
} |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'>'. |
| |
'<td class="LC_left_item">'.$title.'</td>'. |
| |
'<td class="LC_left_item">'. |
| |
&mt('Nothing to set here, as there are no other domains'). |
| |
'</td></tr>'; |
| |
$itemcount ++; |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
my $prefix; |
| |
if ($position eq 'lower') { |
| |
$prefix = 'priv'; |
| |
} else { |
| |
$prefix = 'unpriv'; |
| |
} |
| |
foreach my $item (@items) { |
| |
$datatable .= &modifiable_userdata_row('privacy',$prefix.'_'.$item,$settings, |
| |
$numinrow,$itemcount,'','','','','', |
| |
'',$names{$item}); |
| |
$itemcount ++; |
| |
} |
| |
} |
| |
if (ref($rowtotal)) { |
| |
$$rowtotal += $itemcount; |
| |
} |
| |
return $datatable; |
| |
} |
| |
|
| |
sub print_passwords { |
| |
my ($position,$dom,$confname,$settings,$rowtotal) = @_; |
| |
my ($datatable,$css_class); |
| |
my $itemcount = 0; |
| |
my %titles = &Apache::lonlocal::texthash ( |
| |
captcha => '"Forgot Password" CAPTCHA validation', |
| |
link => 'Reset link expiration (hours)', |
| |
case => 'Case-sensitive usernames/e-mail', |
| |
prelink => 'Information required (form 1)', |
| |
postlink => 'Information required (form 2)', |
| |
emailsrc => 'LON-CAPA e-mail address type(s)', |
| |
customtext => 'Domain specific text (HTML)', |
| |
intauth_cost => 'Encryption cost for bcrypt (positive integer)', |
| |
intauth_check => 'Check bcrypt cost if authenticated', |
| |
intauth_switch => 'Existing crypt-based switched to bcrypt on authentication', |
| |
permanent => 'Permanent e-mail address', |
| |
critical => 'Critical notification address', |
| |
notify => 'Notification address', |
| |
min => 'Minimum password length', |
| |
max => 'Maximum password length', |
| |
chars => 'Required characters', |
| |
expire => 'Password expiration (days)', |
| |
numsaved => 'Number of previous passwords to save and disallow reuse', |
| |
); |
| |
if ($position eq 'top') { |
| |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| |
my $shownlinklife = 2; |
| |
my $prelink = 'both'; |
| |
my (%casesens,%postlink,%emailsrc,$nostdtext,$customurl); |
| |
if (ref($settings) eq 'HASH') { |
| |
if ($settings->{resetlink} =~ /^\d+(|\.\d*)$/) { |
| |
$shownlinklife = $settings->{resetlink}; |
| |
} |
| |
if (ref($settings->{resetcase}) eq 'ARRAY') { |
| |
map { $casesens{$_} = 1; } (@{$settings->{resetcase}}); |
| |
} |
| |
if ($settings->{resetprelink} =~ /^(both|either)$/) { |
| |
$prelink = $settings->{resetprelink}; |
| |
} |
| |
if (ref($settings->{resetpostlink}) eq 'HASH') { |
| |
%postlink = %{$settings->{resetpostlink}}; |
| |
} |
| |
if (ref($settings->{resetemail}) eq 'ARRAY') { |
| |
map { $emailsrc{$_} = 1; } (@{$settings->{resetemail}}); |
| |
} |
| |
if ($settings->{resetremove}) { |
| |
$nostdtext = 1; |
| |
} |
| |
if ($settings->{resetcustom}) { |
| |
$customurl = $settings->{resetcustom}; |
| |
} |
| |
} else { |
| |
if (ref($types) eq 'ARRAY') { |
| |
foreach my $item (@{$types}) { |
| |
$casesens{$item} = 1; |
| |
$postlink{$item} = ['username','email']; |
| |
} |
| |
} |
| |
$casesens{'default'} = 1; |
| |
$postlink{'default'} = ['username','email']; |
| |
$prelink = 'both'; |
| |
%emailsrc = ( |
| |
permanent => 1, |
| |
critical => 1, |
| |
notify => 1, |
| |
); |
| |
} |
| |
$datatable = &captcha_choice('passwords',$settings,$$rowtotal); |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'link'}.'</td>'. |
| |
'<td class="LC_left_item">'. |
| |
'<input type="textbox" value="'.$shownlinklife.'" '. |
| |
'name="passwords_link" size="3" /></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'case'}.'</td>'. |
| |
'<td class="LC_left_item">'; |
| |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
| |
foreach my $item (@{$types}) { |
| |
my $checkedcase; |
| |
if ($casesens{$item}) { |
| |
$checkedcase = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="passwords_case_sensitive" value="'. |
| |
$item.'"'.$checkedcase.' />'.$usertypes->{$item}.'</label>'. |
| |
'</span> '; |
| |
} |
| |
} |
| |
my $checkedcase; |
| |
if ($casesens{'default'}) { |
| |
$checkedcase = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label><input type="checkbox" '. |
| |
'name="passwords_case_sensitive" value="default"'.$checkedcase.' />'. |
| |
$othertitle.'</label></span></td>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
my %checkedpre = ( |
| |
both => ' checked="checked"', |
| |
either => '', |
| |
); |
| |
if ($prelink eq 'either') { |
| |
$checkedpre{either} = ' checked="checked"'; |
| |
$checkedpre{both} = ''; |
| |
} |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'prelink'}.'</td>'. |
| |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<label><input type="radio" name="passwords_prelink" value="both"'.$checkedpre{'both'}.' />'. |
| |
&mt('Both username and e-mail address').'</label></span> '. |
| |
'<span class="LC_nobreak"><label>'. |
| |
'<input type="radio" name="passwords_prelink" value="either"'.$checkedpre{'either'}.' />'. |
| |
&mt('Either username or e-mail address').'</label></span></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'postlink'}.'</td>'. |
| |
'<td class="LC_left_item">'; |
| |
my %postlinked; |
| |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
| |
foreach my $item (@{$types}) { |
| |
undef(%postlinked); |
| |
$datatable .= '<fieldset style="display: inline-block;">'. |
| |
'<legend>'.$usertypes->{$item}.'</legend>'; |
| |
if (ref($postlink{$item}) eq 'ARRAY') { |
| |
map { $postlinked{$_} = 1; } (@{$postlink{$item}}); |
| |
} |
| |
foreach my $field ('email','username') { |
| |
my $checked; |
| |
if ($postlinked{$field}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="passwords_postlink_'.$item.'" value="'. |
| |
$field.'"'.$checked.' />'.$field.'</label>'. |
| |
'<span> '; |
| |
} |
| |
$datatable .= '</fieldset>'; |
| |
} |
| |
} |
| |
if (ref($postlink{'default'}) eq 'ARRAY') { |
| |
map { $postlinked{$_} = 1; } (@{$postlink{'default'}}); |
| |
} |
| |
$datatable .= '<fieldset style="display: inline-block;">'. |
| |
'<legend>'.$othertitle.'</legend>'; |
| |
foreach my $field ('email','username') { |
| |
my $checked; |
| |
if ($postlinked{$field}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="passwords_postlink_default" value="'. |
| |
$field.'"'.$checked.' />'.$field.'</label>'. |
| |
'<span> '; |
| |
} |
| |
$datatable .= '</fieldset></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'emailsrc'}.'</td>'. |
| |
'<td class="LC_left_item">'; |
| |
foreach my $type ('permanent','critical','notify') { |
| |
my $checkedemail; |
| |
if ($emailsrc{$type}) { |
| |
$checkedemail = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="passwords_emailsrc" value="'. |
| |
$type.'"'.$checkedemail.' />'.$titles{$type}.'</label>'. |
| |
'<span> '; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
my $switchserver = &check_switchserver($dom,$confname); |
| |
my ($showstd,$noshowstd); |
| |
if ($nostdtext) { |
| |
$noshowstd = ' checked="checked"'; |
| |
} else { |
| |
$showstd = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'customtext'}.'</td>'. |
| |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| |
&mt('Retain standard text:'). |
| |
'<label><input type="radio" name="passwords_stdtext" value="1"'.$showstd.' />'. |
| |
&mt('Yes').'</label>'.' '. |
| |
'<label><input type="radio" name="passwords_stdtext" value="0"'.$noshowstd.' />'. |
| |
&mt('No').'</label></span><br />'. |
| |
'<span class="LC_fontsize_small">'. |
| |
&mt('(If you use the same account ... reset a password from this page.)').'</span><br /><br />'. |
| |
&mt('Include custom text:'); |
| |
if ($customurl) { |
| |
my $link = &Apache::loncommon::modal_link($customurl,&mt('custom text'),600,500, |
| |
undef,undef,undef,undef,'background-color:#ffffff'); |
| |
$datatable .= '<span class="LC_nobreak"> '.$link. |
| |
'<label><input type="checkbox" name="passwords_custom_del"'. |
| |
' value="1" />'.&mt('Delete?').'</label></span>'. |
| |
' <span class="LC_nobreak"> '.&mt('Replace:').'</span>'; |
| |
} |
| |
if ($switchserver) { |
| |
$datatable .= '<span class="LC_nobreak"> '.&mt('Upload to library server: [_1]',$switchserver).'</span>'; |
| |
} else { |
| |
$datatable .='<span class="LC_nobreak"> '. |
| |
'<input type="file" name="passwords_customfile" /></span>'; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
} elsif ($position eq 'middle') { |
| |
my %domconf = &Apache::lonnet::get_dom('configuration',['defaults'],$dom); |
| |
my @items = ('intauth_cost','intauth_check','intauth_switch'); |
| |
my %defaults; |
| |
if (ref($domconf{'defaults'}) eq 'HASH') { |
| |
%defaults = %{$domconf{'defaults'}}; |
| |
if ($defaults{'intauth_cost'} !~ /^\d+$/) { |
| |
$defaults{'intauth_cost'} = 10; |
| |
} |
| |
if ($defaults{'intauth_check'} !~ /^(0|1|2)$/) { |
| |
$defaults{'intauth_check'} = 0; |
| |
} |
| |
if ($defaults{'intauth_switch'} !~ /^(0|1|2)$/) { |
| |
$defaults{'intauth_switch'} = 0; |
| |
} |
| |
} else { |
| |
%defaults = ( |
| |
'intauth_cost' => 10, |
| |
'intauth_check' => 0, |
| |
'intauth_switch' => 0, |
| |
); |
| |
} |
| |
foreach my $item (@items) { |
| |
if ($itemcount%2) { |
| |
$css_class = ''; |
| |
} else { |
| |
$css_class = ' class="LC_odd_row" '; |
| |
} |
| |
$datatable .= '<tr'.$css_class.'>'. |
| |
'<td><span class="LC_nobreak">'.$titles{$item}. |
| |
'</span></td><td class="LC_left_item" colspan="3">'; |
| |
if ($item eq 'intauth_switch') { |
| |
my @options = (0,1,2); |
| |
my %optiondesc = &Apache::lonlocal::texthash ( |
| |
0 => 'No', |
| |
1 => 'Yes', |
| |
2 => 'Yes, and copy existing passwd file to passwd.bak file', |
| |
); |
| |
$datatable .= '<table width="100%">'; |
| |
foreach my $option (@options) { |
| |
my $checked = ' '; |
| |
if ($defaults{$item} eq $option) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<tr><td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<label><input type="radio" name="'.$item. |
| |
'" value="'.$option.'"'.$checked.' />'. |
| |
$optiondesc{$option}.'</label></span></td></tr>'; |
| |
} |
| |
$datatable .= '</table>'; |
| |
} elsif ($item eq 'intauth_check') { |
| |
my @options = (0,1,2); |
| |
my %optiondesc = &Apache::lonlocal::texthash ( |
| |
0 => 'No', |
| |
1 => 'Yes, allow login then update passwd file using default cost (if higher)', |
| |
2 => 'Yes, disallow login if stored cost is less than domain default', |
| |
); |
| |
$datatable .= '<table width="100%">'; |
| |
foreach my $option (@options) { |
| |
my $checked = ' '; |
| |
my $onclick; |
| |
if ($defaults{$item} eq $option) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
if ($option == 2) { |
| |
$onclick = ' onclick="javascript:warnIntAuth(this);"'; |
| |
} |
| |
$datatable .= '<tr><td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<label><input type="radio" name="'.$item. |
| |
'" value="'.$option.'"'.$checked.$onclick.' />'. |
| |
$optiondesc{$option}.'</label></span></td></tr>'; |
| |
} |
| |
$datatable .= '</table>'; |
| |
} else { |
| |
$datatable .= '<input type="text" name="'.$item.'" value="'. |
| |
$defaults{$item}.'" size="3" onblur="javascript:warnIntAuth(this);" />'; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
$itemcount ++; |
| |
} |
| |
} elsif ($position eq 'lower') { |
| |
my ($min,$max,%chars,$expire,$numsaved); |
| |
$min = $Apache::lonnet::passwdmin; |
| |
if (ref($settings) eq 'HASH') { |
| |
if ($settings->{min}) { |
| |
$min = $settings->{min}; |
| |
} |
| |
if ($settings->{max}) { |
| |
$max = $settings->{max}; |
| |
} |
| |
if (ref($settings->{chars}) eq 'ARRAY') { |
| |
map { $chars{$_} = 1; } (@{$settings->{chars}}); |
| |
} |
| |
if ($settings->{expire}) { |
| |
$expire = $settings->{expire}; |
| |
} |
| |
if ($settings->{numsaved}) { |
| |
$numsaved = $settings->{numsaved}; |
| |
} |
| |
} |
| |
my %rulenames = &Apache::lonlocal::texthash( |
| |
uc => 'At least one upper case letter', |
| |
lc => 'At least one lower case letter', |
| |
num => 'At least one number', |
| |
spec => 'At least one non-alphanumeric', |
| |
); |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'min'}.'</td>'. |
| |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<input type="text" name="passwords_min" value="'.$min.'" size="3" '. |
| |
'onblur="javascript:warnIntPass(this);" />'. |
| |
'<span class="LC_fontsize_small"> '.&mt('(Enter an integer: 7 or larger)').'</span>'. |
| |
'</span></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'max'}.'</td>'. |
| |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<input type="text" name="passwords_max" value="'.$max.'" size="3" '. |
| |
'onblur="javascript:warnIntPass(this);" />'. |
| |
'<span class="LC_fontsize_small"> '.&mt('(Leave blank for no maximum)').'</span>'. |
| |
'</span></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'chars'}.'<br />'. |
| |
'<span class="LC_nobreak LC_fontsize_small">'.&mt('(Leave unchecked if not required)'). |
| |
'</span></td>'; |
| |
my $numinrow = 2; |
| |
my @possrules = ('uc','lc','num','spec'); |
| |
$datatable .= '<td class="LC_left_item"><table>'; |
| |
for (my $i=0; $i<@possrules; $i++) { |
| |
my ($rem,$checked); |
| |
if ($chars{$possrules[$i]}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$rem = $i%($numinrow); |
| |
if ($rem == 0) { |
| |
if ($i > 0) { |
| |
$datatable .= '</tr>'; |
| |
} |
| |
$datatable .= '<tr>'; |
| |
} |
| |
$datatable .= '<td><span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="passwords_chars" value="'.$possrules[$i].'"'.$checked.' />'. |
| |
$rulenames{$possrules[$i]}.'</label></span></td>'; |
| |
} |
| |
my $rem = @possrules%($numinrow); |
| |
my $colsleft = $numinrow - $rem; |
| |
if ($colsleft > 1 ) { |
| |
$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'. |
| |
' </td>'; |
| |
} elsif ($colsleft == 1) { |
| |
$datatable .= '<td class="LC_left_item"> </td>'; |
| |
} |
| |
$datatable .='</table></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'expire'}.'</td>'. |
| |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<input type="text" name="passwords_expire" value="'.$expire.'" size="4" '. |
| |
'onblur="javascript:warnIntPass(this);" />'. |
| |
'<span class="LC_fontsize_small"> '.&mt('(Leave blank for no expiration)').'</span>'. |
| |
'</span></td></tr>'; |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'numsaved'}.'</td>'. |
| |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| |
'<input type="text" name="passwords_numsaved" value="'.$numsaved.'" size="3" '. |
| |
'onblur="javascript:warnIntPass(this);" />'. |
| |
'<span class="LC_fontsize_small"> '.&mt('(Leave blank to not save previous passwords)').'</span>'. |
| |
'</span></td></tr>'; |
| |
} else { |
| |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| |
my %ownerchg = ( |
| |
by => {}, |
| |
for => {}, |
| |
); |
| |
my %ownertitles = &Apache::lonlocal::texthash ( |
| |
by => 'Course owner status(es) allowed', |
| |
for => 'Student status(es) allowed', |
| |
); |
| |
if (ref($settings) eq 'HASH') { |
| |
if (ref($settings->{crsownerchg}) eq 'HASH') { |
| |
if (ref($settings->{crsownerchg}{'by'}) eq 'ARRAY') { |
| |
map { $ownerchg{by}{$_} = 1; } (@{$settings->{crsownerchg}{'by'}}); |
| |
} |
| |
if (ref($settings->{crsownerchg}{'for'}) eq 'ARRAY') { |
| |
map { $ownerchg{for}{$_} = 1; } (@{$settings->{crsownerchg}{'for'}}); |
| |
} |
| |
} |
| |
} |
| |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| |
$datatable .= '<tr '.$css_class.'>'. |
| |
'<td>'. |
| |
&mt('Requirements').'<ul>'. |
| |
'<li>'.&mt("Course 'type' is not a Community or Placement Test").'</li>'. |
| |
'<li>'.&mt('User is Course Coordinator and also course owner').'</li>'. |
| |
'<li>'.&mt("Student's only active roles are student role(s) in course(s) owned by this user").'</li>'. |
| |
'<li>'.&mt('User, course, and student share same domain').'</li>'. |
| |
'</ul>'. |
| |
'</td>'. |
| |
'<td class="LC_left_item">'; |
| |
foreach my $item ('by','for') { |
| |
$datatable .= '<fieldset style="display: inline-block;">'. |
| |
'<legend>'.$ownertitles{$item}.'</legend>'; |
| |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
| |
foreach my $type (@{$types}) { |
| |
my $checked; |
| |
if ($ownerchg{$item}{$type}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label>'. |
| |
'<input type="checkbox" name="passwords_crsowner_'.$item.'" value="'. |
| |
$type.'"'.$checked.' />'.$usertypes->{$type}.'</label>'. |
| |
'</span> '; |
| |
} |
| |
} |
| |
my $checked; |
| |
if ($ownerchg{$item}{'default'}) { |
| |
$checked = ' checked="checked"'; |
| |
} |
| |
$datatable .= '<span class="LC_nobreak"><label><input type="checkbox" '. |
| |
'name="passwords_crsowner_'.$item.'" value="default"'.$checked.' />'. |
| |
$othertitle.'</label></span></fieldset>'; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
} |
| |
return $datatable; |
| |
} |
| |
|
| sub print_usersessions { |
sub print_usersessions { |
| my ($position,$dom,$settings,$rowtotal) = @_; |
my ($position,$dom,$settings,$rowtotal) = @_; |
| my ($css_class,$datatable,$itemcount,%checked,%choices); |
my ($css_class,$datatable,$itemcount,%checked,%choices); |
|
Line 5783 sub print_usersessions {
|
Line 7177 sub print_usersessions {
|
| if ($position eq 'top') { |
if ($position eq 'top') { |
| if (keys(%serverhomes) > 1) { |
if (keys(%serverhomes) > 1) { |
| my %spareid = ¤t_offloads_to($dom,$settings,\%servers); |
my %spareid = ¤t_offloads_to($dom,$settings,\%servers); |
| my $curroffloadnow; |
my ($curroffloadnow,$curroffloadoth); |
| if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
| if (ref($settings->{'offloadnow'}) eq 'HASH') { |
if (ref($settings->{'offloadnow'}) eq 'HASH') { |
| $curroffloadnow = $settings->{'offloadnow'}; |
$curroffloadnow = $settings->{'offloadnow'}; |
| } |
} |
| |
if (ref($settings->{'offloadoth'}) eq 'HASH') { |
| |
$curroffloadoth = $settings->{'offloadoth'}; |
| |
} |
| } |
} |
| $datatable .= &spares_row($dom,\%servers,\%spareid,\%serverhomes,\%altids,$curroffloadnow,$rowtotal); |
my $other_insts = scalar(keys(%by_location)); |
| |
$datatable .= &spares_row($dom,\%servers,\%spareid,\%serverhomes,\%altids, |
| |
$other_insts,$curroffloadnow,$curroffloadoth,$rowtotal); |
| } else { |
} else { |
| $datatable .= '<tr'.$css_class.'><td colspan="2">'. |
$datatable .= '<tr'.$css_class.'><td colspan="2">'. |
| &mt('Nothing to set here, as the cluster to which this domain belongs only contains one server.'). |
&mt('Nothing to set here, as the cluster to which this domain belongs only contains one server.'). |
|
Line 6233 sub current_offloads_to {
|
Line 7632 sub current_offloads_to {
|
| } |
} |
| |
|
| sub spares_row { |
sub spares_row { |
| my ($dom,$servers,$spareid,$serverhomes,$altids,$curroffloadnow,$rowtotal) = @_; |
my ($dom,$servers,$spareid,$serverhomes,$altids,$other_insts, |
| |
$curroffloadnow,$curroffloadoth,$rowtotal) = @_; |
| my $css_class; |
my $css_class; |
| my $numinrow = 4; |
my $numinrow = 4; |
| my $itemcount = 1; |
my $itemcount = 1; |
|
Line 6253 sub spares_row {
|
Line 7653 sub spares_row {
|
| } |
} |
| } |
} |
| next unless (ref($spareid->{$server}) eq 'HASH'); |
next unless (ref($spareid->{$server}) eq 'HASH'); |
| my $checkednow; |
my ($checkednow,$checkedoth); |
| if (ref($curroffloadnow) eq 'HASH') { |
if (ref($curroffloadnow) eq 'HASH') { |
| if ($curroffloadnow->{$server}) { |
if ($curroffloadnow->{$server}) { |
| $checkednow = ' checked="checked"'; |
$checkednow = ' checked="checked"'; |
| } |
} |
| } |
} |
| |
if (ref($curroffloadoth) eq 'HASH') { |
| |
if ($curroffloadoth->{$server}) { |
| |
$checkedoth = ' checked="checked"'; |
| |
} |
| |
} |
| $css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
| $datatable .= '<tr'.$css_class.'> |
$datatable .= '<tr'.$css_class.'> |
| <td rowspan="2"> |
<td rowspan="2"> |
|
Line 6267 sub spares_row {
|
Line 7672 sub spares_row {
|
| ,'<b>'.$server.'</b>').'</span><br />'. |
,'<b>'.$server.'</b>').'</span><br />'. |
| '<span class="LC_nobreak">'."\n". |
'<span class="LC_nobreak">'."\n". |
| '<label><input type="checkbox" name="offloadnow" value="'.$server.'"'.$checkednow.' />'. |
'<label><input type="checkbox" name="offloadnow" value="'.$server.'"'.$checkednow.' />'. |
| ' '.&mt('Switch active users on next access').'</label></span>'. |
' '.&mt('Switch any active user on next access').'</label></span>'. |
| |
"\n"; |
| |
if ($other_insts) { |
| |
$datatable .= '<br />'. |
| |
'<span class="LC_nobreak">'."\n". |
| |
'<label><input type="checkbox" name="offloadoth" value="'.$server.'"'.$checkedoth.' />'. |
| |
' '.&mt('Switch other institutions on next access').'</label></span>'. |
| "\n"; |
"\n"; |
| |
} |
| my (%current,%canselect); |
my (%current,%canselect); |
| my @choices = |
my @choices = |
| &possible_newspares($server,$spareid->{$server},$serverhomes,$altids); |
&possible_newspares($server,$spareid->{$server},$serverhomes,$altids); |
|
Line 7528 sub captcha_choice {
|
Line 8940 sub captcha_choice {
|
| $vertext,$currver); |
$vertext,$currver); |
| my %lt = &captcha_phrases(); |
my %lt = &captcha_phrases(); |
| $keyentry = 'hidden'; |
$keyentry = 'hidden'; |
| |
my $colspan=2; |
| if ($context eq 'cancreate') { |
if ($context eq 'cancreate') { |
| $rowname = &mt('CAPTCHA validation'); |
$rowname = &mt('CAPTCHA validation'); |
| } elsif ($context eq 'login') { |
} elsif ($context eq 'login') { |
| $rowname = &mt('"Contact helpdesk" CAPTCHA validation'); |
$rowname = &mt('"Contact helpdesk" CAPTCHA validation'); |
| |
} elsif ($context eq 'passwords') { |
| |
$rowname = &mt('"Forgot Password" CAPTCHA validation'); |
| |
$colspan=1; |
| } |
} |
| if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
| if ($settings->{'captcha'}) { |
if ($settings->{'captcha'}) { |
|
Line 7571 sub captcha_choice {
|
Line 8987 sub captcha_choice {
|
| $css_class .= ' style="'.$rowstyle.'"'; |
$css_class .= ' style="'.$rowstyle.'"'; |
| } |
} |
| my $output = '<tr'.$css_class.'>'. |
my $output = '<tr'.$css_class.'>'. |
| '<td class="LC_left_item">'.$rowname.'</td><td class="LC_left_item" colspan="2">'."\n". |
'<td class="LC_left_item">'.$rowname.'</td><td class="LC_left_item" colspan="'.$colspan.'">'."\n". |
| '<table><tr><td>'."\n"; |
'<table><tr><td>'."\n"; |
| foreach my $option ('original','recaptcha','notused') { |
foreach my $option ('original','recaptcha','notused') { |
| $output .= '<span class="LC_nobreak"><label><input type="radio" name="'.$context.'_captcha" value="'. |
$output .= '<span class="LC_nobreak"><label><input type="radio" name="'.$context.'_captcha" value="'. |
|
Line 7810 sub print_defaults {
|
Line 9226 sub print_defaults {
|
| $datatable .= '</td></tr>'; |
$datatable .= '</td></tr>'; |
| $rownum ++; |
$rownum ++; |
| } |
} |
| } elsif ($position eq 'middle') { |
|
| my @items = ('intauth_cost','intauth_check','intauth_switch'); |
|
| my %defaults; |
|
| if (ref($settings) eq 'HASH') { |
|
| %defaults = %{$settings}; |
|
| if ($defaults{'intauth_cost'} !~ /^\d+$/) { |
|
| $defaults{'intauth_cost'} = 10; |
|
| } |
|
| if ($defaults{'intauth_check'} !~ /^(0|1|2)$/) { |
|
| $defaults{'intauth_check'} = 0; |
|
| } |
|
| if ($defaults{'intauth_switch'} !~ /^(0|1|2)$/) { |
|
| $defaults{'intauth_switch'} = 0; |
|
| } |
|
| } else { |
|
| %defaults = ( |
|
| 'intauth_cost' => 10, |
|
| 'intauth_check' => 0, |
|
| 'intauth_switch' => 0, |
|
| ); |
|
| } |
|
| foreach my $item (@items) { |
|
| if ($rownum%2) { |
|
| $css_class = ''; |
|
| } else { |
|
| $css_class = ' class="LC_odd_row" '; |
|
| } |
|
| $datatable .= '<tr'.$css_class.'>'. |
|
| '<td><span class="LC_nobreak">'.$titles->{$item}. |
|
| '</span></td><td class="LC_left_item" colspan="3">'; |
|
| if ($item eq 'intauth_switch') { |
|
| my @options = (0,1,2); |
|
| my %optiondesc = &Apache::lonlocal::texthash ( |
|
| 0 => 'No', |
|
| 1 => 'Yes', |
|
| 2 => 'Yes, and copy existing passwd file to passwd.bak file', |
|
| ); |
|
| $datatable .= '<table width="100%">'; |
|
| foreach my $option (@options) { |
|
| my $checked = ' '; |
|
| if ($defaults{$item} eq $option) { |
|
| $checked = ' checked="checked"'; |
|
| } |
|
| $datatable .= '<tr><td class="LC_left_item"><span class="LC_nobreak">'. |
|
| '<label><input type="radio" name="'.$item. |
|
| '" value="'.$option.'"'.$checked.' />'. |
|
| $optiondesc{$option}.'</label></span></td></tr>'; |
|
| } |
|
| $datatable .= '</table>'; |
|
| } elsif ($item eq 'intauth_check') { |
|
| my @options = (0,1,2); |
|
| my %optiondesc = &Apache::lonlocal::texthash ( |
|
| 0 => 'No', |
|
| 1 => 'Yes, allow login then update passwd file using default cost (if higher)', |
|
| 2 => 'Yes, disallow login if stored cost is less than domain default', |
|
| ); |
|
| $datatable .= '<table width="100%">'; |
|
| foreach my $option (@options) { |
|
| my $checked = ' '; |
|
| my $onclick; |
|
| if ($defaults{$item} eq $option) { |
|
| $checked = ' checked="checked"'; |
|
| } |
|
| if ($option == 2) { |
|
| $onclick = ' onclick="javascript:warnIntAuth(this);"'; |
|
| } |
|
| $datatable .= '<tr><td class="LC_left_item"><span class="LC_nobreak">'. |
|
| '<label><input type="radio" name="'.$item. |
|
| '" value="'.$option.'"'.$checked.$onclick.' />'. |
|
| $optiondesc{$option}.'</label></span></td></tr>'; |
|
| } |
|
| $datatable .= '</table>'; |
|
| } else { |
|
| $datatable .= '<input type="text" name="'.$item.'" value="'. |
|
| $defaults{$item}.'" size="3" onblur="javascript:warnIntAuth(this);" />'; |
|
| } |
|
| $datatable .= '</td></tr>'; |
|
| $rownum ++; |
|
| } |
|
| } else { |
} else { |
| my %defaults; |
my %defaults; |
| if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
|
Line 8677 sub serverstatus_pages {
|
Line 10014 sub serverstatus_pages {
|
| |
|
| sub defaults_javascript { |
sub defaults_javascript { |
| my ($settings) = @_; |
my ($settings) = @_; |
| my $intauthcheck = &mt('Warning: disallowing login for an authenticated user if the stored cost is less than the default will require a password reset by/for the user.'); |
return unless (ref($settings) eq 'HASH'); |
| my $intauthcost = &mt('Warning: bcrypt encryption cost for internal authentication must be an integer.'); |
|
| &js_escape(\$intauthcheck); |
|
| &js_escape(\$intauthcost); |
|
| my $intauthjs = <<"ENDSCRIPT"; |
|
| |
|
| function warnIntAuth(field) { |
|
| if (field.name == 'intauth_check') { |
|
| if (field.value == '2') { |
|
| alert('$intauthcheck'); |
|
| } |
|
| } |
|
| if (field.name == 'intauth_cost') { |
|
| field.value.replace(/\s/g,''); |
|
| if (field.value != '') { |
|
| var regexdigit=/^\\d+\$/; |
|
| if (!regexdigit.test(field.value)) { |
|
| alert('$intauthcost'); |
|
| } |
|
| } |
|
| } |
|
| return; |
|
| } |
|
| |
|
| ENDSCRIPT |
|
| |
|
| if (ref($settings) ne 'HASH') { |
|
| return &Apache::lonhtmlcommon::scripttag($intauthjs); |
|
| } |
|
| if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) { |
if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) { |
| my $maxnum = scalar(@{$settings->{'inststatusorder'}}); |
my $maxnum = scalar(@{$settings->{'inststatusorder'}}); |
| if ($maxnum eq '') { |
if ($maxnum eq '') { |
|
Line 8759 $jstext
|
Line 10068 $jstext
|
| return; |
return; |
| } |
} |
| |
|
| $intauthjs |
|
| |
|
| // ]]> |
// ]]> |
| </script> |
</script> |
| |
|
| ENDSCRIPT |
ENDSCRIPT |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub passwords_javascript { |
| |
my %intalert = &Apache::lonlocal::texthash ( |
| |
authcheck => 'Warning: disallowing login for an authenticated user if the stored cost is less than the default will require a password reset by/for the user.', |
| |
authcost => 'Warning: bcrypt encryption cost for internal authentication must be an integer.', |
| |
passmin => 'Warning: minimum password length must be a positive integer greater than 6.', |
| |
passmax => 'Warning: maximum password length must be a positive integer (or blank).', |
| |
passexp => 'Warning: days before password expiration must be a positive integer (or blank).', |
| |
passnum => 'Warning: number of previous passwords to save must be a positive integer (or blank).', |
| |
); |
| |
&js_escape(\%intalert); |
| |
my $defmin = $Apache::lonnet::passwdmin; |
| |
my $intauthjs = <<"ENDSCRIPT"; |
| |
|
| |
function warnIntAuth(field) { |
| |
if (field.name == 'intauth_check') { |
| |
if (field.value == '2') { |
| |
alert('$intalert{authcheck}'); |
| |
} |
| |
} |
| |
if (field.name == 'intauth_cost') { |
| |
field.value.replace(/\s/g,''); |
| |
if (field.value != '') { |
| |
var regexdigit=/^\\d+\$/; |
| |
if (!regexdigit.test(field.value)) { |
| |
alert('$intalert{authcost}'); |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
function warnIntPass(field) { |
| |
field.value.replace(/^\s+/,''); |
| |
field.value.replace(/\s+\$/,''); |
| |
var regexdigit=/^\\d+\$/; |
| |
if (field.name == 'passwords_min') { |
| |
if (field.value == '') { |
| |
alert('$intalert{passmin}'); |
| |
field.value = '$defmin'; |
| |
} else { |
| |
if (!regexdigit.test(field.value)) { |
| |
alert('$intalert{passmin}'); |
| |
field.value = '$defmin'; |
| |
} |
| |
var minval = parseInt(field.value,10); |
| |
if (minval < $defmin) { |
| |
alert('$intalert{passmin}'); |
| |
field.value = '$defmin'; |
| |
} |
| |
} |
| } else { |
} else { |
| return &Apache::lonhtmlcommon::scripttag($intauthjs); |
if (field.value == '0') { |
| |
field.value = ''; |
| |
} |
| |
if (field.value != '') { |
| |
if (field.name == 'passwords_expire') { |
| |
var regexpposnum=/^\\d+(|\\.\\d*)\$/; |
| |
if (!regexpposnum.test(field.value)) { |
| |
alert('$intalert{passexp}'); |
| |
field.value = ''; |
| |
} else { |
| |
var expval = parseFloat(field.value); |
| |
if (expval == 0) { |
| |
alert('$intalert{passexp}'); |
| |
field.value = ''; |
| |
} |
| |
} |
| |
} else { |
| |
if (!regexdigit.test(field.value)) { |
| |
if (field.name == 'passwords_max') { |
| |
alert('$intalert{passmax}'); |
| |
} else { |
| |
if (field.name == 'passwords_numsaved') { |
| |
alert('$intalert{passnum}'); |
| |
} |
| |
} |
| |
field.value = ''; |
| |
} |
| |
} |
| |
} |
| } |
} |
| |
return; |
| |
} |
| |
|
| |
ENDSCRIPT |
| |
return &Apache::lonhtmlcommon::scripttag($intauthjs); |
| } |
} |
| |
|
| sub coursecategories_javascript { |
sub coursecategories_javascript { |
|
Line 9013 sub build_category_rows {
|
Line 10407 sub build_category_rows {
|
| |
|
| sub modifiable_userdata_row { |
sub modifiable_userdata_row { |
| my ($context,$item,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref, |
my ($context,$item,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref, |
| $rowid,$customcss,$rowstyle) = @_; |
$rowid,$customcss,$rowstyle,$itemdesc) = @_; |
| my ($role,$rolename,$statustype); |
my ($role,$rolename,$statustype); |
| $role = $item; |
$role = $item; |
| if ($context eq 'cancreate') { |
if ($context eq 'cancreate') { |
|
Line 9036 sub modifiable_userdata_row {
|
Line 10430 sub modifiable_userdata_row {
|
| } |
} |
| } elsif ($context eq 'lti') { |
} elsif ($context eq 'lti') { |
| $rolename = &mt('Institutional data used (if available)'); |
$rolename = &mt('Institutional data used (if available)'); |
| |
} elsif ($context eq 'privacy') { |
| |
$rolename = $itemdesc; |
| } else { |
} else { |
| if ($role eq 'cr') { |
if ($role eq 'cr') { |
| $rolename = &mt('Custom role'); |
$rolename = &mt('Custom role'); |
|
Line 9085 sub modifiable_userdata_row {
|
Line 10481 sub modifiable_userdata_row {
|
| if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
| $hashref = $settings->{'instdata'}; |
$hashref = $settings->{'instdata'}; |
| } |
} |
| |
} elsif ($context eq 'privacy') { |
| |
my ($key,$inner) = split(/_/,$role); |
| |
if (ref($settings) eq 'HASH') { |
| |
if (ref($settings->{$key}) eq 'HASH') { |
| |
$hashref = $settings->{$key}->{$inner}; |
| |
} |
| |
} |
| } elsif (ref($settings->{$context}) eq 'HASH') { |
} elsif (ref($settings->{$context}) eq 'HASH') { |
| if (ref($settings->{$context}->{$role}) eq 'HASH') { |
if (ref($settings->{$context}->{$role}) eq 'HASH') { |
| $hashref = $settings->{'lti_instdata'}; |
$hashref = $settings->{'lti_instdata'}; |
|
Line 9122 sub modifiable_userdata_row {
|
Line 10525 sub modifiable_userdata_row {
|
| my $check = ' '; |
my $check = ' '; |
| unless ($role eq 'emailusername') { |
unless ($role eq 'emailusername') { |
| if (exists($checks{$fields[$i]})) { |
if (exists($checks{$fields[$i]})) { |
| $check = $checks{$fields[$i]} |
$check = $checks{$fields[$i]}; |
| |
} elsif ($context eq 'privacy') { |
| |
if ($role =~ /^priv_(domain|course)$/) { |
| |
if (ref($settings) ne 'HASH') { |
| |
$check = ' checked="checked" '; |
| |
} |
| |
} elsif ($role =~ /^priv_(author|community)$/) { |
| |
if (ref($settings) ne 'HASH') { |
| |
unless ($fields[$i] eq 'id') { |
| |
$check = ' checked="checked" '; |
| |
} |
| |
} |
| |
} elsif ($role =~ /^(unpriv|othdom)_/) { |
| |
if (ref($settings) ne 'HASH') { |
| |
if (($fields[$i] eq 'lastname') || ($fields[$i] eq 'firstname')) { |
| |
$check = ' checked="checked" '; |
| |
} |
| |
} |
| |
} |
| } elsif ($context ne 'lti') { |
} elsif ($context ne 'lti') { |
| if ($role eq 'st') { |
if ($role eq 'st') { |
| if (ref($settings) ne 'HASH') { |
if (ref($settings) ne 'HASH') { |
|
Line 9151 sub modifiable_userdata_row {
|
Line 10572 sub modifiable_userdata_row {
|
| } else { |
} else { |
| if ($context eq 'lti') { |
if ($context eq 'lti') { |
| $prefix = 'lti'; |
$prefix = 'lti'; |
| |
} elsif ($context eq 'privacy') { |
| |
$prefix = 'privacy'; |
| } |
} |
| $output .= '<label>'. |
$output .= '<label>'. |
| '<input type="checkbox" name="'.$prefix.'_'.$role.'" '. |
'<input type="checkbox" name="'.$prefix.'_'.$role.'" '. |
|
Line 10238 sub check_configuser {
|
Line 11661 sub check_configuser {
|
| my ($configuserok,%currroles); |
my ($configuserok,%currroles); |
| if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
| srand( time() ^ ($$ + ($$ << 15)) ); # Seed rand. |
srand( time() ^ ($$ + ($$ << 15)) ); # Seed rand. |
| my $configpass = &LONCAPA::Enrollment::create_password(); |
my $configpass = &LONCAPA::Enrollment::create_password($dom); |
| $configuserok = |
$configuserok = |
| &Apache::lonnet::modifyuser($dom,$confname,'','internal', |
&Apache::lonnet::modifyuser($dom,$confname,'','internal', |
| $configpass,'','','','','',undef,$servadm); |
$configpass,'','','','','',undef,$servadm); |
|
Line 11761 sub modify_ltitools {
|
Line 13184 sub modify_ltitools {
|
| } |
} |
| } |
} |
| if (!$numconfig) { |
if (!$numconfig) { |
| $resulttext .= &mt('None'); |
$resulttext .= ' '.&mt('None'); |
| } |
} |
| $resulttext .= '</li>'; |
$resulttext .= '</li>'; |
| foreach my $item ('passback','roster') { |
foreach my $item ('passback','roster') { |
|
Line 11940 sub get_ltitools_id {
|
Line 13363 sub get_ltitools_id {
|
| return ($id,$error); |
return ($id,$error); |
| } |
} |
| |
|
| |
sub modify_proctoring { |
| |
my ($r,$dom,$action,$lastactref,%domconfig) = @_; |
| |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
| |
my (@allpos,%changes,%confhash,%encconfhash,$errors,$resulttext,%imgdeletions); |
| |
my $confname = $dom.'-domainconfig'; |
| |
my $servadm = $r->dir_config('lonAdmEMail'); |
| |
my ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm); |
| |
my %providernames = &proctoring_providernames(); |
| |
my $maxnum = scalar(keys(%providernames)); |
| |
|
| |
my (%requserfields,%optuserfields,%defaults,%extended,%crsconf,@courseroles,@ltiroles); |
| |
my ($requref,$opturef,$defref,$extref,$crsref,$rolesref,$ltiref) = &proctoring_data(); |
| |
if (ref($requref) eq 'HASH') { |
| |
%requserfields = %{$requref}; |
| |
} |
| |
if (ref($opturef) eq 'HASH') { |
| |
%optuserfields = %{$opturef}; |
| |
} |
| |
if (ref($defref) eq 'HASH') { |
| |
%defaults = %{$defref}; |
| |
} |
| |
if (ref($extref) eq 'HASH') { |
| |
%extended = %{$extref}; |
| |
} |
| |
if (ref($crsref) eq 'HASH') { |
| |
%crsconf = %{$crsref}; |
| |
} |
| |
if (ref($rolesref) eq 'ARRAY') { |
| |
@courseroles = @{$rolesref}; |
| |
} |
| |
if (ref($ltiref) eq 'ARRAY') { |
| |
@ltiroles = @{$ltiref}; |
| |
} |
| |
|
| |
if (ref($domconfig{$action}) eq 'HASH') { |
| |
my @todeleteimages = &Apache::loncommon::get_env_multiple('form.proctoring_image_del'); |
| |
if (@todeleteimages) { |
| |
map { $imgdeletions{$_} = 1; } @todeleteimages; |
| |
} |
| |
} |
| |
my %customadds; |
| |
my @newcustom = &Apache::loncommon::get_env_multiple('form.proctoring_customadd'); |
| |
if (@newcustom) { |
| |
map { $customadds{$_} = 1; } @newcustom; |
| |
} |
| |
foreach my $provider (sort(keys(%providernames))) { |
| |
$confhash{$provider} = {}; |
| |
my $pos = $env{'form.proctoring_pos_'.$provider}; |
| |
$pos =~ s/\D+//g; |
| |
$allpos[$pos] = $provider; |
| |
my (%current,%currentenc); |
| |
my $showroles = 0; |
| |
if (ref($domconfig{$action}) eq 'HASH') { |
| |
if (ref($domconfig{$action}{$provider}) eq 'HASH') { |
| |
%current = %{$domconfig{$action}{$provider}}; |
| |
foreach my $item ('key','secret') { |
| |
$currentenc{$item} = $current{$item}; |
| |
delete($current{$item}); |
| |
} |
| |
} |
| |
} |
| |
if ($env{'form.proctoring_available_'.$provider}) { |
| |
$confhash{$provider}{'available'} = 1; |
| |
unless ($current{'available'}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} else { |
| |
%{$confhash{$provider}} = %current; |
| |
%{$encconfhash{$provider}} = %currentenc; |
| |
$confhash{$provider}{'available'} = 0; |
| |
if ($current{'available'}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
if ($confhash{$provider}{'available'}) { |
| |
foreach my $field ('lifetime','version','sigmethod','url','key','secret') { |
| |
my $possval = $env{'form.proctoring_'.$provider.'_'.$field}; |
| |
if ($field eq 'lifetime') { |
| |
if ($possval =~ /^\d+$/) { |
| |
$confhash{$provider}{$field} = $possval; |
| |
} |
| |
} elsif ($field eq 'version') { |
| |
if ($possval =~ /^\d+\.\d+$/) { |
| |
$confhash{$provider}{$field} = $possval; |
| |
} |
| |
} elsif ($field eq 'sigmethod') { |
| |
if ($possval =~ /^\QHMAC-SHA\E(1|256)$/) { |
| |
$confhash{$provider}{$field} = $possval; |
| |
} |
| |
} elsif ($field eq 'url') { |
| |
$confhash{$provider}{$field} = $possval; |
| |
} elsif (($field eq 'key') || ($field eq 'secret')) { |
| |
$encconfhash{$provider}{$field} = $possval; |
| |
unless ($currentenc{$field} eq $possval) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
unless (($field eq 'key') || ($field eq 'secret')) { |
| |
unless ($current{$field} eq $confhash{$provider}{$field}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
if ($imgdeletions{$provider}) { |
| |
$changes{$provider} = 1; |
| |
} elsif ($env{'form.proctoring_image_'.$provider.'.filename'} ne '') { |
| |
my ($imageurl,$error) = |
| |
&process_proctoring_image($r,$dom,$confname,'proctoring_image_'.$provider,$provider, |
| |
$configuserok,$switchserver,$author_ok); |
| |
if ($imageurl) { |
| |
$confhash{$provider}{'image'} = $imageurl; |
| |
$changes{$provider} = 1; |
| |
} |
| |
if ($error) { |
| |
&Apache::lonnet::logthis($error); |
| |
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
| |
} |
| |
} elsif (exists($current{'image'})) { |
| |
$confhash{$provider}{'image'} = $current{'image'}; |
| |
} |
| |
if (ref($requserfields{$provider}) eq 'ARRAY') { |
| |
if (@{$requserfields{$provider}} > 0) { |
| |
if (grep(/^user$/,@{$requserfields{$provider}})) { |
| |
if ($env{'form.proctoring_userincdom_'.$provider}) { |
| |
$confhash{$provider}{'incdom'} = 1; |
| |
} |
| |
unless ($current{'incdom'} eq $confhash{$provider}{'incdom'}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
if (grep(/^roles$/,@{$requserfields{$provider}})) { |
| |
$showroles = 1; |
| |
} |
| |
} |
| |
} |
| |
$confhash{$provider}{'fields'} = []; |
| |
if (ref($optuserfields{$provider}) eq 'ARRAY') { |
| |
if (@{$optuserfields{$provider}} > 0) { |
| |
my @optfields = &Apache::loncommon::get_env_multiple('form.proctoring_optional_'.$provider); |
| |
foreach my $field (@{$optuserfields{$provider}}) { |
| |
if (grep(/^\Q$field\E$/,@optfields)) { |
| |
push(@{$confhash{$provider}{'fields'}},$field); |
| |
} |
| |
} |
| |
} |
| |
if (ref($current{'fields'}) eq 'ARRAY') { |
| |
unless ($changes{$provider}) { |
| |
my @new = sort(@{$confhash{$provider}{'fields'}}); |
| |
my @old = sort(@{$current{'fields'}}); |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@new,\@old); |
| |
if (@diffs) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} elsif (@{$confhash{$provider}{'fields'}}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
if (ref($defaults{$provider}) eq 'ARRAY') { |
| |
if (@{$defaults{$provider}} > 0) { |
| |
my %options; |
| |
if (ref($extended{$provider}) eq 'HASH') { |
| |
%options = %{$extended{$provider}}; |
| |
} |
| |
my @checked = &Apache::loncommon::get_env_multiple('form.proctoring_defaults_'.$provider); |
| |
foreach my $field (@{$defaults{$provider}}) { |
| |
if ((exists($options{$field})) && (ref($options{$field}) eq 'ARRAY')) { |
| |
my $poss = $env{'form.proctoring_defaults_'.$field.'_'.$provider}; |
| |
if (grep(/^\Q$poss\E$/,@{$options{$field}})) { |
| |
push(@{$confhash{$provider}{'defaults'}},$poss); |
| |
} |
| |
} elsif ((exists($options{$field})) && (ref($options{$field}) eq 'HASH')) { |
| |
foreach my $inner (keys(%{$options{$field}})) { |
| |
if (ref($options{$field}{$inner}) eq 'ARRAY') { |
| |
my $poss = $env{'form.proctoring_'.$inner.'_'.$provider}; |
| |
if (grep(/^\Q$poss\E$/,@{$options{$field}{$inner}})) { |
| |
$confhash{$provider}{'defaults'}{$inner} = $poss; |
| |
} |
| |
} else { |
| |
$confhash{$provider}{'defaults'}{$inner} = $env{'form.proctoring_'.$inner.'_'.$provider}; |
| |
} |
| |
} |
| |
} else { |
| |
if (grep(/^\Q$field\E$/,@checked)) { |
| |
push(@{$confhash{$provider}{'defaults'}},$field); |
| |
} |
| |
} |
| |
} |
| |
if (ref($confhash{$provider}{'defaults'}) eq 'ARRAY') { |
| |
if (ref($current{'defaults'}) eq 'ARRAY') { |
| |
unless ($changes{$provider}) { |
| |
my @new = sort(@{$confhash{$provider}{'defaults'}}); |
| |
my @old = sort(@{$current{'defaults'}}); |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@new,\@old); |
| |
if (@diffs) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} elsif (ref($current{'defaults'}) eq 'ARRAY') { |
| |
if (@{$current{'defaults'}}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} elsif (ref($confhash{$provider}{'defaults'}) eq 'HASH') { |
| |
if (ref($current{'defaults'}) eq 'HASH') { |
| |
unless ($changes{$provider}) { |
| |
foreach my $key (keys(%{$confhash{$provider}{'defaults'}})) { |
| |
unless ($confhash{$provider}{'defaults'}{$key} eq $current{'defaults'}{$key}) { |
| |
$changes{$provider} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
unless ($changes{$provider}) { |
| |
foreach my $key (keys(%{$current{'defaults'}})) { |
| |
unless ($current{'defaults'}{$key} eq $confhash{$provider}{'defaults'}{$key}) { |
| |
$changes{$provider} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} elsif (keys(%{$confhash{$provider}{'defaults'}})) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (ref($crsconf{$provider}) eq 'ARRAY') { |
| |
if (@{$crsconf{$provider}} > 0) { |
| |
$confhash{$provider}{'crsconf'} = []; |
| |
my @checked = &Apache::loncommon::get_env_multiple('form.proctoring_crsconf_'.$provider); |
| |
foreach my $crsfield (@{$crsconf{$provider}}) { |
| |
if (grep(/^\Q$crsfield\E$/,@checked)) { |
| |
push(@{$confhash{$provider}{'crsconf'}},$crsfield); |
| |
} |
| |
} |
| |
if (ref($current{'crsconf'}) eq 'ARRAY') { |
| |
unless ($changes{$provider}) { |
| |
my @new = sort(@{$confhash{$provider}{'crsconf'}}); |
| |
my @old = sort(@{$current{'crsconf'}}); |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@new,\@old); |
| |
if (@diffs) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} elsif (@{$confhash{$provider}{'crsconf'}}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
if ($showroles) { |
| |
$confhash{$provider}{'roles'} = {}; |
| |
foreach my $role (@courseroles) { |
| |
my $poss = $env{'form.proctoring_roles_'.$role.'_'.$provider}; |
| |
if (grep(/^\Q$poss\E$/,@ltiroles)) { |
| |
$confhash{$provider}{'roles'}{$role} = $poss; |
| |
} |
| |
} |
| |
unless ($changes{$provider}) { |
| |
if (ref($current{'roles'}) eq 'HASH') { |
| |
foreach my $role (keys(%{$current{'roles'}})) { |
| |
unless ($current{'roles'}{$role} eq $confhash{$provider}{'roles'}{$role}) { |
| |
$changes{$provider} = 1; |
| |
last |
| |
} |
| |
} |
| |
unless ($changes{$provider}) { |
| |
foreach my $role (keys(%{$confhash{$provider}{'roles'}})) { |
| |
unless ($confhash{$provider}{'roles'}{$role} eq $current{'roles'}{$role}) { |
| |
$changes{$provider} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} elsif (keys(%{$confhash{$provider}{'roles'}})) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
if (ref($current{'custom'}) eq 'HASH') { |
| |
my @customdels = &Apache::loncommon::get_env_multiple('form.proctoring_customdel_'.$provider); |
| |
foreach my $key (keys(%{$current{'custom'}})) { |
| |
if (grep(/^\Q$key\E$/,@customdels)) { |
| |
$changes{$provider} = 1; |
| |
} else { |
| |
$confhash{$provider}{'custom'}{$key} = $env{'form.proctoring_customval_'.$key.'_'.$provider}; |
| |
if ($confhash{$provider}{'custom'}{$key} ne $current{'custom'}{$key}) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($customadds{$provider}) { |
| |
my $name = $env{'form.proctoring_custom_name_'.$provider}; |
| |
$name =~ s/(`)/'/g; |
| |
$name =~ s/^\s+//; |
| |
$name =~ s/\s+$//; |
| |
my $value = $env{'form.proctoring_custom_value_'.$provider}; |
| |
$value =~ s/(`)/'/g; |
| |
$value =~ s/^\s+//; |
| |
$value =~ s/\s+$//; |
| |
if ($name ne '') { |
| |
$confhash{$provider}{'custom'}{$name} = $value; |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (@allpos > 0) { |
| |
my $idx = 0; |
| |
foreach my $provider (@allpos) { |
| |
if ($provider ne '') { |
| |
$confhash{$provider}{'order'} = $idx; |
| |
unless ($changes{$provider}) { |
| |
if (ref($domconfig{$action}) eq 'HASH') { |
| |
if (ref($domconfig{$action}{$provider}) eq 'HASH') { |
| |
if ($domconfig{$action}{$provider}{'order'} ne $idx) { |
| |
$changes{$provider} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$idx ++; |
| |
} |
| |
} |
| |
} |
| |
my %proc_hash = ( |
| |
$action => { %confhash } |
| |
); |
| |
my $putresult = &Apache::lonnet::put_dom('configuration',\%proc_hash, |
| |
$dom); |
| |
if ($putresult eq 'ok') { |
| |
my %proc_enchash = ( |
| |
$action => { %encconfhash } |
| |
); |
| |
&Apache::lonnet::put_dom('encconfig',\%proc_enchash,$dom); |
| |
if (keys(%changes) > 0) { |
| |
my $cachetime = 24*60*60; |
| |
my %procall = %confhash; |
| |
foreach my $provider (keys(%procall)) { |
| |
if (ref($encconfhash{$provider}) eq 'HASH') { |
| |
foreach my $key ('key','secret') { |
| |
$procall{$provider}{$key} = $encconfhash{$provider}{$key}; |
| |
} |
| |
} |
| |
} |
| |
&Apache::lonnet::do_cache_new('proctoring',$dom,\%procall,$cachetime); |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'proctoring'} = 1; |
| |
} |
| |
$resulttext = &mt('Configuration for Provider(s) with changes:').'<ul>'; |
| |
my %bynum; |
| |
foreach my $provider (sort(keys(%changes))) { |
| |
my $position = $confhash{$provider}{'order'}; |
| |
$bynum{$position} = $provider; |
| |
} |
| |
foreach my $pos (sort { $a <=> $b } keys(%bynum)) { |
| |
my $provider = $bynum{$pos}; |
| |
my %lt = &proctoring_titles($provider); |
| |
my %fieldtitles = &proctoring_fieldtitles($provider); |
| |
if (!$confhash{$provider}{'available'}) { |
| |
$resulttext .= '<li>'.&mt('Proctoring integration unavailable for: [_1]','<b>'.$providernames{$provider}.'</b>').'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Proctoring integration available for: [_1]','<b>'.$providernames{$provider}.'</b>'); |
| |
if ($confhash{$provider}{'image'}) { |
| |
$resulttext .= ' '. |
| |
'<img src="'.$confhash{$provider}{'image'}.'"'. |
| |
' alt="'.&mt('Proctoring icon').'" />'; |
| |
} |
| |
$resulttext .= '<ul>'; |
| |
my $position = $pos + 1; |
| |
$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>'; |
| |
foreach my $key ('version','sigmethod','url','lifetime') { |
| |
if ($confhash{$provider}{$key} ne '') { |
| |
$resulttext .= '<li>'.$lt{$key}.': '.$confhash{$provider}{$key}.'</li>'; |
| |
} |
| |
} |
| |
if ($encconfhash{$provider}{'key'} ne '') { |
| |
$resulttext .= '<li>'.$lt{'key'}.': '.$encconfhash{$provider}{'key'}.'</li>'; |
| |
} |
| |
if ($encconfhash{$provider}{'secret'} ne '') { |
| |
$resulttext .= '<li>'.$lt{'secret'}.': '; |
| |
my $num = length($encconfhash{$provider}{'secret'}); |
| |
$resulttext .= ('*'x$num).'</li>'; |
| |
} |
| |
my (@fields,$showroles); |
| |
if (ref($requserfields{$provider}) eq 'ARRAY') { |
| |
push(@fields,@{$requserfields{$provider}}); |
| |
} |
| |
if (ref($confhash{$provider}{'fields'}) eq 'ARRAY') { |
| |
push(@fields,@{$confhash{$provider}{'fields'}}); |
| |
} elsif (ref($confhash{$provider}{'fields'}) eq 'HASH') { |
| |
push(@fields,(keys(%{$confhash{$provider}{'fields'}}))); |
| |
} |
| |
if (@fields) { |
| |
if (grep(/^roles$/,@fields)) { |
| |
$showroles = 1; |
| |
} |
| |
$resulttext .= '<li>'.$lt{'udsl'}.': "'. |
| |
join('", "', map { $lt{$_}; } @fields).'"</li>'; |
| |
} |
| |
if (ref($requserfields{$provider}) eq 'ARRAY') { |
| |
if (grep(/^user$/,@{$requserfields{$provider}})) { |
| |
if ($confhash{$provider}{'incdom'}) { |
| |
$resulttext .= '<li>'.&mt('[_1] sent as [_2]',$lt{'user'},$lt{'uname:dom'}).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('[_1] sent as [_2]',$lt{'user'},$lt{'username'}).'</li>'; |
| |
} |
| |
} |
| |
} |
| |
if (ref($confhash{$provider}{'defaults'}) eq 'ARRAY') { |
| |
if (@{$confhash{$provider}{'defaults'}} > 0) { |
| |
$resulttext .= '<li>'.$lt{'defa'}; |
| |
foreach my $field (@{$confhash{$provider}{'defaults'}}) { |
| |
$resulttext .= ' "'.$fieldtitles{$field}.'",'; |
| |
} |
| |
$resulttext =~ s/,$//; |
| |
$resulttext .= '</li>'; |
| |
} |
| |
} elsif (ref($confhash{$provider}{'defaults'}) eq 'HASH') { |
| |
if (keys(%{$confhash{$provider}{'defaults'}})) { |
| |
$resulttext .= '<li>'.$lt{'defa'}.': <ul>'; |
| |
foreach my $key (sort(keys(%{$confhash{$provider}{'defaults'}}))) { |
| |
if ($confhash{$provider}{'defaults'}{$key} ne '') { |
| |
$resulttext .= '<li>'.$fieldtitles{$key}.' = '.$confhash{$provider}{'defaults'}{$key}.'</li>'; |
| |
} |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
} |
| |
if (ref($crsconf{$provider}) eq 'ARRAY') { |
| |
if (@{$crsconf{$provider}} > 0) { |
| |
$resulttext .= '<li>'.&mt('Configurable in course:'); |
| |
my $numconfig = 0; |
| |
if (ref($confhash{$provider}{'crsconf'}) eq 'ARRAY') { |
| |
if (@{$confhash{$provider}{'crsconf'}} > 0) { |
| |
foreach my $field (@{$confhash{$provider}{'crsconf'}}) { |
| |
$numconfig ++; |
| |
if ($provider eq 'examity') { |
| |
$resulttext .= ' "'.$lt{'crs'.$field}.'",'; |
| |
} else { |
| |
$resulttext .= ' "'.$fieldtitles{$field}.'",'; |
| |
} |
| |
} |
| |
$resulttext =~ s/,$//; |
| |
} |
| |
} |
| |
if (!$numconfig) { |
| |
$resulttext .= ' '.&mt('None'); |
| |
} |
| |
$resulttext .= '</li>'; |
| |
} |
| |
} |
| |
if ($showroles) { |
| |
if (ref($confhash{$provider}{'roles'}) eq 'HASH') { |
| |
my $rolemaps; |
| |
foreach my $role (@courseroles) { |
| |
if ($confhash{$provider}{'roles'}{$role}) { |
| |
$rolemaps .= (' 'x2).&Apache::lonnet::plaintext($role,'Course').'='. |
| |
$confhash{$provider}{'roles'}{$role}.','; |
| |
} |
| |
} |
| |
if ($rolemaps) { |
| |
$rolemaps =~ s/,$//; |
| |
$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>'; |
| |
} |
| |
} |
| |
} |
| |
if (ref($confhash{$provider}{'custom'}) eq 'HASH') { |
| |
my $customlist; |
| |
if (keys(%{$confhash{$provider}{'custom'}})) { |
| |
foreach my $key (sort(keys(%{$confhash{$provider}{'custom'}}))) { |
| |
$customlist .= $key.'='.$confhash{$provider}{'custom'}{$key}.', '; |
| |
} |
| |
$customlist =~ s/,$//; |
| |
} |
| |
if ($customlist) { |
| |
$resulttext .= '<li>'.&mt('Custom items').': '.$customlist.'</li>'; |
| |
} |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
} |
| |
$resulttext .= '</ul>'; |
| |
} else { |
| |
$resulttext = &mt('No changes made.'); |
| |
} |
| |
} else { |
| |
$errors .= '<li><span class="LC_error">'.&mt('Failed to save changes').'</span></li>'; |
| |
} |
| |
if ($errors) { |
| |
$resulttext .= &mt('The following errors occurred: ').'<ul>'. |
| |
$errors.'</ul>'; |
| |
} |
| |
return $resulttext; |
| |
} |
| |
|
| |
sub process_proctoring_image { |
| |
my ($r,$dom,$confname,$caller,$provider,$configuserok,$switchserver,$author_ok) = @_; |
| |
my $filename = $env{'form.'.$caller.'.filename'}; |
| |
my ($error,$url); |
| |
my ($width,$height) = (21,21); |
| |
if ($configuserok eq 'ok') { |
| |
if ($switchserver) { |
| |
$error = &mt('Upload of Remote Proctoring Provider icon is not permitted to this server: [_1]', |
| |
$switchserver); |
| |
} elsif ($author_ok eq 'ok') { |
| |
my ($result,$imageurl,$madethumb) = |
| |
&publishlogo($r,'upload',$caller,$dom,$confname, |
| |
"proctoring/$provider/icon",$width,$height); |
| |
if ($result eq 'ok') { |
| |
if ($madethumb) { |
| |
my ($path,$imagefile) = ($imageurl =~ m{^(.+)/([^/]+)$}); |
| |
my $imagethumb = "$path/tn-".$imagefile; |
| |
$url = $imagethumb; |
| |
} else { |
| |
$url = $imageurl; |
| |
} |
| |
} else { |
| |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result); |
| |
} |
| |
} else { |
| |
$error = &mt("Upload of [_1] failed because an author role could not be assigned to a Domain Configuration user ([_2]) in domain: [_3]. Error was: [_4].",$filename,$confname,$dom,$author_ok); |
| |
} |
| |
} else { |
| |
$error = &mt("Upload of [_1] failed because a Domain Configuration user ([_2]) could not be created in domain: [_3]. Error was: [_4].",$filename,$confname,$dom,$configuserok); |
| |
} |
| |
return ($url,$error); |
| |
} |
| |
|
| sub modify_lti { |
sub modify_lti { |
| my ($r,$dom,$action,$lastactref,%domconfig) = @_; |
my ($r,$dom,$action,$lastactref,%domconfig) = @_; |
| my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
|
Line 12116 sub modify_lti {
|
Line 14069 sub modify_lti {
|
| } |
} |
| } |
} |
| } |
} |
| |
if ($env{'form.lti_callback_'.$idx}) { |
| |
if ($env{'form.lti_callbackparam_'.$idx}) { |
| |
my $callback = $env{'form.lti_callbackparam_'.$idx}; |
| |
$callback =~ s/^\s+|\s+$//g; |
| |
$confhash{$itemid}{'callback'} = $callback; |
| |
} |
| |
} |
| foreach my $field ('passback','roster','topmenu','inlinemenu') { |
foreach my $field ('passback','roster','topmenu','inlinemenu') { |
| if ($env{'form.lti_'.$field.'_'.$idx}) { |
if ($env{'form.lti_'.$field.'_'.$idx}) { |
| $confhash{$itemid}{$field} = 1; |
$confhash{$itemid}{$field} = 1; |
|
Line 12141 sub modify_lti {
|
Line 14101 sub modify_lti {
|
| } |
} |
| } |
} |
| unless (($idx eq 'add') || ($changes{$itemid})) { |
unless (($idx eq 'add') || ($changes{$itemid})) { |
| foreach my $field ('mapuser','mapcrs','makecrs','section','passback','roster','lcauth','lcauthparm','topmenu','inlinemenu') { |
foreach my $field ('mapuser','mapcrs','makecrs','section','passback','roster','lcauth','lcauthparm','topmenu','inlinemenu','callback') { |
| if ($domconfig{$action}{$itemid}{$field} ne $confhash{$itemid}{$field}) { |
if ($domconfig{$action}{$itemid}{$field} ne $confhash{$itemid}{$field}) { |
| $changes{$itemid} = 1; |
$changes{$itemid} = 1; |
| } |
} |
|
Line 12367 sub modify_lti {
|
Line 14327 sub modify_lti {
|
| } else { |
} else { |
| $resulttext .= '<li>'.&mt('No section assignment').'</li>'; |
$resulttext .= '<li>'.&mt('No section assignment').'</li>'; |
| } |
} |
| |
if ($confhash{$itemid}{'callback'}) { |
| |
$resulttext .= '<li>'.&mt('Callback setting').': '.$confhash{$itemid}{'callback'}.'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No callback to logout LON-CAPA session when user logs out of Comsumer'); |
| |
} |
| foreach my $item ('passback','roster','topmenu','inlinemenu') { |
foreach my $item ('passback','roster','topmenu','inlinemenu') { |
| $resulttext .= '<li>'.$lt{$item}.': '; |
$resulttext .= '<li>'.$lt{$item}.': '; |
| if ($confhash{$itemid}{$item}) { |
if ($confhash{$itemid}{$item}) { |
|
Line 13616 sub modify_contacts {
|
Line 15581 sub modify_contacts {
|
| return $resulttext; |
return $resulttext; |
| } |
} |
| |
|
| |
sub modify_privacy { |
| |
my ($dom,%domconfig) = @_; |
| |
my ($resulttext,%current,%changes); |
| |
if (ref($domconfig{'privacy'}) eq 'HASH') { |
| |
%current = %{$domconfig{'privacy'}}; |
| |
} |
| |
my @fields = ('lastname','firstname','middlename','generation','permanentemail','id'); |
| |
my @items = ('domain','author','course','community'); |
| |
my %names = &Apache::lonlocal::texthash ( |
| |
domain => 'Assigned domain role(s)', |
| |
author => 'Assigned co-author role(s)', |
| |
course => 'Assigned course role(s)', |
| |
community => 'Assigned community role', |
| |
); |
| |
my %roles = &Apache::lonlocal::texthash ( |
| |
domain => 'Domain role', |
| |
author => 'Co-author role', |
| |
course => 'Course role', |
| |
community => 'Community role', |
| |
); |
| |
my %titles = &Apache::lonlocal::texthash ( |
| |
approval => 'Approval for role in different domain', |
| |
othdom => 'User information available in other domain', |
| |
priv => 'Information viewable by privileged user in same domain', |
| |
unpriv => 'Information viewable by unprivileged user in same domain', |
| |
instdom => 'Other domain shares institution/provider', |
| |
extdom => 'Other domain has different institution/provider', |
| |
none => 'Not allowed', |
| |
user => 'User authorizes', |
| |
domain => 'Domain Coordinator authorizes', |
| |
auto => 'Unrestricted', |
| |
); |
| |
my %fieldnames = &Apache::lonlocal::texthash ( |
| |
id => 'Student/Employee ID', |
| |
permanentemail => 'E-mail address', |
| |
lastname => 'Last Name', |
| |
firstname => 'First Name', |
| |
middlename => 'Middle Name', |
| |
generation => 'Generation', |
| |
); |
| |
my ($othertitle,$usertypes,$types) = |
| |
&Apache::loncommon::sorted_inst_types($dom); |
| |
my (%by_ip,%by_location,@intdoms,@instdoms); |
| |
&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms); |
| |
|
| |
my %privacyhash = ( |
| |
'approval' => { |
| |
instdom => {}, |
| |
extdom => {}, |
| |
}, |
| |
'othdom' => {}, |
| |
'priv' => {}, |
| |
'unpriv' => {}, |
| |
); |
| |
foreach my $item (@items) { |
| |
if (@instdoms > 1) { |
| |
if ($env{'form.privacy_approval_instdom'.$item} =~ /^(none|user|domain|auto)$/) { |
| |
$privacyhash{'approval'}{'instdom'}{$item} = $env{'form.privacy_approval_instdom_'.$item}; |
| |
} |
| |
if (ref($current{'approval'}) eq 'HASH') { |
| |
if (ref($current{'approval'}{'instdom'}) eq 'HASH') { |
| |
unless ($privacyhash{'approval'}{'instdom'}{$item} eq $current{'approval'}{'instdom'}{$item}) { |
| |
$changes{'approval'} = 1; |
| |
} |
| |
} |
| |
} elsif ($privacyhash{'approval'}{'instdom'}{$item} ne 'auto') { |
| |
$changes{'approval'} = 1; |
| |
} |
| |
} |
| |
if (keys(%by_location) > 0) { |
| |
if ($env{'form.privacy_approval_extdom_'.$item} =~ /^(none|user|domain|auto)$/) { |
| |
$privacyhash{'approval'}{'extdom'}{$item} = $env{'form.privacy_approval_extdom_'.$item}; |
| |
} |
| |
if (ref($current{'approval'}) eq 'HASH') { |
| |
if (ref($current{'approval'}{'extdom'}) eq 'HASH') { |
| |
unless ($privacyhash{'approval'}{'extdom'}{$item} eq $current{'approval'}{'extdom'}{$item}) { |
| |
$changes{'approval'} = 1; |
| |
} |
| |
} |
| |
} elsif ($privacyhash{'approval'}{'extdom'}{$item} ne 'auto') { |
| |
$changes{'approval'} = 1; |
| |
} |
| |
} |
| |
foreach my $status ('priv','unpriv') { |
| |
my @possibles = sort(&Apache::loncommon::get_env_multiple('form.privacy_'.$status.'_'.$item)); |
| |
my @newvalues; |
| |
foreach my $field (@possibles) { |
| |
if (grep(/^\Q$field\E$/,@fields)) { |
| |
$privacyhash{$status}{$item}{$field} = 1; |
| |
push(@newvalues,$field); |
| |
} |
| |
} |
| |
@newvalues = sort(@newvalues); |
| |
if (ref($current{$status}) eq 'HASH') { |
| |
if (ref($current{$status}{$item}) eq 'HASH') { |
| |
my @currvalues = sort(keys(%{$current{$status}{$item}})); |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@currvalues,\@newvalues); |
| |
if (@diffs > 0) { |
| |
$changes{$status} = 1; |
| |
} |
| |
} |
| |
} else { |
| |
my @stdfields; |
| |
foreach my $field (@fields) { |
| |
if ($field eq 'id') { |
| |
next if ($status eq 'unpriv'); |
| |
next if (($status eq 'priv') && ($item eq 'community')); |
| |
} |
| |
push(@stdfields,$field); |
| |
} |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@stdfields,\@newvalues); |
| |
if (@diffs > 0) { |
| |
$changes{$status} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ((@instdoms > 1) || (keys(%by_location) > 0)) { |
| |
my @statuses; |
| |
if (ref($types) eq 'ARRAY') { |
| |
@statuses = @{$types}; |
| |
} |
| |
foreach my $type (@statuses,'default') { |
| |
my @possfields = &Apache::loncommon::get_env_multiple('form.privacy_othdom_'.$type); |
| |
my @newvalues; |
| |
foreach my $field (sort(@possfields)) { |
| |
if (grep(/^\Q$field\E$/,@fields)) { |
| |
$privacyhash{'othdom'}{$type}{$field} = 1; |
| |
push(@newvalues,$field); |
| |
} |
| |
} |
| |
@newvalues = sort(@newvalues); |
| |
if (ref($current{'othdom'}) eq 'HASH') { |
| |
if (ref($current{'othdom'}{$type}) eq 'HASH') { |
| |
my @currvalues = sort(keys(%{$current{'othdom'}{$type}})); |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@currvalues,\@newvalues); |
| |
if (@diffs > 0) { |
| |
$changes{'othdom'} = 1; |
| |
} |
| |
} |
| |
} else { |
| |
my @stdfields = ('lastname','firstname','middlename','generation','permanentemail'); |
| |
my @diffs = &Apache::loncommon::compare_arrays(\@stdfields,\@newvalues); |
| |
if (@diffs > 0) { |
| |
$changes{'othdom'} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my %confighash = ( |
| |
privacy => \%privacyhash, |
| |
); |
| |
my $putresult = &Apache::lonnet::put_dom('configuration',\%confighash,$dom); |
| |
if ($putresult eq 'ok') { |
| |
if (keys(%changes) > 0) { |
| |
$resulttext = &mt('Changes made: ').'<ul>'; |
| |
foreach my $key ('approval','othdom','priv','unpriv') { |
| |
if ($changes{$key}) { |
| |
$resulttext .= '<li>'.$titles{$key}.':<ul>'; |
| |
if ($key eq 'approval') { |
| |
if (keys(%{$privacyhash{$key}{instdom}})) { |
| |
$resulttext .= '<li>'.$titles{'instdom'}.'<ul>'; |
| |
foreach my $item (@items) { |
| |
$resulttext .= '<li>'.$roles{$item}.': '.$titles{$privacyhash{$key}{instdom}{$item}}.'</li>'; |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
if (keys(%{$privacyhash{$key}{extdom}})) { |
| |
$resulttext .= '<li>'.$titles{'extdom'}.'<ul>'; |
| |
foreach my $item (@items) { |
| |
$resulttext .= '<li>'.$roles{$item}.': '.$titles{$privacyhash{$key}{extdom}{$item}}.'</li>'; |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
} elsif ($key eq 'othdom') { |
| |
my @statuses; |
| |
if (ref($types) eq 'ARRAY') { |
| |
@statuses = @{$types}; |
| |
} |
| |
if (ref($privacyhash{$key}) eq 'HASH') { |
| |
foreach my $status (@statuses,'default') { |
| |
if ($status eq 'default') { |
| |
$resulttext .= '<li>'.$othertitle.': '; |
| |
} elsif (ref($usertypes) eq 'HASH') { |
| |
$resulttext .= '<li>'.$usertypes->{$status}.': '; |
| |
} else { |
| |
next; |
| |
} |
| |
if (ref($privacyhash{$key}{$status}) eq 'HASH') { |
| |
if (keys(%{$privacyhash{$key}{$status}})) { |
| |
$resulttext .= join(', ', map { $fieldnames{$_}; } (sort(keys(%{$privacyhash{$key}{$status}})))); |
| |
} else { |
| |
$resulttext .= &mt('none'); |
| |
} |
| |
} |
| |
$resulttext .= '</li>'; |
| |
} |
| |
} |
| |
} else { |
| |
foreach my $item (@items) { |
| |
if (ref($privacyhash{$key}{$item}) eq 'HASH') { |
| |
$resulttext .= '<li>'.$names{$item}.': '; |
| |
if (keys(%{$privacyhash{$key}{$item}})) { |
| |
$resulttext .= join(', ', map { $fieldnames{$_}; } (sort(keys(%{$privacyhash{$key}{$item}})))); |
| |
} else { |
| |
$resulttext .= &mt('none'); |
| |
} |
| |
$resulttext .= '</li>'; |
| |
} |
| |
} |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
} |
| |
} else { |
| |
$resulttext = &mt('No changes made to user information settings'); |
| |
} |
| |
} else { |
| |
$resulttext = '<span class="LC_error">'. |
| |
&mt('An error occurred: [_1]',$putresult).'</span>'; |
| |
} |
| |
return $resulttext; |
| |
} |
| |
|
| |
sub modify_passwords { |
| |
my ($r,$dom,$confname,$lastactref,%domconfig) = @_; |
| |
my ($resulttext,%current,%changes,%newvalues,@oktypes,$errors, |
| |
$updatedefaults,$updateconf); |
| |
my $customfn = 'resetpw.html'; |
| |
if (ref($domconfig{'passwords'}) eq 'HASH') { |
| |
%current = %{$domconfig{'passwords'}}; |
| |
} |
| |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
| |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| |
if (ref($types) eq 'ARRAY') { |
| |
@oktypes = @{$types}; |
| |
} |
| |
push(@oktypes,'default'); |
| |
|
| |
my %titles = &Apache::lonlocal::texthash ( |
| |
intauth_cost => 'Encryption cost for bcrypt (positive integer)', |
| |
intauth_check => 'Check bcrypt cost if authenticated', |
| |
intauth_switch => 'Existing crypt-based switched to bcrypt on authentication', |
| |
permanent => 'Permanent e-mail address', |
| |
critical => 'Critical notification address', |
| |
notify => 'Notification address', |
| |
min => 'Minimum password length', |
| |
max => 'Maximum password length', |
| |
chars => 'Required characters', |
| |
expire => 'Password expiration (days)', |
| |
numsaved => 'Number of previous passwords to save', |
| |
reset => 'Resetting Forgotten Password', |
| |
intauth => 'Encryption of Stored Passwords (Internal Auth)', |
| |
rules => 'Rules for LON-CAPA Passwords', |
| |
crsownerchg => 'Course Owner Changing Student Passwords', |
| |
username => 'Username', |
| |
email => 'E-mail address', |
| |
); |
| |
|
| |
# |
| |
# Retrieve current domain configuration for internal authentication from $domconfig{'defaults'}. |
| |
# |
| |
my (%curr_defaults,%save_defaults); |
| |
if (ref($domconfig{'defaults'}) eq 'HASH') { |
| |
foreach my $key (keys(%{$domconfig{'defaults'}})) { |
| |
if ($key =~ /^intauth_(cost|check|switch)$/) { |
| |
$curr_defaults{$key} = $domconfig{'defaults'}{$key}; |
| |
} else { |
| |
$save_defaults{$key} = $domconfig{'defaults'}{$key}; |
| |
} |
| |
} |
| |
} |
| |
my %staticdefaults = ( |
| |
'resetlink' => 2, |
| |
'resetcase' => \@oktypes, |
| |
'resetprelink' => 'both', |
| |
'resetemail' => ['critical','notify','permanent'], |
| |
'intauth_cost' => 10, |
| |
'intauth_check' => 0, |
| |
'intauth_switch' => 0, |
| |
); |
| |
$staticdefaults{'min'} = $Apache::lonnet::passwdmin; |
| |
foreach my $type (@oktypes) { |
| |
$staticdefaults{'resetpostlink'}{$type} = ['email','username']; |
| |
} |
| |
my $linklife = $env{'form.passwords_link'}; |
| |
$linklife =~ s/^\s+|\s+$//g; |
| |
if (($linklife =~ /^\d+(|\.\d*)$/) && ($linklife > 0)) { |
| |
$newvalues{'resetlink'} = $linklife; |
| |
if ($current{'resetlink'}) { |
| |
if ($current{'resetlink'} ne $linklife) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| |
if ($staticdefaults{'resetlink'} ne $linklife) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} |
| |
} elsif ($current{'resetlink'}) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
my @casesens; |
| |
my @posscase = &Apache::loncommon::get_env_multiple('form.passwords_case_sensitive'); |
| |
foreach my $case (sort(@posscase)) { |
| |
if (grep(/^\Q$case\E$/,@oktypes)) { |
| |
push(@casesens,$case); |
| |
} |
| |
} |
| |
$newvalues{'resetcase'} = \@casesens; |
| |
if (ref($current{'resetcase'}) eq 'ARRAY') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($current{'resetcase'},\@casesens); |
| |
if (@diffs > 0) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetcase'},\@casesens); |
| |
if (@diffs > 0) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} |
| |
if ($env{'form.passwords_prelink'} =~ /^(both|either)$/) { |
| |
$newvalues{'resetprelink'} = $env{'form.passwords_prelink'}; |
| |
if (exists($current{'resetprelink'})) { |
| |
if ($current{'resetprelink'} ne $newvalues{'resetprelink'}) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| |
if ($staticdefaults{'resetprelink'} ne $newvalues{'resetprelink'}) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} |
| |
} elsif ($current{'resetprelink'}) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
foreach my $type (@oktypes) { |
| |
my @possplink = &Apache::loncommon::get_env_multiple('form.passwords_postlink_'.$type); |
| |
my @postlink; |
| |
foreach my $item (sort(@possplink)) { |
| |
if ($item =~ /^(email|username)$/) { |
| |
push(@postlink,$item); |
| |
} |
| |
} |
| |
$newvalues{'resetpostlink'}{$type} = \@postlink; |
| |
unless ($changes{'reset'}) { |
| |
if (ref($current{'resetpostlink'}) eq 'HASH') { |
| |
if (ref($current{'resetpostlink'}{$type}) eq 'ARRAY') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($current{'resetpostlink'}{$type},\@postlink); |
| |
if (@diffs > 0) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} else { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetpostlink'}{$type},\@postlink); |
| |
if (@diffs > 0) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my @possemailsrc = &Apache::loncommon::get_env_multiple('form.passwords_emailsrc'); |
| |
my @resetemail; |
| |
foreach my $item (sort(@possemailsrc)) { |
| |
if ($item =~ /^(permanent|critical|notify)$/) { |
| |
push(@resetemail,$item); |
| |
} |
| |
} |
| |
$newvalues{'resetemail'} = \@resetemail; |
| |
unless ($changes{'reset'}) { |
| |
if (ref($current{'resetemail'}) eq 'ARRAY') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($current{'resetemail'},\@resetemail); |
| |
if (@diffs > 0) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetemail'},\@resetemail); |
| |
if (@diffs > 0) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} |
| |
} |
| |
if ($env{'form.passwords_stdtext'} == 0) { |
| |
$newvalues{'resetremove'} = 1; |
| |
unless ($current{'resetremove'}) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
} elsif ($current{'resetremove'}) { |
| |
$changes{'reset'} = 1; |
| |
} |
| |
if ($env{'form.passwords_customfile.filename'} ne '') { |
| |
my $servadm = $r->dir_config('lonAdmEMail'); |
| |
my ($configuserok,$author_ok,$switchserver) = |
| |
&config_check($dom,$confname,$servadm); |
| |
my $error; |
| |
if ($configuserok eq 'ok') { |
| |
if ($switchserver) { |
| |
$error = &mt("Upload of file containing domain-specific text is not permitted to this server: [_1]",$switchserver); |
| |
} else { |
| |
if ($author_ok eq 'ok') { |
| |
my ($result,$customurl) = |
| |
&publishlogo($r,'upload','passwords_customfile',$dom, |
| |
$confname,'customtext/resetpw','','',$customfn); |
| |
if ($result eq 'ok') { |
| |
$newvalues{'resetcustom'} = $customurl; |
| |
$changes{'reset'} = 1; |
| |
} else { |
| |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$customfn,$result); |
| |
} |
| |
} else { |
| |
$error = &mt("Upload of [_1] failed because an author role could not be assigned to a Domain Configuration user ([_2]) in domain: [_3]. Error was: [_4].",$customfn,$confname,$dom,$author_ok); |
| |
} |
| |
} |
| |
} else { |
| |
$error = &mt("Upload of [_1] failed because a Domain Configuration user ([_2]) could not be created in domain: [_3]. Error was: [_4].",$customfn,$confname,$dom,$configuserok); |
| |
} |
| |
if ($error) { |
| |
&Apache::lonnet::logthis($error); |
| |
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
| |
} |
| |
} elsif ($current{'resetcustom'}) { |
| |
if ($env{'form.passwords_custom_del'}) { |
| |
$changes{'reset'} = 1; |
| |
} else { |
| |
$newvalues{'resetcustom'} = $current{'resetcustom'}; |
| |
} |
| |
} |
| |
$env{'form.intauth_cost'} =~ s/^\s+|\s+$//g; |
| |
if (($env{'form.intauth_cost'} ne '') && ($env{'form.intauth_cost'} =~ /^\d+$/)) { |
| |
$save_defaults{'intauth_cost'} = $env{'form.intauth_cost'}; |
| |
if ($save_defaults{'intauth_cost'} ne $curr_defaults{'intauth_cost'}) { |
| |
$changes{'intauth'} = 1; |
| |
} |
| |
} else { |
| |
$save_defaults{'intauth_cost'} = $curr_defaults{'intauth_cost'}; |
| |
} |
| |
if ($env{'form.intauth_check'} =~ /^(0|1|2)$/) { |
| |
$save_defaults{'intauth_check'} = $env{'form.intauth_check'}; |
| |
if ($save_defaults{'intauth_check'} ne $curr_defaults{'intauth_check'}) { |
| |
$changes{'intauth'} = 1; |
| |
} |
| |
} else { |
| |
$save_defaults{'intauth_check'} = $curr_defaults{'intauth_check'}; |
| |
} |
| |
if ($env{'form.intauth_switch'} =~ /^(0|1|2)$/) { |
| |
$save_defaults{'intauth_switch'} = $env{'form.intauth_switch'}; |
| |
if ($save_defaults{'intauth_switch'} ne $curr_defaults{'intauth_switch'}) { |
| |
$changes{'intauth'} = 1; |
| |
} |
| |
} else { |
| |
$save_defaults{'intauth_check'} = $curr_defaults{'intauth_check'}; |
| |
} |
| |
foreach my $item ('cost','check','switch') { |
| |
if ($save_defaults{'intauth_'.$item} ne $domdefaults{'intauth_'.$item}) { |
| |
$domdefaults{'intauth_'.$item} = $save_defaults{'intauth_'.$item}; |
| |
$updatedefaults = 1; |
| |
} |
| |
} |
| |
foreach my $rule ('min','max','expire','numsaved') { |
| |
$env{'form.passwords_'.$rule} =~ s/^\s+|\s+$//g; |
| |
my $ruleok; |
| |
if ($rule eq 'expire') { |
| |
if (($env{'form.passwords_'.$rule} =~ /^\d+(|\.\d*)$/) && |
| |
($env{'form.passwords_'.$rule} ne '0')) { |
| |
$ruleok = 1; |
| |
} |
| |
} elsif ($rule eq 'min') { |
| |
if ($env{'form.passwords_'.$rule} =~ /^\d+$/) { |
| |
if ($env{'form.passwords_'.$rule} >= $Apache::lonnet::passwdmin) { |
| |
$ruleok = 1; |
| |
} |
| |
} |
| |
} elsif (($env{'form.passwords_'.$rule} =~ /^\d+$/) && |
| |
($env{'form.passwords_'.$rule} ne '0')) { |
| |
$ruleok = 1; |
| |
} |
| |
if ($ruleok) { |
| |
$newvalues{$rule} = $env{'form.passwords_'.$rule}; |
| |
if (exists($current{$rule})) { |
| |
if ($newvalues{$rule} ne $current{$rule}) { |
| |
$changes{'rules'} = 1; |
| |
} |
| |
} elsif ($rule eq 'min') { |
| |
if ($staticdefaults{$rule} ne $newvalues{$rule}) { |
| |
$changes{'rules'} = 1; |
| |
} |
| |
} else { |
| |
$changes{'rules'} = 1; |
| |
} |
| |
} elsif (exists($current{$rule})) { |
| |
$changes{'rules'} = 1; |
| |
} |
| |
} |
| |
my @posschars = &Apache::loncommon::get_env_multiple('form.passwords_chars'); |
| |
my @chars; |
| |
foreach my $item (sort(@posschars)) { |
| |
if ($item =~ /^(uc|lc|num|spec)$/) { |
| |
push(@chars,$item); |
| |
} |
| |
} |
| |
$newvalues{'chars'} = \@chars; |
| |
unless ($changes{'rules'}) { |
| |
if (ref($current{'chars'}) eq 'ARRAY') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($current{'chars'},\@chars); |
| |
if (@diffs > 0) { |
| |
$changes{'rules'} = 1; |
| |
} |
| |
} else { |
| |
if (@chars > 0) { |
| |
$changes{'rules'} = 1; |
| |
} |
| |
} |
| |
} |
| |
my %crsownerchg = ( |
| |
by => [], |
| |
for => [], |
| |
); |
| |
foreach my $item ('by','for') { |
| |
my @posstypes = &Apache::loncommon::get_env_multiple('form.passwords_crsowner_'.$item); |
| |
foreach my $type (sort(@posstypes)) { |
| |
if (grep(/^\Q$type\E$/,@oktypes)) { |
| |
push(@{$crsownerchg{$item}},$type); |
| |
} |
| |
} |
| |
} |
| |
$newvalues{'crsownerchg'} = \%crsownerchg; |
| |
if (ref($current{'crsownerchg'}) eq 'HASH') { |
| |
foreach my $item ('by','for') { |
| |
if (ref($current{'crsownerchg'}{$item}) eq 'ARRAY') { |
| |
my @diffs = &Apache::loncommon::compare_arrays($current{'crsownerchg'}{$item},$crsownerchg{$item}); |
| |
if (@diffs > 0) { |
| |
$changes{'crsownerchg'} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} elsif (!(ref($domconfig{passwords}) eq 'HASH')) { |
| |
foreach my $item ('by','for') { |
| |
if (@{$crsownerchg{$item}} > 0) { |
| |
$changes{'crsownerchg'} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
|
| |
my %confighash = ( |
| |
defaults => \%save_defaults, |
| |
passwords => \%newvalues, |
| |
); |
| |
&process_captcha('passwords',\%changes,$confighash{'passwords'},$domconfig{'passwords'}); |
| |
|
| |
my $putresult = &Apache::lonnet::put_dom('configuration',\%confighash,$dom); |
| |
if ($putresult eq 'ok') { |
| |
if (keys(%changes) > 0) { |
| |
$resulttext = &mt('Changes made: ').'<ul>'; |
| |
foreach my $key ('reset','intauth','rules','crsownerchg') { |
| |
if ($changes{$key}) { |
| |
unless ($key eq 'intauth') { |
| |
$updateconf = 1; |
| |
} |
| |
$resulttext .= '<li>'.$titles{$key}.':<ul>'; |
| |
if ($key eq 'reset') { |
| |
if ($confighash{'passwords'}{'captcha'} eq 'original') { |
| |
$resulttext .= '<li>'.&mt('CAPTCHA validation set to use: original CAPTCHA').'</li>'; |
| |
} elsif ($confighash{'passwords'}{'captcha'} eq 'recaptcha') { |
| |
$resulttext .= '<li>'.&mt('CAPTCHA validation set to use: reCAPTCHA').' '. |
| |
&mt('version: [_1]',$confighash{'passwords'}{'recaptchaversion'}).'<br />'; |
| |
if (ref($confighash{'passwords'}{'recaptchakeys'}) eq 'HASH') { |
| |
$resulttext .= &mt('Public key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'public'}).'</br>'. |
| |
&mt('Private key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'private'}).'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No CAPTCHA validation').'</li>'; |
| |
} |
| |
if ($confighash{'passwords'}{'resetlink'}) { |
| |
$resulttext .= '<li>'.&mt('Reset link expiration set to [quant,_1,hour]',$confighash{'passwords'}{'resetlink'}).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No reset link expiration set.').' '. |
| |
&mt('Will default to 2 hours').'</li>'; |
| |
} |
| |
if (ref($confighash{'passwords'}{'resetcase'}) eq 'ARRAY') { |
| |
if (@{$confighash{'passwords'}{'resetcase'}} == 0) { |
| |
$resulttext .= '<li>'.&mt('User input for username and/or e-mail address not case sensitive for "Forgot Password" web form').'</li>'; |
| |
} else { |
| |
my $casesens; |
| |
foreach my $type (@{$confighash{'passwords'}{'resetcase'}}) { |
| |
if ($type eq 'default') { |
| |
$casesens .= $othertitle.', '; |
| |
} elsif ($usertypes->{$type} ne '') { |
| |
$casesens .= $usertypes->{$type}.', '; |
| |
} |
| |
} |
| |
$casesens =~ s/\Q, \E$//; |
| |
$resulttext .= '<li>'.&mt('"Forgot Password" web form input for username and/or e-mail address is case-sensitive for: [_1]',$casesens).'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Case-sensitivity not set for "Forgot Password" web form').' '.&mt('Will default to case-sensitive for username and/or e-mail address for all').'</li>'; |
| |
} |
| |
if ($confighash{'passwords'}{'resetprelink'} eq 'either') { |
| |
$resulttext .= '<li>'.&mt('Users can enter either a username or an e-mail address in "Forgot Password" web form').'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Users can enter both a username and an e-mail address in "Forgot Password" web form').'</li>'; |
| |
} |
| |
if (ref($confighash{'passwords'}{'resetpostlink'}) eq 'HASH') { |
| |
my $output; |
| |
if (ref($types) eq 'ARRAY') { |
| |
foreach my $type (@{$types}) { |
| |
if (ref($confighash{'passwords'}{'resetpostlink'}{$type}) eq 'ARRAY') { |
| |
if (@{$confighash{'passwords'}{'resetpostlink'}{$type}} == 0) { |
| |
$output .= $usertypes->{$type}.' -- '.&mt('none'); |
| |
} else { |
| |
$output .= $usertypes->{$type}.' -- '. |
| |
join(', ',map { $titles{$_}; } (@{$confighash{'passwords'}{'resetpostlink'}{$type}})).'; '; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (ref($confighash{'passwords'}{'resetpostlink'}{'default'}) eq 'ARRAY') { |
| |
if (@{$confighash{'passwords'}{'resetpostlink'}{'default'}} == 0) { |
| |
$output .= $othertitle.' -- '.&mt('none'); |
| |
} else { |
| |
$output .= $othertitle.' -- '. |
| |
join(', ',map { $titles{$_}; } (@{$confighash{'passwords'}{'resetpostlink'}{'default'}})); |
| |
} |
| |
} |
| |
if ($output) { |
| |
$resulttext .= '<li>'.&mt('Information required for new password form (by user type) set to: [_1]',$output).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Information required for new password form not set.').' '.&mt('Will default to requiring both the username and an e-mail address').'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Information required for new password form not set.').' '.&mt('Will default to requiring both the username and an e-mail address').'</li>'; |
| |
} |
| |
if (ref($confighash{'passwords'}{'resetemail'}) eq 'ARRAY') { |
| |
if (@{$confighash{'passwords'}{'resetemail'}} > 0) { |
| |
$resulttext .= '<li>'.&mt('E-mail address(es) in LON-CAPA used for verification will include: [_1]',join(', ',map { $titles{$_}; } @{$confighash{'passwords'}{'resetemail'}})).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('E-mail address(es) in LON-CAPA used for verification will include: [_1]',join(', ',map { $titles{$_}; } @{$staticdefaults{'resetemail'}})).'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('E-mail address(es) in LON-CAPA usedfor verification will include: [_1]',join(', ',map { $titles{$_}; } @{$staticdefaults{'resetemail'}})).'</li>'; |
| |
} |
| |
if ($confighash{'passwords'}{'resetremove'}) { |
| |
$resulttext .= '<li>'.&mt('Preamble to "Forgot Password" web form not shown').'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Preamble to "Forgot Password" web form is shown').'</li>'; |
| |
} |
| |
if ($confighash{'passwords'}{'resetcustom'}) { |
| |
my $customlink = &Apache::loncommon::modal_link($confighash{'passwords'}{'resetcustom'}, |
| |
&mt('custom text'),600,500,undef,undef, |
| |
undef,undef,'background-color:#ffffff'); |
| |
$resulttext .= '<li>'.&mt('Preamble to "Forgot Password" form includes: [_1]',$customlink).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No custom text included in preamble to "Forgot Password" form').'</li>'; |
| |
} |
| |
} elsif ($key eq 'intauth') { |
| |
foreach my $item ('cost','switch','check') { |
| |
my $value = $save_defaults{$key.'_'.$item}; |
| |
if ($item eq 'switch') { |
| |
my %optiondesc = &Apache::lonlocal::texthash ( |
| |
0 => 'No', |
| |
1 => 'Yes', |
| |
2 => 'Yes, and copy existing passwd file to passwd.bak file', |
| |
); |
| |
if ($value =~ /^(0|1|2)$/) { |
| |
$value = $optiondesc{$value}; |
| |
} else { |
| |
$value = &mt('none -- defaults to No'); |
| |
} |
| |
} elsif ($item eq 'check') { |
| |
my %optiondesc = &Apache::lonlocal::texthash ( |
| |
0 => 'No', |
| |
1 => 'Yes, allow login then update passwd file using default cost (if higher)', |
| |
2 => 'Yes, disallow login if stored cost is less than domain default', |
| |
); |
| |
if ($value =~ /^(0|1|2)$/) { |
| |
$value = $optiondesc{$value}; |
| |
} else { |
| |
$value = &mt('none -- defaults to No'); |
| |
} |
| |
} |
| |
$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$titles{$key.'_'.$item},$value).'</li>'; |
| |
} |
| |
} elsif ($key eq 'rules') { |
| |
foreach my $rule ('min','max','expire','numsaved') { |
| |
if ($confighash{'passwords'}{$rule} eq '') { |
| |
if ($rule eq 'min') { |
| |
$resulttext .= '<li>'.&mt('[_1] not set.',$titles{$rule}); |
| |
' '.&mt('Default of [_1] will be used', |
| |
$Apache::lonnet::passwdmin).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('[_1] set to none',$titles{$rule}).'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('[_1] set to [_2]',$titles{$rule},$confighash{'passwords'}{$rule}).'</li>'; |
| |
} |
| |
} |
| |
if (ref($confighash{'passwords'}{'chars'}) eq 'ARRAY') { |
| |
if (@{$confighash{'passwords'}{'chars'}} > 0) { |
| |
my %rulenames = &Apache::lonlocal::texthash( |
| |
uc => 'At least one upper case letter', |
| |
lc => 'At least one lower case letter', |
| |
num => 'At least one number', |
| |
spec => 'At least one non-alphanumeric', |
| |
); |
| |
my $needed = '<ul><li>'. |
| |
join('</li><li>',map {$rulenames{$_} } @{$confighash{'passwords'}{'chars'}}). |
| |
'</li></ul>'; |
| |
$resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{'chars'},$needed).'</li>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('[_1] set to none',$titles{'chars'}).'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('[_1] set to none',$titles{'chars'}).'</li>'; |
| |
} |
| |
} elsif ($key eq 'crsownerchg') { |
| |
if (ref($confighash{'passwords'}{'crsownerchg'}) eq 'HASH') { |
| |
if ((@{$confighash{'passwords'}{'crsownerchg'}{'by'}} == 0) || |
| |
(@{$confighash{'passwords'}{'crsownerchg'}{'for'}} == 0)) { |
| |
$resulttext .= '<li>'.&mt('Course owner may not change student passwords.').'</li>'; |
| |
} else { |
| |
my %crsownerstr; |
| |
foreach my $item ('by','for') { |
| |
if (ref($confighash{'passwords'}{'crsownerchg'}{$item}) eq 'ARRAY') { |
| |
foreach my $type (@{$confighash{'passwords'}{'crsownerchg'}{$item}}) { |
| |
if ($type eq 'default') { |
| |
$crsownerstr{$item} .= $othertitle.', '; |
| |
} elsif ($usertypes->{$type} ne '') { |
| |
$crsownerstr{$item} .= $usertypes->{$type}.', '; |
| |
} |
| |
} |
| |
$crsownerstr{$item} =~ s/\Q, \E$//; |
| |
} |
| |
} |
| |
$resulttext .= '<li>'.&mt('Course owner (with status: [_1]) may change passwords for students (with status: [_2]).', |
| |
$crsownerstr{'by'},$crsownerstr{'for'}).'</li>'; |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('Course owner may not change student passwords.').'</li>'; |
| |
} |
| |
} |
| |
$resulttext .= '</ul></li>'; |
| |
} |
| |
} |
| |
$resulttext .= '</ul>'; |
| |
} else { |
| |
$resulttext = &mt('No changes made to password settings'); |
| |
} |
| |
my $cachetime = 24*60*60; |
| |
if ($updatedefaults) { |
| |
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'domdefaults'} = 1; |
| |
} |
| |
} |
| |
if ($updateconf) { |
| |
&Apache::lonnet::do_cache_new('passwdconf',$dom,$confighash{'passwords'},$cachetime); |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'passwdconf'} = 1; |
| |
} |
| |
} |
| |
} else { |
| |
$resulttext = '<span class="LC_error">'. |
| |
&mt('An error occurred: [_1]',$putresult).'</span>'; |
| |
} |
| |
if ($errors) { |
| |
$resulttext .= '<p>'.&mt('The following errors occurred: ').'<ul>'. |
| |
$errors.'</ul></p>'; |
| |
} |
| |
return $resulttext; |
| |
} |
| |
|
| sub modify_usercreation { |
sub modify_usercreation { |
| my ($dom,%domconfig) = @_; |
my ($dom,%domconfig) = @_; |
| my ($resulttext,%curr_usercreation,%changes,%authallowed,%cancreate,%save_usercreate); |
my ($resulttext,%curr_usercreation,%changes,%authallowed,%cancreate,%save_usercreate); |
|
Line 14429 sub modify_selfcreation {
|
Line 17166 sub modify_selfcreation {
|
| $chgtext .= &mt('For self-created accounts verified by e-mail address, username is set as follows:'). |
$chgtext .= &mt('For self-created accounts verified by e-mail address, username is set as follows:'). |
| '<ul>'; |
'<ul>'; |
| foreach my $status (@statuses) { |
foreach my $status (@statuses) { |
| if ($type eq 'default') { |
if ($status eq 'default') { |
| $chgtext .= '<li>'.$othertitle.' -- '.$options{$cancreate{'emailverified'}{$status}}.'</li>'; |
$chgtext .= '<li>'.$othertitle.' -- '.$options{$cancreate{'emailverified'}{$status}}.'</li>'; |
| } else { |
} else { |
| $chgtext .= '<li>'.$usertypes{$status}.' -- '.$options{$cancreate{'emailverified'}{$status}}.'</li>'; |
$chgtext .= '<li>'.$usertypes{$status}.' -- '.$options{$cancreate{'emailverified'}{$status}}.'</li>'; |
|
Line 14698 sub modify_selfcreation {
|
Line 17435 sub modify_selfcreation {
|
| } |
} |
| |
|
| sub process_captcha { |
sub process_captcha { |
| my ($container,$changes,$newsettings,$current) = @_; |
my ($container,$changes,$newsettings,$currsettings) = @_; |
| return unless ((ref($changes) eq 'HASH') && (ref($newsettings) eq 'HASH') || (ref($current) eq 'HASH')); |
return unless ((ref($changes) eq 'HASH') && (ref($newsettings) eq 'HASH')); |
| $newsettings->{'captcha'} = $env{'form.'.$container.'_captcha'}; |
$newsettings->{'captcha'} = $env{'form.'.$container.'_captcha'}; |
| unless ($newsettings->{'captcha'} eq 'recaptcha' || $newsettings->{'captcha'} eq 'notused') { |
unless ($newsettings->{'captcha'} eq 'recaptcha' || $newsettings->{'captcha'} eq 'notused') { |
| $newsettings->{'captcha'} = 'original'; |
$newsettings->{'captcha'} = 'original'; |
| } |
} |
| if ($current->{'captcha'} ne $newsettings->{'captcha'}) { |
my %current; |
| |
if (ref($currsettings) eq 'HASH') { |
| |
%current = %{$currsettings}; |
| |
} |
| |
if ($current{'captcha'} ne $newsettings->{'captcha'}) { |
| if ($container eq 'cancreate') { |
if ($container eq 'cancreate') { |
| if (ref($changes->{'cancreate'}) eq 'ARRAY') { |
if (ref($changes->{'cancreate'}) eq 'ARRAY') { |
| push(@{$changes->{'cancreate'}},'captcha'); |
push(@{$changes->{'cancreate'}},'captcha'); |
| } elsif (!defined($changes->{'cancreate'})) { |
} elsif (!defined($changes->{'cancreate'})) { |
| $changes->{'cancreate'} = ['captcha']; |
$changes->{'cancreate'} = ['captcha']; |
| } |
} |
| |
} elsif ($container eq 'passwords') { |
| |
$changes->{'reset'} = 1; |
| } else { |
} else { |
| $changes->{'captcha'} = 1; |
$changes->{'captcha'} = 1; |
| } |
} |
|
Line 14732 sub process_captcha {
|
Line 17475 sub process_captcha {
|
| } |
} |
| $newsettings->{'recaptchaversion'} = $newversion; |
$newsettings->{'recaptchaversion'} = $newversion; |
| } |
} |
| if (ref($current->{'recaptchakeys'}) eq 'HASH') { |
if (ref($current{'recaptchakeys'}) eq 'HASH') { |
| $currpub = $current->{'recaptchakeys'}{'public'}; |
$currpub = $current{'recaptchakeys'}{'public'}; |
| $currpriv = $current->{'recaptchakeys'}{'private'}; |
$currpriv = $current{'recaptchakeys'}{'private'}; |
| unless ($newsettings->{'captcha'} eq 'recaptcha') { |
unless ($newsettings->{'captcha'} eq 'recaptcha') { |
| $newsettings->{'recaptchakeys'} = { |
$newsettings->{'recaptchakeys'} = { |
| public => '', |
public => '', |
|
Line 14742 sub process_captcha {
|
Line 17485 sub process_captcha {
|
| } |
} |
| } |
} |
| } |
} |
| if ($current->{'captcha'} eq 'recaptcha') { |
if ($current{'captcha'} eq 'recaptcha') { |
| $currversion = $current->{'recaptchaversion'}; |
$currversion = $current{'recaptchaversion'}; |
| if ($currversion ne '2') { |
if ($currversion ne '2') { |
| $currversion = 1; |
$currversion = 1; |
| } |
} |
|
Line 14755 sub process_captcha {
|
Line 17498 sub process_captcha {
|
| } elsif (!defined($changes->{'cancreate'})) { |
} elsif (!defined($changes->{'cancreate'})) { |
| $changes->{'cancreate'} = ['recaptchaversion']; |
$changes->{'cancreate'} = ['recaptchaversion']; |
| } |
} |
| |
} elsif ($container eq 'passwords') { |
| |
$changes->{'reset'} = 1; |
| } else { |
} else { |
| $changes->{'recaptchaversion'} = 1; |
$changes->{'recaptchaversion'} = 1; |
| } |
} |
|
Line 14766 sub process_captcha {
|
Line 17511 sub process_captcha {
|
| } elsif (!defined($changes->{'cancreate'})) { |
} elsif (!defined($changes->{'cancreate'})) { |
| $changes->{'cancreate'} = ['recaptchakeys']; |
$changes->{'cancreate'} = ['recaptchakeys']; |
| } |
} |
| |
} elsif ($container eq 'passwords') { |
| |
$changes->{'reset'} = 1; |
| } else { |
} else { |
| $changes->{'recaptchakeys'} = 1; |
$changes->{'recaptchakeys'} = 1; |
| } |
} |
|
Line 14881 sub modify_defaults {
|
Line 17628 sub modify_defaults {
|
| my ($resulttext,$mailmsgtxt,%newvalues,%changes,@errors); |
my ($resulttext,$mailmsgtxt,%newvalues,%changes,@errors); |
| my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
| my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def', |
my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def', |
| 'portal_def','intauth_cost','intauth_check','intauth_switch'); |
'portal_def'); |
| my @authtypes = ('internal','krb4','krb5','localauth','lti'); |
my @authtypes = ('internal','krb4','krb5','localauth','lti'); |
| foreach my $item (@items) { |
foreach my $item (@items) { |
| $newvalues{$item} = $env{'form.'.$item}; |
$newvalues{$item} = $env{'form.'.$item}; |
|
Line 14923 sub modify_defaults {
|
Line 17670 sub modify_defaults {
|
| push(@errors,$item); |
push(@errors,$item); |
| } |
} |
| } |
} |
| } elsif ($item eq 'intauth_cost') { |
|
| if ($newvalues{$item} ne '') { |
|
| if ($newvalues{$item} =~ /\D/) { |
|
| push(@errors,$item); |
|
| } |
|
| } |
|
| } elsif ($item eq 'intauth_check') { |
|
| if ($newvalues{$item} ne '') { |
|
| unless ($newvalues{$item} =~ /^(0|1|2)$/) { |
|
| push(@errors,$item); |
|
| } |
|
| } |
|
| } elsif ($item eq 'intauth_switch') { |
|
| if ($newvalues{$item} ne '') { |
|
| unless ($newvalues{$item} =~ /^(0|1|2)$/) { |
|
| push(@errors,$item); |
|
| } |
|
| } |
|
| } |
} |
| if (grep(/^\Q$item\E$/,@errors)) { |
if (grep(/^\Q$item\E$/,@errors)) { |
| $newvalues{$item} = $domdefaults{$item}; |
$newvalues{$item} = $domdefaults{$item}; |
|
Line 14949 sub modify_defaults {
|
Line 17678 sub modify_defaults {
|
| } |
} |
| $domdefaults{$item} = $newvalues{$item}; |
$domdefaults{$item} = $newvalues{$item}; |
| } |
} |
| |
my %staticdefaults = ( |
| |
'intauth_cost' => 10, |
| |
'intauth_check' => 0, |
| |
'intauth_switch' => 0, |
| |
); |
| |
foreach my $item ('intauth_cost','intauth_check','intauth_switch') { |
| |
if (exists($domdefaults{$item})) { |
| |
$newvalues{$item} = $domdefaults{$item}; |
| |
} else { |
| |
$newvalues{$item} = $staticdefaults{$item}; |
| |
} |
| |
} |
| my %defaults_hash = ( |
my %defaults_hash = ( |
| defaults => \%newvalues, |
defaults => \%newvalues, |
| ); |
); |
|
Line 15077 sub modify_defaults {
|
Line 17818 sub modify_defaults {
|
| lti => 'lti', |
lti => 'lti', |
| ); |
); |
| $value = $authnames{$shortauth{$value}}; |
$value = $authnames{$shortauth{$value}}; |
| } elsif ($item eq 'intauth_switch') { |
|
| my %optiondesc = &Apache::lonlocal::texthash ( |
|
| 0 => 'No', |
|
| 1 => 'Yes', |
|
| 2 => 'Yes, and copy existing passwd file to passwd.bak file', |
|
| ); |
|
| if ($value =~ /^(0|1|2)$/) { |
|
| $value = $optiondesc{$value}; |
|
| } else { |
|
| $value = &mt('none -- defaults to No'); |
|
| } |
|
| } elsif ($item eq 'intauth_check') { |
|
| my %optiondesc = &Apache::lonlocal::texthash ( |
|
| 0 => 'No', |
|
| 1 => 'Yes, allow login then update passwd file using default cost (if higher)', |
|
| 2 => 'Yes, disallow login if stored cost is less than domain default', |
|
| ); |
|
| if ($value =~ /^(0|1|2)$/) { |
|
| $value = $optiondesc{$value}; |
|
| } else { |
|
| $value = &mt('none -- defaults to No'); |
|
| } |
|
| } |
} |
| $resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$item},$value).'</li>'; |
$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$item},$value).'</li>'; |
| $mailmsgtext .= "$title->{$item} set to $value\n"; |
$mailmsgtext .= "$title->{$item} set to $value\n"; |
|
Line 15589 sub modify_coursecategories {
|
Line 18308 sub modify_coursecategories {
|
| } |
} |
| $resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
| } |
} |
| |
&Apache::lonnet::do_cache_new('cats',$dom,$cathash,3600); |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'cats'} = 1; |
| |
} |
| } |
} |
| $resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
| if ($changes{'unauth'} || $changes{'auth'}) { |
if ($changes{'unauth'} || $changes{'auth'}) { |
|
Line 16870 sub modify_usersessions {
|
Line 19593 sub modify_usersessions {
|
| } |
} |
| } |
} |
| $defaultshash{'usersessions'}{'offloadnow'} = {}; |
$defaultshash{'usersessions'}{'offloadnow'} = {}; |
| |
$defaultshash{'usersessions'}{'offloadoth'} = {}; |
| my @offloadnow = &Apache::loncommon::get_env_multiple('form.offloadnow'); |
my @offloadnow = &Apache::loncommon::get_env_multiple('form.offloadnow'); |
| my @okoffload; |
my @okoffload; |
| if (@offloadnow) { |
if (@offloadnow) { |
|
Line 16886 sub modify_usersessions {
|
Line 19610 sub modify_usersessions {
|
| } |
} |
| } |
} |
| } |
} |
| |
my @offloadoth = &Apache::loncommon::get_env_multiple('form.offloadoth'); |
| |
my @okoffloadoth; |
| |
if (@offloadoth) { |
| |
foreach my $server (@offloadoth) { |
| |
if (&Apache::lonnet::hostname($server) ne '') { |
| |
unless (grep(/^\Q$server\E$/,@okoffloadoth)) { |
| |
push(@okoffloadoth,$server); |
| |
} |
| |
} |
| |
} |
| |
if (@okoffloadoth) { |
| |
foreach my $lonhost (@okoffloadoth) { |
| |
$defaultshash{'usersessions'}{'offloadoth'}{$lonhost} = 1; |
| |
} |
| |
} |
| |
} |
| if (ref($domconfig{'usersessions'}) eq 'HASH') { |
if (ref($domconfig{'usersessions'}) eq 'HASH') { |
| if (ref($domconfig{'usersessions'}{'spares'}) eq 'HASH') { |
if (ref($domconfig{'usersessions'}{'spares'}) eq 'HASH') { |
| if (ref($changes{'spares'}) eq 'HASH') { |
if (ref($changes{'spares'}) eq 'HASH') { |
|
Line 16896 sub modify_usersessions {
|
Line 19636 sub modify_usersessions {
|
| } else { |
} else { |
| $savespares = 1; |
$savespares = 1; |
| } |
} |
| if (ref($domconfig{'usersessions'}{'offloadnow'}) eq 'HASH') { |
foreach my $offload ('offloadnow','offloadoth') { |
| foreach my $lonhost (keys(%{$domconfig{'usersessions'}{'offloadnow'}})) { |
if (ref($domconfig{'usersessions'}{$offload}) eq 'HASH') { |
| unless ($defaultshash{'usersessions'}{'offloadnow'}{$lonhost}) { |
foreach my $lonhost (keys(%{$domconfig{'usersessions'}{$offload}})) { |
| $changes{'offloadnow'} = 1; |
unless ($defaultshash{'usersessions'}{$offload}{$lonhost}) { |
| last; |
$changes{$offload} = 1; |
| } |
|
| } |
|
| unless ($changes{'offloadnow'}) { |
|
| foreach my $lonhost (keys(%{$defaultshash{'usersessions'}{'offloadnow'}})) { |
|
| unless ($domconfig{'usersessions'}{'offloadnow'}{$lonhost}) { |
|
| $changes{'offloadnow'} = 1; |
|
| last; |
last; |
| } |
} |
| } |
} |
| } |
unless ($changes{$offload}) { |
| } elsif (@okoffload) { |
foreach my $lonhost (keys(%{$defaultshash{'usersessions'}{$offload}})) { |
| |
unless ($domconfig{'usersessions'}{$offload}{$lonhost}) { |
| |
$changes{$offload} = 1; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
if (($offload eq 'offloadnow') && (@okoffload)) { |
| |
$changes{'offloadnow'} = 1; |
| |
} |
| |
if (($offload eq 'offloadoth') && (@okoffloadoth)) { |
| |
$changes{'offloadoth'} = 1; |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
if (@okoffload) { |
| $changes{'offloadnow'} = 1; |
$changes{'offloadnow'} = 1; |
| } |
} |
| } elsif (@okoffload) { |
if (@okoffloadoth) { |
| $changes{'offloadnow'} = 1; |
$changes{'offloadoth'} = 1; |
| |
} |
| } |
} |
| my $nochgmsg = &mt('No changes made to settings for user session hosting/offloading.'); |
my $nochgmsg = &mt('No changes made to settings for user session hosting/offloading.'); |
| if ((keys(%changes) > 0) || ($savespares)) { |
if ((keys(%changes) > 0) || ($savespares)) { |
|
Line 16932 sub modify_usersessions {
|
Line 19684 sub modify_usersessions {
|
| if (ref($defaultshash{'usersessions'}{'offloadnow'}) eq 'HASH') { |
if (ref($defaultshash{'usersessions'}{'offloadnow'}) eq 'HASH') { |
| $domdefaults{'offloadnow'} = $defaultshash{'usersessions'}{'offloadnow'}; |
$domdefaults{'offloadnow'} = $defaultshash{'usersessions'}{'offloadnow'}; |
| } |
} |
| |
if (ref($defaultshash{'usersessions'}{'offloadoth'}) eq 'HASH') { |
| |
$domdefaults{'offloadoth'} = $defaultshash{'usersessions'}{'offloadoth'}; |
| |
} |
| } |
} |
| my $cachetime = 24*60*60; |
my $cachetime = 24*60*60; |
| &Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
|
Line 17011 sub modify_usersessions {
|
Line 19766 sub modify_usersessions {
|
| if ($changes{'offloadnow'}) { |
if ($changes{'offloadnow'}) { |
| if (ref($defaultshash{'usersessions'}{'offloadnow'}) eq 'HASH') { |
if (ref($defaultshash{'usersessions'}{'offloadnow'}) eq 'HASH') { |
| if (keys(%{$defaultshash{'usersessions'}{'offloadnow'}}) > 0) { |
if (keys(%{$defaultshash{'usersessions'}{'offloadnow'}}) > 0) { |
| $resulttext .= '<li>'.&mt('Switch active users on next access, for server(s):').'<ul>'; |
$resulttext .= '<li>'.&mt('Switch any active user on next access, for server(s):').'<ul>'; |
| foreach my $lonhost (sort(keys(%{$defaultshash{'usersessions'}{'offloadnow'}}))) { |
foreach my $lonhost (sort(keys(%{$defaultshash{'usersessions'}{'offloadnow'}}))) { |
| $resulttext .= '<li>'.$lonhost.'</li>'; |
$resulttext .= '<li>'.$lonhost.'</li>'; |
| } |
} |
| $resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
| } else { |
} else { |
| $resulttext .= '<li>'.&mt('No servers now set to switch active users on next access.'); |
$resulttext .= '<li>'.&mt('No servers now set to switch any active user on next access.'); |
| } |
} |
| } else { |
} else { |
| $resulttext .= '<li>'.&mt('No servers now set to switch active users on next access.').'</li>'; |
$resulttext .= '<li>'.&mt('No servers now set to switch any active user on next access.').'</li>'; |
| |
} |
| |
} |
| |
if ($changes{'offloadoth'}) { |
| |
if (ref($defaultshash{'usersessions'}{'offloadoth'}) eq 'HASH') { |
| |
if (keys(%{$defaultshash{'usersessions'}{'offloadoth'}}) > 0) { |
| |
$resulttext .= '<li>'.&mt('Switch other institutions on next access, for server(s):').'<ul>'; |
| |
foreach my $lonhost (sort(keys(%{$defaultshash{'usersessions'}{'offloadoth'}}))) { |
| |
$resulttext .= '<li>'.$lonhost.'</li>'; |
| |
} |
| |
$resulttext .= '</ul>'; |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No servers now set to switch other institutions on next access.'); |
| |
} |
| |
} else { |
| |
$resulttext .= '<li>'.&mt('No servers now set to switch other institutions on next access.').'</li>'; |
| } |
} |
| } |
} |
| $resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
|
Line 18106 function balancerChange(balnum,baltotal,
|
Line 20876 function balancerChange(balnum,baltotal,
|
| END |
END |
| } |
} |
| |
|
| |
|
| sub new_spares_js { |
sub new_spares_js { |
| my @sparestypes = ('primary','default'); |
my @sparestypes = ('primary','default'); |
| my $types = join("','",@sparestypes); |
my $types = join("','",@sparestypes); |
|
Line 18179 function updateNewSpares(formname,lonhos
|
Line 20950 function updateNewSpares(formname,lonhos
|
| function checkNewSpares(lonhost,type) { |
function checkNewSpares(lonhost,type) { |
| var newSpare = document.getElementById('newspare_'+type+'_'+lonhost); |
var newSpare = document.getElementById('newspare_'+type+'_'+lonhost); |
| var chosen = newSpare.options[newSpare.selectedIndex].value; |
var chosen = newSpare.options[newSpare.selectedIndex].value; |
| if (chosen != '') { |
if (chosen != '') { |
| var othertype; |
var othertype; |
| var othernewSpare; |
var othernewSpare; |
| if (type == 'primary') { |
if (type == 'primary') { |
|
Line 18313 function toggleDisplay(domForm,caller) {
|
Line 21084 function toggleDisplay(domForm,caller) {
|
| var dispval = 'block'; |
var dispval = 'block'; |
| var selfcreateRegExp = /^cancreate_emailverified/; |
var selfcreateRegExp = /^cancreate_emailverified/; |
| if (caller == 'emailoptions') { |
if (caller == 'emailoptions') { |
| optionsElement = domForm.cancreate_email; |
optionsElement = domForm.cancreate_email; |
| } |
} |
| if (caller == 'studentsubmission') { |
if (caller == 'studentsubmission') { |
| optionsElement = domForm.postsubmit; |
optionsElement = domForm.postsubmit; |
|
Line 18368 sub devalidate_remote_domconfs {
|
Line 21139 sub devalidate_remote_domconfs {
|
| my %servers = &Apache::lonnet::internet_dom_servers($dom); |
my %servers = &Apache::lonnet::internet_dom_servers($dom); |
| my %thismachine; |
my %thismachine; |
| map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
| my @posscached = ('domainconfig','domdefaults','ltitools','usersessions','directorysrch'); |
my @posscached = ('domainconfig','domdefaults','ltitools','usersessions', |
| |
'directorysrch','passwdconf','cats'); |
| if (keys(%servers)) { |
if (keys(%servers)) { |
| foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
| next if ($thismachine{$server}); |
next if ($thismachine{$server}); |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface