merge bin from shada

[dotfiles.git] / bin / lib32-diff

diff --git a/bin/lib32-diff b/bin/lib32-diff
new file mode 100755 (executable)
index 0000000..92305a3
--- /dev/null
+++ b/bin/lib32-diff
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+my @lib32_pkgs = `pacman -Sl lib32-testing lib32`;
+my %lib32;
+
+foreach (@lib32_pkgs) {
+    chomp;
+    next if (! /(?<repo>.+) (?<lib32_pkgname>.+) (?<lib32_pkgver>.+)-(?<lib32_pkgrel>\d+)/);
+
+    my $lib32_repo = $+{repo};
+    my $lib32_pkgname = $+{lib32_pkgname};
+    my $lib32_pkgver = $+{lib32_pkgver};
+    my $lib32_pkgrel = $+{lib32_pkgrel};
+
+    next if exists $lib32{$lib32_pkgname};
+    $lib32{$lib32_pkgname}="";
+
+    next if $lib32_pkgname !~ /lib32-/;
+
+
+    my $pkgname = $lib32_pkgname;
+    $pkgname =~ s/lib32-//;
+
+    my $pkg = `pacman -Ss "^$pkgname\$" | grep -v '^ ' | head -n1`;
+    chomp $pkg;
+
+    next if ( $pkg !~ /(?<repo>.+)\/(?<pkgname>.+) (?<pkgver>.+)-(?<pkgrel>\d+)/ );
+
+    my $repo = $+{repo};
+    my $pkgver = $+{pkgver};
+    my $pkgrel = $+{pkgrel};
+
+    if ("$lib32_pkgver-$lib32_pkgrel" lt "$pkgver-$pkgrel") {
+        print "$lib32_repo/$lib32_pkgname is older than $repo/$pkgname\n";
+    }
+}