[LON-CAPA-cvs] cvs: doc /loncapafiles axe_config_check.piml

[raeburn]

raeburn		Sat Jan  3 21:49:15 2026 EDT

  Modified files:              
    /doc/loncapafiles	axe_config_check.piml 
  Log:
  - Set correct ownership of /home/www/.bashrc if it did not already exist
    and use correct path to axe directory.
  
  
Index: doc/loncapafiles/axe_config_check.piml
diff -u doc/loncapafiles/axe_config_check.piml:1.1 doc/loncapafiles/axe_config_check.piml:1.2
--- doc/loncapafiles/axe_config_check.piml:1.1	Wed Dec 31 23:44:31 2025
+++ doc/loncapafiles/axe_config_check.piml	Sat Jan  3 21:49:15 2026
@@ -2,7 +2,7 @@
 	"http://lpml.sourceforge.net/DTD/piml.dtd">
 <!-- axe_config_check.piml -->
 
-<!-- $Id: axe_config_check.piml,v 1.1 2025/12/31 23:44:31 raeburn Exp $ -->
+<!-- $Id: axe_config_check.piml,v 1.2 2026/01/03 21:49:15 raeburn Exp $ -->
 
 <!--
 
@@ -32,16 +32,18 @@
 <targetroot>/</targetroot>
 <files>
 <file>
-<target dist="default">/home/httpd/nodejs/axe</target>
+<target dist="default">/home/httpd/node.js/axe</target>
 <perlscript mode="fg">
 use strict;
 use Cwd;
 
 my $addexport = 1;
+my $wwwuid = getpwnam('www');
+my $wwwgid = getgrnam('www');
 
 if (-e '/home/www/.bashrc') {
     if (open(my $fh,'<','/home/www/.bashrc')) {
-        while my $line (<fh>) {
+        while (my $line = <fh>) {
             chomp($line);
             if ($line =~ m{^\Qexport PUPPETEER_EXECUTABLE_PATH="/usr/bin/chromium-browser"\E$}) {
                 $addexport = 0;
@@ -60,18 +62,18 @@
     if (open(my $fh,'>','/home/www/.bashrc')) {
         print $fh 'export PUPPETEER_EXECUTABLE_PATH="/usr/bin/chromium-browser"'."\n";
         close($fh);
-        chown()
+        chown($wwwuid,$wwwgid,'/home/www/.bashrc');
+        chmod(0644,'/home/www/.bashrc');
     }
 }
 
 my $original_dir = cwd();
-my $original_uid = $gt;; 
 my $wwwuid = getpwnam('www');
 my $wwwgid = getgrnam('www');
 
-$( = $wwwgid;
+$) = $wwwgid;
 $> = $wwwuid;
-if (chdir '/home/httpd/nodejs/axe') {
+if (chdir '/home/httpd/node.js/axe') {
     if (open(PIPE,"npm install|")) {
         my @lines = (<PIPE>);
         close(PIPE);
@@ -82,6 +84,7 @@
     }
 }
 $> = $<;
+$) = $(; 
 chdir $original_dir;
 
 </perlscript>