version 1.4, 2024/07/15 16:24:23
|
version 1.5, 2024/07/30 13:58:58
|
Line 38 http://www.lon-capa.org/
|
Line 38 http://www.lon-capa.org/
|
use strict; |
use strict; |
|
|
my ($bracketed_warning,$run_modify_config); |
my ($bracketed_warning,$run_modify_config); |
if (open(PIPE,"/bin/su -s /bin/bash -c 'bind -V 2>&1' www |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$/); |