Compare commits
2 Commits
347b49d5ee
...
555ead272e
Author | SHA1 | Date | |
---|---|---|---|
555ead272e | |||
d616930208 |
31
pacundo.pl
31
pacundo.pl
@ -169,7 +169,8 @@ sub get_pkgmgr() {
|
|||||||
my %pkgmgr = (
|
my %pkgmgr = (
|
||||||
name => $mgr,
|
name => $mgr,
|
||||||
bin => $mgr_bin,
|
bin => $mgr_bin,
|
||||||
search => "$sudo $mgr_bin -Ss",
|
search => "$mgr_bin -Ss",
|
||||||
|
info => "$mgr_bin -Si",
|
||||||
install_remote => "$sudo $mgr_bin -S",
|
install_remote => "$sudo $mgr_bin -S",
|
||||||
install_local => "$sudo $mgr_bin -U",
|
install_local => "$sudo $mgr_bin -U",
|
||||||
remove => "$sudo $mgr_bin -R",
|
remove => "$sudo $mgr_bin -R",
|
||||||
@ -180,23 +181,31 @@ sub get_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 $pkg_pat;
|
||||||
|
my $repo = `$pkgmgr->{info} $pkg_name | awk '{ if (\$1 == "Repository") print \$3; }'`;;
|
||||||
|
|
||||||
if ($pkgmgr->{name} eq 'yay' && -d $aur_dir) {
|
if ($pkg_ver ne '') {
|
||||||
if ($pkg_ver ne '') {
|
$pkg_pat = "$pkg_name-$pkg_ver-*.pkg.tar.zst";
|
||||||
$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 {
|
||||||
if ($pkg_ver ne '') {
|
$pkg_pat = "$pkg_name-*.pkg.tar.zst";
|
||||||
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`;
|
}
|
||||||
|
|
||||||
|
if ($repo eq 'aur') {
|
||||||
|
my $aur_dir;
|
||||||
|
|
||||||
|
if ($pkgmgr->{name} eq 'yay') {
|
||||||
|
$aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name";
|
||||||
} else {
|
} else {
|
||||||
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_name-*.pkg.tar.zst | tail -n1`;
|
return '';
|
||||||
}
|
}
|
||||||
|
|
||||||
|
$pkg_file = `ls $aur_dir/$pkg_pat | tail -n1`;
|
||||||
|
} else {
|
||||||
|
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_pat | tail -n1`;
|
||||||
}
|
}
|
||||||
|
|
||||||
chomp($pkg_file);
|
chomp($pkg_file);
|
||||||
|
|
||||||
return $pkg_file;
|
return $pkg_file;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user