From 0dc91ffcab51004c0a4bc4cdeb7f85a28f8a9600 Mon Sep 17 00:00:00 2001
From: Adam Vandenberg
Date: Wed, 29 Sep 2010 10:21:44 -0700
Subject: brew-audit - use preferred debian mirror

---
 Library/Contributions/examples/brew-audit.rb | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'Library')

diff --git a/Library/Contributions/examples/brew-audit.rb b/Library/Contributions/examples/brew-audit.rb
index 3a39bbf92..3a0407fe0 100755
--- a/Library/Contributions/examples/brew-audit.rb
+++ b/Library/Contributions/examples/brew-audit.rb
@@ -124,9 +124,14 @@ end
 def audit_formula_urls f
   problems = []
 
+  # To do:
+  # Grab URLs out of patches as well
+  # urls = ((f.patches rescue []) || [])
+
+  urls = [(f.url rescue nil), (f.head rescue nil)].reject {|p| p.nil?}
+
   # Check SourceForge urls
-  [(f.url rescue nil), (f.head rescue nil)].each do |p|
-    next if p.nil?
+  urls.each do |p|
     # Is it a filedownload (instead of svnroot)
     next if p =~ %r[/svnroot/]
     next if p =~ %r[svn\.sourceforge]
@@ -151,6 +156,15 @@ def audit_formula_urls f
     end
   end
 
+  # Check Debian urls
+  urls.each do |p|
+    next unless p =~ %r[/debian/pool/]
+
+    unless p =~ %r[^http://mirrors\.kernel\.org/debian/pool/]
+      problems << " * \"mirrors.kernel.org\" is the preferred mirror for debian software."
+    end
+  end
+
   return problems
 end
 
-- 
cgit v1.2.3