version 1.1, 2024/07/08 23:46:05
|
version 1.2, 2024/07/09 14:09:34
|
Line 39 use strict;
|
Line 39 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' www 2>&1 |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 |
} |
} |