···

       
113
       
 
       
  <varlistentry>

     

       
114
       
 
       
    <term><option>--no-filesystems</option></term>

     

       
115
       
 
       
    <listitem>

     

       
116
       
-
       
      <para>Omit everything concerning file system information

     

       
117
       
-
       
      (which includes swap devices) from the hardware configuration.</para>

     

       
118
       
 
       
    </listitem>

     

       
119
       
 
       
  </varlistentry>

     

       
120
       
 
       


     

···

       
113
       
 
       
  <varlistentry>

     

       
114
       
 
       
    <term><option>--no-filesystems</option></term>

     

       
115
       
 
       
    <listitem>

     

       
116
       
+
       
      <para>Omit everything concerning file systems and swap devices

     

       
117
       
+
       
      from the hardware configuration.</para>

     

       
118
       
 
       
    </listitem>

     

       
119
       
 
       
  </varlistentry>

     

       
120
       
 
       


     

···

       
410
       
 
       
EOF

     

       
411
       
 
       


     

       
412
       
 
       
    if (scalar @extraOptions > 0) {

     

       
413
       
-
       
      $fileSystems .= <<EOF;

     

       
414
       
 
       
      options = \[ ${\join " ", map { "\"" . $_ . "\"" } uniq(@extraOptions)} \];

     

       
415
       
 
       
EOF

     

       
416
       
 
       
    }

     
···

       
419
       
 
       
    };

     

       
420
       
 
       


     

       
421
       
 
       
EOF

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
422
       
 
       
}

     

       
423
       
 
       


     

       
424
       
 
       


     
···

       
459
       
 
       


     

       
460
       
 
       
my $fsAndSwap = "";

     

       
461
       
 
       
if (!$noFilesystems) {

     

       
462
       
-
       
    $fsAndSwap = "\n${fileSystems}  ";

     

       
463
       
 
       
    $fsAndSwap .= "swapDevices =" . multiLineList("    ", @swapDevices) . ";\n";

     

       
464
       
 
       
}

     

       
465
       
 
       


     

···

       
410
       
 
       
EOF

     

       
411
       
 
       


     

       
412
       
 
       
    if (scalar @extraOptions > 0) {

     

       
413
       
+
       
        $fileSystems .= <<EOF;

     

       
414
       
 
       
      options = \[ ${\join " ", map { "\"" . $_ . "\"" } uniq(@extraOptions)} \];

     

       
415
       
 
       
EOF

     

       
416
       
 
       
    }

     
···

       
419
       
 
       
    };

     

       
420
       
 
       


     

       
421
       
 
       
EOF

     

       
422
       
+
       


     

       
423
       
+
       
    # If this filesystem is on a LUKS device, then add a

     

       
424
       
+
       
    # boot.initrd.luks.devices entry.

     

       
425
       
+
       
    if (-e $device) {

     

       
426
       
+
       
        my $deviceName = basename(abs_path($device));

     

       
427
       
+
       
        if (-e "/sys/class/block/$deviceName"

     

       
428
       
+
       
            && read_file("/sys/class/block/$deviceName/dm/uuid",  err_mode => 'quiet') =~ /^CRYPT-LUKS/)

     

       
429
       
+
       
        {

     

       
430
       
+
       
            my @slaves = glob("/sys/class/block/$deviceName/slaves/*");

     

       
431
       
+
       
            if (scalar @slaves == 1) {

     

       
432
       
+
       
                my $slave = "/dev/" . basename($slaves[0]);

     

       
433
       
+
       
                if (-e $slave) {

     

       
434
       
+
       
                    my $dmName = read_file("/sys/class/block/$deviceName/dm/name");

     

       
435
       
+
       
                    chomp $dmName;

     

       
436
       
+
       
                    $fileSystems .= "  boot.initrd.luks.devices.\"$dmName\".device = \"${\(findStableDevPath $slave)}\";\n\n";

     

       
437
       
+
       
                }

     

       
438
       
+
       
            }

     

       
439
       
+
       
        }

     

       
440
       
+
       
    }

     

       
441
       
 
       
}

     

       
442
       
 
       


     

       
443
       
 
       


     
···

       
478
       
 
       


     

       
479
       
 
       
my $fsAndSwap = "";

     

       
480
       
 
       
if (!$noFilesystems) {

     

       
481
       
+
       
    $fsAndSwap = "\n$fileSystems  ";

     

       
482
       
 
       
    $fsAndSwap .= "swapDevices =" . multiLineList("    ", @swapDevices) . ";\n";

     

       
483
       
 
       
}

     

       
484