Subject: [PATCH] Check for missing homepage field

From: Raphael Geissert <[email-masked]>
Date: Sun, 11 Jan 2009 13:46:14 -0600

Signed-off-by: Raphael Geissert <[email-masked]>
---
 checks/fields      |    2 ++
 checks/fields.desc |    8 ++++++++
 2 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/checks/fields b/checks/fields
index 9f15aa4..2250946 100644
--- a/checks/fields
+++ b/checks/fields
@@ -394,6 +394,8 @@ if (defined $info->field('homepage')) {
 	unless ($uri->scheme) { # not an absolute URI
 		tag "bad-homepage", $homepage;
 	}
+} elsif ($type eq "binary") {
+	tag "no-homepage-field";
 }
 
 #---- Installer-Menu-Item (udeb)
diff --git a/checks/fields.desc b/checks/fields.desc
index 21c35e3..16fbdae 100644
--- a/checks/fields.desc
+++ b/checks/fields.desc
@@ -936,3 +936,11 @@ Info: This package is also provided by one of the Perl core packages
  .
  Example: perl-modules (&gt;= 5.10.0) | libmodule-build-perl (&gt;= 0.26)
 Ref: policy 7.5
+
+Tag: no-homepage-field
+Severity: pedantic
+Certainty: possible
+Info: The package lacks the <tt>Homepage</tt> field which, if it contains
+ useful information or resources to the end user, should be provided in the
+ <tt>control</tt> file.
+Ref: policy 5.6.23