version 1.412, 2022/08/24 20:58:50
|
version 1.423, 2023/05/22 21:10:55
|
Line 167 use Apache::lonmsg();
|
Line 167 use Apache::lonmsg();
|
use Apache::lonconfigsettings; |
use Apache::lonconfigsettings; |
use Apache::lonuserutils(); |
use Apache::lonuserutils(); |
use Apache::loncoursequeueadmin(); |
use Apache::loncoursequeueadmin(); |
|
use Apache::courseprefs(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA::Enrollment; |
use LONCAPA::Enrollment; |
use LONCAPA::lonauthcgi(); |
use LONCAPA::lonauthcgi(); |
Line 220 sub handler {
|
Line 221 sub handler {
|
'serverstatuses','requestcourses','helpsettings', |
'serverstatuses','requestcourses','helpsettings', |
'coursedefaults','usersessions','loadbalancing', |
'coursedefaults','usersessions','loadbalancing', |
'requestauthor','selfenrollment','inststatus', |
'requestauthor','selfenrollment','inststatus', |
'ltitools','ssl','trust','lti','ltisec','privacy','passwords', |
'ltitools','toolsec','ssl','trust','lti','ltisec', |
'proctoring','wafproxy','ipaccess'],$dom); |
'privacy','passwords','proctoring','wafproxy','ipaccess'],$dom); |
my %encconfig = |
my %encconfig = |
&Apache::lonnet::get_dom('encconfig',['ltitools','lti','proctoring','linkprot'],$dom,undef,1); |
&Apache::lonnet::get_dom('encconfig',['ltitools','lti','proctoring','linkprot'],$dom,undef,1); |
if (ref($domconfig{'ltitools'}) eq 'HASH') { |
if (ref($domconfig{'ltitools'}) eq 'HASH') { |
if (ref($encconfig{'ltitools'}) eq 'HASH') { |
if (ref($encconfig{'ltitools'}) eq 'HASH') { |
|
my $is_home; |
|
my $home = &Apache::lonnet::domain($dom,'primary'); |
|
unless (($home eq 'no_host') || ($home eq '')) { |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
if (grep(/^\Q$home\E$/,@ids)) { |
|
$is_home = 1; |
|
} |
|
} |
foreach my $id (keys(%{$domconfig{'ltitools'}})) { |
foreach my $id (keys(%{$domconfig{'ltitools'}})) { |
if ((ref($domconfig{'ltitools'}{$id}) eq 'HASH') && |
if ((ref($domconfig{'ltitools'}{$id}) eq 'HASH') && |
(ref($encconfig{'ltitools'}{$id}) eq 'HASH')) { |
(ref($encconfig{'ltitools'}{$id}) eq 'HASH')) { |
foreach my $item ('key','secret') { |
$domconfig{'ltitools'}{$id}{'key'} = $encconfig{'ltitools'}{$id}{'key'}; |
$domconfig{'ltitools'}{$id}{$item} = $encconfig{'ltitools'}{$id}{$item}; |
if (($is_home) && ($phase eq 'process')) { |
|
$domconfig{'ltitools'}{$id}{'secret'} = $encconfig{'ltitools'}{$id}{'secret'}; |
} |
} |
} |
} |
} |
} |
Line 359 sub handler {
|
Line 369 sub handler {
|
modify => \&modify_passwords, |
modify => \&modify_passwords, |
}, |
}, |
'quotas' => |
'quotas' => |
{ text => 'Blogs, personal web pages, webDAV/quotas, portfolios', |
{ text => 'Blogs, personal pages/timezones, webDAV/quotas, portfolio', |
help => 'Domain_Configuration_Quotas', |
help => 'Domain_Configuration_Quotas', |
header => [{col1 => 'User affiliation', |
header => [{col1 => 'User affiliation', |
col2 => 'Available tools', |
col2 => 'Available tools', |
Line 584 sub handler {
|
Line 594 sub handler {
|
'ltitools' => |
'ltitools' => |
{text => 'External Tools (LTI)', |
{text => 'External Tools (LTI)', |
help => 'Domain_Configuration_LTI_Tools', |
help => 'Domain_Configuration_LTI_Tools', |
header => [{col1 => 'Setting', |
header => [{col1 => 'Encryption of shared secrets', |
col2 => 'Value',}], |
col2 => 'Settings'}, |
|
{col1 => 'Rules for shared secrets', |
|
col2 => 'Settings'}, |
|
{col1 => 'Providers', |
|
col2 => 'Settings',}], |
print => \&print_ltitools, |
print => \&print_ltitools, |
modify => \&modify_ltitools, |
modify => \&modify_ltitools, |
}, |
}, |
Line 893 sub print_config_box {
|
Line 907 sub print_config_box {
|
&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full, |
&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full, |
\@templateroles); |
\@templateroles); |
} elsif ($action eq 'ltitools') { |
} elsif ($action eq 'ltitools') { |
$output .= <itools_javascript($settings); |
$output .= &Apache::lonconfigsettings::ltitools_javascript($settings); |
} elsif ($action eq 'lti') { |
} elsif ($action eq 'lti') { |
$output .= &passwords_javascript('secrets')."\n". |
$output .= &passwords_javascript('ltisecrets')."\n". |
<i_javascript($dom,$settings); |
<i_javascript($dom,$settings); |
} elsif ($action eq 'proctoring') { |
} elsif ($action eq 'proctoring') { |
$output .= &proctoring_javascript($settings); |
$output .= &proctoring_javascript($settings); |
Line 950 sub print_config_box {
|
Line 964 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 'privacy') || ($action eq 'wafproxy') || ($action eq 'lti')) { |
($action eq 'contacts') || ($action eq 'privacy') || ($action eq 'wafproxy') || |
|
($action eq 'lti') || ($action eq 'ltitools')) { |
$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 986 sub print_config_box {
|
Line 1001 sub print_config_box {
|
($action eq 'selfcreation') || ($action eq 'selfenrollment') || |
($action eq 'selfcreation') || ($action eq 'selfenrollment') || |
($action eq 'usersessions') || ($action eq 'coursecategories') || |
($action eq 'usersessions') || ($action eq 'coursecategories') || |
($action eq 'trust') || ($action eq 'contacts') || ($action eq 'defaults') || |
($action eq 'trust') || ($action eq 'contacts') || ($action eq 'defaults') || |
($action eq 'privacy') || ($action eq 'passwords') || ($action eq 'lti')) { |
($action eq 'privacy') || ($action eq 'passwords') || ($action eq 'lti') || |
|
($action eq 'ltitools')) { |
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 1277 sub print_config_box {
|
Line 1293 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 'proctoring') || |
($action eq 'proctoring') || ($action eq 'ipaccess')) { |
($action eq 'ipaccess')) { |
|
$output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
} |
} |
} |
} |
Line 2383 sub print_quotas {
|
Line 2398 sub print_quotas {
|
@options = ('norequest','approval','automatic'); |
@options = ('norequest','approval','automatic'); |
%titles = &authorrequest_titles(); |
%titles = &authorrequest_titles(); |
} else { |
} else { |
@usertools = ('aboutme','blog','webdav','portfolio'); |
@usertools = ('aboutme','blog','webdav','portfolio','timezone'); |
%titles = &tool_titles(); |
%titles = &tool_titles(); |
} |
} |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
Line 2487 sub print_quotas {
|
Line 2502 sub print_quotas {
|
} |
} |
} else { |
} else { |
my $checked = 'checked="checked" '; |
my $checked = 'checked="checked" '; |
|
if ($item eq 'timezone') { |
|
$checked = ''; |
|
} |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{$item}) eq 'HASH') { |
if (ref($settings->{$item}) eq 'HASH') { |
if ($settings->{$item}->{$type} == 0) { |
if (!$settings->{$item}->{$type}) { |
$checked = ''; |
$checked = ''; |
} elsif ($settings->{$item}->{$type} == 1) { |
} elsif ($settings->{$item}->{$type} == 1) { |
$checked = 'checked="checked" '; |
$checked = 'checked="checked" '; |
Line 3428 ENDSCRIPT
|
Line 3446 ENDSCRIPT
|
sub lti_javascript { |
sub lti_javascript { |
my ($dom,$settings) = @_; |
my ($dom,$settings) = @_; |
my $togglejs = <i_toggle_js($dom); |
my $togglejs = <i_toggle_js($dom); |
|
my $linkprot_js = &Apache::courseprefs::linkprot_javascript(); |
unless (ref($settings) eq 'HASH') { |
unless (ref($settings) eq 'HASH') { |
return $togglejs; |
return $togglejs.' |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
|
|
'.$linkprot_js.' |
|
|
|
// ]]> |
|
</script> |
|
'; |
} |
} |
my (%ordered,$total,%jstext); |
my (%ordered,$total,%jstext); |
$total = scalar(keys(%{$settings})); |
$total = scalar(keys(%{$settings})); |
Line 3447 sub lti_javascript {
|
Line 3474 sub lti_javascript {
|
push(@jsarray,$ordered{$item}); |
push(@jsarray,$ordered{$item}); |
} |
} |
my $jstext = ' var lti = Array('."'".join("','",@jsarray)."'".');'."\n"; |
my $jstext = ' var lti = Array('."'".join("','",@jsarray)."'".');'."\n"; |
my $linkprot_js = &Apache::courseprefs::linkprot_javascript(); |
|
return <<"ENDSCRIPT"; |
return <<"ENDSCRIPT"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
Line 3718 function toggleLTI(form,setting,item) {
|
Line 3744 function toggleLTI(form,setting,item) {
|
return; |
return; |
} |
} |
|
|
function toggleLTIEncKey(form) { |
|
var shownhosts = new Array(); |
|
var hiddenhosts = new Array(); |
|
var forcourse = new Array($course_servers); |
|
var fromdomain = '$primary'; |
|
var crsradio = form.elements['ltisec_crslinkprot']; |
|
if (crsradio.length) { |
|
for (var i=0; i<crsradio.length; i++) { |
|
if (crsradio[i].checked) { |
|
if (crsradio[i].value == 1) { |
|
if (forcourse.length > 0) { |
|
for (var j=0; j<forcourse.length; j++) { |
|
if (!shownhosts.includes(forcourse[j])) { |
|
shownhosts.push(forcourse[j]); |
|
} |
|
} |
|
} |
|
} else { |
|
if (forcourse.length > 0) { |
|
for (var j=0; j<forcourse.length; j++) { |
|
if (!hiddenhosts.includes(forcourse[j])) { |
|
hiddenhosts.push(forcourse[j]); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
var domradio = form.elements['ltisec_domlinkprot']; |
|
if (domradio.length) { |
|
for (var i=0; i<domradio.length; i++) { |
|
if (domradio[i].checked) { |
|
if (domradio[i].value == 1) { |
|
if (!shownhosts.includes(fromdomain)) { |
|
shownhosts.push(fromdomain); |
|
} |
|
} else { |
|
if (!hiddenhosts.includes(fromdomain)) { |
|
hiddenhosts.push(fromdomain); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
var consumersradio = form.elements['ltisec_consumers']; |
|
if (consumersradio.length) { |
|
for (var i=0; i<consumersradio.length; i++) { |
|
if (consumersradio[i].checked) { |
|
if (consumersradio[i].value == 1) { |
|
if (!shownhosts.includes(fromdomain)) { |
|
shownhosts.push(fromdomain); |
|
} |
|
} else { |
|
if (!hiddenhosts.includes(fromdomain)) { |
|
hiddenhosts.push(fromdomain); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
if (shownhosts.length > 0) { |
|
for (var i=0; i<shownhosts.length; i++) { |
|
if (document.getElementById('ltisec_info_'+shownhosts[i])) { |
|
document.getElementById('ltisec_info_'+shownhosts[i]).style.display = 'block'; |
|
} |
|
} |
|
if (document.getElementById('ltisec_noprivkey')) { |
|
document.getElementById('ltisec_noprivkey').style.display = 'none'; |
|
} |
|
} else { |
|
if (document.getElementById('ltisec_noprivkey')) { |
|
document.getElementById('ltisec_noprivkey').style.display = 'inline-block'; |
|
} |
|
} |
|
if (hiddenhosts.length > 0) { |
|
for (var i=0; i<hiddenhosts.length; i++) { |
|
if (!shownhosts.includes(hiddenhosts[i])) { |
|
if (document.getElementById('ltisec_info_'+hiddenhosts[i])) { |
|
document.getElementById('ltisec_info_'+hiddenhosts[i]).style.display = 'none'; |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
|
function togglePrivKey(form,hostid) { |
|
var radioname = ''; |
|
var currdivid = ''; |
|
var newdivid = ''; |
|
if ((document.getElementById('ltisec_divcurrprivkey_'+hostid)) && |
|
(document.getElementById('ltisec_divchgprivkey_'+hostid))) { |
|
currdivid = document.getElementById('ltisec_divcurrprivkey_'+hostid); |
|
newdivid = document.getElementById('ltisec_divchgprivkey_'+hostid); |
|
radioname = form.elements['ltisec_changeprivkey_'+hostid]; |
|
if (radioname) { |
|
if (radioname.length > 0) { |
|
var setvis; |
|
for (var i=0; i<radioname.length; i++) { |
|
if (radioname[i].checked == true) { |
|
if (radioname[i].value == 1) { |
|
newdivid.style.display = 'inline-block'; |
|
currdivid.style.display = 'none'; |
|
setvis = 1; |
|
} |
|
break; |
|
} |
|
} |
|
if (!setvis) { |
|
newdivid.style.display = 'none'; |
|
currdivid.style.display = 'inline-block'; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
|
|
// ]]> |
// ]]> |
</script> |
</script> |
|
|
Line 5387 sub radiobutton_prefs {
|
Line 5295 sub radiobutton_prefs {
|
} |
} |
|
|
sub print_ltitools { |
sub print_ltitools { |
my ($dom,$settings,$rowtotal) = @_; |
my ($position,$dom,$settings,$rowtotal) = @_; |
my $rownum = 0; |
my (%rules,%encrypt,%privkeys,%linkprot); |
my $css_class; |
|
my $itemcount = 1; |
|
my $maxnum = 0; |
|
my %ordered; |
|
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
foreach my $item (keys(%{$settings})) { |
if ($position eq 'top') { |
if (ref($settings->{$item}) eq 'HASH') { |
if (exists($settings->{'encrypt'})) { |
my $num = $settings->{$item}{'order'}; |
if (ref($settings->{'encrypt'}) eq 'HASH') { |
$ordered{$num} = $item; |
foreach my $key (keys(%{$settings->{'encrypt'}})) { |
} |
$encrypt{'toolsec_'.$key} = $settings->{'encrypt'}{$key}; |
} |
|
} |
|
my $confname = $dom.'-domainconfig'; |
|
my $switchserver = &check_switchserver($dom,$confname); |
|
my $maxnum = scalar(keys(%ordered)); |
|
my $datatable; |
|
my %lt = <itools_names(); |
|
my @courseroles = ('cc','in','ta','ep','st'); |
|
my @ltiroles = qw(Instructor ContentDeveloper TeachingAssistant Learner); |
|
my @fields = ('fullname','firstname','lastname','email','roles','user'); |
|
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 $item = $ordered{$items[$i]}; |
|
my ($title,$key,$secret,$url,$lifetime,$imgsrc,%sigsel); |
|
if (ref($settings->{$item}) eq 'HASH') { |
|
$title = $settings->{$item}->{'title'}; |
|
$url = $settings->{$item}->{'url'}; |
|
$key = $settings->{$item}->{'key'}; |
|
$secret = $settings->{$item}->{'secret'}; |
|
$lifetime = $settings->{$item}->{'lifetime'}; |
|
my $image = $settings->{$item}->{'image'}; |
|
if ($image ne '') { |
|
$imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />'; |
|
} |
|
if ($settings->{$item}->{'sigmethod'} eq 'HMAC-256') { |
|
$sigsel{'HMAC-256'} = ' selected="selected"'; |
|
} else { |
|
$sigsel{'HMAC-SHA1'} = ' selected="selected"'; |
|
} |
|
} |
|
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_".$item."'".');"'; |
|
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">' |
|
.'<select name="ltitools_'.$item.'"'.$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>'; |
|
} |
|
$datatable .= '</select>'.(' 'x2). |
|
'<label><input type="checkbox" name="ltitools_del" value="'.$item.'" />'. |
|
&mt('Delete?').'</label></span></td>'. |
|
'<td colspan="2">'. |
|
'<fieldset><legend>'.&mt('Required settings').'</legend>'. |
|
'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="20" name="ltitools_title_'.$i.'" value="'.$title.'" /></span> '. |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_version_'.$i.'">'. |
|
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '. |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_msgtype_'.$i.'">'. |
|
'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '. |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="ltitools_sigmethod_'.$i.'">'. |
|
'<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'. |
|
'<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'. |
|
'<br /><br />'. |
|
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_url_'.$i.'"'. |
|
' value="'.$url.'" /></span>'. |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'key'}.':'. |
|
'<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '. |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'lifetime'}.':'. |
|
'<input type="text" size="5" name="ltitools_lifetime_'.$i.'" value="'.$lifetime.'" /></span> '. |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'secret'}.':'. |
|
'<input type="password" size="20" name="ltitools_secret_'.$i.'" value="'.$secret.'" />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_secret_'.$i.'.type='."'text'".' } else { this.form.ltitools_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'. |
|
'<input type="hidden" name="ltitools_id_'.$i.'" value="'.$item.'" /></span>'. |
|
'</fieldset>'. |
|
'<fieldset><legend>'.&mt('Optional settings').'</legend>'. |
|
'<span class="LC_nobreak">'.&mt('Display target:'); |
|
my %currdisp; |
|
if (ref($settings->{$item}->{'display'}) eq 'HASH') { |
|
if ($settings->{$item}->{'display'}->{'target'} eq 'window') { |
|
$currdisp{'window'} = ' checked="checked"'; |
|
} elsif ($settings->{$item}->{'display'}->{'target'} eq 'tab') { |
|
$currdisp{'tab'} = ' checked="checked"'; |
|
} else { |
|
$currdisp{'iframe'} = ' checked="checked"'; |
|
} |
|
if ($settings->{$item}->{'display'}->{'width'} =~ /^(\d+)$/) { |
|
$currdisp{'width'} = $1; |
|
} |
|
if ($settings->{$item}->{'display'}->{'height'} =~ /^(\d+)$/) { |
|
$currdisp{'height'} = $1; |
|
} |
|
$currdisp{'linktext'} = $settings->{$item}->{'display'}->{'linktext'}; |
|
$currdisp{'explanation'} = $settings->{$item}->{'display'}->{'explanation'}; |
|
} else { |
|
$currdisp{'iframe'} = ' checked="checked"'; |
|
} |
|
foreach my $disp ('iframe','tab','window') { |
|
$datatable .= '<label><input type="radio" name="ltitools_target_'.$i.'" value="'.$disp.'"'.$currdisp{$disp}.' />'. |
|
$lt{$disp}.'</label>'.(' 'x2); |
|
} |
|
$datatable .= (' 'x4); |
|
foreach my $dimen ('width','height') { |
|
$datatable .= '<label>'.$lt{$dimen}.' '. |
|
'<input type="text" name="ltitools_'.$dimen.'_'.$i.'" size="5" value="'.$currdisp{$dimen}.'" /></label>'. |
|
(' 'x2); |
|
} |
|
$datatable .= '</span><br />'. |
|
'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'. |
|
'<input type="text" name="ltitools_linktext_'.$i.'" size="25" value="'.$currdisp{'linktext'}.'" /></div>'. |
|
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'. |
|
'<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}. |
|
'</textarea></div><div style=""></div><br />'; |
|
my %units = ( |
|
'passback' => 'days', |
|
'roster' => 'seconds', |
|
); |
|
foreach my $extra ('passback','roster') { |
|
my $validsty = 'none'; |
|
my $currvalid; |
|
my $checkedon = ''; |
|
my $checkedoff = ' checked="checked"'; |
|
if ($settings->{$item}->{$extra}) { |
|
$checkedon = $checkedoff; |
|
$checkedoff = ''; |
|
$validsty = 'inline-block'; |
|
if ($settings->{$item}->{$extra.'valid'} =~ /^\d+\.?\d*$/) { |
|
$currvalid = $settings->{$item}->{$extra.'valid'}; |
|
} |
|
} |
|
my $onclick = ' onclick="toggleLTITools(this.form,'."'$extra','$i'".');"'; |
|
$datatable .= '<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{$extra}.' '. |
|
'<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="0"'.$checkedoff.$onclick.' />'. |
|
&mt('No').'</label>'.(' 'x2). |
|
'<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="1"'.$checkedon.$onclick.' />'. |
|
&mt('Yes').'</label></span></div>'. |
|
'<div class="LC_floatleft" style="display:'.$validsty.';" id="ltitools_'.$extra.'time_'.$i.'">'. |
|
'<span class="LC_nobreak">'. |
|
&mt("at least [_1] $units{$extra} after launch", |
|
'<input type="text" name="ltitools_'.$extra.'valid_'.$i.'" value="'.$currvalid.'" />'). |
|
'</span></div><div style="padding:0;clear:both;margin:0;border:0"></div>'; |
|
} |
|
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': '; |
|
if ($imgsrc) { |
|
$datatable .= $imgsrc. |
|
'<label><input type="checkbox" name="ltitools_image_del"'. |
|
' value="'.$item.'" />'.&mt('Delete?').'</label></span> '. |
|
'<span class="LC_nobreak"> '.&mt('Replace:').' '; |
|
} else { |
|
$datatable .= '('.&mt('if larger than 21x21 pixels, image will be scaled').') '; |
|
} |
|
if ($switchserver) { |
|
$datatable .= &mt('Upload to library server: [_1]',$switchserver); |
|
} else { |
|
$datatable .= '<input type="file" name="ltitools_image_'.$i.'" value="" />'; |
|
} |
|
$datatable .= '</span></fieldset>'; |
|
my (%checkedfields,%rolemaps,$userincdom); |
|
if (ref($settings->{$item}) eq 'HASH') { |
|
if (ref($settings->{$item}->{'fields'}) eq 'HASH') { |
|
%checkedfields = %{$settings->{$item}->{'fields'}}; |
|
} |
|
$userincdom = $settings->{$item}->{'incdom'}; |
|
if (ref($settings->{$item}->{'roles'}) eq 'HASH') { |
|
%rolemaps = %{$settings->{$item}->{'roles'}}; |
|
$checkedfields{'roles'} = 1; |
|
} |
|
} |
|
$datatable .= '<fieldset><legend>'.&mt('User data sent on launch').'</legend>'. |
|
'<span class="LC_nobreak">'; |
|
my $userfieldstyle = 'display:none;'; |
|
my $seluserdom = ''; |
|
my $unseluserdom = ' selected="selected"'; |
|
foreach my $field (@fields) { |
|
my ($checked,$onclick,$id,$spacer); |
|
if ($checkedfields{$field}) { |
|
$checked = ' checked="checked"'; |
|
} |
|
if ($field eq 'user') { |
|
$id = ' id="ltitools_user_field_'.$i.'"'; |
|
$onclick = ' onclick="toggleLTITools(this.form,'."'$field','$i'".')"'; |
|
if ($checked) { |
|
$userfieldstyle = 'display:inline-block'; |
|
if ($userincdom) { |
|
$seluserdom = $unseluserdom; |
|
$unseluserdom = ''; |
|
} |
|
} |
} |
} else { |
|
$spacer = (' ' x2); |
|
} |
} |
$datatable .= '<label>'. |
|
'<input type="checkbox" name="ltitools_fields_'.$i.'" value="'.$field.'"'.$id.$checked.$onclick.' />'. |
|
$lt{$field}.'</label>'.$spacer; |
|
} |
} |
$datatable .= '</span>'; |
if (exists($settings->{'private'})) { |
$datatable .= '<div style="'.$userfieldstyle.'" id="ltitools_user_div_'.$i.'">'. |
if (ref($settings->{'private'}) eq 'HASH') { |
'<span class="LC_nobreak"> : '. |
if (ref($settings->{'private'}) eq 'HASH') { |
'<select name="ltitools_userincdom_'.$i.'">'. |
if (ref($settings->{'private'}{'keys'}) eq 'ARRAY') { |
'<option value="">'.&mt('Select').'</option>'. |
map { $privkeys{$_} = 1; } (@{$settings->{'private'}{'keys'}}); |
'<option value="0"'.$unseluserdom.'>'.&mt('username').'</option>'. |
|
'<option value="1"'.$seluserdom.'>'.&mt('username:domain').'</option>'. |
|
'</select></span></div>'; |
|
$datatable .= '</fieldset>'. |
|
'<fieldset><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="ltitools_roles_'.$role.'_'.$i.'">'. |
|
'<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>'; |
|
my %courseconfig; |
|
if (ref($settings->{$item}) eq 'HASH') { |
|
if (ref($settings->{$item}->{'crsconf'}) eq 'HASH') { |
|
%courseconfig = %{$settings->{$item}->{'crsconf'}}; |
|
} |
} |
} |
} |
$datatable .= '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">'; |
} elsif ($position eq 'middle') { |
foreach my $item ('label','title','target','linktext','explanation','append') { |
if (exists($settings->{'rules'})) { |
my $checked; |
if (ref($settings->{'rules'}) eq 'HASH') { |
if ($courseconfig{$item}) { |
%rules = %{$settings->{'rules'}}; |
$checked = ' checked="checked"'; |
|
} |
} |
$datatable .= '<label>'. |
|
'<input type="checkbox" name="ltitools_courseconfig_'.$i.'" value="'.$item.'"'.$checked.' />'. |
|
$lt{'crs'.$item}.'</label> '."\n"; |
|
} |
} |
$datatable .= '</span></fieldset>'. |
} else { |
'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'. |
foreach my $key ('encrypt','private','rules') { |
'<table><tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th><th>'.&mt('Value').'</th></tr>'; |
if (exists($settings->{$key})) { |
if (ref($settings->{$item}->{'custom'}) eq 'HASH') { |
delete($settings->{$key}); |
my %custom = %{$settings->{$item}->{'custom'}}; |
|
if (keys(%custom) > 0) { |
|
foreach my $key (sort(keys(%custom))) { |
|
$datatable .= '<tr><td><span class="LC_nobreak">'. |
|
'<label><input type="checkbox" name="ltitools_customdel_'.$i.'" value="'. |
|
$key.'" />'.&mt('Delete').'</label></span></td><td>'.$key.'</td>'. |
|
'<td><input type="text" name="ltitools_customval_'.$key.'_'.$i.'"'. |
|
' value="'.$custom{$key}.'" /></td></tr>'; |
|
} |
|
} |
} |
} |
} |
$datatable .= '<tr><td><span class="LC_nobreak">'. |
|
'<label><input type="checkbox" name="ltitools_customadd" value="'.$i.'" />'. |
|
&mt('Add').'</label></span></td><td><input type="text" name="ltitools_custom_name_'.$i.'" />'. |
|
'</td><td><input type="text" name="ltitools_custom_value_'.$i.'" /></td></tr>'; |
|
$datatable .= '</table></fieldset></td></tr>'."\n"; |
|
$itemcount ++; |
|
} |
} |
} |
} |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $datatable; |
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_add_pos'".');"'; |
my $itemcount = 1; |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
if ($position eq 'top') { |
'<input type="hidden" name="ltitools_maxnum" value="'.$maxnum.'" />'."\n". |
$datatable = &secrets_form($dom,'toolsec',\%encrypt,\%privkeys,$rowtotal); |
'<select name="ltitools_add_pos"'.$chgstr.'>'; |
} elsif ($position eq 'middle') { |
for (my $k=0; $k<$maxnum+1; $k++) { |
$datatable = &password_rules('toolsecrets',\$itemcount,\%rules); |
my $vpos = $k+1; |
$$rowtotal += $itemcount; |
my $selstr; |
} else { |
if ($k == $maxnum) { |
$datatable = &Apache::courseprefs::print_ltitools($dom,'',$settings,\$rowtotal,'','','domain'); |
$selstr = ' selected="selected" '; |
|
} |
|
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>'; |
|
} |
} |
$datatable .= '</select> '."\n". |
|
'<input type="checkbox" name="ltitools_add" value="1" />'.&mt('Add').'</span></td>'."\n". |
|
'<td colspan="2">'. |
|
'<fieldset><legend>'.&mt('Required settings').'</legend>'. |
|
'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="20" name="ltitools_add_title" value="" /></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_add_version">'. |
|
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_add_msgtype">'. |
|
'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '. |
|
'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="ltitools_add_sigmethod">'. |
|
'<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'. |
|
'<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'. |
|
'<br />'. |
|
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_add_url" value="" /></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="ltitools_add_key" value="" /></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="ltitools_add_secret" value="" />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_add_secret.type='."'text'".' } else { this.form.ltitools_add_secret.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n". |
|
'</fieldset>'. |
|
'<fieldset><legend>'.&mt('Optional settings').'</legend>'. |
|
'<span class="LC_nobreak">'.&mt('Display target:'); |
|
my %defaultdisp; |
|
$defaultdisp{'iframe'} = ' checked="checked"'; |
|
foreach my $disp ('iframe','tab','window') { |
|
$datatable .= '<label><input type="radio" name="ltitools_add_target" value="'.$disp.'"'.$defaultdisp{$disp}.' />'. |
|
$lt{$disp}.'</label>'.(' 'x2); |
|
} |
|
$datatable .= (' 'x4); |
|
foreach my $dimen ('width','height') { |
|
$datatable .= '<label>'.$lt{$dimen}.' '. |
|
'<input type="text" name="ltitools_add_'.$dimen.'" size="5" /></label>'. |
|
(' 'x2); |
|
} |
|
$datatable .= '</span><br />'. |
|
'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'. |
|
'<input type="text" name="ltitools_add_linktext" size="5" /></div>'. |
|
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'. |
|
'<textarea name="ltitools_add_explanation" rows="5" cols="40"></textarea>'. |
|
'</div><div style=""></div><br />'; |
|
my %units = ( |
|
'passback' => 'days', |
|
'roster' => 'seconds', |
|
); |
|
my %defaulttimes = ( |
|
'passback' => '7', |
|
'roster' => '300', |
|
); |
|
foreach my $extra ('passback','roster') { |
|
my $onclick = ' onclick="toggleLTITools(this.form,'."'$extra','add'".');"'; |
|
$datatable .= '<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{$extra}.' '. |
|
'<label><input type="radio" name="ltitools_'.$extra.'_add" value="0" checked="checked"'.$onclick.' />'. |
|
&mt('No').'</label></span>'.(' 'x2).'<span class="LC_nobreak">'. |
|
'<label><input type="radio" name="ltitools_'.$extra.'_add" value="1"'.$onclick.' />'. |
|
&mt('Yes').'</label></span></div>'. |
|
'<div class="LC_floatleft" style="display:none;" id="ltitools_'.$extra.'time_add">'. |
|
'<span class="LC_nobreak">'. |
|
&mt("at least [_1] $units{$extra} after launch", |
|
'<input type="text" name="ltitools_'.$extra.'valid_add" value="'.$defaulttimes{$extra}.'" />'). |
|
'</span></div><div style="padding:0;clear:both;margin:0;border:0"></div>'; |
|
} |
|
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': '. |
|
'('.&mt('if larger than 21x21 pixels, image will be scaled').') '; |
|
if ($switchserver) { |
|
$datatable .= &mt('Upload to library server: [_1]',$switchserver); |
|
} else { |
|
$datatable .= '<input type="file" name="ltitools_add_image" value="" />'; |
|
} |
|
$datatable .= '</span></fieldset>'. |
|
'<fieldset><legend>'.&mt('User data sent on launch').'</legend>'. |
|
'<span class="LC_nobreak">'; |
|
foreach my $field (@fields) { |
|
my ($id,$onclick,$spacer); |
|
if ($field eq 'user') { |
|
$id = ' id="ltitools_user_field_add"'; |
|
$onclick = ' onclick="toggleLTITools(this.form,'."'$field','add'".')"'; |
|
} else { |
|
$spacer = (' ' x2); |
|
} |
|
$datatable .= '<label>'. |
|
'<input type="checkbox" name="ltitools_add_fields" value="'.$field.'"'.$id.$onclick.' />'. |
|
$lt{$field}.'</label>'.$spacer; |
|
} |
|
$datatable .= '</span>'. |
|
'<div style="display:none;" id="ltitools_user_div_add">'. |
|
'<span class="LC_nobreak"> : '. |
|
'<select name="ltitools_userincdom_add">'. |
|
'<option value="" selected="selected">'.&mt('Select').'</option>'. |
|
'<option value="0">'.&mt('username').'</option>'. |
|
'<option value="1">'.&mt('username:domain').'</option>'. |
|
'</select></span></div></fieldset>'; |
|
$datatable .= '<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>'; |
|
foreach my $role (@courseroles) { |
|
my ($checked,$checkednone); |
|
$datatable .= '<td style="text-align: center">'. |
|
&Apache::lonnet::plaintext($role,'Course').'<br />'. |
|
'<select name="ltitools_add_roles_'.$role.'">'. |
|
'<option value="" selected="selected">'.&mt('Select').'</option>'; |
|
foreach my $ltirole (@ltiroles) { |
|
$datatable .= '<option value="'.$ltirole.'">'.$ltirole.'</option>'; |
|
} |
|
$datatable .= '</select></td>'; |
|
} |
|
$datatable .= '</tr></table></fieldset>'. |
|
'<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">'; |
|
foreach my $item ('label','title','target','linktext','explanation','append') { |
|
$datatable .= '<label>'. |
|
'<input type="checkbox" name="ltitools_courseconfig" value="'.$item.'" checked="checked" />'. |
|
$lt{'crs'.$item}.'</label>'.(' ' x2)."\n"; |
|
} |
|
$datatable .= '</span></fieldset>'. |
|
'<fieldset><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><span class="LC_nobreak">'. |
|
'<label><input type="checkbox" name="ltitools_add_custom" value="1" />'. |
|
&mt('Add').'</label></span></td><td><input type="text" name="ltitools_add_custom_name" />'. |
|
'</td><td><input type="text" name="ltitools_add_custom_value" /></td></tr>'. |
|
'</table></fieldset>'."\n". |
|
'</td>'."\n". |
|
'</tr>'."\n"; |
|
$itemcount ++; |
|
return $datatable; |
return $datatable; |
} |
} |
|
|
Line 5841 sub ltitools_names {
|
Line 5378 sub ltitools_names {
|
return %lt; |
return %lt; |
} |
} |
|
|
|
sub secrets_form { |
|
my ($dom,$context,$encrypt,$privkeys,$rowtotal) = @_; |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
my %servers = &Apache::lonnet::get_servers($dom,'library'); |
|
my $primary = &Apache::lonnet::domain($dom,'primary'); |
|
my ($css_class,$extra,$numshown,$itemcount,$output); |
|
$itemcount = 0; |
|
foreach my $hostid (sort(keys(%servers))) { |
|
my ($showextra,$divsty,$switch); |
|
if ($hostid eq $primary) { |
|
if ($context eq 'ltisec') { |
|
if (($encrypt->{'ltisec_consumers'}) || ($encrypt->{'ltisec_domlinkprot'})) { |
|
$showextra = 1; |
|
} |
|
if ($encrypt->{'ltisec_crslinkprot'}) { |
|
$showextra = 1; |
|
} |
|
} else { |
|
if (($encrypt->{'toolsec_crs'}) || ($encrypt->{'toolsec_dom'})) { |
|
$showextra = 1; |
|
} |
|
} |
|
unless (grep(/^\Q$hostid\E$/,@ids)) { |
|
$switch = 1; |
|
} |
|
if ($showextra) { |
|
$numshown ++; |
|
$divsty = 'display:inline-block'; |
|
} else { |
|
$divsty = 'display:none'; |
|
} |
|
$extra .= '<fieldset id="'.$context.'_info_'.$hostid.'" style="'.$divsty.'">'. |
|
'<legend>'.$hostid.'</legend>'; |
|
if ($switch) { |
|
my $switchserver = '<a href="/adm/switchserver?otherserver='.$hostid.'&role='. |
|
&HTML::Entities::encode($env{'request.role'},'\'<>"&'). |
|
'&destinationurl=/adm/domainprefs">'.&mt('Switch Server').'</a>'; |
|
if (exists($privkeys->{$hostid})) { |
|
$extra .= '<div id="'.$context.'_divcurrprivkey_'.$hostid.'" style="display:inline-block" />'. |
|
'<span class="LC_nobreak">'. |
|
&mt('Encryption Key').': ['.&mt('not shown').'] '.(' 'x2).'</span></div>'. |
|
'<span class="LC_nobreak">'.&mt('Change?'). |
|
'<label><input type="radio" value="0" name="'.$context.'_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$context','$hostid'".');" checked="checked" />'.&mt('No').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" value="1" name="'.$context.'_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$context','$hostid'".');" />'.&mt('Yes'). |
|
'</label> </span><div id="'.$context.'_divchgprivkey_'.$hostid.'" style="display:none" />'. |
|
'<span class="LC_nobreak"> - '.&mt('submit from server ([_1]): [_2].',$hostid,$switchserver). |
|
'</span></div>'; |
|
} else { |
|
$extra .= '<span class="LC_nobreak">'. |
|
&mt('Key required').' - '.&mt('submit from server ([_1]): [_2].',$hostid,$switchserver). |
|
'</span>'."\n"; |
|
} |
|
} elsif (exists($privkeys->{$hostid})) { |
|
$extra .= '<div id="'.$context.'_divcurrprivkey_'.$hostid.'" style="display:inline-block" /><span class="LC_nobreak">'. |
|
&mt('Encryption Key').': ['.&mt('not shown').'] '.(' 'x2).'</span></div>'. |
|
'<span class="LC_nobreak">'.&mt('Change?'). |
|
'<label><input type="radio" value="0" name="'.$context.'_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$context','$hostid'".');" checked="checked" />'.&mt('No').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" value="1" name="'.$context.'_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$context','$hostid'".');" />'.&mt('Yes'). |
|
'</label> </span><div id="'.$context.'_divchgprivkey_'.$hostid.'" style="display:none" />'. |
|
'<span class="LC_nobreak">'.&mt('New Key').':'. |
|
'<input type="password" size="20" name="'.$context.'_privkey_'.$hostid.'" value="" autocomplete="new-password" />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.'.$context.'_privkey_'.$hostid.'.type='."'text'".' } else { this.form.'.$context.'_privkey_'.$hostid.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'. |
|
'</span></div>'; |
|
} else { |
|
$extra .= '<span class="LC_nobreak">'.&mt('Encryption Key').':'. |
|
'<input type="password" size="20" name="'.$context.'_privkey_'.$hostid.'" value="" autocomplete="new-password" />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.'.$context.'_privkey_'.$hostid.'.type='."'text'".' } else { this.form.'.$context.'_privkey_'.$hostid.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'; |
|
} |
|
$extra .= '</fieldset>'; |
|
} |
|
} |
|
my (%choices,@toggles,%defaultchecked); |
|
if ($context eq 'ltisec') { |
|
%choices = &Apache::lonlocal::texthash ( |
|
ltisec_crslinkprot => 'Encrypt stored link protection secrets defined in courses', |
|
ltisec_domlinkprot => 'Encrypt stored link protection secrets defined in domain', |
|
ltisec_consumers => 'Encrypt stored consumer secrets defined in domain', |
|
); |
|
@toggles = qw(ltisec_crslinkprot ltisec_domlinkprot ltisec_consumers); |
|
%defaultchecked = ( |
|
'ltisec_crslinkprot' => 'off', |
|
'ltisec_domlinkprot' => 'off', |
|
'ltisec_consumers' => 'off', |
|
); |
|
} else { |
|
%choices = &Apache::lonlocal::texthash ( |
|
toolsec_crs => 'Encrypt stored external tool secrets defined in courses', |
|
toolsec_dom => 'Encrypt stored external tool secrets defined in domain', |
|
); |
|
@toggles = qw(toolsec_crs toolsec_dom); |
|
%defaultchecked = ( |
|
'toolsec_crs' => 'off', |
|
'toolsec_dom' => 'off', |
|
); |
|
} |
|
my ($onclick,$itemcount); |
|
$onclick = 'javascript:toggleLTIEncKey(this.form,'."'$context'".');'; |
|
($output,$itemcount) = &radiobutton_prefs($encrypt,\@toggles,\%defaultchecked, |
|
\%choices,$itemcount,$onclick,'','left','no'); |
|
|
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
my $noprivkeysty = 'display:inline-block'; |
|
if ($numshown) { |
|
$noprivkeysty = 'display:none'; |
|
} |
|
$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.&mt('Encryption Key(s)').'</td>'. |
|
'<td><div id="'.$context.'_noprivkey" style="'.$noprivkeysty.'" >'. |
|
'<span class="LC_nobreak">'.&mt('Not in use').'</span></div>'. |
|
$extra. |
|
'</td></tr>'; |
|
$itemcount ++; |
|
$$rowtotal += $itemcount; |
|
return $output; |
|
} |
|
|
sub print_proctoring { |
sub print_proctoring { |
my ($dom,$settings,$rowtotal) = @_; |
my ($dom,$settings,$rowtotal) = @_; |
my $itemcount = 1; |
my $itemcount = 1; |
Line 6526 sub print_lti {
|
Line 6180 sub print_lti {
|
} |
} |
} |
} |
if ($position eq 'top') { |
if ($position eq 'top') { |
my @ids=&Apache::lonnet::current_machine_ids(); |
$datatable = &secrets_form($dom,'ltisec',\%encrypt,\%privkeys,$rowtotal); |
my %servers = &Apache::lonnet::get_servers($dom,'library'); |
|
my $primary = &Apache::lonnet::domain($dom,'primary'); |
|
my ($extra,$numshown); |
|
foreach my $hostid (sort(keys(%servers))) { |
|
my ($showextra,$divsty,$switch); |
|
if ($hostid eq $primary) { |
|
if (($encrypt{'ltisec_consumers'}) || ($encrypt{'ltisec_domlinkprot'})) { |
|
$showextra = 1; |
|
} |
|
} |
|
if ($encrypt{'ltisec_crslinkprot'}) { |
|
$showextra = 1; |
|
} |
|
unless (grep(/^\Q$hostid\E$/,@ids)) { |
|
$switch = 1; |
|
} |
|
if ($showextra) { |
|
$numshown ++; |
|
$divsty = 'display:inline-block'; |
|
} else { |
|
$divsty = 'display:none'; |
|
} |
|
$extra .= '<fieldset id="ltisec_info_'.$hostid.'" style="'.$divsty.'">'. |
|
'<legend>'.$hostid.'</legend>'; |
|
if ($switch) { |
|
my $switchserver = '<a href="/adm/switchserver?otherserver='.$hostid.'&role='. |
|
&HTML::Entities::encode($env{'request.role'},'\'<>"&'). |
|
'&destinationurl=/adm/domainprefs">'.&mt('Switch Server').'</a>'; |
|
if (exists($privkeys{$hostid})) { |
|
$extra .= '<div id="ltisec_divcurrprivkey_'.$hostid.'" style="display:inline-block" />'. |
|
'<span class="LC_nobreak">'. |
|
&mt('Encryption Key').': ['.&mt('not shown').'] '.(' 'x2).'</span></div>'. |
|
'<span class="LC_nobreak">'.&mt('Change?'). |
|
'<label><input type="radio" value="0" name="ltisec_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$hostid'".');" checked="checked" />'.&mt('No').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" value="1" name="ltisec_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$hostid'".');" />'.&mt('Yes'). |
|
'</label> </span><div id="ltisec_divchgprivkey_'.$hostid.'" style="display:none" />'. |
|
'<span class="LC_nobreak"> - '.&mt('submit from server ([_1]): [_2].',$hostid,$switchserver). |
|
'</span></div>'; |
|
} else { |
|
$extra .= '<span class="LC_nobreak">'. |
|
&mt('Key required').' - '.&mt('submit from server ([_1]): [_2].',$hostid,$switchserver). |
|
'</span>'."\n"; |
|
} |
|
} elsif (exists($privkeys{$hostid})) { |
|
$extra .= '<div id="ltisec_divcurrprivkey_'.$hostid.'" style="display:inline-block" /><span class="LC_nobreak">'. |
|
&mt('Encryption Key').': ['.&mt('not shown').'] '.(' 'x2).'</span></div>'. |
|
'<span class="LC_nobreak">'.&mt('Change?'). |
|
'<label><input type="radio" value="0" name="ltisec_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$hostid'".');" checked="checked" />'.&mt('No').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" value="1" name="ltisec_changeprivkey_'.$hostid.'" onclick="javascript:togglePrivKey(this.form,'."'$hostid'".');" />'.&mt('Yes'). |
|
'</label> </span><div id="ltisec_divchgprivkey_'.$hostid.'" style="display:none" />'. |
|
'<span class="LC_nobreak">'.&mt('New Key').':'. |
|
'<input type="password" size="20" name="ltisec_privkey_'.$hostid.'" value="" autocomplete="off" />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltisec_privkey_'.$hostid.'.type='."'text'".' } else { this.form.ltisec_privkey_'.$hostid.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'. |
|
'</span></div>'; |
|
} else { |
|
$extra .= '<span class="LC_nobreak">'.&mt('Encryption Key').':'. |
|
'<input type="password" size="20" name="ltisec_privkey_'.$hostid.'" value="" autocomplete="off" />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltisec_privkey_'.$hostid.'.type='."'text'".' } else { this.form.ltisec_privkey_'.$hostid.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'; |
|
} |
|
$extra .= '</fieldset>'; |
|
} |
|
my %choices = &Apache::lonlocal::texthash ( |
|
ltisec_crslinkprot => 'Encrypt stored link protection secrets defined in courses', |
|
ltisec_domlinkprot => 'Encrypt stored link protection secrets defined in domain', |
|
ltisec_consumers => 'Encrypt stored consumer secrets defined in domain', |
|
); |
|
my @toggles = qw(ltisec_crslinkprot ltisec_domlinkprot ltisec_consumers); |
|
my %defaultchecked = ( |
|
'ltisec_crslinkprot' => 'off', |
|
'ltisec_domlinkprot' => 'off', |
|
'ltisec_consumers' => 'off', |
|
); |
|
my ($onclick,$itemcount); |
|
$onclick = 'javascript:toggleLTIEncKey(this.form);'; |
|
($datatable,$itemcount) = &radiobutton_prefs(\%encrypt,\@toggles,\%defaultchecked, |
|
\%choices,$itemcount,$onclick,'','left','no'); |
|
|
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
my $noprivkeysty = 'display:inline-block'; |
|
if ($numshown) { |
|
$noprivkeysty = 'display:none'; |
|
} |
|
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.&mt('Encryption Key(s)').'</td>'. |
|
'<td><div id="ltisec_noprivkey" style="'.$noprivkeysty.'" >'. |
|
'<span class="LC_nobreak">'.&mt('Not in use').'</span></div>'. |
|
$extra. |
|
'</td></tr>'; |
|
$itemcount ++; |
|
$$rowtotal += $itemcount; |
|
} elsif ($position eq 'middle') { |
} elsif ($position eq 'middle') { |
$datatable = &password_rules('secrets',\$itemcount,\%rules); |
$datatable = &password_rules('ltisecrets',\$itemcount,\%rules); |
$$rowtotal += $itemcount; |
$$rowtotal += $itemcount; |
} elsif ($position eq 'lower') { |
} elsif ($position eq 'lower') { |
$datatable .= &Apache::courseprefs::print_linkprotection($dom,'',$settings,$rowtotal,'','','domain'); |
$datatable .= &Apache::courseprefs::print_linkprotection($dom,'',$settings,$rowtotal,'','','domain'); |
Line 7194 sub print_coursedefaults {
|
Line 6757 sub print_coursedefaults {
|
canclone => "People who may clone a course (besides course's owner and coordinators)", |
canclone => "People who may clone a course (besides course's owner and coordinators)", |
mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver', |
mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver', |
ltiauth => 'Student username in LTI launch of deep-linked URL can be accepted without re-authentication', |
ltiauth => 'Student username in LTI launch of deep-linked URL can be accepted without re-authentication', |
|
domexttool => 'External Tools defined in the domain may be used in courses/communities (by type)', |
|
exttool => 'External Tools can be defined and configured in courses/communities (by type)', |
); |
); |
my %staticdefaults = ( |
my %staticdefaults = ( |
anonsurvey_threshold => 10, |
anonsurvey_threshold => 10, |
uploadquota => 500, |
uploadquota => 500, |
postsubmit => 60, |
postsubmit => 60, |
mysqltables => 172800, |
mysqltables => 172800, |
|
domexttool => 1, |
|
exttool => 0, |
); |
); |
if ($position eq 'top') { |
if ($position eq 'top') { |
%defaultchecked = ( |
%defaultchecked = ( |
Line 7317 sub print_coursedefaults {
|
Line 6884 sub print_coursedefaults {
|
my $currusecredits = 0; |
my $currusecredits = 0; |
my $postsubmitclient = 1; |
my $postsubmitclient = 1; |
my $ltiauth = 0; |
my $ltiauth = 0; |
|
my %domexttool; |
|
my %exttool; |
my @types = ('official','unofficial','community','textbook','placement'); |
my @types = ('official','unofficial','community','textbook','placement'); |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if ($settings->{'ltiauth'}) { |
if ($settings->{'ltiauth'}) { |
$ltiauth = 1; |
$ltiauth = 1; |
} |
} |
|
if (ref($settings->{'domexttool'}) eq 'HASH') { |
|
foreach my $type (@types) { |
|
if ($settings->{'domexttool'}->{$type}) { |
|
$domexttool{$type} = ' checked="checked"'; |
|
} |
|
} |
|
} else { |
|
foreach my $type (@types) { |
|
if ($staticdefaults{'domexttool'}) { |
|
$domexttool{$type} = ' checked="checked"'; |
|
} |
|
} |
|
} |
|
if (ref($settings->{'exttool'}) eq 'HASH') { |
|
foreach my $type (@types) { |
|
if ($settings->{'exttool'}->{$type}) { |
|
$exttool{$type} = ' checked="checked"'; |
|
} |
|
} |
|
} |
$currdefresponder = $settings->{'anonsurvey_threshold'}; |
$currdefresponder = $settings->{'anonsurvey_threshold'}; |
if (ref($settings->{'uploadquota'}) eq 'HASH') { |
if (ref($settings->{'uploadquota'}) eq 'HASH') { |
foreach my $type (keys(%{$settings->{'uploadquota'}})) { |
foreach my $type (keys(%{$settings->{'uploadquota'}})) { |
Line 7373 sub print_coursedefaults {
|
Line 6962 sub print_coursedefaults {
|
} else { |
} else { |
foreach my $type (@types) { |
foreach my $type (@types) { |
$deftimeout{$type} = $staticdefaults{'postsubmit'}; |
$deftimeout{$type} = $staticdefaults{'postsubmit'}; |
|
if ($staticdefaults{'domexttool'}) { |
|
$domexttool{$type} = ' checked="checked"'; |
|
} |
} |
} |
} |
} |
if (!$currdefresponder) { |
if (!$currdefresponder) { |
Line 7476 sub print_coursedefaults {
|
Line 7068 sub print_coursedefaults {
|
&radiobutton_prefs($current,\@toggles,\%defaultchecked, |
&radiobutton_prefs($current,\@toggles,\%defaultchecked, |
\%choices,$itemcount,undef,undef,'left'); |
\%choices,$itemcount,undef,undef,'left'); |
$datatable .= $table; |
$datatable .= $table; |
|
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
|
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
|
$choices{'domexttool'}. |
|
'</span></td>'. |
|
'<td style="text-align: right" class="LC_right_item">'. |
|
'<table><tr>'; |
|
foreach my $type (@types) { |
|
$datatable .= '<td style="text-align: left">'. |
|
'<span class="LC_nobreak">'. |
|
'<input type="checkbox" name="domexttool"'. |
|
' value="'.$type.'"'.$domexttool{$type}.' />'. |
|
&mt($type).'</span></td>'."\n"; |
|
} |
|
$datatable .= '</tr></table></td></tr>'."\n"; |
$itemcount ++; |
$itemcount ++; |
|
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
|
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
|
$choices{'exttool'}. |
|
'</span></td>'. |
|
'<td style="text-align: right" class="LC_right_item">'. |
|
'<table><tr>'; |
|
foreach my $type (@types) { |
|
$datatable .= '<td style="text-align: left">'. |
|
'<span class="LC_nobreak">'. |
|
'<input type="checkbox" name="exttool"'. |
|
' value="'.$type.'"'.$exttool{$type}.' />'. |
|
&mt($type).'</span></td>'."\n"; |
|
} |
|
$datatable .= '</tr></table></td></tr>'."\n"; |
} |
} |
$$rowtotal += $itemcount; |
$$rowtotal += $itemcount; |
return $datatable; |
return $datatable; |
Line 7711 sub print_privacy {
|
Line 7331 sub print_privacy {
|
my ($position,$dom,$settings,$rowtotal) = @_; |
my ($position,$dom,$settings,$rowtotal) = @_; |
my ($datatable,$css_class,$numinrow,@items,%names,$othertitle,$usertypes,$types); |
my ($datatable,$css_class,$numinrow,@items,%names,$othertitle,$usertypes,$types); |
my $itemcount = 0; |
my $itemcount = 0; |
unless ($position eq 'top') { |
if ($position eq 'top') { |
|
$numinrow = 2; |
|
} else { |
@items = ('domain','author','course','community'); |
@items = ('domain','author','course','community'); |
%names = &Apache::lonlocal::texthash ( |
%names = &Apache::lonlocal::texthash ( |
domain => 'Assigned domain role(s)', |
domain => 'Assigned domain role(s)', |
author => 'Assigned co-author role(s)', |
author => 'Assigned co-author role(s)', |
course => 'Assigned course role(s)', |
course => 'Assigned course role(s)', |
community => 'Assigned community role', |
community => 'Assigned community role(s)', |
); |
); |
$numinrow = 4; |
$numinrow = 4; |
($othertitle,$usertypes,$types) = |
($othertitle,$usertypes,$types) = |
Line 7736 sub print_privacy {
|
Line 7358 sub print_privacy {
|
auto => 'Unrestricted', |
auto => 'Unrestricted', |
instdom => 'Other domain shares institution/provider', |
instdom => 'Other domain shares institution/provider', |
extdom => 'Other domain has different institution/provider', |
extdom => 'Other domain has different institution/provider', |
|
notify => 'Notify when role needs authorization', |
); |
); |
my %names = &Apache::lonlocal::texthash ( |
my %names = &Apache::lonlocal::texthash ( |
domain => 'Domain role', |
domain => 'Domain role', |
Line 7787 sub print_privacy {
|
Line 7410 sub print_privacy {
|
$datatable .= '</td></tr>'; |
$datatable .= '</td></tr>'; |
$itemcount ++; |
$itemcount ++; |
} |
} |
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
$datatable .= '<tr'.$css_class.'><td>'.$titles{'notify'}.'</td>'. |
|
'<td class="LC_left_item">'; |
|
if ((@instdoms > 1) || (keys(%by_location) > 0)) { |
|
my %curr; |
|
if (ref($settings) eq 'HASH') { |
|
if ($settings->{'notify'} ne '') { |
|
map {$curr{$_}=1;} split(/,/,$settings->{'notify'}); |
|
} |
|
} |
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
my ($numdc,$table,$rows) = &active_dc_picker($dom,$numinrow,'checkbox', |
|
'privacy_notify',%curr); |
|
if ($numdc > 0) { |
|
$datatable .= $table; |
|
} else { |
|
$datatable .= &mt('There are no active Domain Coordinators'); |
|
} |
|
} else { |
|
$datatable .= &mt('Nothing to set here, as there are no other domains'); |
|
} |
|
$datatable .='</td></tr>'; |
} elsif ($position eq 'middle') { |
} elsif ($position eq 'middle') { |
if ((@instdoms > 1) || (keys(%by_location) > 0)) { |
if ((@instdoms > 1) || (keys(%by_location) > 0)) { |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) { |
Line 8200 sub password_rules {
|
Line 7845 sub password_rules {
|
max => 'Maximum password length', |
max => 'Maximum password length', |
chars => 'Required characters', |
chars => 'Required characters', |
); |
); |
} elsif ($prefix eq 'secrets') { |
} elsif (($prefix eq 'ltisecrets') || ($prefix eq 'toolsecrets')) { |
%titles = &Apache::lonlocal::texthash ( |
%titles = &Apache::lonlocal::texthash ( |
min => 'Minimum secret length', |
min => 'Minimum secret length', |
max => 'Maximum secret length', |
max => 'Maximum secret length', |
Line 9701 sub tool_titles {
|
Line 9346 sub tool_titles {
|
blog => 'Blog', |
blog => 'Blog', |
webdav => 'WebDAV', |
webdav => 'WebDAV', |
portfolio => 'Portfolio', |
portfolio => 'Portfolio', |
|
timezone => 'Can set time zone', |
official => 'Official courses (with institutional codes)', |
official => 'Official courses (with institutional codes)', |
unofficial => 'Unofficial courses', |
unofficial => 'Unofficial courses', |
community => 'Communities', |
community => 'Communities', |
Line 10671 sub print_defaults {
|
Line 10317 sub print_defaults {
|
} elsif ($item eq 'lang_def') { |
} elsif ($item eq 'lang_def') { |
my $includeempty = 1; |
my $includeempty = 1; |
$datatable .= &Apache::loncommon::select_language($item,$defaults{$item},$includeempty); |
$datatable .= &Apache::loncommon::select_language($item,$defaults{$item},$includeempty); |
} else { |
} elsif ($item eq 'portal_def') { |
my $size; |
|
if ($item eq 'portal_def') { |
|
$size = ' size="25"'; |
|
} |
|
$datatable .= '<input type="text" name="'.$item.'" value="'. |
$datatable .= '<input type="text" name="'.$item.'" value="'. |
$defaults{$item}.'"'.$size.' />'; |
$defaults{$item}.'" size="25" onkeyup="portalExtras(this);" />'; |
|
my $portalsty = 'none'; |
|
if ($defaults{$item}) { |
|
$portalsty = 'block'; |
|
} |
|
foreach my $field ('email','web') { |
|
my $checkedoff = ' checked="checked"'; |
|
my $checkedon; |
|
if ($defaults{$item.'_'.$field}) { |
|
$checkedon = $checkedoff; |
|
$checkedoff = ''; |
|
} |
|
$datatable .= '<div id="'.$item.'_'.$field.'_div" style="display:'.$portalsty.'">'. |
|
'<span class="LC_nobreak">'.$titles->{$field}.' '. |
|
'<label><input type="radio" name="'.$item.'_'.$field.'" value="1"'.$checkedon.'/>'.&mt('Yes').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" name="'.$item.'_'.$field.'" value="0"'.$checkedoff.'/>'.&mt('No').'</label>'. |
|
'</div>'; |
|
} |
|
} else { |
|
$datatable .= '<input type="text" name="'.$item.'" value="'.$defaults{$item}.'" />'; |
} |
} |
$datatable .= '</td></tr>'; |
$datatable .= '</td></tr>'; |
$rownum ++; |
$rownum ++; |
Line 10773 sub defaults_titles {
|
Line 10435 sub defaults_titles {
|
'timezone_def' => 'Default timezone', |
'timezone_def' => 'Default timezone', |
'datelocale_def' => 'Default locale for dates', |
'datelocale_def' => 'Default locale for dates', |
'portal_def' => 'Portal/Default URL', |
'portal_def' => 'Portal/Default URL', |
|
'email' => 'Email links use portal URL', |
|
'web' => 'Public web links use portal URL', |
'intauth_cost' => 'Encryption cost for bcrypt (positive integer)', |
'intauth_cost' => 'Encryption cost for bcrypt (positive integer)', |
'intauth_check' => 'Check bcrypt cost if authenticated', |
'intauth_check' => 'Check bcrypt cost if authenticated', |
'intauth_switch' => 'Existing crypt-based switched to bcrypt on authentication', |
'intauth_switch' => 'Existing crypt-based switched to bcrypt on authentication', |
Line 11005 sub legacy_scantronformat {
|
Line 10669 sub legacy_scantronformat {
|
my ($url,$error); |
my ($url,$error); |
my @statinfo = &Apache::lonnet::stat_file($newurl); |
my @statinfo = &Apache::lonnet::stat_file($newurl); |
if ((!@statinfo) || ($statinfo[0] eq 'no_such_dir')) { |
if ((!@statinfo) || ($statinfo[0] eq 'no_such_dir')) { |
|
my $modified = []; |
(my $result,$url) = |
(my $result,$url) = |
&publishlogo($r,'copy',$legacyfile,$dom,$confname,'scantron', |
&Apache::lonconfigsettings::publishlogo($r,'copy',$legacyfile,$dom,$confname, |
'','',$newfile); |
'scantron','','',$newfile,$modified); |
if ($result ne 'ok') { |
if ($result eq 'ok') { |
|
&update_modify_urls($r,$modified); |
|
} else { |
$error = &mt("An error occurred publishing the [_1] bubblesheet format file in RES space. Error was: [_2].",$newfile,$result); |
$error = &mt("An error occurred publishing the [_1] bubblesheet format file in RES space. Error was: [_2].",$newfile,$result); |
} |
} |
} |
} |
Line 11487 sub serverstatus_pages {
|
Line 11154 sub serverstatus_pages {
|
sub defaults_javascript { |
sub defaults_javascript { |
my ($settings) = @_; |
my ($settings) = @_; |
return unless (ref($settings) eq 'HASH'); |
return unless (ref($settings) eq 'HASH'); |
|
my $portal_js = <<"ENDPORTAL"; |
|
|
|
function portalExtras(caller) { |
|
var x = caller.value; |
|
var y = new Array('email','web'); |
|
for (var i=0; i<y.length; i++) { |
|
if (document.getElementById('portal_def_'+y[i]+'_div')) { |
|
var z = document.getElementById('portal_def_'+y[i]+'_div'); |
|
if (x.length > 0) { |
|
z.style.display = 'block'; |
|
} else { |
|
z.style.display = 'none'; |
|
} |
|
} |
|
} |
|
} |
|
ENDPORTAL |
if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) { |
if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) { |
my $maxnum = scalar(@{$settings->{'inststatusorder'}}); |
my $maxnum = scalar(@{$settings->{'inststatusorder'}}); |
if ($maxnum eq '') { |
if ($maxnum eq '') { |
Line 11540 $jstext
|
Line 11224 $jstext
|
return; |
return; |
} |
} |
|
|
|
$portal_js |
|
|
|
// ]]> |
|
</script> |
|
|
|
ENDSCRIPT |
|
} else { |
|
return <<"ENDSCRIPT"; |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
$portal_js |
// ]]> |
// ]]> |
</script> |
</script> |
|
|
Line 11560 sub passwords_javascript {
|
Line 11255 sub passwords_javascript {
|
passexp => 'Warning: days before password expiration 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).', |
passnum => 'Warning: number of previous passwords to save must be a positive integer (or blank).', |
); |
); |
} elsif ($prefix eq 'secrets') { |
} elsif (($prefix eq 'ltisecrets') || ($prefix eq 'toolsecrets')) { |
%intalert = &Apache::lonlocal::texthash ( |
%intalert = &Apache::lonlocal::texthash ( |
passmin => 'Warning: minimum secret length must be a positive integer greater than 6.', |
passmin => 'Warning: minimum secret length must be a positive integer greater than 6.', |
passmax => 'Warning: maximum secret length must be a positive integer (or blank).', |
passmax => 'Warning: maximum secret length must be a positive integer (or blank).', |
Line 12434 sub modify_login {
|
Line 12129 sub modify_login {
|
if ($addedfile ne '') { |
if ($addedfile ne '') { |
push(@allnew,$addedfile); |
push(@allnew,$addedfile); |
} |
} |
|
my $modified = []; |
foreach my $lang (@allnew) { |
foreach my $lang (@allnew) { |
my $formelem = 'loginhelpurl_'.$lang; |
my $formelem = 'loginhelpurl_'.$lang; |
if ($lang eq $env{'form.loginhelpurl_add_lang'}) { |
if ($lang eq $env{'form.loginhelpurl_add_lang'}) { |
$formelem = 'loginhelpurl_add_file'; |
$formelem = 'loginhelpurl_add_file'; |
} |
} |
(my $result,$newurl{$lang}) = &publishlogo($r,'upload',$formelem,$dom,$confname, |
(my $result,$newurl{$lang}) = |
"help/$lang",'','',$newfile{$lang}); |
&Apache::lonconfigsettings::publishlogo($r,'upload',$formelem,$dom,$confname, |
|
"help/$lang",'','',$newfile{$lang}, |
|
$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$loginhash{'login'}{'helpurl'}{$lang} = $newurl{$lang}; |
$loginhash{'login'}{'helpurl'}{$lang} = $newurl{$lang}; |
$changes{'helpurl'}{$lang} = 1; |
$changes{'helpurl'}{$lang} = 1; |
Line 12453 sub modify_login {
|
Line 12151 sub modify_login {
|
} |
} |
} |
} |
} |
} |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of custom log-in help file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok); |
$error = &mt("Upload of custom log-in help file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok); |
} |
} |
Line 12510 sub modify_login {
|
Line 12209 sub modify_login {
|
if ($switchserver) { |
if ($switchserver) { |
$error = &mt("Upload of custom markup is not permitted to this server: [_1]",$switchserver); |
$error = &mt("Upload of custom markup is not permitted to this server: [_1]",$switchserver); |
} elsif ($author_ok eq 'ok') { |
} elsif ($author_ok eq 'ok') { |
|
my $modified = []; |
foreach my $lonhost (@newhosts) { |
foreach my $lonhost (@newhosts) { |
my $formelem = 'loginheadtag_'.$lonhost; |
my $formelem = 'loginheadtag_'.$lonhost; |
(my $result,$newheadtagurls{$lonhost}) = &publishlogo($r,'upload',$formelem,$dom,$confname, |
(my $result,$newheadtagurls{$lonhost}) = |
"login/headtag/$lonhost",'','', |
&Apache::lonconfigsettings::publishlogo($r,'upload',$formelem,$dom,$confname, |
$env{'form.loginheadtag_'.$lonhost.'.filename'}); |
"login/headtag/$lonhost",'','', |
|
$env{'form.loginheadtag_'.$lonhost.'.filename'}, |
|
$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$loginhash{'login'}{'headtag'}{$lonhost}{'url'} = $newheadtagurls{$lonhost}; |
$loginhash{'login'}{'headtag'}{$lonhost}{'url'} = $newheadtagurls{$lonhost}; |
$changes{'headtag'}{$lonhost} = 1; |
$changes{'headtag'}{$lonhost} = 1; |
Line 12531 sub modify_login {
|
Line 12233 sub modify_login {
|
} |
} |
} |
} |
} |
} |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of custom markup file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok); |
$error = &mt("Upload of custom markup file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok); |
} |
} |
Line 12605 sub modify_login {
|
Line 12308 sub modify_login {
|
if ($switchserver) { |
if ($switchserver) { |
$error = &mt("Upload of SSO Button Image is not permitted to this server: [_1].",$switchserver); |
$error = &mt("Upload of SSO Button Image is not permitted to this server: [_1].",$switchserver); |
} elsif ($author_ok eq 'ok') { |
} elsif ($author_ok eq 'ok') { |
|
my $modified = []; |
foreach my $lonhost (@newsamlimgs) { |
foreach my $lonhost (@newsamlimgs) { |
my $formelem = 'saml_img_'.$lonhost; |
my $formelem = 'saml_img_'.$lonhost; |
my ($result,$imgurl) = &publishlogo($r,'upload',$formelem,$dom,$confname, |
my ($result,$imgurl) = |
"login/saml/$lonhost",'','', |
&Apache::lonconfigsettings::publishlogo($r,'upload',$formelem,$dom,$confname, |
$env{'form.saml_img_'.$lonhost.'.filename'}); |
"login/saml/$lonhost",'','', |
|
$env{'form.saml_img_'.$lonhost.'.filename'}, |
|
$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$currsaml{$lonhost}{'img'} = $imgurl; |
$currsaml{$lonhost}{'img'} = $imgurl; |
$loginhash{'login'}{'saml'}{$lonhost}{'img'} = $imgurl; |
$loginhash{'login'}{'saml'}{$lonhost}{'img'} = $imgurl; |
Line 12620 sub modify_login {
|
Line 12326 sub modify_login {
|
$errors .= '<li><span class="LC_error">'.$puberror.'</span></li>'; |
$errors .= '<li><span class="LC_error">'.$puberror.'</span></li>'; |
} |
} |
} |
} |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of SSO button image file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok); |
$error = &mt("Upload of SSO button image file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok); |
} |
} |
Line 13324 sub modify_colors {
|
Line 13031 sub modify_colors {
|
$error = &mt("Upload of [_1] image for $role page(s) is not permitted to this server: [_2]",$choices{$img},$switchserver); |
$error = &mt("Upload of [_1] image for $role page(s) is not permitted to this server: [_2]",$choices{$img},$switchserver); |
} else { |
} else { |
if ($author_ok eq 'ok') { |
if ($author_ok eq 'ok') { |
|
my $modified = []; |
my ($result,$logourl) = |
my ($result,$logourl) = |
&publishlogo($r,'upload',$role.'_'.$img, |
&Apache::lonconfigsettings::publishlogo($r,'upload',$role.'_'.$img, |
$dom,$confname,$img,$width,$height); |
$dom,$confname,$img,$width,$height, |
|
'',$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$confhash->{$role}{$img} = $logourl; |
$confhash->{$role}{$img} = $logourl; |
$changes{$role}{'images'}{$img} = 1; |
$changes{$role}{'images'}{$img} = 1; |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of [_1] image for $role page(s) failed because an error occurred publishing the file in RES space. Error was: [_2].",$choices{img},$result); |
$error = &mt("Upload of [_1] image for $role page(s) failed because an error occurred publishing the file in RES space. Error was: [_2].",$choices{img},$result); |
} |
} |
Line 13351 sub modify_colors {
|
Line 13061 sub modify_colors {
|
# is confname an author? |
# is confname an author? |
if ($switchserver eq '') { |
if ($switchserver eq '') { |
if ($author_ok eq 'ok') { |
if ($author_ok eq 'ok') { |
|
my $modified = []; |
my ($result,$logourl) = |
my ($result,$logourl) = |
&publishlogo($r,'copy',$domconfig->{$role}{$img}, |
&Apache::lonconfigsettings::publishlogo($r,'copy',$domconfig->{$role}{$img}, |
$dom,$confname,$img,$width,$height); |
$dom,$confname,$img,$width,$height, |
|
'',$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$confhash->{$role}{$img} = $logourl; |
$confhash->{$role}{$img} = $logourl; |
$changes{$role}{'images'}{$img} = 1; |
$changes{$role}{'images'}{$img} = 1; |
|
&update_modify_urls($r,$modified); |
} |
} |
} |
} |
} |
} |
Line 13650 sub check_authorstatus {
|
Line 13363 sub check_authorstatus {
|
return $author_ok; |
return $author_ok; |
} |
} |
|
|
sub publishlogo { |
sub update_modify_urls { |
my ($r,$action,$formname,$dom,$confname,$subdir,$thumbwidth,$thumbheight,$savefileas) = @_; |
my ($r,$modified) = @_; |
my ($output,$fname,$logourl,$madethumb); |
if ((ref($modified) eq 'ARRAY') && (@{$modified})) { |
if ($action eq 'upload') { |
push(@{$modified_urls},$modified); |
$fname=$env{'form.'.$formname.'.filename'}; |
unless ($registered_cleanup) { |
chop($env{'form.'.$formname}); |
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
} else { |
$r->set_handlers('PerlCleanupHandler' => [\¬ifysubscribed,@{$handlers}]); |
($fname) = ($formname =~ /([^\/]+)$/); |
$registered_cleanup=1; |
} |
|
if ($savefileas ne '') { |
|
$fname = $savefileas; |
|
} |
|
$fname=&Apache::lonnet::clean_filename($fname); |
|
# See if there is anything left |
|
unless ($fname) { return ('error: no uploaded file'); } |
|
$fname="$subdir/$fname"; |
|
my $docroot=$r->dir_config('lonDocRoot'); |
|
my $filepath="$docroot/priv"; |
|
my $relpath = "$dom/$confname"; |
|
my ($fnamepath,$file,$fetchthumb); |
|
$file=$fname; |
|
if ($fname=~m|/|) { |
|
($fnamepath,$file) = ($fname =~ m|^(.*)/([^/]+)$|); |
|
} |
|
my @parts=split(/\//,"$filepath/$relpath/$fnamepath"); |
|
my $count; |
|
for ($count=5;$count<=$#parts;$count++) { |
|
$filepath.="/$parts[$count]"; |
|
if ((-e $filepath)!=1) { |
|
mkdir($filepath,02770); |
|
} |
|
} |
|
# Check for bad extension and disallow upload |
|
if ($file=~/\.(\w+)$/ && |
|
(&Apache::loncommon::fileembstyle($1) eq 'hdn')) { |
|
$output = |
|
&mt('Invalid file extension ([_1]) - reserved for internal use.',$1); |
|
} elsif ($file=~/\.(\w+)$/ && |
|
!defined(&Apache::loncommon::fileembstyle($1))) { |
|
$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1); |
|
} elsif ($file=~/\.(\d+)\.(\w+)$/) { |
|
$output = &mt('Filename not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2); |
|
} elsif (-d "$filepath/$file") { |
|
$output = &mt('Filename is a directory name - rename the file and re-upload'); |
|
} else { |
|
my $source = $filepath.'/'.$file; |
|
my $logfile; |
|
if (!open($logfile,">>",$source.'.log')) { |
|
return (&mt('No write permission to Authoring Space')); |
|
} |
|
print $logfile |
|
"\n================= Publish ".localtime()." ================\n". |
|
$env{'user.name'}.':'.$env{'user.domain'}."\n"; |
|
# Save the file |
|
if (!open(FH,">",$source)) { |
|
&Apache::lonnet::logthis('Failed to create '.$source); |
|
return (&mt('Failed to create file')); |
|
} |
|
if ($action eq 'upload') { |
|
if (!print FH ($env{'form.'.$formname})) { |
|
&Apache::lonnet::logthis('Failed to write to '.$source); |
|
return (&mt('Failed to write file')); |
|
} |
|
} else { |
|
my $original = &Apache::lonnet::filelocation('',$formname); |
|
if(!copy($original,$source)) { |
|
&Apache::lonnet::logthis('Failed to copy '.$original.' to '.$source); |
|
return (&mt('Failed to write file')); |
|
} |
|
} |
|
close(FH); |
|
chmod(0660, $source); # Permissions to rw-rw---. |
|
|
|
my $targetdir=$docroot.'/res/'.$dom.'/'.$confname .'/'.$fnamepath; |
|
my $copyfile=$targetdir.'/'.$file; |
|
|
|
my @parts=split(/\//,$targetdir); |
|
my $path="/$parts[1]/$parts[2]/$parts[3]/$parts[4]"; |
|
for (my $count=5;$count<=$#parts;$count++) { |
|
$path.="/$parts[$count]"; |
|
if (!-e $path) { |
|
print $logfile "\nCreating directory ".$path; |
|
mkdir($path,02770); |
|
} |
|
} |
|
my $versionresult; |
|
if (-e $copyfile) { |
|
$versionresult = &logo_versioning($targetdir,$file,$logfile); |
|
} else { |
|
$versionresult = 'ok'; |
|
} |
|
if ($versionresult eq 'ok') { |
|
if (copy($source,$copyfile)) { |
|
print $logfile "\nCopied original source to ".$copyfile."\n"; |
|
$output = 'ok'; |
|
$logourl = '/res/'.$dom.'/'.$confname.'/'.$fname; |
|
push(@{$modified_urls},[$copyfile,$source]); |
|
my $metaoutput = |
|
&write_metadata($dom,$confname,$formname,$targetdir,$file,$logfile); |
|
unless ($registered_cleanup) { |
|
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
|
$r->set_handlers('PerlCleanupHandler' => [\¬ifysubscribed,@{$handlers}]); |
|
$registered_cleanup=1; |
|
} |
|
} else { |
|
print $logfile "\nUnable to write ".$copyfile.':'.$!."\n"; |
|
$output = &mt('Failed to copy file to RES space').", $!"; |
|
} |
|
if (($thumbwidth =~ /^\d+$/) && ($thumbheight =~ /^\d+$/)) { |
|
my $inputfile = $filepath.'/'.$file; |
|
my $outfile = $filepath.'/'.'tn-'.$file; |
|
my ($fullwidth,$fullheight) = &check_dimensions($inputfile); |
|
if ($fullwidth ne '' && $fullheight ne '') { |
|
if ($fullwidth > $thumbwidth && $fullheight > $thumbheight) { |
|
my $thumbsize = $thumbwidth.'x'.$thumbheight; |
|
my @args = ('convert','-sample',$thumbsize,$inputfile,$outfile); |
|
system({$args[0]} @args); |
|
chmod(0660, $filepath.'/tn-'.$file); |
|
if (-e $outfile) { |
|
my $copyfile=$targetdir.'/tn-'.$file; |
|
if (copy($outfile,$copyfile)) { |
|
print $logfile "\nCopied source to ".$copyfile."\n"; |
|
my $thumb_metaoutput = |
|
&write_metadata($dom,$confname,$formname, |
|
$targetdir,'tn-'.$file,$logfile); |
|
push(@{$modified_urls},[$copyfile,$outfile]); |
|
unless ($registered_cleanup) { |
|
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
|
$r->set_handlers('PerlCleanupHandler' => [\¬ifysubscribed,@{$handlers}]); |
|
$registered_cleanup=1; |
|
} |
|
$madethumb = 1; |
|
} else { |
|
print $logfile "\nUnable to write ".$copyfile. |
|
':'.$!."\n"; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} else { |
|
$output = $versionresult; |
|
} |
|
} |
|
return ($output,$logourl,$madethumb); |
|
} |
|
|
|
sub logo_versioning { |
|
my ($targetdir,$file,$logfile) = @_; |
|
my $target = $targetdir.'/'.$file; |
|
my ($maxversion,$fn,$extn,$output); |
|
$maxversion = 0; |
|
if ($file =~ /^(.+)\.(\w+)$/) { |
|
$fn=$1; |
|
$extn=$2; |
|
} |
|
opendir(DIR,$targetdir); |
|
while (my $filename=readdir(DIR)) { |
|
if ($filename=~/\Q$fn\E\.(\d+)\.\Q$extn\E$/) { |
|
$maxversion=($1>$maxversion)?$1:$maxversion; |
|
} |
} |
} |
} |
$maxversion++; |
|
print $logfile "\nCreating old version ".$maxversion."\n"; |
|
my $copyfile=$targetdir.'/'.$fn.'.'.$maxversion.'.'.$extn; |
|
if (copy($target,$copyfile)) { |
|
print $logfile "Copied old target to ".$copyfile."\n"; |
|
$copyfile=$copyfile.'.meta'; |
|
if (copy($target.'.meta',$copyfile)) { |
|
print $logfile "Copied old target metadata to ".$copyfile."\n"; |
|
$output = 'ok'; |
|
} else { |
|
print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n"; |
|
$output = &mt('Failed to copy old meta').", $!, "; |
|
} |
|
} else { |
|
print $logfile "Unable to write ".$copyfile.':'.$!."\n"; |
|
$output = &mt('Failed to copy old target').", $!, "; |
|
} |
|
return $output; |
|
} |
|
|
|
sub write_metadata { |
|
my ($dom,$confname,$formname,$targetdir,$file,$logfile) = @_; |
|
my (%metadatafields,%metadatakeys,$output); |
|
$metadatafields{'title'}=$formname; |
|
$metadatafields{'creationdate'}=time; |
|
$metadatafields{'lastrevisiondate'}=time; |
|
$metadatafields{'copyright'}='public'; |
|
$metadatafields{'modifyinguser'}=$env{'user.name'}.':'. |
|
$env{'user.domain'}; |
|
$metadatafields{'authorspace'}=$confname.':'.$dom; |
|
$metadatafields{'domain'}=$dom; |
|
{ |
|
print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file; |
|
my $mfh; |
|
if (open($mfh,">",$targetdir.'/'.$file.'.meta')) { |
|
foreach (sort(keys(%metadatafields))) { |
|
unless ($_=~/\./) { |
|
my $unikey=$_; |
|
$unikey=~/^([A-Za-z]+)/; |
|
my $tag=$1; |
|
$tag=~tr/A-Z/a-z/; |
|
print $mfh "\n\<$tag"; |
|
foreach (split(/\,/,$metadatakeys{$unikey})) { |
|
my $value=$metadatafields{$unikey.'.'.$_}; |
|
$value=~s/\"/\'\'/g; |
|
print $mfh ' '.$_.'="'.$value.'"'; |
|
} |
|
print $mfh '>'. |
|
&HTML::Entities::encode($metadatafields{$unikey},'<>&"') |
|
.'</'.$tag.'>'; |
|
} |
|
} |
|
$output = 'ok'; |
|
print $logfile "\nWrote metadata"; |
|
close($mfh); |
|
} else { |
|
print $logfile "\nFailed to open metadata file"; |
|
$output = &mt('Could not write metadata'); |
|
} |
|
} |
|
return $output; |
|
} |
} |
|
|
sub notifysubscribed { |
sub notifysubscribed { |
Line 13963 sub modify_quotas {
|
Line 13463 sub modify_quotas {
|
@usertools = ('author'); |
@usertools = ('author'); |
%titles = &authorrequest_titles(); |
%titles = &authorrequest_titles(); |
} else { |
} else { |
@usertools = ('aboutme','blog','webdav','portfolio'); |
@usertools = ('aboutme','blog','webdav','portfolio','timezone'); |
%titles = &tool_titles(); |
%titles = &tool_titles(); |
} |
} |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
Line 14654 sub process_textbook_image {
|
Line 14154 sub process_textbook_image {
|
$error = &mt('Upload of textbook image is not permitted to this server: [_1]', |
$error = &mt('Upload of textbook image is not permitted to this server: [_1]', |
$switchserver); |
$switchserver); |
} elsif ($author_ok eq 'ok') { |
} elsif ($author_ok eq 'ok') { |
|
my $modified = []; |
my ($result,$imageurl) = |
my ($result,$imageurl) = |
&publishlogo($r,'upload',$caller,$dom,$confname, |
&Apache::lonconfigsettings::publishlogo($r,'upload',$caller,$dom,$confname, |
"$type/$cdom/$cnum/cover",$width,$height); |
"$type/$cdom/$cnum/cover",$width,$height, |
|
'',$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$url = $imageurl; |
$url = $imageurl; |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result); |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result); |
} |
} |
Line 14673 sub process_textbook_image {
|
Line 14176 sub process_textbook_image {
|
|
|
sub modify_ltitools { |
sub modify_ltitools { |
my ($r,$dom,$action,$lastactref,%domconfig) = @_; |
my ($r,$dom,$action,$lastactref,%domconfig) = @_; |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my (%currtoolsec,%secchanges,%newtoolsec,%newkeyset); |
my ($newid,@allpos,%changes,%confhash,%encconfig,$errors,$resulttext); |
&fetch_secrets($dom,'toolsec',\%domconfig,\%currtoolsec,\%secchanges,\%newtoolsec,\%newkeyset); |
|
|
my $confname = $dom.'-domainconfig'; |
my $confname = $dom.'-domainconfig'; |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $servadm = $r->dir_config('lonAdmEMail'); |
my ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm); |
my ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm); |
my (%posslti,%possfield); |
|
my @courseroles = ('cc','in','ta','ep','st'); |
my ($resulttext,$ltitoolsoutput,$is_home,$errors,%ltitoolschg,%newtoolsenc,%newltitools); |
my @ltiroles = qw(Instructor ContentDeveloper TeachingAssistant Learner); |
my $toolserror = |
map { $posslti{$_} = 1; } @ltiroles; |
&Apache::courseprefs::process_ltitools($r,$dom,$confname,$domconfig{'ltitools'},\%ltitoolschg,'domain', |
my @allfields = ('fullname','firstname','lastname','email','user','roles'); |
$lastactref,$configuserok,$switchserver,$author_ok); |
map { $possfield{$_} = 1; } @allfields; |
|
my %lt = <itools_names(); |
my $home = &Apache::lonnet::domain($dom,'primary'); |
if ($env{'form.ltitools_add'}) { |
unless (($home eq 'no_host') || ($home eq '')) { |
my $title = $env{'form.ltitools_add_title'}; |
my @ids=&Apache::lonnet::current_machine_ids(); |
$title =~ s/(`)/'/g; |
foreach my $id (@ids) { if ($id eq $home) { $is_home=1; last; } } |
($newid,my $error) = &get_ltitools_id($dom,$title); |
} |
if ($newid) { |
|
my $position = $env{'form.ltitools_add_pos'}; |
if (keys(%ltitoolschg)) { |
$position =~ s/\D+//g; |
foreach my $id (keys(%ltitoolschg)) { |
if ($position ne '') { |
if (ref($ltitoolschg{$id}) eq 'HASH') { |
$allpos[$position] = $newid; |
foreach my $inner (keys(%{$ltitoolschg{$id}})) { |
} |
if (($inner eq 'secret') || ($inner eq 'key')) { |
$changes{$newid} = 1; |
if ($is_home) { |
foreach my $item ('title','url','key','secret','lifetime') { |
$newtoolsenc{$id}{$inner} = $ltitoolschg{$id}{$inner}; |
$env{'form.ltitools_add_'.$item} =~ s/(`)/'/g; |
|
if ($item eq 'lifetime') { |
|
$env{'form.ltitools_add_'.$item} =~ s/[^\d.]//g; |
|
} |
|
if ($env{'form.ltitools_add_'.$item}) { |
|
if (($item eq 'key') || ($item eq 'secret')) { |
|
$encconfig{$newid}{$item} = $env{'form.ltitools_add_'.$item}; |
|
} else { |
|
$confhash{$newid}{$item} = $env{'form.ltitools_add_'.$item}; |
|
} |
|
} |
|
} |
|
if ($env{'form.ltitools_add_version'} eq 'LTI-1p0') { |
|
$confhash{$newid}{'version'} = $env{'form.ltitools_add_version'}; |
|
} |
|
if ($env{'form.ltitools_add_msgtype'} eq 'basic-lti-launch-request') { |
|
$confhash{$newid}{'msgtype'} = $env{'form.ltitools_add_msgtype'}; |
|
} |
|
if ($env{'form.ltitools_add_sigmethod'} eq 'HMAC-SHA256') { |
|
$confhash{$newid}{'sigmethod'} = $env{'form.ltitools_add_sigmethod'}; |
|
} else { |
|
$confhash{$newid}{'sigmethod'} = 'HMAC-SHA1'; |
|
} |
|
foreach my $item ('width','height','linktext','explanation') { |
|
$env{'form.ltitools_add_'.$item} =~ s/^\s+//; |
|
$env{'form.ltitools_add_'.$item} =~ s/\s+$//; |
|
if (($item eq 'width') || ($item eq 'height')) { |
|
if ($env{'form.ltitools_add_'.$item} =~ /^\d+$/) { |
|
$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item}; |
|
} |
|
} else { |
|
if ($env{'form.ltitools_add_'.$item} ne '') { |
|
$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item}; |
|
} |
|
} |
|
} |
|
if ($env{'form.ltitools_add_target'} eq 'window') { |
|
$confhash{$newid}{'display'}{'target'} = $env{'form.ltitools_add_target'}; |
|
} elsif ($env{'form.ltitools_add_target'} eq 'tab') { |
|
$confhash{$newid}{'display'}{'target'} = $env{'form.ltitools_add_target'}; |
|
} else { |
|
$confhash{$newid}{'display'}{'target'} = 'iframe'; |
|
} |
|
foreach my $item ('passback','roster') { |
|
if ($env{'form.ltitools_'.$item.'_add'}) { |
|
$confhash{$newid}{$item} = 1; |
|
if ($env{'form.ltitools_'.$item.'valid_add'} ne '') { |
|
my $lifetime = $env{'form.ltitools_'.$item.'valid_add'}; |
|
$lifetime =~ s/^\s+|\s+$//g; |
|
if ($lifetime =~ /^\d+\.?\d*$/) { |
|
$confhash{$newid}{$item.'valid'} = $lifetime; |
|
} |
|
} |
|
} |
|
} |
|
if ($env{'form.ltitools_add_image.filename'} ne '') { |
|
my ($imageurl,$error) = |
|
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$newid, |
|
$configuserok,$switchserver,$author_ok); |
|
if ($imageurl) { |
|
$confhash{$newid}{'image'} = $imageurl; |
|
} |
|
if ($error) { |
|
&Apache::lonnet::logthis($error); |
|
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
|
} |
|
} |
|
my @fields = &Apache::loncommon::get_env_multiple('form.ltitools_add_fields'); |
|
foreach my $field (@fields) { |
|
if ($possfield{$field}) { |
|
if ($field eq 'roles') { |
|
foreach my $role (@courseroles) { |
|
my $choice = $env{'form.ltitools_add_roles_'.$role}; |
|
if (($choice ne '') && ($posslti{$choice})) { |
|
$confhash{$newid}{'roles'}{$role} = $choice; |
|
if ($role eq 'cc') { |
|
$confhash{$newid}{'roles'}{'co'} = $choice; |
|
} |
|
} |
|
} |
} |
} else { |
|
$confhash{$newid}{'fields'}{$field} = 1; |
|
} |
} |
} |
} |
} |
} |
if (ref($confhash{$newid}{'fields'}) eq 'HASH') { |
|
if ($confhash{$newid}{'fields'}{'user'}) { |
|
if ($env{'form.ltitools_userincdom_add'}) { |
|
$confhash{$newid}{'incdom'} = 1; |
|
} |
|
} |
|
} |
|
my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig'); |
|
foreach my $item (@courseconfig) { |
|
$confhash{$newid}{'crsconf'}{$item} = 1; |
|
} |
|
if ($env{'form.ltitools_add_custom'}) { |
|
my $name = $env{'form.ltitools_add_custom_name'}; |
|
my $value = $env{'form.ltitools_add_custom_value'}; |
|
$value =~ s/(`)/'/g; |
|
$name =~ s/(`)/'/g; |
|
$confhash{$newid}{'custom'}{$name} = $value; |
|
} |
|
} else { |
|
my $error = &mt('Failed to acquire unique ID for new external tool'); |
|
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
|
} |
} |
} |
$ltitoolsoutput = &Apache::courseprefs::store_ltitools($dom,'','domain',\%ltitoolschg,$domconfig{'ltitools'}); |
if (ref($domconfig{$action}) eq 'HASH') { |
if (keys(%ltitoolschg)) { |
my %deletions; |
%newltitools = %ltitoolschg; |
my @todelete = &Apache::loncommon::get_env_multiple('form.ltitools_del'); |
|
if (@todelete) { |
|
map { $deletions{$_} = 1; } @todelete; |
|
} |
|
my %customadds; |
|
my @newcustom = &Apache::loncommon::get_env_multiple('form.ltitools_customadd'); |
|
if (@newcustom) { |
|
map { $customadds{$_} = 1; } @newcustom; |
|
} |
|
my %imgdeletions; |
|
my @todeleteimages = &Apache::loncommon::get_env_multiple('form.ltitools_image_del'); |
|
if (@todeleteimages) { |
|
map { $imgdeletions{$_} = 1; } @todeleteimages; |
|
} |
} |
my $maxnum = $env{'form.ltitools_maxnum'}; |
} |
for (my $i=0; $i<=$maxnum; $i++) { |
if (ref($domconfig{'ltitools'}) eq 'HASH') { |
my $itemid = $env{'form.ltitools_id_'.$i}; |
foreach my $id (%{$domconfig{'ltitools'}}) { |
$itemid =~ s/\D+//g; |
next if ($id !~ /^\d+$/); |
if (ref($domconfig{$action}{$itemid}) eq 'HASH') { |
unless (exists($ltitoolschg{$id})) { |
if ($deletions{$itemid}) { |
if (ref($domconfig{'ltitools'}{$id}) eq 'HASH') { |
if ($domconfig{$action}{$itemid}{'image'}) { |
foreach my $inner (keys(%{$domconfig{'ltitools'}{$id}})) { |
#FIXME need to obsolete item in RES space |
if (($inner eq 'secret') || ($inner eq 'key')) { |
} |
if ($is_home) { |
$changes{$itemid} = $domconfig{$action}{$itemid}{'title'}; |
$newtoolsenc{$id}{$inner} = $domconfig{'ltitools'}{$id}{$inner}; |
next; |
|
} else { |
|
my $newpos = $env{'form.ltitools_'.$itemid}; |
|
$newpos =~ s/\D+//g; |
|
foreach my $item ('title','url','lifetime') { |
|
$confhash{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i}; |
|
if ($domconfig{$action}{$itemid}{$item} ne $confhash{$itemid}{$item}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
foreach my $item ('key','secret') { |
|
$encconfig{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i}; |
|
if ($domconfig{$action}{$itemid}{$item} ne $encconfig{$itemid}{$item}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
if ($env{'form.ltitools_version_'.$i} eq 'LTI-1p0') { |
|
$confhash{$itemid}{'version'} = $env{'form.ltitools_version_'.$i}; |
|
} |
|
if ($env{'form.ltitools_msgtype_'.$i} eq 'basic-lti-launch-request') { |
|
$confhash{$itemid}{'msgtype'} = $env{'form.ltitools_msgtype_'.$i}; |
|
} |
|
if ($env{'form.ltitools_sigmethod_'.$i} eq 'HMAC-SHA256') { |
|
$confhash{$itemid}{'sigmethod'} = $env{'form.ltitools_sigmethod_'.$i}; |
|
} else { |
|
$confhash{$itemid}{'sigmethod'} = 'HMAC-SHA1'; |
|
} |
|
if ($domconfig{$action}{$itemid}{'sigmethod'} eq '') { |
|
if ($confhash{$itemid}{'sigmethod'} ne 'HMAC-SHA1') { |
|
$changes{$itemid} = 1; |
|
} |
|
} elsif ($domconfig{$action}{$itemid}{'sigmethod'} ne $confhash{$itemid}{'sigmethod'}) { |
|
$changes{$itemid} = 1; |
|
} |
|
foreach my $size ('width','height') { |
|
$env{'form.ltitools_'.$size.'_'.$i} =~ s/^\s+//; |
|
$env{'form.ltitools_'.$size.'_'.$i} =~ s/\s+$//; |
|
if ($env{'form.ltitools_'.$size.'_'.$i} =~ /^\d+$/) { |
|
$confhash{$itemid}{'display'}{$size} = $env{'form.ltitools_'.$size.'_'.$i}; |
|
if (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'display'}{$size} ne $confhash{$itemid}{'display'}{$size}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} else { |
|
$changes{$itemid} = 1; |
|
} |
|
} elsif (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'display'}{$size} ne '') { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
foreach my $item ('linktext','explanation') { |
|
$env{'form.ltitools_'.$item.'_'.$i} =~ s/^\s+//; |
|
$env{'form.ltitools_'.$item.'_'.$i} =~ s/\s+$//; |
|
if ($env{'form.ltitools_'.$item.'_'.$i} ne '') { |
|
$confhash{$itemid}{'display'}{$item} = $env{'form.ltitools_'.$item.'_'.$i}; |
|
if (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'display'}{$item} ne $confhash{$itemid}{'display'}{$item}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} else { |
|
$changes{$itemid} = 1; |
|
} |
|
} elsif (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'display'}{$item} ne '') { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
if ($env{'form.ltitools_target_'.$i} eq 'window') { |
|
$confhash{$itemid}{'display'}{'target'} = $env{'form.ltitools_target_'.$i}; |
|
} elsif ($env{'form.ltitools_target_'.$i} eq 'tab') { |
|
$confhash{$itemid}{'display'}{'target'} = $env{'form.ltitools_target_'.$i}; |
|
} else { |
|
$confhash{$itemid}{'display'}{'target'} = 'iframe'; |
|
} |
|
if (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'display'}{'target'} ne $confhash{$itemid}{'display'}{'target'}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} else { |
|
$changes{$itemid} = 1; |
|
} |
|
foreach my $extra ('passback','roster') { |
|
if ($env{'form.ltitools_'.$extra.'_'.$i}) { |
|
$confhash{$itemid}{$extra} = 1; |
|
if ($env{'form.ltitools_'.$extra.'valid_'.$i} ne '') { |
|
my $lifetime = $env{'form.ltitools_'.$extra.'valid_'.$i}; |
|
$lifetime =~ s/^\s+|\s+$//g; |
|
if ($lifetime =~ /^\d+\.?\d*$/) { |
|
$confhash{$itemid}{$extra.'valid'} = $lifetime; |
|
} |
|
} |
|
} |
|
if ($domconfig{$action}{$itemid}{$extra} ne $confhash{$itemid}{$extra}) { |
|
$changes{$itemid} = 1; |
|
} |
|
if ($domconfig{$action}{$itemid}{$extra.'valid'} ne $confhash{$itemid}{$extra.'valid'}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig_'.$i); |
|
foreach my $item ('label','title','target','linktext','explanation','append') { |
|
if (grep(/^\Q$item\E$/,@courseconfig)) { |
|
$confhash{$itemid}{'crsconf'}{$item} = 1; |
|
if (ref($domconfig{$action}{$itemid}{'crsconf'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'crsconf'}{$item} ne $confhash{$itemid}{'crsconf'}{$item}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} else { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
my @fields = &Apache::loncommon::get_env_multiple('form.ltitools_fields_'.$i); |
|
foreach my $field (@fields) { |
|
if ($possfield{$field}) { |
|
if ($field eq 'roles') { |
|
foreach my $role (@courseroles) { |
|
my $choice = $env{'form.ltitools_roles_'.$role.'_'.$i}; |
|
if (($choice ne '') && ($posslti{$choice})) { |
|
$confhash{$itemid}{'roles'}{$role} = $choice; |
|
if ($role eq 'cc') { |
|
$confhash{$itemid}{'roles'}{'co'} = $choice; |
|
} |
|
} |
|
if (ref($domconfig{$action}{$itemid}{'roles'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'roles'}{$role} ne $confhash{$itemid}{'roles'}{$role}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} elsif ($confhash{$itemid}{'roles'}{$role}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} else { |
|
$confhash{$itemid}{'fields'}{$field} = 1; |
|
if (ref($domconfig{$action}{$itemid}{'fields'}) eq 'HASH') { |
|
if ($domconfig{$action}{$itemid}{'fields'}{$field} ne $confhash{$itemid}{'fields'}{$field}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} else { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
} |
|
if (ref($confhash{$itemid}{'fields'}) eq 'HASH') { |
|
if ($confhash{$itemid}{'fields'}{'user'}) { |
|
if ($env{'form.ltitools_userincdom_'.$i}) { |
|
$confhash{$itemid}{'incdom'} = 1; |
|
} |
|
if ($domconfig{$action}{$itemid}{'incdom'} ne $confhash{$itemid}{'incdom'}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
$allpos[$newpos] = $itemid; |
|
} |
|
if ($imgdeletions{$itemid}) { |
|
$changes{$itemid} = 1; |
|
#FIXME need to obsolete item in RES space |
|
} elsif ($env{'form.ltitools_image_'.$i.'.filename'}) { |
|
my ($imgurl,$error) = &process_ltitools_image($r,$dom,$confname,'ltitools_image_'.$i, |
|
$itemid,$configuserok,$switchserver, |
|
$author_ok); |
|
if ($imgurl) { |
|
$confhash{$itemid}{'image'} = $imgurl; |
|
$changes{$itemid} = 1; |
|
} |
|
if ($error) { |
|
&Apache::lonnet::logthis($error); |
|
$errors .= '<li><span class="LC_error">'.$error.'</span></li>'; |
|
} |
|
} elsif ($domconfig{$action}{$itemid}{'image'}) { |
|
$confhash{$itemid}{'image'} = |
|
$domconfig{$action}{$itemid}{'image'}; |
|
} |
|
if ($customadds{$i}) { |
|
my $name = $env{'form.ltitools_custom_name_'.$i}; |
|
$name =~ s/(`)/'/g; |
|
$name =~ s/^\s+//; |
|
$name =~ s/\s+$//; |
|
my $value = $env{'form.ltitools_custom_value_'.$i}; |
|
$value =~ s/(`)/'/g; |
|
$value =~ s/^\s+//; |
|
$value =~ s/\s+$//; |
|
if ($name ne '') { |
|
$confhash{$itemid}{'custom'}{$name} = $value; |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
my %customdels; |
|
my @customdeletions = &Apache::loncommon::get_env_multiple('form.ltitools_customdel_'.$i); |
|
if (@customdeletions) { |
|
$changes{$itemid} = 1; |
|
} |
|
map { $customdels{$_} = 1; } @customdeletions; |
|
if (ref($domconfig{$action}{$itemid}{'custom'}) eq 'HASH') { |
|
foreach my $key (keys(%{$domconfig{$action}{$itemid}{'custom'}})) { |
|
unless ($customdels{$key}) { |
|
if ($env{'form.ltitools_customval_'.$key.'_'.$i} ne '') { |
|
$confhash{$itemid}{'custom'}{$key} = $env{'form.ltitools_customval_'.$key.'_'.$i}; |
|
} |
|
if ($domconfig{$action}{$itemid}{'custom'}{$key} ne $env{'form.ltitools_customval_'.$key.'_'.$i}) { |
|
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
} |
|
unless ($changes{$itemid}) { |
|
foreach my $key (keys(%{$domconfig{$action}{$itemid}})) { |
|
if (ref($domconfig{$action}{$itemid}{$key}) eq 'HASH') { |
|
if (ref($confhash{$itemid}{$key}) eq 'HASH') { |
|
foreach my $innerkey (keys(%{$domconfig{$action}{$itemid}{$key}})) { |
|
unless (exists($confhash{$itemid}{$key}{$innerkey})) { |
|
$changes{$itemid} = 1; |
|
last; |
|
} |
|
} |
|
} elsif (keys(%{$domconfig{$action}{$itemid}{$key}}) > 0) { |
|
$changes{$itemid} = 1; |
|
} |
} |
|
} else { |
|
$newltitools{$id}{$inner} = $domconfig{'ltitools'}{$id}{$inner}; |
} |
} |
last if ($changes{$itemid}); |
|
} |
} |
|
} else { |
|
$newltitools{$id} = $domconfig{'ltitools'}{$id}; |
} |
} |
} |
} |
} |
} |
} |
} |
if (@allpos > 0) { |
if ($toolserror) { |
my $idx = 0; |
$errors = '<li>'.$toolserror.'</li>'; |
foreach my $itemid (@allpos) { |
} |
if ($itemid ne '') { |
if ((keys(%ltitoolschg) == 0) && (keys(%secchanges) == 0)) { |
$confhash{$itemid}{'order'} = $idx; |
$resulttext = &mt('No changes made.'); |
if (ref($domconfig{$action}) eq 'HASH') { |
if ($errors) { |
if (ref($domconfig{$action}{$itemid}) eq 'HASH') { |
$resulttext .= '<br />'.&mt('The following errors occurred: ').'<ul>'. |
if ($domconfig{$action}{$itemid}{'order'} ne $idx) { |
$errors.'</ul>'; |
$changes{$itemid} = 1; |
|
} |
|
} |
|
} |
|
$idx ++; |
|
} |
|
} |
} |
|
return $resulttext; |
} |
} |
my %ltitoolshash = ( |
my %ltitoolshash = ( |
$action => { %confhash } |
$action => { %newltitools } |
); |
); |
my $putresult = &Apache::lonnet::put_dom('configuration',\%ltitoolshash, |
if (keys(%secchanges)) { |
$dom); |
$ltitoolshash{'toolsec'} = \%newtoolsec; |
|
} |
|
my $putresult = &Apache::lonnet::put_dom('configuration',\%ltitoolshash,$dom); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
my %ltienchash = ( |
my %keystore; |
$action => { %encconfig } |
if ($is_home) { |
); |
my %toolsenchash = ( |
&Apache::lonnet::put_dom('encconfig',\%ltienchash,$dom,undef,1); |
$action => { %newtoolsenc } |
if (keys(%changes) > 0) { |
); |
|
&Apache::lonnet::put_dom('encconfig',\%toolsenchash,$dom,undef,1); |
my $cachetime = 24*60*60; |
my $cachetime = 24*60*60; |
my %ltiall = %confhash; |
&Apache::lonnet::do_cache_new('ltitoolsenc',$dom,\%newtoolsenc,$cachetime); |
foreach my $id (keys(%ltiall)) { |
&store_security($dom,'ltitools',\%secchanges,\%newkeyset,\%keystore,$lastactref); |
if (ref($encconfig{$id}) eq 'HASH') { |
} |
foreach my $item ('key','secret') { |
$resulttext = &mt('Changes made:').'<ul>'; |
$ltiall{$id}{$item} = $encconfig{$id}{$item}; |
if (keys(%secchanges) > 0) { |
|
$resulttext .= <i_security_results($dom,'ltitools',\%secchanges,\%newtoolsec,\%newkeyset,\%keystore); |
|
} |
|
if (keys(%ltitoolschg) > 0) { |
|
$resulttext .= $ltitoolsoutput; |
|
} |
|
my $cachetime = 24*60*60; |
|
&Apache::lonnet::do_cache_new('ltitools',$dom,\%newltitools,$cachetime); |
|
if (ref($lastactref) eq 'HASH') { |
|
$lastactref->{'ltitools'} = 1; |
|
} |
|
} else { |
|
$errors .= '<li><span class="LC_error">'.&mt('Failed to save changes').'</span></li>'; |
|
} |
|
if ($errors) { |
|
$resulttext .= '<p>'.&mt('The following errors occurred: ').'<ul>'. |
|
$errors.'</ul></p>'; |
|
} |
|
return $resulttext; |
|
} |
|
|
|
sub fetch_secrets { |
|
my ($dom,$context,$domconfig,$currsec,$secchanges,$newsec,$newkeyset) = @_; |
|
my %keyset; |
|
%{$currsec} = (); |
|
$newsec->{'private'}{'keys'} = []; |
|
$newsec->{'encrypt'} = {}; |
|
$newsec->{'rules'} = {}; |
|
if ($context eq 'ltisec') { |
|
$newsec->{'linkprot'} = {}; |
|
} |
|
if (ref($domconfig->{$context}) eq 'HASH') { |
|
%{$currsec} = %{$domconfig->{$context}}; |
|
if ($context eq 'ltisec') { |
|
if (ref($currsec->{'linkprot'}) eq 'HASH') { |
|
foreach my $id (keys(%{$currsec->{'linkprot'}})) { |
|
unless ($id =~ /^\d+$/) { |
|
delete($currsec->{'linkprot'}{$id}); |
} |
} |
} |
} |
} |
} |
&Apache::lonnet::do_cache_new('ltitools',$dom,\%ltiall,$cachetime); |
} |
if (ref($lastactref) eq 'HASH') { |
if (ref($currsec->{'private'}) eq 'HASH') { |
$lastactref->{'ltitools'} = 1; |
if (ref($currsec->{'private'}{'keys'}) eq 'ARRAY') { |
|
$newsec->{'private'}{'keys'} = $currsec->{'private'}{'keys'}; |
|
map { $keyset{$_} = 1; } @{$currsec->{'private'}{'keys'}}; |
} |
} |
$resulttext = &mt('Changes made:').'<ul>'; |
} |
my %bynum; |
} |
foreach my $itemid (sort(keys(%changes))) { |
my @items= ('crs','dom'); |
my $position = $confhash{$itemid}{'order'}; |
if ($context eq 'ltisec') { |
$bynum{$position} = $itemid; |
push(@items,'consumers'); |
|
} |
|
foreach my $item (@items) { |
|
my $formelement; |
|
if (($context eq 'toolsec') || ($item eq 'consumers')) { |
|
$formelement = 'form.'.$context.'_'.$item; |
|
} else { |
|
$formelement = 'form.'.$context.'_'.$item.'linkprot'; |
|
} |
|
if ($env{$formelement}) { |
|
$newsec->{'encrypt'}{$item} = 1; |
|
if (ref($currsec->{'encrypt'}) eq 'HASH') { |
|
unless ($currsec->{'encrypt'}{$item}) { |
|
$secchanges->{'encrypt'} = 1; |
|
} |
|
} else { |
|
$secchanges->{'encrypt'} = 1; |
} |
} |
foreach my $pos (sort { $a <=> $b } keys(%bynum)) { |
} elsif (ref($currsec->{'encrypt'}) eq 'HASH') { |
my $itemid = $bynum{$pos}; |
if ($currsec->{'encrypt'}{$item}) { |
if (ref($confhash{$itemid}) ne 'HASH') { |
$secchanges->{'encrypt'} = 1; |
$resulttext .= '<li>'.&mt('Deleted: [_1]',$changes{$itemid}).'</li>'; |
} |
} else { |
} |
$resulttext .= '<li><b>'.$confhash{$itemid}{'title'}.'</b>'; |
} |
if ($confhash{$itemid}{'image'}) { |
my $secrets; |
$resulttext .= ' '. |
if ($context eq 'ltisec') { |
'<img src="'.$confhash{$itemid}{'image'}.'"'. |
$secrets = 'ltisecrets'; |
' alt="'.&mt('Tool Provider icon').'" />'; |
} else { |
} |
$secrets = 'toolsecrets'; |
$resulttext .= '</li><ul>'; |
} |
my $position = $pos + 1; |
unless (exists($currsec->{'rules'})) { |
$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>'; |
$currsec->{'rules'} = {}; |
foreach my $item ('version','msgtype','sigmethod','url','lifetime') { |
} |
if ($confhash{$itemid}{$item} ne '') { |
&password_rule_changes($secrets,$newsec->{'rules'},$currsec->{'rules'},$secchanges); |
$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{$item}.'</li>'; |
|
} |
my @ids=&Apache::lonnet::current_machine_ids(); |
} |
my %servers = &Apache::lonnet::get_servers($dom,'library'); |
if ($encconfig{$itemid}{'key'} ne '') { |
|
$resulttext .= '<li>'.$lt{'key'}.': '.$encconfig{$itemid}{'key'}.'</li>'; |
foreach my $hostid (keys(%servers)) { |
} |
if (($hostid ne '') && (grep(/^\Q$hostid\E$/,@ids))) { |
if ($encconfig{$itemid}{'secret'} ne '') { |
my $newkey; |
$resulttext .= '<li>'.$lt{'secret'}.': '; |
my $keyitem = 'form.'.$context.'_privkey_'.$hostid; |
my $num = length($encconfig{$itemid}{'secret'}); |
if (exists($env{$keyitem})) { |
$resulttext .= ('*'x$num).'</li>'; |
$env{$keyitem} =~ s/(`)/'/g; |
} |
if ($keyset{$hostid}) { |
$resulttext .= '<li>'.&mt('Configurable in course:'); |
if ($env{'form.'.$context.'_changeprivkey_'.$hostid}) { |
my @possconfig = ('label','title','target','linktext','explanation','append'); |
if ($env{$keyitem} ne '') { |
my $numconfig = 0; |
$secchanges->{'private'} = 1; |
if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') { |
$newkeyset->{$hostid} = $env{$keyitem}; |
foreach my $item (@possconfig) { |
|
if ($confhash{$itemid}{'crsconf'}{$item}) { |
|
$numconfig ++; |
|
$resulttext .= ' "'.$lt{'crs'.$item}.'"'; |
|
} |
|
} |
|
} |
|
if (!$numconfig) { |
|
$resulttext .= ' '.&mt('None'); |
|
} |
|
$resulttext .= '</li>'; |
|
foreach my $item ('passback','roster') { |
|
$resulttext .= '<li>'.$lt{$item}.' '; |
|
if ($confhash{$itemid}{$item}) { |
|
$resulttext .= &mt('Yes'); |
|
if ($confhash{$itemid}{$item.'valid'}) { |
|
if ($item eq 'passback') { |
|
$resulttext .= ' '.&mt('valid for at least [quant,_1,day] after launch', |
|
$confhash{$itemid}{$item.'valid'}); |
|
} else { |
|
$resulttext .= ' '.&mt('valid for at least [quant,_1,second] after launch', |
|
$confhash{$itemid}{$item.'valid'}); |
|
} |
|
} |
|
} else { |
|
$resulttext .= &mt('No'); |
|
} |
|
$resulttext .= '</li>'; |
|
} |
|
if (ref($confhash{$itemid}{'display'}) eq 'HASH') { |
|
my $displaylist; |
|
if ($confhash{$itemid}{'display'}{'target'}) { |
|
$displaylist = &mt('Display target').': '. |
|
$confhash{$itemid}{'display'}{'target'}.','; |
|
} |
|
foreach my $size ('width','height') { |
|
if ($confhash{$itemid}{'display'}{$size}) { |
|
$displaylist .= (' 'x2).$lt{$size}.': '. |
|
$confhash{$itemid}{'display'}{$size}.','; |
|
} |
|
} |
|
if ($displaylist) { |
|
$displaylist =~ s/,$//; |
|
$resulttext .= '<li>'.$displaylist.'</li>'; |
|
} |
|
foreach my $item ('linktext','explanation') { |
|
if ($confhash{$itemid}{'display'}{$item}) { |
|
$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{'display'}{$item}.'</li>'; |
|
} |
|
} |
|
} |
|
if (ref($confhash{$itemid}{'fields'}) eq 'HASH') { |
|
my $fieldlist; |
|
foreach my $field (@allfields) { |
|
if ($confhash{$itemid}{'fields'}{$field}) { |
|
$fieldlist .= (' 'x2).$lt{$field}.','; |
|
} |
|
} |
|
if ($fieldlist) { |
|
$fieldlist =~ s/,$//; |
|
if ($confhash{$itemid}{'fields'}{'user'}) { |
|
if ($confhash{$itemid}{'incdom'}) { |
|
$fieldlist .= ' ('.&mt('username:domain').')'; |
|
} else { |
|
$fieldlist .= ' ('.&mt('username').')'; |
|
} |
|
} |
|
$resulttext .= '<li>'.&mt('Data sent').':'.$fieldlist.'</li>'; |
|
} |
} |
} |
} |
if (ref($confhash{$itemid}{'roles'}) eq 'HASH') { |
} elsif ($env{$keyitem} ne '') { |
my $rolemaps; |
unless (grep(/^\Q$hostid\E$/,@{$newsec->{'private'}{'keys'}})) { |
foreach my $role (@courseroles) { |
push(@{$newsec->{'private'}{'keys'}},$hostid); |
if ($confhash{$itemid}{'roles'}{$role}) { |
|
$rolemaps .= (' 'x2).&Apache::lonnet::plaintext($role,'Course').'='. |
|
$confhash{$itemid}{'roles'}{$role}.','; |
|
} |
|
} |
|
if ($rolemaps) { |
|
$rolemaps =~ s/,$//; |
|
$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>'; |
|
} |
|
} |
} |
if (ref($confhash{$itemid}{'custom'}) eq 'HASH') { |
$secchanges->{'private'} = 1; |
my $customlist; |
$newkeyset->{$hostid} = $env{$keyitem}; |
if (keys(%{$confhash{$itemid}{'custom'}})) { |
|
foreach my $key (sort(keys(%{$confhash{$itemid}{'custom'}}))) { |
|
$customlist .= $key.':'.$confhash{$itemid}{'custom'}{$key}.(' 'x2); |
|
} |
|
} |
|
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_ltitools_image { |
sub store_security { |
my ($r,$dom,$confname,$caller,$itemid,$configuserok,$switchserver,$author_ok) = @_; |
my ($dom,$context,$secchanges,$newkeyset,$keystore,$lastactref) = @_; |
my $filename = $env{'form.'.$caller.'.filename'}; |
return unless ((ref($secchanges) eq 'HASH') && (ref($newkeyset) eq 'HASH') && |
my ($error,$url); |
(ref($keystore) eq 'HASH')); |
my ($width,$height) = (21,21); |
if (keys(%{$secchanges})) { |
if ($configuserok eq 'ok') { |
if ($secchanges->{'private'}) { |
if ($switchserver) { |
my $who = &escape($env{'user.name'}.':'.$env{'user.domain'}); |
$error = &mt('Upload of Tool Provider (LTI) icon is not permitted to this server: [_1]', |
foreach my $hostid (keys(%{$newkeyset})) { |
$switchserver); |
my $storehash = { |
} elsif ($author_ok eq 'ok') { |
key => $newkeyset->{$hostid}, |
my ($result,$imageurl,$madethumb) = |
who => $env{'user.name'}.':'.$env{'user.domain'}, |
&publishlogo($r,'upload',$caller,$dom,$confname, |
}; |
"ltitools/$itemid/icon",$width,$height); |
$keystore->{$hostid} = &Apache::lonnet::store_dom($storehash,$context,'private', |
if ($result eq 'ok') { |
$dom,$hostid); |
if ($madethumb) { |
} |
my ($path,$imagefile) = ($imageurl =~ m{^(.+)/([^/]+)$}); |
} |
my $imagethumb = "$path/tn-".$imagefile; |
if (ref($lastactref) eq 'HASH') { |
$url = $imagethumb; |
if (($secchanges->{'encrypt'}) || ($secchanges->{'private'})) { |
} else { |
$lastactref->{'domdefaults'} = 1; |
$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 get_ltitools_id { |
sub lti_security_results { |
my ($cdom,$title) = @_; |
my ($dom,$context,$secchanges,$newsec,$newkeyset,$keystore) = @_; |
# get lock on ltitools db |
my $output; |
my $lockhash = { |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
lock => $env{'user.name'}. |
my $needs_update; |
':'.$env{'user.domain'}, |
foreach my $item (keys(%{$secchanges})) { |
}; |
if ($item eq 'encrypt') { |
my $tries = 0; |
$needs_update = 1; |
my $gotlock = &Apache::lonnet::newput_dom('ltitools',$lockhash,$cdom); |
my %encrypted; |
my ($id,$error); |
if ($context eq 'lti') { |
|
%encrypted = ( |
while (($gotlock ne 'ok') && ($tries<10)) { |
crs => { |
$tries ++; |
on => &mt('Encryption of stored link protection secrets defined in courses enabled'), |
sleep (0.1); |
off => &mt('Encryption of stored link protection secrets defined in courses disabled'), |
$gotlock = &Apache::lonnet::newput_dom('ltitools',$lockhash,$cdom); |
}, |
} |
dom => { |
if ($gotlock eq 'ok') { |
on => &mt('Encryption of stored link protection secrets defined in domain enabled'), |
my %currids = &Apache::lonnet::dump_dom('ltitools',$cdom); |
off => &mt('Encryption of stored link protection secrets defined in domain disabled'), |
if ($currids{'lock'}) { |
}, |
delete($currids{'lock'}); |
consumers => { |
if (keys(%currids)) { |
on => &mt('Encryption of stored consumer secrets defined in domain enabled'), |
my @curr = sort { $a <=> $b } keys(%currids); |
off => &mt('Encryption of stored consumer secrets defined in domain disabled'), |
if ($curr[-1] =~ /^\d+$/) { |
}, |
$id = 1 + $curr[-1]; |
); |
} |
|
} else { |
} else { |
$id = 1; |
%encrypted = ( |
|
crs => { |
|
on => &mt('Encryption of stored external tool secrets defined in courses enabled'), |
|
off => &mt('Encryption of stored external tool secrets defined in courses disabled'), |
|
}, |
|
dom => { |
|
on => &mt('Encryption of stored external tool secrets defined in domain enabled'), |
|
off => &mt('Encryption of stored external tool secrets defined in domain disabled'), |
|
}, |
|
); |
|
|
} |
} |
if ($id) { |
my @types= ('crs','dom'); |
unless (&Apache::lonnet::newput_dom('ltitools',{ $id => $title },$cdom) eq 'ok') { |
if ($context eq 'lti') { |
$error = 'nostore'; |
foreach my $type (@types) { |
|
undef($domdefaults{'linkprotenc_'.$type}); |
|
} |
|
push(@types,'consumers'); |
|
undef($domdefaults{'ltienc_consumers'}); |
|
} elsif ($context eq 'ltitools') { |
|
foreach my $type (@types) { |
|
undef($domdefaults{'toolenc_'.$type}); |
|
} |
|
} |
|
foreach my $type (@types) { |
|
my $shown = $encrypted{$type}{'off'}; |
|
if (ref($newsec->{$item}) eq 'HASH') { |
|
if ($newsec->{$item}{$type}) { |
|
if ($context eq 'lti') { |
|
if ($type eq 'consumers') { |
|
$domdefaults{'ltienc_consumers'} = 1; |
|
} else { |
|
$domdefaults{'linkprotenc_'.$type} = 1; |
|
} |
|
} elsif ($context eq 'ltitools') { |
|
$domdefaults{'toolenc_'.$type} = 1; |
|
} |
|
$shown = $encrypted{$type}{'on'}; |
|
} |
|
} |
|
$output .= '<li>'.$shown.'</li>'; |
|
} |
|
} elsif ($item eq 'rules') { |
|
my %titles = &Apache::lonlocal::texthash( |
|
min => 'Minimum password length', |
|
max => 'Maximum password length', |
|
chars => 'Required characters', |
|
); |
|
foreach my $rule ('min','max') { |
|
if ($newsec->{rules}{$rule} eq '') { |
|
if ($rule eq 'min') { |
|
$output .= '<li>'.&mt('[_1] not set.',$titles{$rule}); |
|
' '.&mt('Default of [_1] will be used', |
|
$Apache::lonnet::passwdmin).'</li>'; |
|
} else { |
|
$output .= '<li>'.&mt('[_1] set to none',$titles{$rule}).'</li>'; |
|
} |
|
} else { |
|
$output .= '<li>'.&mt('[_1] set to [_2]',$titles{$rule},$newsec->{rules}{$rule}).'</li>'; |
|
} |
|
} |
|
if (ref($newsec->{'rules'}{'chars'}) eq 'ARRAY') { |
|
if (@{$newsec->{'rules'}{'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{$_} } @{$newsec->{'rules'}{'chars'}}). |
|
'</li></ul>'; |
|
$output .= '<li>'.&mt('[_1] set to: [_2]',$titles{'chars'},$needed).'</li>'; |
|
} else { |
|
$output .= '<li>'.&mt('[_1] set to none',$titles{'chars'}).'</li>'; |
} |
} |
} else { |
} else { |
$error = 'nonumber'; |
$output .= '<li>'.&mt('[_1] set to none',$titles{'chars'}).'</li>'; |
|
} |
|
} elsif ($item eq 'private') { |
|
$needs_update = 1; |
|
if ($context eq 'lti') { |
|
undef($domdefaults{'ltiprivhosts'}); |
|
} elsif ($context eq 'ltitools') { |
|
undef($domdefaults{'toolprivhosts'}); |
} |
} |
|
if (keys(%{$newkeyset})) { |
|
my @privhosts; |
|
foreach my $hostid (sort(keys(%{$newkeyset}))) { |
|
if ($keystore->{$hostid} eq 'ok') { |
|
$output .= '<li>'.&mt('Encryption key for storage of shared secrets saved for [_1]',$hostid).'</li>'; |
|
unless (grep(/^\Q$hostid\E$/,@privhosts)) { |
|
push(@privhosts,$hostid); |
|
} |
|
} |
|
} |
|
if (@privhosts) { |
|
if ($context eq 'lti') { |
|
$domdefaults{'ltiprivhosts'} = \@privhosts; |
|
} elsif ($context eq 'ltitools') { |
|
$domdefaults{'toolprivhosts'} = \@privhosts; |
|
} |
|
} |
|
} |
|
} elsif ($item eq 'linkprot') { |
|
next; |
} |
} |
my $dellockoutcome = &Apache::lonnet::del_dom('ltitools',['lock'],$cdom); |
|
} else { |
|
$error = 'nolock'; |
|
} |
} |
return ($id,$error); |
if ($needs_update) { |
|
my $cachetime = 24*60*60; |
|
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
|
} |
|
return $output; |
} |
} |
|
|
sub modify_proctoring { |
sub modify_proctoring { |
Line 15832 sub process_proctoring_image {
|
Line 15046 sub process_proctoring_image {
|
$error = &mt('Upload of Remote Proctoring Provider icon is not permitted to this server: [_1]', |
$error = &mt('Upload of Remote Proctoring Provider icon is not permitted to this server: [_1]', |
$switchserver); |
$switchserver); |
} elsif ($author_ok eq 'ok') { |
} elsif ($author_ok eq 'ok') { |
|
my $modified = []; |
my ($result,$imageurl,$madethumb) = |
my ($result,$imageurl,$madethumb) = |
&publishlogo($r,'upload',$caller,$dom,$confname, |
&Apache::lonconfigsettings::publishlogo($r,'upload',$caller,$dom,$confname, |
"proctoring/$provider/icon",$width,$height); |
"proctoring/$provider/icon",$width,$height, |
|
'',$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
if ($madethumb) { |
if ($madethumb) { |
my ($path,$imagefile) = ($imageurl =~ m{^(.+)/([^/]+)$}); |
my ($path,$imagefile) = ($imageurl =~ m{^(.+)/([^/]+)$}); |
Line 15843 sub process_proctoring_image {
|
Line 15059 sub process_proctoring_image {
|
} else { |
} else { |
$url = $imageurl; |
$url = $imageurl; |
} |
} |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result); |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result); |
} |
} |
Line 15879 sub modify_lti {
|
Line 15096 sub modify_lti {
|
map { $posscrstype{$_} = 1; } @coursetypes; |
map { $posscrstype{$_} = 1; } @coursetypes; |
|
|
my %menutitles = <imenu_titles(); |
my %menutitles = <imenu_titles(); |
|
my (%currltisec,%secchanges,%newltisec,%newltienc,%newkeyset); |
|
|
my (%currltisec,%secchanges,%newltisec,%newltienc,%keyset,%newkeyset); |
&fetch_secrets($dom,'ltisec',\%domconfig,\%currltisec,\%secchanges,\%newltisec,\%newkeyset); |
$newltisec{'private'}{'keys'} = []; |
|
$newltisec{'encrypt'} = {}; |
|
$newltisec{'rules'} = {}; |
|
$newltisec{'linkprot'} = {}; |
|
if (ref($domconfig{'ltisec'}) eq 'HASH') { |
|
%currltisec = %{$domconfig{'ltisec'}}; |
|
if (ref($currltisec{'linkprot'}) eq 'HASH') { |
|
foreach my $id (keys(%{$currltisec{'linkprot'}})) { |
|
unless ($id =~ /^\d+$/) { |
|
delete($currltisec{'linkprot'}{$id}); |
|
} |
|
} |
|
} |
|
if (ref($currltisec{'private'}) eq 'HASH') { |
|
if (ref($currltisec{'private'}{'keys'}) eq 'ARRAY') { |
|
$newltisec{'private'}{'keys'} = $currltisec{'private'}{'keys'}; |
|
map { $keyset{$_} = 1; } @{$currltisec{'private'}{'keys'}}; |
|
} |
|
} |
|
} |
|
foreach my $item ('crs','dom','consumers') { |
|
my $formelement; |
|
if ($item eq 'consumers') { |
|
$formelement = 'form.ltisec_'.$item; |
|
} else { |
|
$formelement = 'form.ltisec_'.$item.'linkprot'; |
|
} |
|
if ($env{$formelement}) { |
|
$newltisec{'encrypt'}{$item} = 1; |
|
if (ref($currltisec{'encrypt'}) eq 'HASH') { |
|
unless ($currltisec{'encrypt'}{$item}) { |
|
$secchanges{'encrypt'} = 1; |
|
} |
|
} else { |
|
$secchanges{'encrypt'} = 1; |
|
} |
|
} elsif (ref($currltisec{'encrypt'}) eq 'HASH') { |
|
if ($currltisec{'encrypt'}{$item}) { |
|
$secchanges{'encrypt'} = 1; |
|
} |
|
} |
|
} |
|
unless (exists($currltisec{'rules'})) { |
|
$currltisec{'rules'} = {}; |
|
} |
|
&password_rule_changes('secrets',$newltisec{'rules'},$currltisec{'rules'},\%secchanges); |
|
|
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
my %servers = &Apache::lonnet::get_servers($dom,'library'); |
|
|
|
foreach my $hostid (keys(%servers)) { |
|
if (($hostid ne '') && (grep(/^\Q$hostid\E$/,@ids))) { |
|
my $newkey; |
|
my $keyitem = 'form.ltisec_privkey_'.$hostid; |
|
if (exists($env{$keyitem})) { |
|
$env{$keyitem} =~ s/(`)/'/g; |
|
if ($keyset{$hostid}) { |
|
if ($env{'form.ltisec_changeprivkey_'.$hostid}) { |
|
if ($env{$keyitem} ne '') { |
|
$secchanges{'private'} = 1; |
|
$newkeyset{$hostid} = $env{$keyitem}; |
|
} |
|
} |
|
} elsif ($env{$keyitem} ne '') { |
|
unless (grep(/^\Q$hostid\E$/,@{$newltisec{'private'}{'keys'}})) { |
|
push(@{$newltisec{'private'}{'keys'}},$hostid); |
|
} |
|
$secchanges{'private'} = 1; |
|
$newkeyset{$hostid} = $env{$keyitem}; |
|
} |
|
} |
|
} |
|
} |
|
|
|
my (%linkprotchg,$linkprotoutput,$is_home); |
my (%linkprotchg,$linkprotoutput,$is_home); |
my $proterror = &Apache::courseprefs::process_linkprot($dom,'',$currltisec{'linkprot'}, |
my $proterror = &Apache::courseprefs::process_linkprot($dom,'',$currltisec{'linkprot'}, |
Line 16330 sub modify_lti {
|
Line 15475 sub modify_lti {
|
my $putresult = &Apache::lonnet::put_dom('configuration',\%ltihash,$dom); |
my $putresult = &Apache::lonnet::put_dom('configuration',\%ltihash,$dom); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
my %keystore; |
my %keystore; |
if (keys(%secchanges)) { |
&store_security($dom,'lti',\%secchanges,\%newkeyset,\%keystore,$lastactref); |
if ($secchanges{'private'}) { |
|
my $who = &escape($env{'user.name'}.':'.$env{'user.domain'}); |
|
foreach my $hostid (keys(%newkeyset)) { |
|
my $storehash = { |
|
key => $newkeyset{$hostid}, |
|
who => $env{'user.name'}.':'.$env{'user.domain'}, |
|
}; |
|
$keystore{$hostid} = &Apache::lonnet::store_dom($storehash,'lti','private', |
|
$dom,$hostid); |
|
} |
|
} |
|
if (ref($lastactref) eq 'HASH') { |
|
if (($secchanges{'encrypt'}) || ($secchanges{'private'})) { |
|
$lastactref->{'domdefaults'} = 1; |
|
} |
|
} |
|
} |
|
&Apache::lonnet::put_dom('encconfig',\%ltienchash,$dom,undef,1); |
&Apache::lonnet::put_dom('encconfig',\%ltienchash,$dom,undef,1); |
if ((keys(%changes) == 0) && (keys(%secchanges) == 0)) { |
if ((keys(%changes) == 0) && (keys(%secchanges) == 0)) { |
return &mt('No changes made.'); |
return &mt('No changes made.'); |
} |
} |
$resulttext = &mt('Changes made:').'<ul>'; |
$resulttext = &mt('Changes made:').'<ul>'; |
if (keys(%secchanges) > 0) { |
if (keys(%secchanges) > 0) { |
foreach my $item (keys(%secchanges)) { |
$resulttext .= <i_security_results($dom,'lti',\%secchanges,\%newltisec,\%newkeyset,\%keystore); |
if ($item eq 'encrypt') { |
if (exists($secchanges{'linkprot'})) { |
my %encrypted = ( |
$resulttext .= $linkprotoutput; |
crs => { |
|
on => &mt('Encryption of stored link protection secrets defined in courses enabled'), |
|
off => &mt('Encryption of stored link protection secrets defined in courses disabled'), |
|
}, |
|
dom => { |
|
on => &mt('Encryption of stored link protection secrets defined in domain enabled'), |
|
off => &mt('Encryption of stored link protection secrets defined in domain disabled'), |
|
}, |
|
consumers => { |
|
on => &mt('Encryption of stored consumer secrets defined in domain enabled'), |
|
off => &mt('Encryption of stored consumer secrets defined in domain disabled'), |
|
}, |
|
); |
|
foreach my $type ('crs','dom','consumers') { |
|
my $shown = $encrypted{$type}{'off'}; |
|
if (ref($newltisec{$item}) eq 'HASH') { |
|
if ($newltisec{$item}{$type}) { |
|
$shown = $encrypted{$type}{'on'}; |
|
} |
|
} |
|
$resulttext .= '<li>'.$shown.'</li>'; |
|
} |
|
} elsif ($item eq 'rules') { |
|
my %titles = &Apache::lonlocal::texthash( |
|
min => 'Minimum password length', |
|
max => 'Maximum password length', |
|
chars => 'Required characters', |
|
); |
|
foreach my $rule ('min','max') { |
|
if ($newltisec{rules}{$rule} eq '') { |
|
if ($rule eq 'min') { |
|
$resulttext .= '<li>'.&mt('[_1] not set.',$titles{$rule}); |
|
' '.&mt('Default of [_1] will be used', |
|
$Apache::lonnet::passwdmin).'</li>'; |
|
} else { |
|
$resulttext .= '<li>'.&mt('[_1] set to none',$titles{$rule}).'</li>'; |
|
} |
|
} else { |
|
$resulttext .= '<li>'.&mt('[_1] set to [_2]',$titles{$rule},$newltisec{rules}{$rule}).'</li>'; |
|
} |
|
} |
|
if (ref($newltisec{'rules'}{'chars'}) eq 'ARRAY') { |
|
if (@{$newltisec{'rules'}{'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{$_} } @{$newltisec{'rules'}{'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 ($item eq 'private') { |
|
if (keys(%newkeyset)) { |
|
foreach my $hostid (sort(keys(%newkeyset))) { |
|
if ($keystore{$hostid} eq 'ok') { |
|
$resulttext .= '<li>'.&mt('Encryption key for storage of shared secrets saved for [_1]',$hostid).'</li>'; |
|
} |
|
} |
|
} |
|
} elsif ($item eq 'linkprot') { |
|
$resulttext .= $linkprotoutput; |
|
} |
|
} |
} |
} |
} |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
Line 17900 sub modify_privacy {
|
Line 16958 sub modify_privacy {
|
domain => 'Assigned domain role(s)', |
domain => 'Assigned domain role(s)', |
author => 'Assigned co-author role(s)', |
author => 'Assigned co-author role(s)', |
course => 'Assigned course role(s)', |
course => 'Assigned course role(s)', |
community => 'Assigned community role', |
community => 'Assigned community role(s)', |
); |
); |
my %roles = &Apache::lonlocal::texthash ( |
my %roles = &Apache::lonlocal::texthash ( |
domain => 'Domain role', |
domain => 'Domain role', |
Line 17919 sub modify_privacy {
|
Line 16977 sub modify_privacy {
|
user => 'User authorizes', |
user => 'User authorizes', |
domain => 'Domain Coordinator authorizes', |
domain => 'Domain Coordinator authorizes', |
auto => 'Unrestricted', |
auto => 'Unrestricted', |
|
notify => 'Notify when role needs authorization', |
); |
); |
my %fieldnames = &Apache::lonlocal::texthash ( |
my %fieldnames = &Apache::lonlocal::texthash ( |
id => 'Student/Employee ID', |
id => 'Student/Employee ID', |
Line 17944 sub modify_privacy {
|
Line 17003 sub modify_privacy {
|
); |
); |
foreach my $item (@items) { |
foreach my $item (@items) { |
if (@instdoms > 1) { |
if (@instdoms > 1) { |
if ($env{'form.privacy_approval_instdom'.$item} =~ /^(none|user|domain|auto)$/) { |
if ($env{'form.privacy_approval_instdom_'.$item} =~ /^(none|user|domain|auto)$/) { |
$privacyhash{'approval'}{'instdom'}{$item} = $env{'form.privacy_approval_instdom_'.$item}; |
$privacyhash{'approval'}{'instdom'}{$item} = $env{'form.privacy_approval_instdom_'.$item}; |
} |
} |
if (ref($current{'approval'}) eq 'HASH') { |
if (ref($current{'approval'}) eq 'HASH') { |
Line 18036 sub modify_privacy {
|
Line 17095 sub modify_privacy {
|
} |
} |
} |
} |
} |
} |
|
my %domcoords = &Apache::lonnet::get_active_domroles($dom,['dc']); |
|
my %notify; |
|
foreach my $possdc (&Apache::loncommon::get_env_multiple('form.privacy_notify')) { |
|
if (exists($domcoords{$possdc})) { |
|
$notify{$possdc} = 1; |
|
} |
|
} |
|
my $notify = join(',',sort(keys(%notify))); |
|
if ($current{'notify'} ne $notify) { |
|
$changes{'notify'} = 1; |
|
} |
|
$privacyhash{'notify'} = $notify; |
} |
} |
my %confighash = ( |
my %confighash = ( |
privacy => \%privacyhash, |
privacy => \%privacyhash, |
Line 18044 sub modify_privacy {
|
Line 17115 sub modify_privacy {
|
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
$resulttext = &mt('Changes made: ').'<ul>'; |
$resulttext = &mt('Changes made: ').'<ul>'; |
foreach my $key ('approval','othdom','priv','unpriv') { |
foreach my $key ('approval','notify','othdom','priv','unpriv') { |
if ($changes{$key}) { |
if ($changes{$key}) { |
$resulttext .= '<li>'.$titles{$key}.':<ul>'; |
$resulttext .= '<li>'.$titles{$key}.':<ul>'; |
if ($key eq 'approval') { |
if ($key eq 'approval') { |
Line 18062 sub modify_privacy {
|
Line 17133 sub modify_privacy {
|
} |
} |
$resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
} |
} |
|
} elsif ($key eq 'notify') { |
|
if ($privacyhash{$key}) { |
|
foreach my $dc (split(/,/,$privacyhash{$key})) { |
|
my ($dcname,$dcdom) = split(/:/,$dc); |
|
$resulttext .= '<li>'.&Apache::loncommon::plainname($dcname,$dcdom).'</li>'; |
|
} |
|
} else { |
|
$resulttext .= '<li>'.&mt('No DCs to notify').'</li>'; |
|
} |
} elsif ($key eq 'othdom') { |
} elsif ($key eq 'othdom') { |
my @statuses; |
my @statuses; |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
Line 18102 sub modify_privacy {
|
Line 17182 sub modify_privacy {
|
$resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
} |
} |
} |
} |
|
$resulttext .= '</ul>'; |
} else { |
} else { |
$resulttext = &mt('No changes made to user information settings'); |
$resulttext = &mt('No changes made to user information settings'); |
} |
} |
Line 18288 sub modify_passwords {
|
Line 17369 sub modify_passwords {
|
$error = &mt("Upload of file containing domain-specific text is not permitted to this server: [_1]",$switchserver); |
$error = &mt("Upload of file containing domain-specific text is not permitted to this server: [_1]",$switchserver); |
} else { |
} else { |
if ($author_ok eq 'ok') { |
if ($author_ok eq 'ok') { |
|
my $modified = []; |
my ($result,$customurl) = |
my ($result,$customurl) = |
&publishlogo($r,'upload','passwords_customfile',$dom, |
&Apache::lonconfigsettings::publishlogo($r,'upload','passwords_customfile',$dom, |
$confname,'customtext/resetpw','','',$customfn); |
$confname,'customtext/resetpw','','',$customfn, |
|
$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$newvalues{'resetcustom'} = $customurl; |
$newvalues{'resetcustom'} = $customurl; |
$changes{'reset'} = 1; |
$changes{'reset'} = 1; |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$customfn,$result); |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$customfn,$result); |
} |
} |
Line 18614 sub password_rule_changes {
|
Line 17698 sub password_rule_changes {
|
my (@rules,%staticdefaults); |
my (@rules,%staticdefaults); |
if ($prefix eq 'passwords') { |
if ($prefix eq 'passwords') { |
@rules = ('min','max','expire','numsaved'); |
@rules = ('min','max','expire','numsaved'); |
} elsif ($prefix eq 'secrets') { |
} elsif (($prefix eq 'ltisecrets') || ($prefix eq 'toolsecrets')) { |
@rules = ('min','max'); |
@rules = ('min','max'); |
} |
} |
$staticdefaults{'min'} = $Apache::lonnet::passwdmin; |
$staticdefaults{'min'} = $Apache::lonnet::passwdmin; |
Line 19549 sub modify_selfcreation {
|
Line 18633 sub modify_selfcreation {
|
$output = '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>'; |
$output = '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>'; |
} else { |
} else { |
$output = '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail address needs to end: [_1]", |
$output = '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail address needs to end: [_1]", |
$cancreate{'emaildomain'}{$type}{'inst'}).'</li>'; |
$cancreate{'emaildomain'}{$type}{'inst'}).'</li>'; |
} |
} |
} |
} |
} elsif ($cancreate{'emailoptions'}{$type} eq 'noninst') { |
} elsif ($cancreate{'emailoptions'}{$type} eq 'noninst') { |
Line 19567 sub modify_selfcreation {
|
Line 18651 sub modify_selfcreation {
|
$output = '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>'; |
$output = '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>'; |
} else { |
} else { |
$output = '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail address must not end: [_1]", |
$output = '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail address must not end: [_1]", |
$cancreate{'emaildomain'}{$type}{'noninst'}).'</li>'; |
$cancreate{'emaildomain'}{$type}{'noninst'}).'</li>'; |
} |
} |
} |
} |
} |
} |
Line 19989 sub modify_defaults {
|
Line 19073 sub modify_defaults {
|
} |
} |
} elsif ($item eq 'portal_def') { |
} elsif ($item eq 'portal_def') { |
if ($newvalues{$item} ne '') { |
if ($newvalues{$item} ne '') { |
unless ($newvalues{$item} =~ /^https?\:\/\/(([a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.)*([A-Za-z]|[A-Za-z][A-Za-z0-9\-]*[A-Za-z0-9])\/?$/) { |
if ($newvalues{$item} =~ /^https?\:\/\/(([a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.)*([A-Za-z]|[A-Za-z][A-Za-z0-9\-]*[A-Za-z0-9])\/?$/) { |
|
foreach my $field ('email','web') { |
|
if ($env{'form.'.$item.'_'.$field}) { |
|
$newvalues{$item.'_'.$field} = $env{'form.'.$item.'_'.$field}; |
|
} |
|
} |
|
} else { |
push(@errors,$item); |
push(@errors,$item); |
} |
} |
} |
} |
} |
} |
if (grep(/^\Q$item\E$/,@errors)) { |
if (grep(/^\Q$item\E$/,@errors)) { |
$newvalues{$item} = $domdefaults{$item}; |
$newvalues{$item} = $domdefaults{$item}; |
|
if ($item eq 'portal_def') { |
|
if ($domdefaults{$item}) { |
|
foreach my $field ('email','web') { |
|
if (exists($domdefaults{$item.'_'.$field})) { |
|
$newvalues{$item.'_'.$field} = $domdefaults{$item.'_'.$field}; |
|
} |
|
} |
|
} |
|
} |
} elsif ($domdefaults{$item} ne $newvalues{$item}) { |
} elsif ($domdefaults{$item} ne $newvalues{$item}) { |
$changes{$item} = 1; |
$changes{$item} = 1; |
} |
} |
|
if ($item eq 'portal_def') { |
|
unless (grep(/^\Q$item\E$/,@errors)) { |
|
if ($newvalues{$item} eq '') { |
|
foreach my $field ('email','web') { |
|
if (exists($domdefaults{$item.'_'.$field})) { |
|
delete($domdefaults{$item.'_'.$field}); |
|
} |
|
} |
|
} else { |
|
unless ($changes{$item}) { |
|
foreach my $field ('email','web') { |
|
if ($domdefaults{$item.'_'.$field} ne $newvalues{$item.'_'.$field}) { |
|
$changes{$item} = 1; |
|
last; |
|
} |
|
} |
|
} |
|
foreach my $field ('email','web') { |
|
if ($newvalues{$item.'_'.$field}) { |
|
$domdefaults{$item.'_'.$field} = $newvalues{$item.'_'.$field}; |
|
} elsif (exists($domdefaults{$item.'_'.$field})) { |
|
delete($domdefaults{$item.'_'.$field}); |
|
} |
|
} |
|
} |
|
} |
|
} |
$domdefaults{$item} = $newvalues{$item}; |
$domdefaults{$item} = $newvalues{$item}; |
} |
} |
my %staticdefaults = ( |
my %staticdefaults = ( |
Line 20198 sub modify_defaults {
|
Line 19324 sub modify_defaults {
|
$value = $authnames{$shortauth{$value}}; |
$value = $authnames{$shortauth{$value}}; |
} |
} |
$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$item},$value).'</li>'; |
$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$item},$value).'</li>'; |
$mailmsgtext .= "$title->{$item} set to $value\n"; |
$mailmsgtext .= "$title->{$item} set to $value\n"; |
|
if ($item eq 'portal_def') { |
|
if ($env{'form.'.$item} ne '') { |
|
foreach my $field ('email','web') { |
|
$value = $env{'form.'.$item.'_'.$field}; |
|
if ($value) { |
|
$value = &mt('Yes'); |
|
} else { |
|
$value = &mt('No'); |
|
} |
|
$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$field},$value).'</li>'; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
$resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
Line 20253 sub modify_scantron {
|
Line 19392 sub modify_scantron {
|
$error = &mt("Upload of bubblesheet format file is not permitted to this server: [_1]",$switchserver); |
$error = &mt("Upload of bubblesheet format file is not permitted to this server: [_1]",$switchserver); |
} else { |
} else { |
if ($author_ok eq 'ok') { |
if ($author_ok eq 'ok') { |
|
my $modified = []; |
my ($result,$scantronurl) = |
my ($result,$scantronurl) = |
&publishlogo($r,'upload','scantronformat',$dom, |
&Apache::lonconfigsettings::publishlogo($r,'upload','scantronformat',$dom, |
$confname,'scantron','','',$custom); |
$confname,'scantron','','',$custom, |
|
$modified); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$confhash{'scantron'}{'scantronformat'} = $scantronurl; |
$confhash{'scantron'}{'scantronformat'} = $scantronurl; |
$changes{'scantronformat'} = 1; |
$changes{'scantronformat'} = 1; |
|
&update_modify_urls($r,$modified); |
} else { |
} else { |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$custom,$result); |
$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$custom,$result); |
} |
} |
Line 21186 sub modify_coursedefaults {
|
Line 20328 sub modify_coursedefaults {
|
uploadquota => 500, |
uploadquota => 500, |
postsubmit => 60, |
postsubmit => 60, |
mysqltables => 172800, |
mysqltables => 172800, |
|
domexttool => 1, |
); |
); |
my %texoptions = ( |
my %texoptions = ( |
MathJax => 'MathJax', |
MathJax => 'MathJax', |
Line 21377 sub modify_coursedefaults {
|
Line 20520 sub modify_coursedefaults {
|
$changes{'postsubmit'} = 1; |
$changes{'postsubmit'} = 1; |
} |
} |
} |
} |
|
my (%newdomexttool,%newexttool,%olddomexttool,%oldexttool); |
|
map { $newdomexttool{$_} = 1; } &Apache::loncommon::get_env_multiple('form.domexttool'); |
|
map { $newexttool{$_} = 1; } &Apache::loncommon::get_env_multiple('form.exttool'); |
|
if (ref($domconfig{'coursedefaults'}{'domexttool'}) eq 'HASH') { |
|
%olddomexttool = %{$domconfig{'coursedefaults'}{'domexttool'}}; |
|
} else { |
|
foreach my $type (@types) { |
|
if ($staticdefaults{'domexttool'}) { |
|
$olddomexttool{$type} = 1; |
|
} else { |
|
$olddomexttool{$type} = 0; |
|
} |
|
} |
|
} |
|
if (ref($domconfig{'coursedefaults'}{'exttool'}) eq 'HASH') { |
|
%oldexttool = %{$domconfig{'coursedefaults'}{'exttool'}}; |
|
} else { |
|
foreach my $type (@types) { |
|
if ($staticdefaults{'exttool'}) { |
|
$oldexttool{$type} = 1; |
|
} else { |
|
$oldexttool{$type} = 0; |
|
} |
|
} |
|
} |
|
foreach my $type (@types) { |
|
unless ($newdomexttool{$type}) { |
|
$newdomexttool{$type} = 0; |
|
} |
|
unless ($newexttool{$type}) { |
|
$newexttool{$type} = 0; |
|
} |
|
if ($newdomexttool{$type} != $olddomexttool{$type}) { |
|
$changes{'domexttool'} = 1; |
|
} |
|
if ($newexttool{$type} != $oldexttool{$type}) { |
|
$changes{'exttool'} = 1; |
|
} |
|
} |
|
$defaultshash{'coursedefaults'}{'domexttool'} = \%newdomexttool; |
|
$defaultshash{'coursedefaults'}{'exttool'} = \%newexttool; |
} |
} |
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash, |
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash, |
$dom); |
$dom); |
Line 21386 sub modify_coursedefaults {
|
Line 20570 sub modify_coursedefaults {
|
if (($changes{'canuse_pdfforms'}) || ($changes{'uploadquota'}) || ($changes{'postsubmit'}) || |
if (($changes{'canuse_pdfforms'}) || ($changes{'uploadquota'}) || ($changes{'postsubmit'}) || |
($changes{'coursecredits'}) || ($changes{'uselcmath'}) || ($changes{'usejsme'}) || |
($changes{'coursecredits'}) || ($changes{'uselcmath'}) || ($changes{'usejsme'}) || |
($changes{'canclone'}) || ($changes{'mysqltables'}) || ($changes{'texengine'}) || |
($changes{'canclone'}) || ($changes{'mysqltables'}) || ($changes{'texengine'}) || |
($changes{'inline_chem'}) || ($changes{'ltiauth'})) { |
($changes{'inline_chem'}) || ($changes{'ltiauth'}) || ($changes{'domexttool'}) || |
foreach my $item ('canuse_pdfforms','uselcmath','usejsme','inline_chem','texengine','ltiauth') { |
($changes{'exttool'}) ) { |
|
foreach my $item ('canuse_pdfforms','uselcmath','usejsme','inline_chem','texengine', |
|
'ltiauth') { |
if ($changes{$item}) { |
if ($changes{$item}) { |
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item}; |
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item}; |
} |
} |
Line 21430 sub modify_coursedefaults {
|
Line 20616 sub modify_coursedefaults {
|
$domdefaults{'canclone'}=$defaultshash{'coursedefaults'}{'canclone'}; |
$domdefaults{'canclone'}=$defaultshash{'coursedefaults'}{'canclone'}; |
} |
} |
} |
} |
|
if ($changes{'domexttool'}) { |
|
if (ref($defaultshash{'coursedefaults'}{'domexttool'}) eq 'HASH') { |
|
foreach my $type (@types) { |
|
$domdefaults{$type.'domexttool'}=$defaultshash{'coursedefaults'}{'domexttool'}{$type}; |
|
} |
|
} |
|
} |
|
if ($changes{'exttool'}) { |
|
if (ref($defaultshash{'coursedefaults'}{'exttool'}) eq 'HASH') { |
|
foreach my $type (@types) { |
|
$domdefaults{$type.'exttool'}=$defaultshash{'coursedefaults'}{'exttool'}{$type}; |
|
} |
|
} |
|
} |
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); |
if (ref($lastactref) eq 'HASH') { |
if (ref($lastactref) eq 'HASH') { |
Line 21567 sub modify_coursedefaults {
|
Line 20767 sub modify_coursedefaults {
|
} else { |
} else { |
$resulttext .= '<li>'.&mt('LTI launch of deep-linked URL will require re-authentication').'</li>'; |
$resulttext .= '<li>'.&mt('LTI launch of deep-linked URL will require re-authentication').'</li>'; |
} |
} |
|
} elsif ($item eq 'domexttool') { |
|
my @noyes = (&mt('no'),&mt('yes')); |
|
if (ref($defaultshash{'coursedefaults'}{'domexttool'}) eq 'HASH') { |
|
$resulttext .= '<li>'.&mt('External Tools defined in the domain may be used as follows:').'<ul>'. |
|
'<li>'.&mt('Official courses: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'domexttool'}{'official'}].'</b>').'</li>'. |
|
'<li>'.&mt('Unofficial courses: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'domexttool'}{'unofficial'}].'</b>').'</li>'. |
|
'<li>'.&mt('Textbook courses: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'domexttool'}{'textbook'}].'</b>').'</li>'. |
|
'<li>'.&mt('Placement tests: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'domexttool'}{'placement'}].'</b>').'</li>'. |
|
'<li>'.&mt('Communities: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'domexttool'}{'community'}].'</b>').'</li>'. |
|
'</ul>'. |
|
'</li>'; |
|
} else { |
|
$resulttext .= '<li>'.&mt('External Tools defined in the domain may be used in all course types, by default').'</li>'; |
|
} |
|
} elsif ($item eq 'exttool') { |
|
my @noyes = (&mt('no'),&mt('yes')); |
|
if (ref($defaultshash{'coursedefaults'}{'exttool'}) eq 'HASH') { |
|
$resulttext .= '<li>'.&mt('External Tools can be defined and configured in course containers as follows:').'<ul>'. |
|
'<li>'.&mt('Official courses: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'exttool'}{'official'}].'</b>').'</li>'. |
|
'<li>'.&mt('Unofficial courses: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'exttool'}{'unofficial'}].'</b>').'</li>'. |
|
'<li>'.&mt('Textbook courses: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'exttool'}{'textbook'}].'</b>').'</li>'. |
|
'<li>'.&mt('Placement tests: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'exttool'}{'placement'}].'</b>').'</li>'. |
|
'<li>'.&mt('Communities: [_1]','<b>'.$noyes[$defaultshash{'coursedefaults'}{'exttool'}{'community'}].'</b>').'</li>'. |
|
'</ul>'. |
|
'</li>'; |
|
} else { |
|
$resulttext .= '<li>'.&mt('External Tools can not be defined in any course types, by default').'</li>'; |
|
} |
} |
} |
} |
} |
$resulttext .= '</ul>'; |
$resulttext .= '</ul>'; |
Line 22125 sub modify_wafproxy {
|
Line 21353 sub modify_wafproxy {
|
} |
} |
} |
} |
} |
} |
|
$output .= '</ul>'; |
} else { |
} else { |
$output = '<span class="LC_error">'. |
$output = '<span class="LC_error">'. |
&mt('An error occurred: [_1]',$putresult).'</span>'; |
&mt('An error occurred: [_1]',$putresult).'</span>'; |