version 1.1, 2024/07/08 23:46:05
|
version 1.3, 2024/07/10 17:39:58
|
Line 38 http://www.lon-capa.org/
|
Line 38 http://www.lon-capa.org/
|
use strict; |
use strict; |
|
|
my $bracketed_warning; |
my $bracketed_warning; |
if (open(PIPE,"/bin/su -s /bin/bash -c 'bind -V' www 2>&1 |grep enable-bracketed-paste |")) { |
if (open(PIPE,"/bin/su -s /bin/bash -c 'bind -V 2>&1' www |grep enable-bracketed-paste |")) { |
my $info = <PIPE> |
my $info = <PIPE>; |
chomp($info); |
chomp($info); |
my ($bracketed) = ($info =~ /^\Qenable-bracketed-paste\E\s+is\s+set\s+to\s+\W(on|off)\W$/); |
my ($bracketed) = ($info =~ /^\Qenable-bracketed-paste\E\s+is\s+set\s+to\s+\W(on|off)\W$/); |
close(PIPE); |
close(PIPE); |
Line 52 if (open(PIPE,"/bin/su -s /bin/bash -c '
|
Line 52 if (open(PIPE,"/bin/su -s /bin/bash -c '
|
|
|
if ($bracketed_warning) { |
if ($bracketed_warning) { |
print <<"END"; |
print <<"END"; |
**** ERROR: Problems will include calls to R statistics engine will not work. |
**** ERROR: Problems which include calls to R statistics engine will not work. |
You need to create a file: /home/www/.inputrc containing th efollowing line: |
You need to create a file: /home/www/.inputrc containing the following line: |
set enable-bracketed-paste to off |
set enable-bracketed-paste to off |
END |
END |
} |
} |