From 03406f3e36de4c5a26514dbb4fd3e47922d27653 Mon Sep 17 00:00:00 2001
From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Thu, 10 Nov 2022 15:09:16 +0100
Subject: [PATCH] always add enabled mirror

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---
 PVE/AAB.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/PVE/AAB.pm b/PVE/AAB.pm
index 14eea2f..697c664 100644
--- a/PVE/AAB.pm
+++ b/PVE/AAB.pm
@@ -50,6 +50,17 @@ sub write_file {
     $fh->close;
 }
 
+sub read_file {
+    my ($filename) = @_;
+
+    my $fh = IO::File->new ("<$filename") or die "failed to read $filename - $!\n";
+    my $rec = '';
+    while (defined (my $line = <$fh>)) {
+	$rec .= $line;
+    };
+    return $rec;
+}
+
 sub copy_file {
     my ($a, $b) = @_;
     copy($a, $b) or die "failed to copy $a => $b: $!";
@@ -675,6 +686,11 @@ sub finalize {
     unlink $file;
     rename_file($file.'.aab_orig', $file);
 
+    # experienced user can change it anytime and others do well to start out with an updatable system..
+    my $mirrors = eval { read_file($file) } // '';
+    $mirrors = "\nServer = https://geo.mirror.pkgbuild.com/\$repo/os/\$arch\n\n" . $mirrors;
+    write_file($mirrors, $file, 0644);
+
     print "Removing weak temporary pacman keyring...\n";
     rmtree("$rootdir/etc/pacman.d/gnupg");