7 Commits

5 changed files with 29 additions and 6 deletions

1
.gitignore vendored
View File

@ -1,2 +1 @@
pacundo
pacundo.1.gz pacundo.1.gz

View File

@ -34,7 +34,7 @@ clean:
doc: pacundo.1.gz doc: pacundo.1.gz
install: pacundo pacundo.1.gz install: pacundo.1.gz
install -d $(PREFIX)/bin install -d $(PREFIX)/bin
install -m 755 pacundo.pl $(PREFIX)/bin/pacundo install -m 755 pacundo.pl $(PREFIX)/bin/pacundo
install -d $(PREFIX)/share/man/man1 install -d $(PREFIX)/share/man/man1

View File

@ -12,7 +12,7 @@ to boot from a USB depending on just how broken it is).
- Perl 5 - Perl 5
- `File::ReadBackwards` module - `File::ReadBackwards` module
- cURL - cURL
- GNU Makefile - GNU Make
You can install these packages with the following command: You can install these packages with the following command:
@ -49,6 +49,26 @@ Look at the man-page (`man pacundo`) for more information.
- [yay](https://github.com/Jguer/yay) - [yay](https://github.com/Jguer/yay)
## Contributing
If you find any issues, feel free to report them on GitHub or send me an E-Mail
(see my website/profile for the address). I will add these issues to my personal
Gitea page and (unless specified otherwise) mention you as the person who found
the issue.
For patches/pull requests, if you open a PR on GitHub I will likely not merge
directly but instead apply the patches locally (via Git patches, conserving
authorship), push them to my Gitea repository, which will finally be mirrored to
GitHub. However, you can save me a bit of work by just sending me the Git
patches directly (via E-Mail).
If you're looking for a way to contribute, there are a few to-do items within
the code which you can find using `grep`:
```console
# grep -n "TODO" pacundo.pl
```
## License ## License
This project is licensed under the terms & conditions of the Zlib license. This project is licensed under the terms & conditions of the Zlib license.

View File

@ -1,4 +1,4 @@
.TH PACUNDO "1" "April 2024" "pacundo 1.0.1" "User Commands" .TH PACUNDO "1" "April 2024" "pacundo 1.1" "User Commands"
.SH "NAME" .SH "NAME"
pacundo - A time machine to roll back your ArchLinux machine to a working state. pacundo - A time machine to roll back your ArchLinux machine to a working state.
.SH "SYNOPSIS" .SH "SYNOPSIS"

View File

@ -29,7 +29,7 @@ use feature qw(signatures);
use Getopt::Std; use Getopt::Std;
use File::ReadBackwards; use File::ReadBackwards;
my $VERSION = '1.0.1'; my $VERSION = '1.1.1';
my $PROG_NAME = 'pacundo'; my $PROG_NAME = 'pacundo';
sub print_version() { sub print_version() {
@ -195,7 +195,11 @@ sub find_local_pkg($pkgmgr, $pkg_name, $pkg_ver='') {
my $aur_dir; my $aur_dir;
if ($pkgmgr->{name} eq 'yay') { if ($pkgmgr->{name} eq 'yay') {
$aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name"; if ($ENV{'XDG_CACHE_HOME'} ne '') {
$aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name";
} else {
$aur_dir = "$ENV{'HOME'}/.cache/yay/$pkg_name";
}
} else { } else {
return ''; return '';
} }