···

       
516
       
516
       
 
       
    $conf .= "}\n\n";

     

       
517
       
517
       
 
       
}

     

       
518
       
518
       
 
       


     

       
519
       
519
       
+
       
sub addGeneration {

     

       
520
       
520
       
+
       
    my ($name, $nameSuffix, $path, $options, $current) = @_;

     

       
519
       
521
       
 
       


     

       
520
       
520
       
-
       
# Add default entries.

     

       
521
       
521
       
-
       
$conf .= "$extraEntries\n" if $extraEntriesBeforeNixOS;

     

       
522
       
522
       
+
       
    # Do not search for grand children

     

       
523
       
523
       
+
       
    my @links = sort (glob "$path/specialisation/*");

     

       
522
       
524
       
 
       


     

       
523
       
523
       
-
       
addEntry("@distroName@ - Default", $defaultConfig, $entryOptions, 1);

     

       
525
       
525
       
+
       
    if ($current != 1 && scalar(@links) != 0) {

     

       
526
       
526
       
+
       
        $conf .= "submenu \"> $name$nameSuffix\" --class submenu {\n";

     

       
527
       
527
       
+
       
    }

     

       
524
       
528
       
 
       


     

       
525
       
525
       
-
       
$conf .= "$extraEntries\n" unless $extraEntriesBeforeNixOS;

     

       
529
       
529
       
+
       
    addEntry("$name" . (scalar(@links) == 0 ? "" : " - Default") . $nameSuffix, $path, $options, $current);

     

       
526
       
530
       
 
       


     

       
527
       
527
       
-
       
# Find all the children of the current default configuration

     

       
528
       
528
       
-
       
# Do not search for grand children

     

       
529
       
529
       
-
       
my @links = sort (glob "$defaultConfig/specialisation/*");

     

       
530
       
530
       
-
       
foreach my $link (@links) {

     

       
531
       
531
       
+
       
    # Find all the children of the current default configuration

     

       
532
       
532
       
+
       
    # Do not search for grand children

     

       
533
       
533
       
+
       
    foreach my $link (@links) {

     

       
531
       
534
       
 
       


     

       
532
       
532
       
-
       
    my $entryName = "";

     

       
535
       
535
       
+
       
        my $entryName = "";

     

       
536
       
536
       
+
       


     

       
537
       
537
       
+
       
        my $cfgName = readFile("$link/configuration-name");

     

       
533
       
538
       
 
       


     

       
534
       
534
       
-
       
    my $cfgName = readFile("$link/configuration-name");

     

       
539
       
539
       
+
       
        my $date = strftime("%F", localtime(lstat($link)->mtime));

     

       
540
       
540
       
+
       
        my $version =

     

       
541
       
541
       
+
       
            -e "$link/nixos-version"

     

       
542
       
542
       
+
       
            ? readFile("$link/nixos-version")

     

       
543
       
543
       
+
       
            : basename((glob(dirname(Cwd::abs_path("$link/kernel")) . "/lib/modules/*"))[0]);

     

       
535
       
544
       
 
       


     

       
536
       
536
       
-
       
    my $date = strftime("%F", localtime(lstat($link)->mtime));

     

       
537
       
537
       
-
       
    my $version =

     

       
538
       
538
       
-
       
        -e "$link/nixos-version"

     

       
539
       
539
       
-
       
        ? readFile("$link/nixos-version")

     

       
540
       
540
       
-
       
        : basename((glob(dirname(Cwd::abs_path("$link/kernel")) . "/lib/modules/*"))[0]);

     

       
545
       
545
       
+
       
        if ($cfgName) {

     

       
546
       
546
       
+
       
            $entryName = $cfgName;

     

       
547
       
547
       
+
       
        } else {

     

       
548
       
548
       
+
       
            my $linkname = basename($link);

     

       
549
       
549
       
+
       
            $entryName = "($linkname - $date - $version)";

     

       
550
       
550
       
+
       
        }

     

       
551
       
551
       
+
       
        addEntry("$name - $entryName", $link, "", 1);

     

       
552
       
552
       
+
       
    }

     

       
541
       
553
       
 
       


     

       
542
       
542
       
-
       
    if ($cfgName) {

     

       
543
       
543
       
-
       
        $entryName = $cfgName;

     

       
544
       
544
       
-
       
    } else {

     

       
545
       
545
       
-
       
        my $linkname = basename($link);

     

       
546
       
546
       
-
       
        $entryName = "($linkname - $date - $version)";

     

       
554
       
554
       
+
       
    if ($current != 1 && scalar(@links) != 0) {

     

       
555
       
555
       
+
       
        $conf .= "}\n";

     

       
547
       
556
       
 
       
    }

     

       
548
       
548
       
-
       
    addEntry("@distroName@ - $entryName", $link, "", 1);

     

       
549
       
557
       
 
       
}

     

       
558
       
558
       
+
       


     

       
559
       
559
       
+
       
# Add default entries.

     

       
560
       
560
       
+
       
$conf .= "$extraEntries\n" if $extraEntriesBeforeNixOS;

     

       
561
       
561
       
+
       


     

       
562
       
562
       
+
       
addGeneration("@distroName@", "", $defaultConfig, $entryOptions, 1);

     

       
563
       
563
       
+
       


     

       
564
       
564
       
+
       
$conf .= "$extraEntries\n" unless $extraEntriesBeforeNixOS;

     

       
550
       
565
       
 
       


     

       
551
       
566
       
 
       
my $grubBootPath = $grubBoot->path;

     

       
552
       
567
       
 
       
# extraEntries could refer to @bootRoot@, which we have to substitute

     
···

       
577
       
592
       
 
       
            -e "$link/nixos-version"

     

       
578
       
593
       
 
       
            ? readFile("$link/nixos-version")

     

       
579
       
594
       
 
       
            : basename((glob(dirname(Cwd::abs_path("$link/kernel")) . "/lib/modules/*"))[0]);

     

       
580
       
580
       
-
       
        addEntry("@distroName@ - Configuration " . nrFromGen($link) . " ($date - $version)", $link, $subEntryOptions, 0);

     

       
595
       
595
       
+
       
        addGeneration("@distroName@ - Configuration " . nrFromGen($link), " ($date - $version)", $link, $subEntryOptions, 0);

     

       
581
       
596
       
 
       
    }

     

       
582
       
597
       
 
       


     

       
583
       
598
       
 
       
    $conf .= "}\n";