Diff of /spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm

Parent Directory | Revision Log | Patch

--- spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm	2005/08/16 03:22:44	232926
+++ spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm	2005/08/16 03:41:44	232927
@@ -3092,6 +3092,26 @@ sub check_ratware_name_id {
   return 0;
 }
 
+sub check_html_uri_only {
+  my ($self) = @_;
+
+  # Find out if there are any  multipart/alternative parts in the message
+  my @ma = $self->{msg}->find_parts(qr@^multipart/alternative\b@i);
+
+  # If there are no multipart/alternative sections, skip this test.
+  return if (!@ma);
+
+  # At this point, we're not actually checking the alternates, just the entire
+  # message.
+  my $return = 0;
+  while (my($k,$v) = each %{$self->{html}->{uri_detail}}) {
+    $return = 1; # make sure there's at least 1 URI
+    return 0 if ($v->{types}->{parsed});
+  }
+
+  return $return;
+}
+
 sub check_https_ip_mismatch {
   my ($self) = @_;