File _service:extract_file:warewulf-provision.pxe_fi... of Package warewulf-provision

File _service:extract_file:warewulf-provision.pxe_file_modes.patch of Package warewulf-provision

--- a/lib/Warewulf/Bootstrap.pm	2019-06-17 14:01:40.000000000 -0700
+++ b/lib/Warewulf/Bootstrap.pm	2019-06-25 14:42:31.410866655 -0700
@@ -210,7 +210,9 @@
             my $dirname = dirname($file);
 
             if (! -d $dirname) {
-                mkpath($dirname);
+                mkpath($dirname, {
+                    mode => 0755,
+                });
             }
         }
 
@@ -350,7 +352,9 @@
             }
 
             mkpath($tmpdir);
-            mkpath($bootstrapdir);
+            mkpath($bootstrapdir, {
+                mode => 0755,
+            });
             chdir($tmpdir);
 
             &dprint("Opening gunzip/cpio pipe\n");
@@ -381,10 +385,13 @@
             system("cd $tmpdir/initramfs; find . | cpio -o --quiet -H newc -F $bootstrapdir/initfs");
             &nprint("Compressing the initramfs\n");
             system("gzip -f -9 $bootstrapdir/initfs");
+            chmod 0644, "$bootstrapdir/initfs.gz";
             &nprint("Locating the kernel object\n");
             system("cp $tmpdir/kernel $bootstrapdir/kernel");
+            chmod 0644, "$bootstrapdir/kernel";
             system("rm -rf $tmpdir");
             open(COOKIE, "> $bootstrapdir/cookie");
+            chmod 0644, "$bootstrapdir/cookie";
             print COOKIE $self->checksum();
             close COOKIE;
             &nprint("Bootstrap image '$bootstrap_name' is ready\n");
--- a/lib/Warewulf/Provision/Pxe.pm	2019-06-17 14:01:40.000000000 -0700
+++ b/lib/Warewulf/Provision/Pxe.pm	2019-06-25 14:42:31.414866655 -0700
@@ -94,8 +94,11 @@
                 if (-f "$datadir/warewulf/ipxe/$f") {
                     &iprint("Copying $f to the tftp root\n");
                     my $dirname = dirname("$tftpdir/warewulf/ipxe/$f");
-                    mkpath($dirname);
+                    mkpath($dirname, {
+                        mode => 0755,
+                    });
                     system("cp $datadir/warewulf/ipxe/$f $tftpdir/warewulf/ipxe/$f");
+                    chmod 0644, "$tftpdir/warewulf/ipxe/$f";
                 } elsif ($arch eq "x86_64") {
                     &eprint("Could not locate Warewulf's internal $datadir/warewulf/ipxe/$f! Things might be broken!\n");
                 }
@@ -106,8 +109,11 @@
                 if (-f "$datadir/warewulf/ipxe/$f") {
                     &iprint("Copying $f to the tftp root\n");
                     my $dirname = dirname("$tftpdir/warewulf/ipxe/$f");
-                    mkpath($dirname);
+                    mkpath($dirname, {
+                        mode => 0755,
+                    });
                     system("cp $datadir/warewulf/ipxe/$f $tftpdir/warewulf/ipxe/$f");
+                    chmod 0644, "$tftpdir/warewulf/ipxe/$f";
                 } elsif ($arch eq "aarch64") {
                     &eprint("Could not locate Warewulf's internal $datadir/warewulf/ipxe/$f! Things might be broken!\n");
                 }
@@ -372,6 +380,9 @@
                 if (-f "$statedir/warewulf/ipxe/cfg/$config") {
                     unlink("$statedir/warewulf/ipxe/cfg/$config");
                 }
+                if (! chmod 0644, "$statedir/warewulf/ipxe/cfg/$config") {
+                    &eprint("Could not chmod Pxelinux configuration file: $!\n");
+                }
             } else {
                 &eprint("Bad characters in hwaddr: $hwaddr\n");
             }