Return to bash_config_check.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

- Move redirect of STDERR to STDOUT so it is next to the bind command.

    1: <!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 
    2: 	"http://lpml.sourceforge.net/DTD/piml.dtd">
    3: <!-- bash_config_check.piml -->
    4: 
    5: <!-- $Id: bash_config_check.piml,v 1.3 2024/07/10 17:39:58 raeburn Exp $ -->
    6: 
    7: <!--
    8: 
    9: This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   10: 
   11: LON-CAPA is free software; you can redistribute it and/or modify
   12: it under the terms of the GNU General Public License as published by
   13: the Free Software Foundation; either version 2 of the License, or
   14: (at your option) any later version.
   15: 
   16: LON-CAPA is distributed in the hope that it will be useful,
   17: but WITHOUT ANY WARRANTY; without even the implied warranty of
   18: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   19: GNU General Public License for more details.
   20: 
   21: You should have received a copy of the GNU General Public License
   22: along with LON-CAPA; if not, write to the Free Software
   23: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   24: 
   25: /home/httpd/html/adm/gpl.txt
   26: 
   27: http://www.lon-capa.org/
   28: 
   29: -->
   30: 
   31: <piml>
   32: <targetroot>/</targetroot>
   33: <files>
   34: <file>
   35: <target dist="default">/home/httpd/perl</target>
   36: <perlscript mode="fg" dist="fedora34 fedora35 fedora36 fedora37 fedora38 fedora39 fedora40 debian12 ubuntu22 ubuntu24 centos9-stream rhes9 oracle9 rocky9 alma9">
   37: 
   38: use strict;
   39: 
   40: my $bracketed_warning;
   41: if (open(PIPE,"/bin/su -s /bin/bash -c 'bind -V 2>&1' www |grep enable-bracketed-paste |")) {
   42:     my $info = &lt;PIPE&gt;;
   43:     chomp($info);
   44:     my ($bracketed) = ($info =~ /^\Qenable-bracketed-paste\E\s+is\s+set\s+to\s+\W(on|off)\W$/);
   45:     close(PIPE);
   46:     if ($bracketed eq 'on') {
   47:         $bracketed_warning = 1;
   48:     }
   49: } else {
   50:     print "Unable to check if bracketed paste is set to off for www user's shell\n"; 
   51: }
   52: 
   53: if ($bracketed_warning) {
   54:     print &lt;&lt;"END";
   55: **** ERROR: Problems which include calls to R statistics engine will not work.
   56: You need to create a file: /home/www/.inputrc containing the following line:
   57: set enable-bracketed-paste to off
   58: END
   59: }
   60: 
   61: </perlscript>
   62: </file>
   63: </files>
   64: </piml>