|
version 1.356, 2019/04/26 20:22:18
|
version 1.378, 2021/02/01 15:58:41
|
|
Line 176 use Locale::Language;
|
Line 176 use Locale::Language;
|
| use DateTime::TimeZone; |
use DateTime::TimeZone; |
| use DateTime::Locale; |
use DateTime::Locale; |
| use Time::HiRes qw( sleep ); |
use Time::HiRes qw( sleep ); |
| |
use Net::CIDR; |
| |
|
| my $registered_cleanup; |
my $registered_cleanup; |
| my $modified_urls; |
my $modified_urls; |
|
Line 219 sub handler {
|
Line 220 sub handler {
|
| 'serverstatuses','requestcourses','helpsettings', |
'serverstatuses','requestcourses','helpsettings', |
| 'coursedefaults','usersessions','loadbalancing', |
'coursedefaults','usersessions','loadbalancing', |
| 'requestauthor','selfenrollment','inststatus', |
'requestauthor','selfenrollment','inststatus', |
| 'ltitools','ssl','trust','lti','passwords'],$dom); |
'ltitools','ssl','trust','lti','privacy','passwords', |
| |
'proctoring','wafproxy'],$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 248 sub handler {
|
| } |
} |
| } |
} |
| } |
} |
| my @prefs_order = ('rolecolors','login','defaults','passwords','quotas','autoenroll', |
if (ref($domconfig{'proctoring'}) eq 'HASH') { |
| 'autoupdate','autocreate','directorysrch','contacts', |
if (ref($encconfig{'proctoring'}) eq 'HASH') { |
| 'usercreation','selfcreation','usermodification','scantron', |
foreach my $provider (keys(%{$domconfig{'proctoring'}})) { |
| 'requestcourses','requestauthor','coursecategories', |
if ((ref($domconfig{'proctoring'}{$provider}) eq 'HASH') && |
| 'serverstatuses','helpsettings','coursedefaults', |
(ref($encconfig{'proctoring'}{$provider}) eq 'HASH')) { |
| 'ltitools','selfenrollment','usersessions','ssl','trust','lti'); |
foreach my $item ('key','secret') { |
| |
$domconfig{'proctoring'}{$provider}{$item} = $encconfig{'proctoring'}{$provider}{$item}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my @prefs_order = ('rolecolors','login','defaults','wafproxy','passwords','quotas', |
| |
'autoenroll','autoupdate','autocreate','directorysrch', |
| |
'contacts','privacy','usercreation','selfcreation', |
| |
'usermodification','scantron','requestcourses','requestauthor', |
| |
'coursecategories','serverstatuses','helpsettings','coursedefaults', |
| |
'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 296 sub handler {
|
Line 311 sub handler {
|
| print => \&print_defaults, |
print => \&print_defaults, |
| modify => \&modify_defaults, |
modify => \&modify_defaults, |
| }, |
}, |
| |
'wafproxy' => |
| |
{ text => 'Web Application Firewall/Reverse Proxy', |
| |
help => 'Domain_Configuration_WAF_Proxy', |
| |
header => [{col1 => 'Domain server', |
| |
col2 => 'Alias for WAF/Reverse Proxy', |
| |
}, |
| |
{col1 => 'Setting', |
| |
col2 => 'Value',}], |
| |
print => \&print_wafproxy, |
| |
modify => \&modify_wafproxy, |
| |
}, |
| 'passwords' => |
'passwords' => |
| { text => 'Passwords (Internal authentication)', |
{ text => 'Passwords (Internal authentication)', |
| help => 'Domain_Configuration_Passwords', |
help => 'Domain_Configuration_Passwords', |
|
Line 497 sub handler {
|
Line 523 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 535 sub handler {
|
Line 567 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 765 sub process_changes {
|
Line 805 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') { |
} elsif ($action eq 'passwords') { |
| $output = &modify_passwords($r,$dom,$confname,$lastactref,%domconfig); |
$output = &modify_passwords($r,$dom,$confname,$lastactref,%domconfig); |
| |
} elsif ($action eq 'wafproxy') { |
| |
$output = &modify_wafproxy($dom,$action,$lastactref,%domconfig); |
| } |
} |
| return $output; |
return $output; |
| } |
} |
|
Line 807 sub print_config_box {
|
Line 853 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 823 sub print_config_box {
|
Line 871 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 831 sub print_config_box {
|
Line 880 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 844 sub print_config_box {
|
Line 896 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') || ($action eq 'wafproxy')) { |
| $output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal); |
| } elsif ($action eq 'passwords') { |
} elsif ($action eq 'passwords') { |
| $output .= $item->{'print'}->('top',$dom,$confname,$settings,\$rowtotal); |
$output .= $item->{'print'}->('top',$dom,$confname,$settings,\$rowtotal); |
|
Line 879 sub print_config_box {
|
Line 931 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 'passwords')) { |
($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"'; |
|
Line 932 sub print_config_box {
|
Line 985 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') || ($action eq 'passwords')) { |
} elsif (($action eq 'contacts') || ($action eq 'privacy') || ($action eq 'passwords')) { |
| if ($action eq 'passwords') { |
if ($action eq 'passwords') { |
| $output .= $item->{'print'}->('lower',$dom,$confname,$settings,\$rowtotal); |
$output .= $item->{'print'}->('lower',$dom,$confname,$settings,\$rowtotal); |
| } else { |
} else { |
|
Line 947 sub print_config_box {
|
Line 1000 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>'."\n"; |
<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col2'}).'</td></tr>'."\n"; |
| if ($action eq 'passwords') { |
if ($action eq 'passwords') { |
| $output .= $item->{'print'}->('bottom',$dom,$confname,$settings,\$rowtotal); |
$output .= $item->{'print'}->('bottom',$dom,$confname,$settings,\$rowtotal); |
|
Line 966 sub print_config_box {
|
Line 1019 sub print_config_box {
|
| $rowtotal ++; |
$rowtotal ++; |
| } elsif (($action eq 'usermodification') || ($action eq 'coursedefaults') || |
} elsif (($action eq 'usermodification') || ($action eq 'coursedefaults') || |
| ($action eq 'defaults') || ($action eq 'directorysrch') || |
($action eq 'defaults') || ($action eq 'directorysrch') || |
| ($action eq 'helpsettings')) { |
($action eq 'helpsettings') || ($action eq 'wafproxy')) { |
| $output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal); |
| } elsif ($action eq 'scantron') { |
} elsif ($action eq 'scantron') { |
| $output .= $item->{'print'}->($r,'bottom',$dom,$confname,$settings,\$rowtotal); |
$output .= $item->{'print'}->($r,'bottom',$dom,$confname,$settings,\$rowtotal); |
|
Line 1149 sub print_config_box {
|
Line 1202 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 2790 function toggleLTITools(form,setting,ite
|
Line 2844 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 2896 function toggleLTI(form,setting,item) {
|
Line 3046 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 2905 function toggleLTI(form,setting,item) {
|
Line 3055 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 2914 function toggleLTI(form,setting,item) {
|
Line 3067 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 3628 sub print_contacts {
|
Line 3781 sub print_contacts {
|
| \%choices,$rownum); |
\%choices,$rownum); |
| $datatable .= $reports; |
$datatable .= $reports; |
| } elsif ($position eq 'lower') { |
} elsif ($position eq 'lower') { |
| $css_class = $rownum%2?' class="LC_odd_row"':''; |
my (%current,%excluded,%weights); |
| my ($threshold,$sysmail,%excluded,%weights); |
|
| my ($defaults,$names) = &Apache::loncommon::lon_status_items(); |
my ($defaults,$names) = &Apache::loncommon::lon_status_items(); |
| if ($lonstatus{'threshold'} =~ /^\d+$/) { |
if ($lonstatus{'threshold'} =~ /^\d+$/) { |
| $threshold = $lonstatus{'threshold'}; |
$current{'errorthreshold'} = $lonstatus{'threshold'}; |
| } else { |
} else { |
| $threshold = $defaults->{'threshold'}; |
$current{'errorthreshold'} = $defaults->{'threshold'}; |
| } |
} |
| if ($lonstatus{'sysmail'} =~ /^\d+$/) { |
if ($lonstatus{'sysmail'} =~ /^\d+$/) { |
| $sysmail = $lonstatus{'sysmail'}; |
$current{'errorsysmail'} = $lonstatus{'sysmail'}; |
| } else { |
} else { |
| $sysmail = $defaults->{'sysmail'}; |
$current{'errorsysmail'} = $defaults->{'sysmail'}; |
| } |
} |
| if (ref($lonstatus{'weights'}) eq 'HASH') { |
if (ref($lonstatus{'weights'}) eq 'HASH') { |
| foreach my $type ('E','W','N','U') { |
foreach my $type ('E','W','N','U') { |
|
Line 3659 sub print_contacts {
|
Line 3811 sub print_contacts {
|
| map {$excluded{$_} = 1; } @{$lonstatus{'excluded'}}; |
map {$excluded{$_} = 1; } @{$lonstatus{'excluded'}}; |
| } |
} |
| } |
} |
| $datatable .= '<tr'.$css_class.'>'. |
foreach my $item ('errorthreshold','errorsysmail') { |
| '<td class="LC_left_item"><span class="LC_nobreak">'. |
$css_class = $rownum%2?' class="LC_odd_row"':''; |
| $titles->{'errorthreshold'}. |
$datatable .= '<tr'.$css_class.'>'. |
| '</span></td><td class="LC_left_item">'. |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| '<input type="text" name="errorthreshold" value="'. |
$titles->{$item}. |
| $threshold.'" size="5" /></td></tr>'; |
'</span></td><td class="LC_left_item">'. |
| $rownum ++; |
'<input type="text" name="'.$item.'" value="'. |
| |
$current{$item}.'" size="5" /></td></tr>'; |
| |
$rownum ++; |
| |
} |
| $css_class = $rownum%2?' class="LC_odd_row"':''; |
$css_class = $rownum%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
| '<td class="LC_left_item">'. |
'<td class="LC_left_item">'. |
|
Line 3711 sub print_contacts {
|
Line 3866 sub print_contacts {
|
| } |
} |
| $datatable .= '</tr></table></td></tr>'; |
$datatable .= '</tr></table></td></tr>'; |
| $rownum ++; |
$rownum ++; |
| $css_class = $rownum%2?' class="LC_odd_row"':''; |
|
| $datatable .= '<tr'.$css_class.'>'. |
|
| '<td class="LC_left_item"><span class="LC_nobreak">'. |
|
| $titles->{'errorsysmail'}. |
|
| '</span></td><td class="LC_left_item">'. |
|
| '<input type="text" name="errorsysmail" value="'. |
|
| $sysmail.'" size="5" /></td></tr>'; |
|
| $rownum ++; |
|
| } elsif ($position eq 'bottom') { |
} elsif ($position eq 'bottom') { |
| my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| my (@posstypes,%usertypeshash); |
my (@posstypes,%usertypeshash); |
|
Line 4604 sub print_ltitools {
|
Line 4751 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 4806 sub ltitools_names {
|
Line 4953 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 4948 sub lti_names {
|
Line 5729 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 4966 sub lti_options {
|
Line 5747 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 5045 sub lti_options {
|
Line 5827 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 5070 sub lti_options {
|
Line 5859 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 5098 sub lti_options {
|
Line 5888 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 5111 sub lti_options {
|
Line 5902 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 5247 sub lti_options {
|
Line 6038 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 5800 sub print_validation_rows {
|
Line 6601 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 { |
sub print_passwords { |
| my ($position,$dom,$confname,$settings,$rowtotal) = @_; |
my ($position,$dom,$confname,$settings,$rowtotal) = @_; |
| my ($datatable,$css_class); |
my ($datatable,$css_class); |
|
Line 5887 sub print_passwords {
|
Line 6825 sub print_passwords {
|
| $datatable .= '<span class="LC_nobreak"><label>'. |
$datatable .= '<span class="LC_nobreak"><label>'. |
| '<input type="checkbox" name="passwords_case_sensitive" value="'. |
'<input type="checkbox" name="passwords_case_sensitive" value="'. |
| $item.'"'.$checkedcase.' />'.$usertypes->{$item}.'</label>'. |
$item.'"'.$checkedcase.' />'.$usertypes->{$item}.'</label>'. |
| '<span> '; |
'</span> '; |
| } |
} |
| } |
} |
| my $checkedcase; |
my $checkedcase; |
|
Line 5991 sub print_passwords {
|
Line 6929 sub print_passwords {
|
| &mt('(If you use the same account ... reset a password from this page.)').'</span><br /><br />'. |
&mt('(If you use the same account ... reset a password from this page.)').'</span><br /><br />'. |
| &mt('Include custom text:'); |
&mt('Include custom text:'); |
| if ($customurl) { |
if ($customurl) { |
| my $link = &Apache::loncommon::modal_link($customurl,&mt('Custom text file'),600,500, |
my $link = &Apache::loncommon::modal_link($customurl,&mt('custom text'),600,500, |
| undef,undef,undef,undef,'background-color:#ffffff'); |
undef,undef,undef,undef,'background-color:#ffffff'); |
| $datatable .= '<span class="LC_nobreak"> '.$link. |
$datatable .= '<span class="LC_nobreak"> '.$link. |
| '<label><input type="checkbox" name="passwords_custom_del"'. |
'<label><input type="checkbox" name="passwords_custom_del"'. |
|
Line 6087 sub print_passwords {
|
Line 7025 sub print_passwords {
|
| } |
} |
| } elsif ($position eq 'lower') { |
} elsif ($position eq 'lower') { |
| my ($min,$max,%chars,$expire,$numsaved); |
my ($min,$max,%chars,$expire,$numsaved); |
| |
$min = $Apache::lonnet::passwdmin; |
| if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
| if ($settings->{min}) { |
if ($settings->{min}) { |
| $min = $settings->{min}; |
$min = $settings->{min}; |
|
Line 6100 sub print_passwords {
|
Line 7039 sub print_passwords {
|
| if ($settings->{expire}) { |
if ($settings->{expire}) { |
| $expire = $settings->{expire}; |
$expire = $settings->{expire}; |
| } |
} |
| if ($settings->(numsaved}) { |
if ($settings->{numsaved}) { |
| $numsaved = $settings->(numsaved}; |
$numsaved = $settings->{numsaved}; |
| } |
} |
| } else { |
|
| $min = '7'; |
|
| } |
} |
| my %rulenames = &Apache::lonlocal::texthash( |
my %rulenames = &Apache::lonlocal::texthash( |
| uc => 'At least one upper case letter', |
uc => 'At least one upper case letter', |
|
Line 6115 sub print_passwords {
|
Line 7052 sub print_passwords {
|
| $css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr'.$css_class.'><td>'.$titles{'min'}.'</td>'. |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'min'}.'</td>'. |
| '<td class="LC_left_item"><span class="LC_nobreak">'. |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| '<input type="text" name="passwords_min" value="'.$min.'" size="3" />'. |
'<input type="text" name="passwords_min" value="'.$min.'" size="3" '. |
| '<span class="LC_fontsize_small"> '.&mt('(Leave blank for no minimum)').'</span>'. |
'onblur="javascript:warnIntPass(this);" />'. |
| |
'<span class="LC_fontsize_small"> '.&mt('(Enter an integer: 7 or larger)').'</span>'. |
| '</span></td></tr>'; |
'</span></td></tr>'; |
| $itemcount ++; |
$itemcount ++; |
| $css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr'.$css_class.'><td>'.$titles{'max'}.'</td>'. |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'max'}.'</td>'. |
| '<td class="LC_left_item"><span class="LC_nobreak">'. |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| '<input type="text" name="passwords_max" value="'.$max.'" size="3" />'. |
'<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 class="LC_fontsize_small"> '.&mt('(Leave blank for no maximum)').'</span>'. |
| '</span></td></tr>'; |
'</span></td></tr>'; |
| $itemcount ++; |
$itemcount ++; |
|
Line 6162 sub print_passwords {
|
Line 7101 sub print_passwords {
|
| $css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr'.$css_class.'><td>'.$titles{'expire'}.'</td>'. |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'expire'}.'</td>'. |
| '<td class="LC_left_item"><span class="LC_nobreak">'. |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| '<input type="text" name="passwords_expire" value="'.$expire.'" size="4" />'. |
'<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 class="LC_fontsize_small"> '.&mt('(Leave blank for no expiration)').'</span>'. |
| '</span></td></tr>'; |
'</span></td></tr>'; |
| $itemcount ++; |
$itemcount ++; |
| $css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr'.$css_class.'><td>'.$titles{'numsaved'}.'</td>'. |
$datatable .= '<tr'.$css_class.'><td>'.$titles{'numsaved'}.'</td>'. |
| '<td class="LC_left_item"><span class="LC_nobreak">'. |
'<td class="LC_left_item"><span class="LC_nobreak">'. |
| '<input type="text" name="passwords_numsaved" value="'.$numsaved.'" size="3" />'. |
'<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 class="LC_fontsize_small"> '.&mt('(Leave blank to not save previous passwords)').'</span>'. |
| '</span></td></tr>'; |
'</span></td></tr>'; |
| } else { |
} else { |
| my $checkedon; |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
| my $checkedoff = ' checked="checked"'; |
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) eq 'HASH') { |
| if ($settings->{crsownerchg}) { |
if (ref($settings->{crsownerchg}) eq 'HASH') { |
| $checkedon = $checkedoff; |
if (ref($settings->{crsownerchg}{'by'}) eq 'ARRAY') { |
| $checkedoff = ''; |
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"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
| $datatable .= '<tr '.$css_class.'>'. |
$datatable .= '<tr '.$css_class.'>'. |
| '<td>'. |
'<td>'. |
| &mt('Requirements').'<ul>'. |
&mt('Requirements').'<ul>'. |
| '<li>'.&mt("Course 'type' is not a Community").'</li>'. |
'<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('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("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>'. |
'</ul>'. |
| '</td>'. |
'</td>'. |
| '<td class="LC_left_item" colspan="2"><span class="LC_nobreak">'. |
'<td class="LC_left_item">'; |
| '<label><input type="radio" name="passwords_crsowner" value="1"'.$checkedon.' />'.&mt('Yes').'</label></span> '. |
foreach my $item ('by','for') { |
| '<span class="LC_nobreak"><label><input type="radio" name="passwords_crsowner" value="0"'.$checkedoff.' />'. |
$datatable .= '<fieldset style="display: inline-block;">'. |
| &mt('No').'</label></span>'. |
'<legend>'.$ownertitles{$item}.'</legend>'; |
| '</td></tr>'; |
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_wafproxy { |
| |
my ($position,$dom,$settings,$rowtotal) = @_; |
| |
my $css_class; |
| |
my $itemcount = 0; |
| |
my $datatable; |
| |
my %servers = &Apache::lonnet::internet_dom_servers($dom); |
| |
my (%othercontrol,%otherdoms,%aliases,%values,$setdom); |
| |
my %lt = &wafproxy_titles(); |
| |
foreach my $server (sort(keys(%servers))) { |
| |
my $serverhome = &Apache::lonnet::get_server_homeID($servers{$server}); |
| |
my $serverdom; |
| |
if ($serverhome ne $server) { |
| |
$serverdom = &Apache::lonnet::host_domain($serverhome); |
| |
$othercontrol{$server} = $serverdom; |
| |
} else { |
| |
$serverdom = &Apache::lonnet::host_domain($server); |
| |
if ($serverdom ne $dom) { |
| |
$othercontrol{$server} = $serverdom; |
| |
} else { |
| |
$setdom = 1; |
| |
if (ref($settings) eq 'HASH') { |
| |
%{$values{$dom}} = (); |
| |
if (ref($settings->{'alias'}) eq 'HASH') { |
| |
$aliases{$dom} = $settings->{'alias'}; |
| |
} |
| |
foreach my $item ('ipheader','trusted','vpnint','vpnext') { |
| |
$values{$dom}{$item} = $settings->{$item}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (keys(%othercontrol)) { |
| |
%otherdoms = reverse(%othercontrol); |
| |
foreach my $domain (keys(%otherdoms)) { |
| |
%{$values{$domain}} = (); |
| |
my %config = &Apache::lonnet::get_dom('configuration',['wafproxy'],$domain); |
| |
if (ref($config{$domain}) eq 'HASH') { |
| |
if (ref($config{$domain}{'wafproxy'}) eq 'HASH') { |
| |
$aliases{$domain} = $config{$domain}{'wafproxy'}{'alias'}; |
| |
foreach my $item ('ipheader','trusted','vpnint','vpnext') { |
| |
$values{$domain}{$item} = $config{$domain}{'wafproxy'}{$item}; |
| |
} |
| |
} |
| |
} |
| |
} |
| } |
} |
| |
if ($position eq 'top') { |
| |
my %servers = &Apache::lonnet::internet_dom_servers($dom); |
| |
foreach my $server (sort(keys(%servers))) { |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
| |
$datatable .= '<tr'.$css_class.'>'. |
| |
'<td>'.&mt('Hostname').': '. |
| |
&Apache::lonnet::hostname($server).'</td>'. |
| |
'<td class="LC_right_item">'; |
| |
if ($othercontrol{$server}) { |
| |
my $current; |
| |
if (ref($aliases{$othercontrol{$server}}) eq 'HASH') { |
| |
$current = $aliases{$othercontrol{$server}{$server}}; |
| |
} |
| |
if ($current) { |
| |
$datatable .= $current; |
| |
} else { |
| |
$datatable .= &mt('None in effect'); |
| |
} |
| |
$datatable .= '<br /><span class="LC_small">('. |
| |
&mt('WAF/Reverse Proxy controlled by domain: [_1]', |
| |
'<b>'.$othercontrol{$server}.'</b>').'</span>'; |
| |
} else { |
| |
my $current; |
| |
if (ref($aliases{$dom}) eq 'HASH') { |
| |
if ($aliases{$dom}{$server}) { |
| |
$current = $aliases{$dom}{$server}; |
| |
} |
| |
} |
| |
$datatable .= '<input type="text" name="wafproxy_alias_'.$server.'" '. |
| |
'value="'.$current.'" size="30" />'; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
} |
| |
} else { |
| |
if ($setdom) { |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
| |
$datatable .= '<tr'.$css_class.'>'. |
| |
'<td class="LC_left_item">'.&mt('Domain: [_1]','<b>'.$dom.'</b>').'<br /><br />'. |
| |
&mt('Format for comma separated IP blocks').':<br />'. |
| |
&mt('A.B.C.D/N or A.B.C.D - E.F.G.H').'</td>'. |
| |
'<td class="LC_left_item"><table>'; |
| |
foreach my $item ('ipheader','trusted','vpnint','vpnext') { |
| |
$datatable .= '<tr>'. |
| |
'<td valign="top">'.$lt{$item}.': '; |
| |
if ($item eq 'ipheader') { |
| |
$datatable .= '<input type="text" value="'.$values{$dom}{$item}.'" '. |
| |
'name="wafproxy_'.$item.'" />'; |
| |
|
| |
} else { |
| |
$datatable .= '<textarea name="wafproxy_'.$item.'" rows="3" cols="80">'. |
| |
$values{$dom}{$item}.'</textarea>'; |
| |
} |
| |
$datatable .= '</td></tr>'; |
| |
} |
| |
$datatable .= '</table></td></tr>'; |
| |
} |
| |
if (keys(%otherdoms)) { |
| |
foreach my $domain (sort(keys(%otherdoms))) { |
| |
$itemcount ++; |
| |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
| |
$datatable .= '<tr'.$css_class.'>'. |
| |
'<td class="LC_left_item">'.&mt('Domain: [_1]',$domain).'</td>'. |
| |
'<td class="LC_left_item"><table>'; |
| |
foreach my $item ('ipheader','trusted','vpnint','vpnext') { |
| |
my $showval = &mt('None'); |
| |
if ($values{$domain}{$item}) { |
| |
$showval = $values{$domain}{$item}; |
| |
} |
| |
$datatable .= '<tr>'. |
| |
'<td>'.$lt{$item}.': '.$showval.'</td></tr>'; |
| |
} |
| |
$datatable .= '</table></td></tr>'; |
| |
} |
| |
} |
| |
} |
| |
$$rowtotal += $itemcount; |
| return $datatable; |
return $datatable; |
| } |
} |
| |
|
| |
sub wafproxy_titles { |
| |
return &Apache::lonlocal::texthash( |
| |
vpnint => 'Internal IP Range(s) for VPN sessions', |
| |
vpnext => 'IP Range for backend WAF connections', |
| |
trusted => 'Trusted IP range(s)', |
| |
ipheader => 'Custom request header', |
| |
); |
| |
} |
| |
|
| 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 6213 sub print_usersessions {
|
Line 7322 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 6663 sub current_offloads_to {
|
Line 7777 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 6683 sub spares_row {
|
Line 7798 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 6697 sub spares_row {
|
Line 7817 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"; |
"\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"; |
| |
} |
| 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 7217 sub contact_titles {
|
Line 8344 sub contact_titles {
|
| 'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates', |
'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates', |
| 'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID', |
'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID', |
| 'hostipmail' => 'E-mail from nightly check of hostname/IP network changes', |
'hostipmail' => 'E-mail from nightly check of hostname/IP network changes', |
| 'errorthreshold' => 'Error/warning threshold for status e-mail', |
'errorthreshold' => 'Error count threshold for status e-mail to admin(s)', |
| 'errorsysmail' => 'Error threshold for e-mail to core group', |
'errorsysmail' => 'Error count threshold for e-mail to developer group', |
| 'errorweights' => 'Weights used to compute error count', |
'errorweights' => 'Weights used to compute error count', |
| 'errorexcluded' => 'Servers with unsent updates excluded from count', |
'errorexcluded' => 'Servers with unsent updates excluded from count', |
| ); |
); |
|
Line 9095 ENDSCRIPT
|
Line 10222 ENDSCRIPT
|
| } |
} |
| |
|
| sub passwords_javascript { |
sub passwords_javascript { |
| 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.'); |
my %intalert = &Apache::lonlocal::texthash ( |
| my $intauthcost = &mt('Warning: bcrypt encryption cost for internal authentication must be an integer.'); |
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.', |
| &js_escape(\$intauthcheck); |
authcost => 'Warning: bcrypt encryption cost for internal authentication must be an integer.', |
| &js_escape(\$intauthcost); |
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"; |
my $intauthjs = <<"ENDSCRIPT"; |
| |
|
| function warnIntAuth(field) { |
function warnIntAuth(field) { |
| if (field.name == 'intauth_check') { |
if (field.name == 'intauth_check') { |
| if (field.value == '2') { |
if (field.value == '2') { |
| alert('$intauthcheck'); |
alert('$intalert{authcheck}'); |
| } |
} |
| } |
} |
| if (field.name == 'intauth_cost') { |
if (field.name == 'intauth_cost') { |
|
Line 9112 function warnIntAuth(field) {
|
Line 10245 function warnIntAuth(field) {
|
| if (field.value != '') { |
if (field.value != '') { |
| var regexdigit=/^\\d+\$/; |
var regexdigit=/^\\d+\$/; |
| if (!regexdigit.test(field.value)) { |
if (!regexdigit.test(field.value)) { |
| alert('$intauthcost'); |
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 { |
| |
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 = ''; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 9366 sub build_category_rows {
|
Line 10552 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 9389 sub modifiable_userdata_row {
|
Line 10575 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 9438 sub modifiable_userdata_row {
|
Line 10626 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 9476 sub modifiable_userdata_row {
|
Line 10671 sub modifiable_userdata_row {
|
| 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 9504 sub modifiable_userdata_row {
|
Line 10717 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 10591 sub check_configuser {
|
Line 11806 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 12114 sub modify_ltitools {
|
Line 13329 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 12293 sub get_ltitools_id {
|
Line 13508 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 12469 sub modify_lti {
|
Line 14214 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 12494 sub modify_lti {
|
Line 14246 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 12720 sub modify_lti {
|
Line 14472 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 13442 sub modify_contacts {
|
Line 15199 sub modify_contacts {
|
| $contacts_hash{'contacts'}{'lonstatus'}{$item} = \@excluded; |
$contacts_hash{'contacts'}{'lonstatus'}{$item} = \@excluded; |
| } |
} |
| } elsif ($item eq 'weights') { |
} elsif ($item eq 'weights') { |
| foreach my $type ('E','W','N') { |
foreach my $type ('E','W','N','U') { |
| $env{'form.error'.$item.'_'.$type} =~ s/^\s+|\s+$//g; |
$env{'form.error'.$item.'_'.$type} =~ s/^\s+|\s+$//g; |
| if ($env{'form.error'.$item.'_'.$type} =~ /^\d+$/) { |
if ($env{'form.error'.$item.'_'.$type} =~ /^\d+$/) { |
| unless ($env{'form.error'.$item.'_'.$type} == $lonstatus_defs->{$type}) { |
unless ($env{'form.error'.$item.'_'.$type} == $lonstatus_defs->{$type}) { |
|
Line 13969 sub modify_contacts {
|
Line 15726 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 { |
sub modify_passwords { |
| my ($r,$dom,$confname,$lastactref,%domconfig) = @_; |
my ($r,$dom,$confname,$lastactref,%domconfig) = @_; |
| my ($resulttext,%current,%changes,%newvalues,@oktypes,$errors, |
my ($resulttext,%current,%changes,%newvalues,@oktypes,$errors, |
|
Line 14025 sub modify_passwords {
|
Line 16006 sub modify_passwords {
|
| 'intauth_cost' => 10, |
'intauth_cost' => 10, |
| 'intauth_check' => 0, |
'intauth_check' => 0, |
| 'intauth_switch' => 0, |
'intauth_switch' => 0, |
| 'min' => 7, |
|
| ); |
); |
| |
$staticdefaults{'min'} = $Apache::lonnet::passwdmin; |
| foreach my $type (@oktypes) { |
foreach my $type (@oktypes) { |
| $staticdefaults{'resetpostlink'}{$type} = ['email','username']; |
$staticdefaults{'resetpostlink'}{$type} = ['email','username']; |
| } |
} |
|
Line 14038 sub modify_passwords {
|
Line 16019 sub modify_passwords {
|
| if ($current{'resetlink'} ne $linklife) { |
if ($current{'resetlink'} ne $linklife) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
| } elsif (!exists($domconfig{passwords})) { |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| if ($staticdefaults{'resetlink'} ne $linklife) { |
if ($staticdefaults{'resetlink'} ne $linklife) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
|
Line 14059 sub modify_passwords {
|
Line 16040 sub modify_passwords {
|
| if (@diffs > 0) { |
if (@diffs > 0) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
| } elsif (!exists($domconfig{passwords})) { |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetcase'},\@casesens); |
my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetcase'},\@casesens); |
| if (@diffs > 0) { |
if (@diffs > 0) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
|
Line 14071 sub modify_passwords {
|
Line 16052 sub modify_passwords {
|
| if ($current{'resetprelink'} ne $newvalues{'resetprelink'}) { |
if ($current{'resetprelink'} ne $newvalues{'resetprelink'}) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
| } elsif (!exists($domconfig{passwords})) { |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| if ($staticdefaults{'resetprelink'} ne $newvalues{'resetprelink'}) { |
if ($staticdefaults{'resetprelink'} ne $newvalues{'resetprelink'}) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
|
Line 14098 sub modify_passwords {
|
Line 16079 sub modify_passwords {
|
| } else { |
} else { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
| } elsif (!exists($domconfig{passwords})) { |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetpostlink'}{$type},\@postlink); |
my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetpostlink'}{$type},\@postlink); |
| if (@diffs > 0) { |
if (@diffs > 0) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
|
Line 14120 sub modify_passwords {
|
Line 16101 sub modify_passwords {
|
| if (@diffs > 0) { |
if (@diffs > 0) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
| } |
} |
| } elsif (!exists($domconfig{passwords})) { |
} elsif (!ref($domconfig{passwords}) eq 'HASH') { |
| my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetemail'},\@resetemail); |
my @diffs = &Apache::loncommon::compare_arrays($staticdefaults{'resetemail'},\@resetemail); |
| if (@diffs > 0) { |
if (@diffs > 0) { |
| $changes{'reset'} = 1; |
$changes{'reset'} = 1; |
|
Line 14207 sub modify_passwords {
|
Line 16188 sub modify_passwords {
|
| $env{'form.passwords_'.$rule} =~ s/^\s+|\s+$//g; |
$env{'form.passwords_'.$rule} =~ s/^\s+|\s+$//g; |
| my $ruleok; |
my $ruleok; |
| if ($rule eq 'expire') { |
if ($rule eq 'expire') { |
| if ($env{'form.passwords_'.$rule} =~ /^\d+(|\.\d*)$/) { |
if (($env{'form.passwords_'.$rule} =~ /^\d+(|\.\d*)$/) && |
| $ruleok = 1; |
($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+$/) { |
} elsif (($env{'form.passwords_'.$rule} =~ /^\d+$/) && |
| |
($env{'form.passwords_'.$rule} ne '0')) { |
| $ruleok = 1; |
$ruleok = 1; |
| } |
} |
| if ($ruleok) { |
if ($ruleok) { |
|
Line 14223 sub modify_passwords {
|
Line 16212 sub modify_passwords {
|
| if ($staticdefaults{$rule} ne $newvalues{$rule}) { |
if ($staticdefaults{$rule} ne $newvalues{$rule}) { |
| $changes{'rules'} = 1; |
$changes{'rules'} = 1; |
| } |
} |
| |
} else { |
| |
$changes{'rules'} = 1; |
| } |
} |
| } elsif (exists($current{$rule})) { |
} elsif (exists($current{$rule})) { |
| $changes{'rules'} = 1; |
$changes{'rules'} = 1; |
|
Line 14248 sub modify_passwords {
|
Line 16239 sub modify_passwords {
|
| } |
} |
| } |
} |
| } |
} |
| if ($env{'form.passwords_crsowner'}) { |
my %crsownerchg = ( |
| $newvalues{'crsownerchg'} = 1; |
by => [], |
| unless ($current{'crsownerchg'}) { |
for => [], |
| $changes{'crsownerchg'} = 1; |
); |
| |
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; |
| |
} |
| } |
} |
| } elsif ($current{'crsownerchg'}) { |
|
| $changes{'crsownerchg'} = 1; |
|
| } |
} |
| |
|
| my %confighash = ( |
my %confighash = ( |
|
Line 14278 sub modify_passwords {
|
Line 16292 sub modify_passwords {
|
| $resulttext .= '<li>'.&mt('CAPTCHA validation set to use: original CAPTCHA').'</li>'; |
$resulttext .= '<li>'.&mt('CAPTCHA validation set to use: original CAPTCHA').'</li>'; |
| } elsif ($confighash{'passwords'}{'captcha'} eq 'recaptcha') { |
} elsif ($confighash{'passwords'}{'captcha'} eq 'recaptcha') { |
| $resulttext .= '<li>'.&mt('CAPTCHA validation set to use: reCAPTCHA').' '. |
$resulttext .= '<li>'.&mt('CAPTCHA validation set to use: reCAPTCHA').' '. |
| &mt('version: [_1]',$confighash{'passwords'}{'recaptchaversion'}).'<br />'. |
&mt('version: [_1]',$confighash{'passwords'}{'recaptchaversion'}).'<br />'; |
| &mt('Public key: [_1]',$confighash{'passwords'}{'recaptchapub'}).'</br>'. |
if (ref($confighash{'passwords'}{'recaptchakeys'}) eq 'HASH') { |
| &mt('Private key: [_1]',$confighash{'passwords'}{'recaptchapriv'}).'</li>'; |
$resulttext .= &mt('Public key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'public'}).'</br>'. |
| |
&mt('Private key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'private'}).'</li>'; |
| |
} |
| } else { |
} else { |
| $resulttext .= '<li>'.&mt('No CAPTCHA validation').'</li>'; |
$resulttext .= '<li>'.&mt('No CAPTCHA validation').'</li>'; |
| } |
} |
|
Line 14359 sub modify_passwords {
|
Line 16375 sub modify_passwords {
|
| } |
} |
| if ($confighash{'passwords'}{'resetcustom'}) { |
if ($confighash{'passwords'}{'resetcustom'}) { |
| my $customlink = &Apache::loncommon::modal_link($confighash{'passwords'}{'resetcustom'}, |
my $customlink = &Apache::loncommon::modal_link($confighash{'passwords'}{'resetcustom'}, |
| $titles{custom},600,500); |
&mt('custom text'),600,500,undef,undef, |
| $resulttext .= '<li>'.&mt('Preamble to "Forgot Password" form includes [_1]',$customlink).'</li>'; |
undef,undef,'background-color:#ffffff'); |
| |
$resulttext .= '<li>'.&mt('Preamble to "Forgot Password" form includes: [_1]',$customlink).'</li>'; |
| } else { |
} else { |
| $resulttext .= '<li>'.&mt('No custom text included in preamble to "Forgot Password" form').'</li>'; |
$resulttext .= '<li>'.&mt('No custom text included in preamble to "Forgot Password" form').'</li>'; |
| } |
} |
|
Line 14397 sub modify_passwords {
|
Line 16414 sub modify_passwords {
|
| if ($confighash{'passwords'}{$rule} eq '') { |
if ($confighash{'passwords'}{$rule} eq '') { |
| if ($rule eq 'min') { |
if ($rule eq 'min') { |
| $resulttext .= '<li>'.&mt('[_1] not set.',$titles{$rule}); |
$resulttext .= '<li>'.&mt('[_1] not set.',$titles{$rule}); |
| ' '.&mt('Default of 7 will be used').'</li>'; |
' '.&mt('Default of [_1] will be used', |
| |
$Apache::lonnet::passwdmin).'</li>'; |
| } else { |
} else { |
| $resulttext .= '<li>'.&mt('[_1] set to none',$titles{$rule}).'</li>'; |
$resulttext .= '<li>'.&mt('[_1] set to none',$titles{$rule}).'</li>'; |
| } |
} |
|
Line 14405 sub modify_passwords {
|
Line 16423 sub modify_passwords {
|
| $resulttext .= '<li>'.&mt('[_1] set to [_2]',$titles{$rule},$confighash{'passwords'}{$rule}).'</li>'; |
$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') { |
} elsif ($key eq 'crsownerchg') { |
| if ($confighash{'passwords'}{'crsownerchg'}) { |
if (ref($confighash{'passwords'}{'crsownerchg'}) eq 'HASH') { |
| $resulttext .= '<li>'.&mt('Course owner may change student passwords.').'</li>'; |
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 { |
} else { |
| $resulttext .= '<li>'.&mt('Course owner may not change student passwords.'); |
$resulttext .= '<li>'.&mt('Course owner may not change student passwords.').'</li>'; |
| } |
} |
| } |
} |
| $resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
|
Line 15256 sub modify_selfcreation {
|
Line 17311 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 15525 sub modify_selfcreation {
|
Line 17580 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 15559 sub process_captcha {
|
Line 17620 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 15569 sub process_captcha {
|
Line 17630 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 15582 sub process_captcha {
|
Line 17643 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 15593 sub process_captcha {
|
Line 17656 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 16388 sub modify_coursecategories {
|
Line 18453 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 17502 sub modify_selfenrollment {
|
Line 19571 sub modify_selfenrollment {
|
| return $resulttext; |
return $resulttext; |
| } |
} |
| |
|
| |
sub modify_wafproxy { |
| |
my ($dom,$action,$lastactref,%domconfig) = @_; |
| |
my %servers = &Apache::lonnet::internet_dom_servers($dom); |
| |
my (%othercontrol,%canset,%values,%curralias,%currvalue,@warnings,%wafproxy, |
| |
%changes,%expirecache); |
| |
foreach my $server (sort(keys(%servers))) { |
| |
my $serverhome = &Apache::lonnet::get_server_homeID($servers{$server}); |
| |
if ($serverhome eq $server) { |
| |
my $serverdom = &Apache::lonnet::host_domain($server); |
| |
if ($serverdom eq $dom) { |
| |
$canset{$server} = 1; |
| |
if (ref($domconfig{'wafproxy'}) eq 'HASH') { |
| |
%{$values{$dom}} = (); |
| |
if (ref($domconfig{'wafproxy'}{'alias'}) eq 'HASH') { |
| |
%curralias = %{$domconfig{'wafproxy'}{'alias'}}; |
| |
} |
| |
foreach my $item ('ipheader','trusted','exempt') { |
| |
$currvalue{$item} = $domconfig{'wafproxy'}{$item}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my $output; |
| |
if (keys(%canset)) { |
| |
%{$wafproxy{'alias'}} = (); |
| |
foreach my $key (sort(keys(%canset))) { |
| |
$wafproxy{'alias'}{$key} = $env{'form.wafproxy_alias_'.$key}; |
| |
$wafproxy{'alias'}{$key} =~ s/^\s+|\s+$//g; |
| |
if ($wafproxy{'alias'}{$key} ne $curralias{$key}) { |
| |
$changes{'alias'} = 1; |
| |
} |
| |
if ($wafproxy{'alias'}{$key} eq '') { |
| |
if ($curralias{$key}) { |
| |
$expirecache{$key} = 1; |
| |
} |
| |
delete($wafproxy{'alias'}{$key}); |
| |
} |
| |
} |
| |
unless (keys(%{$wafproxy{'alias'}})) { |
| |
delete($wafproxy{'alias'}); |
| |
} |
| |
# Localization for values in %warn occus in &mt() calls separately. |
| |
my %warn = ( |
| |
trusted => 'trusted IP range(s)', |
| |
exempt => 'exempt IP range(s)', |
| |
); |
| |
foreach my $item ('ipheader','trusted','exempt') { |
| |
my $possible = $env{'form.wafproxy_'.$item}; |
| |
$possible =~ s/^\s+|\s+$//g; |
| |
if ($possible ne '') { |
| |
if ($item eq 'ipheader') { |
| |
$wafproxy{$item} = $possible; |
| |
} else { |
| |
my (@ok,$count); |
| |
$possible =~ s/[\r\n]+/\s/g; |
| |
$possible =~ s/\s*-\s*/-/g; |
| |
$possible =~ s/\s+/,/g; |
| |
$count = 0; |
| |
if ($possible) { |
| |
foreach my $poss (split(/\,/,$possible)) { |
| |
$count ++; |
| |
if (&validate_ip_pattern($poss)) { |
| |
push(@ok,$poss); |
| |
} |
| |
} |
| |
if (@ok) { |
| |
$wafproxy{$item} = join(',',@ok); |
| |
} |
| |
my $diff = $count - scalar(@ok); |
| |
if ($diff) { |
| |
push(@warnings,'<li>'. |
| |
&mt('[quant,_1,IP] invalid and excluded from saved value for [_2]', |
| |
$diff,$warn{$item}). |
| |
'</li>'); |
| |
} |
| |
if ($wafproxy{$item} ne $currvalue{$item}) { |
| |
$changes{$item} = 1; |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
if ($currvalue{$item}) { |
| |
$changes{$item} = 1; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if (keys(%changes)) { |
| |
my %defaultshash = ( |
| |
wafproxy => \%wafproxy, |
| |
); |
| |
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash, |
| |
$dom); |
| |
if ($putresult eq 'ok') { |
| |
my $cachetime = 24*60*60; |
| |
my (%domdefaults,$updatedomdefs); |
| |
foreach my $item ('ipheader','trusted','exempt') { |
| |
if ($changes{$item}) { |
| |
unless ($updatedomdefs) { |
| |
%domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
| |
$updatedomdefs = 1; |
| |
} |
| |
if ($wafproxy{$item}) { |
| |
$domdefaults{'waf_'.$item} = $wafproxy{$item}; |
| |
} elsif (exists($domdefaults{'waf_'.$item})) { |
| |
delete($domdefaults{'waf_'.$item}); |
| |
} |
| |
} |
| |
} |
| |
if ($updatedomdefs) { |
| |
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'domdefaults'} = 1; |
| |
} |
| |
} |
| |
if ((exists($wafproxy{'alias'})) || (keys(%expirecache))) { |
| |
my %updates = %expirecache; |
| |
foreach my $key (keys(%expirecache)) { |
| |
&Apache::lonnet::devalidate_cache_new('proxyalias',$key); |
| |
} |
| |
if (ref($wafproxy{'alias'}) eq 'HASH') { |
| |
my $cachetime = 24*60*60; |
| |
foreach my $key (keys(%{$wafproxy{'alias'}})) { |
| |
$updates{$key} = 1; |
| |
&Apache::lonnet::do_cache_new('proxyalias',$key,$wafproxy{'alias'}{$key}, |
| |
$cachetime); |
| |
} |
| |
} |
| |
if (ref($lastactref) eq 'HASH') { |
| |
$lastactref->{'proxyalias'} = \%updates; |
| |
} |
| |
} |
| |
$output = &mt('Changes were made to Web Application Firewall/Reverse Proxy').'<ul>'; |
| |
foreach my $item ('alias','ipheader','trusted','exempt') { |
| |
if ($changes{$item}) { |
| |
if ($item eq 'alias') { |
| |
my $numaliased = 0; |
| |
if (ref($wafproxy{'alias'}) eq 'HASH') { |
| |
my $shown; |
| |
if (keys(%{$wafproxy{'alias'}})) { |
| |
foreach my $server (sort(keys(%{$wafproxy{'alias'}}))) { |
| |
$shown .= '<li>'.&mt('[_1] aliased by [_2]', |
| |
&Apache::lonnet::hostname($server), |
| |
$wafproxy{'alias'}{$server}).'</li>'; |
| |
$numaliased ++; |
| |
} |
| |
if ($numaliased) { |
| |
$output .= '<li>'.&mt('Aliases for hostnames set to: [_1]', |
| |
'<ul>'.$shown.'</ul>').'</li>'; |
| |
} |
| |
} |
| |
} |
| |
unless ($numaliased) { |
| |
$output .= '<li>'.&mt('Aliases deleted for hostnames').'</li>'; |
| |
} |
| |
} else { |
| |
if ($item eq 'ipheader') { |
| |
if ($wafproxy{$item}) { |
| |
$output .= '<li>'.&mt('Custom request header set to [_1]', |
| |
$wafproxy{$item}).'</li>'; |
| |
} else { |
| |
$output .= '<li>'.&mt('Custom request header deleted').'</li>'; |
| |
} |
| |
} elsif ($item eq 'trusted') { |
| |
if ($wafproxy{$item}) { |
| |
$output .= '<li>'.&mt('Trusted IP range(s) set to [_1]', |
| |
$wafproxy{$item}).'</li>'; |
| |
} else { |
| |
$output .= '<li>'.&mt('Trusted IP range(s) deleted').'</li>'; |
| |
} |
| |
} elsif ($item eq 'exempt') { |
| |
if ($wafproxy{$item}) { |
| |
$output .= '<li>'.&mt('Exempt IP range(s) set to [_1]', |
| |
$wafproxy{$item}).'</li>'; |
| |
} else { |
| |
$output .= '<li>'.&mt('Exempt IP range(s) deleted').'</li>'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
$output = '<span class="LC_error">'. |
| |
&mt('An error occurred: [_1]',$putresult).'</span>'; |
| |
} |
| |
} elsif (keys(%canset)) { |
| |
$output = &mt('No changes made to Web Application Firewall/Reverse Proxy settings'); |
| |
} |
| |
if (@warnings) { |
| |
$output .= '<br />'.&mt('Warnings:').'<ul>'. |
| |
join("\n",@warnings).'</ul>'; |
| |
} |
| |
return $output; |
| |
} |
| |
|
| |
sub validate_ip_pattern { |
| |
my ($pattern) = @_; |
| |
if ($pattern =~ /^([^-]+)\-([^-]+)$/) { |
| |
my ($start,$end) = ($1,$2); |
| |
if ((&Net::CIDR::cidrvalidate($start)) && (&Net::CIDR::cidrvalidate($end))) { |
| |
return 1; |
| |
} |
| |
} elsif (&Net::CIDR::cidrvalidate($pattern)) { |
| |
return 1; |
| |
} |
| |
return |
| |
} |
| |
|
| sub modify_usersessions { |
sub modify_usersessions { |
| my ($dom,$lastactref,%domconfig) = @_; |
my ($dom,$lastactref,%domconfig) = @_; |
| my @hostingtypes = ('version','excludedomain','includedomain'); |
my @hostingtypes = ('version','excludedomain','includedomain'); |
|
Line 17669 sub modify_usersessions {
|
Line 19947 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 17685 sub modify_usersessions {
|
Line 19964 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 17695 sub modify_usersessions {
|
Line 19990 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 17731 sub modify_usersessions {
|
Line 20038 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 17810 sub modify_usersessions {
|
Line 20120 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 { |
| |
$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 { |
} 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 other institutions on next access.').'</li>'; |
| } |
} |
| } |
} |
| $resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
|
Line 18391 sub modify_loadbalancing {
|
Line 20716 sub modify_loadbalancing {
|
| $resulttext .= '<li>'.&mt('Load Balancer: [_1] -- cookie use enabled', |
$resulttext .= '<li>'.&mt('Load Balancer: [_1] -- cookie use enabled', |
| $balancer).'</li>'; |
$balancer).'</li>'; |
| } |
} |
| if (keys(%toupdate)) { |
} |
| my %thismachine; |
} |
| my $updatedhere; |
if (keys(%toupdate)) { |
| my $cachetime = 60*60*24; |
my %thismachine; |
| map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
my $updatedhere; |
| foreach my $lonhost (keys(%toupdate)) { |
my $cachetime = 60*60*24; |
| if ($thismachine{$lonhost}) { |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
| unless ($updatedhere) { |
foreach my $lonhost (keys(%toupdate)) { |
| &Apache::lonnet::do_cache_new('loadbalancing',$dom, |
if ($thismachine{$lonhost}) { |
| $defaultshash{'loadbalancing'}, |
unless ($updatedhere) { |
| $cachetime); |
&Apache::lonnet::do_cache_new('loadbalancing',$dom, |
| $updatedhere = 1; |
$defaultshash{'loadbalancing'}, |
| } |
$cachetime); |
| } else { |
$updatedhere = 1; |
| my $cachekey = &escape('loadbalancing').':'.&escape($dom); |
|
| &Apache::lonnet::remote_devalidate_cache($lonhost,[$cachekey]); |
|
| } |
|
| } |
} |
| |
} else { |
| |
my $cachekey = &escape('loadbalancing').':'.&escape($dom); |
| |
&Apache::lonnet::remote_devalidate_cache($lonhost,[$cachekey]); |
| } |
} |
| } |
} |
| } |
} |
|
Line 18905 function balancerChange(balnum,baltotal,
|
Line 21230 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 18978 function updateNewSpares(formname,lonhos
|
Line 21304 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 19112 function toggleDisplay(domForm,caller) {
|
Line 21438 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 19168 sub devalidate_remote_domconfs {
|
Line 21494 sub devalidate_remote_domconfs {
|
| 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', |
my @posscached = ('domainconfig','domdefaults','ltitools','usersessions', |
| 'directorysrch','passwdconf'); |
'directorysrch','passwdconf','cats','proxyalias'); |
| if (keys(%servers)) { |
if (keys(%servers)) { |
| foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
| next if ($thismachine{$server}); |
next if ($thismachine{$server}); |
| my @cached; |
my @cached; |
| foreach my $name (@posscached) { |
foreach my $name (@posscached) { |
| if ($cachekeys->{$name}) { |
if ($cachekeys->{$name}) { |
| push(@cached,&escape($name).':'.&escape($dom)); |
if ($name eq 'proxyalias') { |
| |
if (ref($cachekeys->{$name}) eq 'HASH') { |
| |
foreach my $key (keys(%{$cachekeys->{$name}})) { |
| |
push(@cached,&escape($name).':'.&escape($key)); |
| |
} |
| |
} |
| |
} else { |
| |
push(@cached,&escape($name).':'.&escape($dom)); |
| |
} |
| } |
} |
| } |
} |
| if (@cached) { |
if (@cached) { |
![[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