[Midnightbsd-cvs] mports: find_old_ports.pl: add script to find ports that have not beed

[ctriv at midnightbsd.org]

Log Message:
-----------
add script to find ports that have not beed updated recently.

Added Files:
-----------
    mports/Tools/scripts:
        find_old_ports.pl (r1.1)

-------------- next part --------------
--- /dev/null
+++ Tools/scripts/find_old_ports.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+#
+# $MidnightBSD: mports/Tools/scripts/find_old_ports.pl,v 1.1 2009/03/20 22:27:28 ctriv Exp $
+#
+
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Mport::Utils qw(recurse_ports);
+
+my @oldports;
+
+recurse_ports {
+  open(my $fh, '<', 'Makefile') || die "Couldn't open Makefile: $!\n";
+  
+  my $port;
+  while (my $line = <$fh>) {
+    # $MidnightBSD: mports/Tools/scripts/find_old_ports.pl,v 1.1 2009/03/20 22:27:28 ctriv Exp $
+    next unless $line =~ m/\$MidnightBSD: mports/Tools/scripts/find_old_ports.pl,v 1.1 2009/03/20 22:27:28 ctriv Exp $/;
+    
+    $port = {
+      file => $1,
+      version => $2,
+      date => [ split(m:/:, $3) ],
+      time => [ split(m/:/, $4) ],
+      user => $5,
+    };
+  }
+  
+  if (!$port) {
+    warn "$_[0] does not have a rcs id!!!!\n";
+    return;
+  }
+  
+  return if $port->{date}->[0] == 2009 
+             || ($port->{date}->[0] == 2008 && $port->{date}->[1] > 5);
+    
+  push(@oldports, $port);
+};
+
+foreach my $port (sort { ($a->{date}->[0] <=> $b->{date}->[0]) || ($a->{date}->[1] <=> $b->{date}->[1]) } @oldports) {
+  my $date = join('/', @{$port->{date}});
+  print "$port->{file}: $date\n";
+}
+  
+  
+    
\ No newline at end of file