nortega/pacundo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Find local package when reinstalling removed package.

Browse Source 
Signed-off-by: Nicolás Ortega Froysa <nicolas@ortegas.org>
This commit is contained in:
Nicolás A. Ortega Froysa 2024-05-02 13:36:07 +02:00
parent 641163a495
commit 347b49d5ee
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pacundo.pl
View File

@ -178,14 +178,22 @@ sub get_pkgmgr() {
return \%pkgmgr; return \%pkgmgr;
} }
sub find_local_pkg($pkgmgr, $pkg_name, $pkg_ver) { sub find_local_pkg($pkgmgr, $pkg_name, $pkg_ver='') {
my $pkg_file = ''; my $pkg_file = '';
my $aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name"; my $aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name";
if ($pkgmgr->{name} eq 'yay' && -d $aur_dir) { if ($pkgmgr->{name} eq 'yay' && -d $aur_dir) {
$pkg_file = `ls $aur_dir/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`; if ($pkg_ver ne '') {
$pkg_file = `ls $aur_dir/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`;
} else {
$pkg_file = `ls $aur_dir/$pkg_name-*.pkg.tar.zst | tail -n1`;
}
} else { } else {
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`; if ($pkg_ver ne '') {
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`;
} else {
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_name-*.pkg.tar.zst | tail -n1`;
}
} }
chomp($pkg_file); chomp($pkg_file);
@ -227,8 +235,12 @@ foreach my $tx (@undo_txs) {
if ($tx->{action} eq 'installed') { if ($tx->{action} eq 'installed') {
$remove_pkgs .= "$tx->{pkg_name} "; $remove_pkgs .= "$tx->{pkg_name} ";
} elsif ($tx->{action} eq 'removed') { } elsif ($tx->{action} eq 'removed') {
# TODO: install local package if available my $pkg_file = &find_local_pkg($pkgmgr, $tx->{pkg_name});
$remote_install_pkgs .= "$tx->{pkg_name} "; if ($pkg_file eq '') {
$remote_install_pkgs .= "$tx->{pkg_name} ";
} else {
$local_install_pkgs .= "$pkg_file ";
}
} else { } else {
my $pkg_file = &find_local_pkg($pkgmgr, $tx->{pkg_name}, $tx->{oldver}); my $pkg_file = &find_local_pkg($pkgmgr, $tx->{pkg_name}, $tx->{oldver});
if ($pkg_file eq '') { if ($pkg_file eq '') {