doc/loncapafiles/bash_config_check.piml - diff

Return to bash_config_check.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.4, 2024/07/15 16:24:23	version 1.6, 2024/11/15 16:25:30
Line 33 http://www.lon-capa.org/	Line 33 http://www.lon-capa.org/
<files>	<files>
<file>	<file>
<target dist="default">/home/httpd/perl</target>	<target dist="default">/home/httpd/perl</target>
<perlscript mode="fg" dist="fedora34 fedora35 fedora36 fedora37 fedora38 fedora39 fedora40 debian12 ubuntu22 ubuntu24 centos9-stream rhes9 oracle9 rocky9 alma9">	<perlscript mode="fg" dist="fedora34 fedora35 fedora36 fedora37 fedora38 fedora39 fedora40 fedora41 debian12 ubuntu22 ubuntu24 centos9-stream rhes9 oracle9 rocky9 alma9">

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$/);