[Midnightbsd-cvs] mports [21752] trunk/Tools/magus/master/port_depends.pl: add util to list all port depends

[laffer1 at midnightbsd.org]

Revision: 21752
          http://svnweb.midnightbsd.org/mports/?rev=21752
Author:   laffer1
Date:     2016-08-19 23:59:14 -0400 (Fri, 19 Aug 2016)
Log Message:
-----------
add util to list all port depends

Added Paths:
-----------
    trunk/Tools/magus/master/port_depends.pl

Added: trunk/Tools/magus/master/port_depends.pl
===================================================================
--- trunk/Tools/magus/master/port_depends.pl	                        (rev 0)
+++ trunk/Tools/magus/master/port_depends.pl	2016-08-20 03:59:14 UTC (rev 21752)
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+#
+# $MidnightBSD: trunk/Tools/magus/master/top_blockers.pl 18885 2015-05-09 18:58:21Z laffer1 $
+# Prints out all depends for a port on a given run (but not type)
+use strict;
+use warnings;
+use Data::Dumper;
+use lib qw(/usr/mports/Tools/lib);
+
+use Magus;
+
+my $run = shift || die "Usage: $0 <run ID> <pkg>\n";
+my $pkg = shift || die "Usage: $0 <run ID> <pkg>\n";
+my %blocking;
+my %objs;
+
+my $ports = Magus::Port->search(run => $run, pkgname => $pkg);
+
+$|++;
+
+while (my $port = $ports->next) {
+  my $add = $blocking{$port} || 1;
+  $objs{$port} ||= $port;
+
+  print "$port\n";
+
+  foreach my $dep ($port->all_depends) {
+#print Dumper($dep);	
+    print "------$dep\n"; 
+  }    
+}
+
+print '-' x 79, "\n";


Property changes on: trunk/Tools/magus/master/port_depends.pl
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property