From 74c07418e13b53153a6b9250fab4010e9a8c1ab6 Mon Sep 17 00:00:00 2001
From: Mike Brown <xenoxaos@gmail.com>
Date: Sun, 21 Jul 2013 09:47:36 -0400
Subject: [PATCH] scripts/find-oldest-pkgs.pl to find the packages that were
 built the longest ago to facilitate rebuilding of older binaries

---
 scripts/find-oldest-pkgs.pl | 56 +++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 scripts/find-oldest-pkgs.pl

diff --git a/scripts/find-oldest-pkgs.pl b/scripts/find-oldest-pkgs.pl
new file mode 100644
index 000000000..3b96c4bde
--- /dev/null
+++ b/scripts/find-oldest-pkgs.pl
@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+use strict;
+
+use File::Find;
+use POSIX;
+
+
+
+my @dirs = qw(arm armv6h armv7h);
+my @files = ();
+my @unfails = ();
+my %packages;
+
+
+
+foreach my $arch (@dirs){
+    find(\&pushFile, "/var/www/archlinuxarm/html/$arch");
+}
+
+
+foreach (@files){
+my $filename = $_;
+my @parts = split('/', $_);
+    my $package = $parts[-1];
+    #break the package name down to it's base part...this is probably missing a few, but it's quick and dirty for now.
+    $package =~ s/-\d.*-\d{1,2}-(any|arm|armv6h|armv7h)\.pkg\.tar\.xz//;
+        my @temparray = ($parts[5], $package, $filename);
+    $packages{(((stat($filename))[9]))} = \@temparray;
+
+
+}
+
+
+my $counter = 0;
+
+foreach my $key (sort keys %packages){
+    $counter++;
+    if ($counter > 10){
+        last;
+    }
+    
+    if (${$packages{$key}}[0] eq "arm"){
+        print "!unfail 5 ". ${$packages{$key}}[1];
+    }
+    elsif (${$packages{$key}}[0] eq "armv6h"){
+        print "!unfail 6 ". ${$packages{$key}}[1];
+    }
+    elsif (${$packages{$key}}[0] eq "armv7h"){
+        print "!unfail 7 ". ${$packages{$key}}[1];
+    }    
+}
+
+sub pushFile()
+{
+    push @files, $File::Find::name if(/\.pkg\.tar\.xz/i);
+}