This commit is contained in:
2024-03-25 17:44:36 -04:00
parent 91b6e8e13f
commit fc884e4629
187 changed files with 5039 additions and 130 deletions

View File

@@ -0,0 +1,3 @@
{
$DB = esmith::ConfigDB->open(${DB_FILENAME});
}

View File

@@ -0,0 +1,16 @@
{
for my $repo ($DB->get_all_by_prop(type => 'repository'))
{
%props = $repo->props;
if (defined $props{GPGCheck}) {
$props{GPGCheck} = 'yes' if ($props{GPGCheck} =~ /1/);
$props{GPGCheck} = 'no' if ($props{GPGCheck} =~ /0/);
}
if (defined $props{EnableGroups}) {
$props{EnableGroups} = 'yes' if ($props{EnableGroups} =~ /1/);
$props{EnableGroups} = 'no' if ($props{EnableGroups} =~ /0/);
}
$repo->merge_props(%props);
}
}

View File

@@ -0,0 +1,8 @@
{
for my $name ( qw(appstream baseos extras remi-safe remi-modular) )
{
my $repo = $DB->get($name) or next;
$repo->set_prop('Visible', 'yes');
}
}

View File

@@ -0,0 +1,9 @@
{
for my $name ( qw(addons contrib dungog fws base centosplus fasttrack updates) )
{
my $repo = $DB->get($name);
$repo->delete if $repo;
}
}

View File

@@ -0,0 +1,10 @@
{
for my $name ( qw(smecontribs) )
{
my $repo = $DB->get($name) or next;
#only migrate if restore from previous SME version, we do not want to override an admin setting for current version.
return unless $repo->prop('MirrorList') =~ m{/$name-1?[0789]{1}$};
$repo->set_prop('status', 'enabled')
$repo->set_prop('Visible', 'yes');
}
}

View File

@@ -0,0 +1,30 @@
{
for my $name ( qw(smeaddons smecontribs smedev smeextras smeos smetest
smeupdates smeupdates-testing) )
{
my $repo = $DB->get($name) or next;
my $mirrorlist = $repo->prop('MirrorList') || '';
my $baseurl = $repo->prop('BaseURL') || '';
if ($mirrorlist =~ m{^file:///etc/yum.repos.d/mirrors-sme|/8/|/sme.*-8$} || $baseurl =~ m{/8/|/sme.*-8$})
{
$repo->delete_prop('MirrorList');
$repo->delete_prop('BaseURL');
unlink "/var/cache/dnf/$name/$_" foreach qw(repomd.xml mirrorlist.txt);
if ($repo->prop('status') eq 'enabled')
{
unlink "/home/e-smith/db/dnf_$_" foreach qw(available updates installed);
}
}
$repo->set_prop('MirrorList', "https://mirrorlist.koozali.org/mirrorlist/$name-11")
if $repo->prop('MirrorList') =~ m{^http://distro.ibiblio.org/pub/linux/distributions/smeserver};
$repo->set_prop('MirrorList', "http://mirrorlist.koozali.org/mirrorlist/$name-11")
if $repo->prop('MirrorList') =~ m{/$name-1?[0789]{1}$};
$repo->set_prop('MirrorList', "https://mirrorlist.koozali.org/mirrorlist/$name-11")
if $repo->prop('MirrorList') =~ m{^http://mirrorlist.contribs.org/mirrorlist/$name-11$};
}
}

View File

@@ -0,0 +1,53 @@
{
use POSIX qw(strftime);
use File::Slurp;
my $curdate = strftime '%Y%m%d', localtime;
my $curVers = 8;
my $curVersEOL = 20290531;
#get Rocky release we are
my $SUBVER = read_file('/etc/rocky-release');
$SUBVER =~ s/^Rocky Linux release ([0-9\.]+).*?$/$1/;
chomp $SUBVER;
# we ignore the force value if for a previous release; idealy should be deleted from another fragment against configuration db
delete $dnf{eolversion} if ( ( defined $dnf{eolversion} && (substr($dnf{eolversion},0,1)<$curVers) ) || ( "$curdate" < "$curVersEOL") );
$SUBVER = $dnf{eolversion} || $SUBVER ;
# we need to remove that from migrated server
for my $name ( qw(appstream baseos extras) )
{
my $repo = $DB->get($name) or next;
my $baseurl = $repo->prop('BaseURL') or next;
my $mirrorlist = $repo->prop('MirrorList') or next;
if ( $baseurl =~ /^https:\/\/dl\.rockylinux\.org\/vault\/rocky\/([0-9])/ )
{
# we want to reset this unless vers 8
next if ($1 == $curVers && "$curdate" >= "$curVersEOL");
$repo->delete_prop('MirrorList');
$repo->delete_prop('BaseURL');
unlink "/var/cache/dnf/$name/$_" foreach qw(repomd.xml mirrorlist.txt);
}
else
{
# no match for a numerical, we probably want to reset that as well
$repo->delete_prop('MirrorList');
$repo->delete_prop('BaseURL');
unlink "/var/cache/dnf/$name/$_" foreach qw(repomd.xml mirrorlist.txt);
}
}
# return unless we have a release version
return unless $SUBVER ne "";
my $curdate = strftime '%Y%m%d', localtime;
# return unless EOL is reached
return unless ( "$curdate" >= "$curVersEOL");
my %equiv=(appstream=>'AppStream', baseos=> 'BaseOS', extras=>'extras' );
for my $name ( qw(appstream baseos extras) )
{
my $repo = $DB->get($name) or next;
my $rname = $equiv{$name} || $name;
# setprop BaseURL "https://dl.rockylinux.org/vault/rocky/$SUBVER/$rname/\$basearch/"
$repo->set_prop('BaseURL', "https://dl.rockylinux.org/vault/rocky/$SUBVER/$rname/\$basearch/");
# delprop MirrorList
$repo->set_prop('MirrorList', "disabled");
}
}