Compare commits
7 Commits
641163a495
...
v1.0.1
Author | SHA1 | Date | |
---|---|---|---|
858d44b5ca | |||
e18136e43c | |||
d692d4aa59 | |||
1516ce9ff3 | |||
555ead272e | |||
d616930208 | |||
347b49d5ee |
6
Makefile
6
Makefile
@ -20,7 +20,9 @@
|
||||
# 3. This notice may not be removed or altered from any source
|
||||
# distribution.
|
||||
|
||||
PREFIX=/usr/local
|
||||
ifeq ($(PREFIX),)
|
||||
PREFIX := /usr/local
|
||||
endif
|
||||
|
||||
pacundo: pacundo.pl
|
||||
pp -o $@ $^
|
||||
@ -35,5 +37,7 @@ clean:
|
||||
$(RM) pacundo.1.gz
|
||||
|
||||
install: pacundo pacundo.1.gz
|
||||
install -d $(PREFIX)/bin
|
||||
install -m 755 pacundo $(PREFIX)/bin/
|
||||
install -d $(PREFIX)/share/man/man1
|
||||
install -m 644 pacundo.1.gz $(PREFIX)/share/man/man1/
|
||||
|
@ -45,6 +45,10 @@ There are two modes for undoing pacman transactions:
|
||||
|
||||
Look at the man-page (`man pacundo`) for more information.
|
||||
|
||||
### Supported AUR Helpers
|
||||
|
||||
- [yay](https://github.com/Jguer/yay)
|
||||
|
||||
## License
|
||||
|
||||
This project is licensed under the terms & conditions of the Zlib license.
|
||||
|
@ -1,4 +1,4 @@
|
||||
.TH PACUNDO "1" "April 2024" "pacundo 1.0" "User Commands"
|
||||
.TH PACUNDO "1" "April 2024" "pacundo 1.0.1" "User Commands"
|
||||
.SH "NAME"
|
||||
pacundo - A time machine to return your ArchLinux machine back to a working state.
|
||||
.SH "SYNOPSIS"
|
||||
|
39
pacundo.pl
39
pacundo.pl
@ -29,7 +29,7 @@ use feature qw(signatures);
|
||||
use Getopt::Std;
|
||||
use File::ReadBackwards;
|
||||
|
||||
my $VERSION = '1.0';
|
||||
my $VERSION = '1.0.1';
|
||||
my $PROG_NAME = 'pacundo';
|
||||
|
||||
sub print_version() {
|
||||
@ -169,7 +169,8 @@ sub get_pkgmgr() {
|
||||
my %pkgmgr = (
|
||||
name => $mgr,
|
||||
bin => $mgr_bin,
|
||||
search => "$sudo $mgr_bin -Ss",
|
||||
search => "$mgr_bin -Ss",
|
||||
info => "$mgr_bin -Si",
|
||||
install_remote => "$sudo $mgr_bin -S",
|
||||
install_local => "$sudo $mgr_bin -U",
|
||||
remove => "$sudo $mgr_bin -R",
|
||||
@ -178,17 +179,33 @@ sub get_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 $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) {
|
||||
$pkg_file = `ls $aur_dir/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`;
|
||||
if ($pkg_ver ne '') {
|
||||
$pkg_pat = "$pkg_name-$pkg_ver-*.pkg.tar.zst";
|
||||
} else {
|
||||
$pkg_file = `ls /var/cache/pacman/pkg/$pkg_name-$pkg_ver-*.pkg.tar.zst | tail -n1`;
|
||||
$pkg_pat = "$pkg_name-*.pkg.tar.zst";
|
||||
}
|
||||
|
||||
if ($repo eq 'aur') {
|
||||
my $aur_dir;
|
||||
|
||||
if ($pkgmgr->{name} eq 'yay') {
|
||||
$aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name";
|
||||
} else {
|
||||
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);
|
||||
|
||||
return $pkg_file;
|
||||
}
|
||||
|
||||
@ -227,8 +244,12 @@ foreach my $tx (@undo_txs) {
|
||||
if ($tx->{action} eq 'installed') {
|
||||
$remove_pkgs .= "$tx->{pkg_name} ";
|
||||
} elsif ($tx->{action} eq 'removed') {
|
||||
# TODO: install local package if available
|
||||
$remote_install_pkgs .= "$tx->{pkg_name} ";
|
||||
my $pkg_file = &find_local_pkg($pkgmgr, $tx->{pkg_name});
|
||||
if ($pkg_file eq '') {
|
||||
$remote_install_pkgs .= "$tx->{pkg_name} ";
|
||||
} else {
|
||||
$local_install_pkgs .= "$pkg_file ";
|
||||
}
|
||||
} else {
|
||||
my $pkg_file = &find_local_pkg($pkgmgr, $tx->{pkg_name}, $tx->{oldver});
|
||||
if ($pkg_file eq '') {
|
||||
|
Reference in New Issue
Block a user