version 1.2, 2024/07/09 14:09:34
|
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$/); |