#!/usr/bin/perl use Getopt::Std; getopts('dq'); $| = 1; @configfiles = `rpm -qac`; for $i (@configfiles) { chomp $i; $old = -f "$i.rpmsave"; $new = -f "$i.rpmnew"; if ($old || $new) { # If running quietly, we can just exit the first time we see a difference if ($opt_q) { exit 1; } $package = `rpm -qf $i`; chomp $package; old => $old, new => $new, }; } } print "Updated files in package $package:\n"; for $i (@{$updates{$package}}) { if ($i->{old}) { show ($i->{file}, "$i->{file}.rpmsave"); } if ($i->{new}) { show ($i->{file}, "$i->{file}.rpmnew"); } } print "\n"; } exit 1; sub show { my($old, $new) = @_; if ($opt_d) { } }
rpm -qac
-
My tweets
Wed, 09:34: WIthout threading support, Outlook managed to introduce "Focused" and "Other" as tabs in the inbox. Now I got two inbox to check.
-
My tweets
Tue, 11:06: With IntelliJ IDEA it is really hard to tell which window is "active" by looking at the taskbar icon. The project n……
-
My tweets
Sun, 21:01: Scared a little bit https://t.co/MQI4IPzfDa Sun, 22:07: https://t.co/22J8hD4xrp ugly paradise
- Post a new comment
- 0 comments
- Post a new comment
- 0 comments