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

Implement log search to find transactions.

Browse Source 
Signed-off-by: Nicolás Ortega Froysa <nicolas@ortegas.org>
This commit is contained in:
Nicolás A. Ortega Froysa 2024-02-24 13:57:09 +01:00
parent 9bbe9b4a8f
commit a728570c89
2 changed files with 42 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
README.md
View File

@ -5,6 +5,13 @@ system, and now you have to go in and downgrade those packages? It's a pain
ain't it? Well, this should make it slightly less of a pain (you may still have ain't it? Well, this should make it slightly less of a pain (you may still have
to boot from a USB depending on just how broken it is). to boot from a USB depending on just how broken it is).
## Installation
Dependencies:
- Perl 5
- `File::ReadBackwards` module
## 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.

42
pacundo.pl
View File

@ -26,12 +26,14 @@ use strict;
use warnings; use warnings;
use Getopt::Std; use Getopt::Std;
use File::ReadBackwards;
my $VERSION = "1.0"; my $VERSION = "1.0";
my $PROG_NAME = "pacundo"; my $PROG_NAME = "pacundo";
my $r_flag = 0; my $r_flag = 0;
my $dry_run = 0; my $dry_run = 0;
my $num_txs = 1;
sub print_version { sub print_version {
print("$PROG_NAME v$VERSION\n"); print("$PROG_NAME v$VERSION\n");
@ -41,19 +43,20 @@ sub print_help {
&print_version(); &print_version();
print("A time machine to return your ArchLinux machine back to a working state.\n"); print("A time machine to return your ArchLinux machine back to a working state.\n");
print("\nUSAGE: print("\nUSAGE:
$PROG_NAME [-i|-r] [-d] $PROG_NAME [-i|-r] [-t <num>] [-d]
$PROG_NAME -h $PROG_NAME -h
$PROG_NAME -v $PROG_NAME -v
OPTIONS: OPTIONS:
-i Enter interactive mode to select packages to downgrade [default behavior] -i Enter interactive mode to select packages to downgrade [default behavior]
-r Automatically downgrade all packages from last upgrade -r Automatically downgrade all packages from last upgrade
-d Dry run, i.e. don't actually do anything -t <num> Specify the number of transactions to include for undoing selection [default 1]
-h Show this help information -d Dry run, i.e. don't actually do anything
-v Print program version\n"); -h Show this help information
-v Print program version\n");
} }
getopts("irdvh", \my %opts); getopts("irt:dvh", \my %opts);
if ($opts{'v'}) { if ($opts{'v'}) {
&print_version(); &print_version();
@ -69,3 +72,28 @@ if ($opts{'v'}) {
$r_flag = 1 if ($opts{'r'}); $r_flag = 1 if ($opts{'r'});
$dry_run = 1 if ($opts{'d'}); $dry_run = 1 if ($opts{'d'});
$num_txs = $opts{'t'} if ($opts{'t'});
my $pacman_log = File::ReadBackwards->new("/var/log/pacman.log") or
die("Failed to load pacman log file.\n$!");
my $found_txs = 0;
my $in_tx = 0;
while ($found_txs < $num_txs && defined(my $line = $pacman_log->readline)) {
# Remeber that we're reading this in reverse order
if (!$in_tx && $line =~ /\[ALPM\] transaction completed/) {
$in_tx = 1;
} elsif ($in_tx) {
if ($line =~ /\[ALPM\] transaction started/) {
$found_txs++;
$in_tx = 0;
} elsif ($line =~ /\[ALPM\] (upgraded|downgraded)/) {
my ($action, $package, $oldver, $newver) = $line =~ /\[ALPM\] (upgraded|downgraded) ([^\s]+) \((.*) -> (.*)\)/;
print("$action $package $oldver -> $newver\n");
} elsif ($line =~ /\[ALPM\] (installed|removed)/) {
my ($action, $package) = $line =~ /\[ALPM\] (installed|removed) ([^\s]+)/;
print("$action $package\n");
}
}
}